summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorHenning Weiss <hdweiss@gmail.com>2013-01-04 17:20:57 +0100
committerBastien Guerry <bzg@altern.org>2013-01-04 17:20:57 +0100
commitf90bc1856133e972b14b140dfdedfb733d0d4561 (patch)
tree0cd9e0055b22e76b431cfb0a5201324c08ffe707
parent5e17a990f5e01705501c57e1bf79d1b0ecfab9d7 (diff)
downloadorg-mode-f90bc1856133e972b14b140dfdedfb733d0d4561.tar.gz
org-mobile.el: Remove match description from block agendas when they have a title
* org-mobile.el (org-mobile-sumo-agenda-command): Remove match description from block agendas when they have a title. This makes the generated agendas.org file more readable, as complicated block agendas otherwise have long titles. TINYCHANGE
-rw-r--r--lisp/org-mobile.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/org-mobile.el b/lisp/org-mobile.el
index f5c8d1c..d2e7c21 100644
--- a/lisp/org-mobile.el
+++ b/lisp/org-mobile.el
@@ -540,7 +540,7 @@ The table of checksums is written to the file mobile-checksums."
(t (cons (car x) (cons "" (cdr x))))))
org-agenda-custom-commands)))
(default-list '(("a" "Agenda" agenda) ("t" "All TODO" alltodo)))
- thelist new e key desc type match settings cmds gkey gdesc gsettings cnt)
+ thelist atitle new e key desc type match settings cmds gkey gdesc gsettings cnt)
(cond
((eq org-mobile-agendas 'custom)
(setq thelist custom-list))
@@ -592,12 +592,13 @@ The table of checksums is written to the file mobile-checksums."
(setq cnt 0)
(while (setq e (pop cmds))
(setq type (car e) match (nth 1 e) settings (nth 2 e))
+ (setq atitle (if (string= "" gdesc) match gdesc))
(setq settings (append gsettings settings))
(setq settings
(cons (list 'org-agenda-title-append
(concat "<after>KEYS=" gkey "#" (number-to-string
(setq cnt (1+ cnt)))
- " TITLE: " gdesc " " match "</after>"))
+ " TITLE: " atitle "</after>"))
settings))
(push (list type match settings) new)))))
(and new (list "X" "SUMO" (reverse new)