diff options
author | Henning Weiss <hdweiss@gmail.com> | 2013-01-04 17:20:57 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2013-01-04 17:20:57 +0100 |
commit | f90bc1856133e972b14b140dfdedfb733d0d4561 (patch) | |
tree | 0cd9e0055b22e76b431cfb0a5201324c08ffe707 | |
parent | 5e17a990f5e01705501c57e1bf79d1b0ecfab9d7 (diff) | |
download | org-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.el | 5 |
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) |