alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

* guile: add format 'quoted' to contacts, use it in the example script

Browse Source
This commit is contained in:
djcb
2012-06-06 08:17:24 +03:00
parent 15d31f75c9
commit e87b5fd248
2 changed files with 15 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
guile/examples/contacts-export
View File

@ -41,7 +41,7 @@ exec guile -e main -s $0 $@
(options (getopt-long args optionspec))
(msg (string-append
"usage: contacts-export [--help] [--muhome=<muhome>] "
"--format=<org-contact|mutt-alias|mutt-ab|wanderlust|plain(*)> "
"--format=<org-contact|mutt-alias|mutt-ab|wanderlust|quoted|plain(*)> "
"--sort-by=<frequency(*)|newness> [--revert] [--limit=<n>]\n"))
(help (option-ref options 'help #f))
(muhome (option-ref options 'muhome #f))
@ -65,6 +65,7 @@ exec guile -e main -s $0 $@
;; make a list of all contacts
(mu:for-each-contact
(lambda (c) (set! contacts (cons c contacts))))
;; should we sort it?
(if sort-by
(set! contacts (sort! contacts