Add option for ML sync.

This commit is contained in:
Dominik Pantůček 2023-04-06 20:54:19 +02:00
parent 19ea16738b
commit fec10f2d69

View file

@ -136,6 +136,8 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
(-unpaired () "Show latest unpaired bank transactions" (-unpaired () "Show latest unpaired bank transactions"
(-needs-bank- #t) (-needs-bank- #t)
(-action- 'unpaired)) (-action- 'unpaired))
(-mlsync () "Synchronize internal ML"
(-action- 'mlsync))
) )
;; Run tests ;; Run tests
@ -267,6 +269,8 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
((unpaired) ((unpaired)
(newline) (newline)
(print-unpaired-table MB)) (print-unpaired-table MB))
((mlsync)
(print "Mailman sync."))
(else (else
(print "Nothing to do.")) (print "Nothing to do."))