diff options
| -rw-r--r-- | emacs/.emacs.d/init.el | 3 | ||||
| -rw-r--r-- | emacs/.emacs.d/org-mode.el | 14 |
2 files changed, 16 insertions, 1 deletions
diff --git a/emacs/.emacs.d/init.el b/emacs/.emacs.d/init.el index cfbc5a2..08b4bce 100644 --- a/emacs/.emacs.d/init.el +++ b/emacs/.emacs.d/init.el @@ -52,8 +52,9 @@ :init (add-to-list 'auto-mode-alist `(,(expand-file-name "~/org/") . org-mode)) :bind - (("C-c a" . bab/org-agenda)) + (("C-c a" . org-agenda)) :config + (org-super-agenda-mode 1) (load-file "~/.emacs.d/org-mode.el") (load-if-exists "~/.emacs.d/org-mode.local.el")) diff --git a/emacs/.emacs.d/org-mode.el b/emacs/.emacs.d/org-mode.el index 3378ffd..83dc782 100644 --- a/emacs/.emacs.d/org-mode.el +++ b/emacs/.emacs.d/org-mode.el @@ -71,6 +71,20 @@ :deadline past :deadline today)))) +(setq org-agenda-custom-commands + '(("w" "Work Agenda" + ((agenda "" ((org-agenda-span 1) + (org-agenda-sorting-strategy '(time-up scheduled-down priority-down deadline-up)) + (org-super-agenda-groups + '((:name "Waiting" :todo "WAIT" :order 9) + (:anything t))))) + (alltodo "" ((org-agenda-overriding-header "") + (org-agenda-skip-function '(org-agenda-skip-if nil '(scheduled deadline))) + (org-super-agenda-groups + '((:todo "TLG") + (:name "Some day" :anything t)))))) + ))) + ;; --- CONFIGURATION --- (define-key global-map "\C-cc" 'org-capture) |