forked from mirrors/org-mode
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
This commit is contained in:
parent
5e17a990f5
commit
f90bc18561
|
@ -540,7 +540,7 @@ The table of checksums is written to the file mobile-checksums."
|
||||||
(t (cons (car x) (cons "" (cdr x))))))
|
(t (cons (car x) (cons "" (cdr x))))))
|
||||||
org-agenda-custom-commands)))
|
org-agenda-custom-commands)))
|
||||||
(default-list '(("a" "Agenda" agenda) ("t" "All TODO" alltodo)))
|
(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
|
(cond
|
||||||
((eq org-mobile-agendas 'custom)
|
((eq org-mobile-agendas 'custom)
|
||||||
(setq thelist custom-list))
|
(setq thelist custom-list))
|
||||||
|
@ -592,12 +592,13 @@ The table of checksums is written to the file mobile-checksums."
|
||||||
(setq cnt 0)
|
(setq cnt 0)
|
||||||
(while (setq e (pop cmds))
|
(while (setq e (pop cmds))
|
||||||
(setq type (car e) match (nth 1 e) settings (nth 2 e))
|
(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 (append gsettings settings))
|
||||||
(setq settings
|
(setq settings
|
||||||
(cons (list 'org-agenda-title-append
|
(cons (list 'org-agenda-title-append
|
||||||
(concat "<after>KEYS=" gkey "#" (number-to-string
|
(concat "<after>KEYS=" gkey "#" (number-to-string
|
||||||
(setq cnt (1+ cnt)))
|
(setq cnt (1+ cnt)))
|
||||||
" TITLE: " gdesc " " match "</after>"))
|
" TITLE: " atitle "</after>"))
|
||||||
settings))
|
settings))
|
||||||
(push (list type match settings) new)))))
|
(push (list type match settings) new)))))
|
||||||
(and new (list "X" "SUMO" (reverse new)
|
(and new (list "X" "SUMO" (reverse new)
|
||||||
|
|
Loading…
Reference in New Issue