Commit e482f72e authored by Victor A. Stoichiţă's avatar Victor A. Stoichiţă
Browse files

improve custom agenda displays

parent 588603c7
......@@ -82,15 +82,22 @@
org-agenda-start-on-weekday 1 ; weeks start on Monday
org-stuck-projects '("+encours+LEVEL=1/-DONE" ("*") nil ""))
(setq org-agenda-prefix-format '((agenda . " %i %-12:c%?-12t% s")
;; (todo . " %i %-12:c")
(todo . " %i %-12:c%?-12t%b")
(tags . " %i %-12:c%?-12t%b")
(search . " %i %-12:c")))
(setq org-agenda-remove-tags-when-in-prefix 'prefix)
(setq org-agenda-todo-ignore-scheduled 'future)
(defun vic/toggle-agenda-file-set ()
(interactive)
(if (equal org-agenda-files "~/org/.agenda_files_notes")
(setq org-agenda-files "~/org/.agenda_files_gtd")
(setq org-agenda-files "~/org/.agenda_files_notes"))
(if (equal org-agenda-files "~/org/.agenda_files_gtd")
(setq org-agenda-files "~/org/.agenda_files_notes")
(setq org-agenda-files "~/org/.agenda_files_gtd"))
(message "Using %s" org-agenda-files))
(vic/toggle-agenda-file-set)
(global-set-key (kbd "C-×") 'vic/toggle-agenda-file-set)
;;;; Calendar
......@@ -122,13 +129,6 @@
;;;; Custom agenda commands
(setq org-agenda-prefix-format '((agenda . " %i %-12:c%?-12t% s")
;; (todo . " %i %-12:c")
(todo . " %i %-12:c%?-12t%b")
(tags . " %i %-12:c%?-12t%b")
(search . " %i %-12:c")))
(setq org-agenda-remove-tags-when-in-prefix 'prefix)
(setq org-agenda-custom-commands
'(("v" "Agenda sans todo" agenda* ""
((org-agenda-files '("~/calendriers"))
......@@ -141,20 +141,20 @@
((agenda ""
((org-agenda-span 1)
(org-agenda-skip-function '(org-agenda-skip-entry-if 'todo '("RÉPONDRE")))))
(tags-todo "+mail +tel +dire"
(tags-todo "+mail-unjour +tel-unjour +dire-unjour"
((org-agenda-prefix-format '((tags . "%i %?-12t%b")))
(org-agenda-overriding-header "Dire")))
(tags-todo "-mail -tel -dire"
(tags-todo "-mail-tel-dire-unjour"
((org-agenda-prefix-format '((tags . "%i %?-12t%b")))
(org-agenda-overriding-header "Faire")))))
("l" "Agenda & todo @anthro" ; block agenda only @anthro todos
((agenda ""
((org-agenda-span 1)
(org-agenda-skip-function '(org-agenda-skip-entry-if 'todo '("RÉPONDRE")))))
(tags-todo "@anthro+mail|@anthro+tel|@anthro+dire"
(tags-todo "@anthro+mail-unjour|@anthro+tel-unjour|@anthro+dire-unjour"
((org-agenda-prefix-format '((tags . "%i %?-12t%b")))
(org-agenda-overriding-header "Anthro dire")))
(tags-todo "@anthro-mail|@anthro-tel|@anthro-dire"
(tags-todo "@anthro-mail-unjour|@anthro-tel-unjour|@anthro-dire-unjour"
((org-agenda-prefix-format '((tags . "%i %?-12t%b")))
(org-agenda-overriding-header "Anthro faire")))))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment