From 15a8204a9d65ef11b28cdbbdf5999971a5ea6e43 Mon Sep 17 00:00:00 2001 From: Blake Romero Date: Fri, 11 Jul 2025 14:45:38 +0100 Subject: Add org agenda settings --- emacs-config.org | 80 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 80 insertions(+) (limited to 'emacs-config.org') diff --git a/emacs-config.org b/emacs-config.org index 97e89af..410feaa 100644 --- a/emacs-config.org +++ b/emacs-config.org @@ -366,6 +366,11 @@ Case-sensitive search by default and show match count in minibuffer. <>) #+end_src +#+begin_src elisp + (with-eval-after-load 'org-agenda + <>) +#+end_src + *** Org Settings :PROPERTIES: :header-args:elisp: :tangle no :noweb-ref org-settings @@ -638,6 +643,81 @@ Add =doc= LaTeX class. org-habit-completed-glyph ?+)) #+end_src +** Org Agenda +:PROPERTIES: +:header-args:elisp: :tangle no :noweb-ref org-agenda-settings +:END: + +Set agenda header formats. +#+begin_src elisp + (setq-default + org-agenda-prefix-format '((agenda . "%?2i%-5c%?t%s\s") + (todo . "%?2i%-5c") + (tags . "⬜ %?2i%-5c") + (search . "%?2i%-5c")) + org-agenda-deadline-leaders '("!" "In %2d d.:" "[!%2dx]") + org-agenda-scheduled-leaders '("+" "[+%2dx]") + org-agenda-format-date "%F %A") +#+end_src + +Set bulk actions and marker. +#+begin_src elisp + (setq-default + org-agenda-bulk-custom-functions '((?k org-agenda-kill)) + org-agenda-bulk-mark-char "☑️") +#+end_src + +Set priority faces. +#+begin_src elisp + (setq-default org-priority-faces + '((?A . (:foreground "red" :slant italic)) + (?B . (:foreground "cadetblue" :slant italic)) + (?C . (:foreground "goldenrod" :slant italic)))) +#+end_src + +Set face for to-dos in agenda view. +#+begin_src elisp + (set-face-attribute + 'org-agenda-dimmed-todo-face nil + :weight 'bold + :inherit nil + :background 'unspecified) +#+end_src + +Set sorting strategy. +#+begin_src elisp + (setq-default + org-agenda-sorting-strategy + '((agenda + deadline-up + time-up + habit-down + priority-up + category-up) + (todo + todo-state-down + deadline-up + scheduled-up + priority-down + category-keep) + (tags + todo-state-down + priority-down + category-keep) + (search + category-keep))) +#+end_src + +Set time grid. +#+begin_src elisp + (setq-default + org-agenda-time-grid + '((daily today require-timed) + (0000 0100 0200 0300 0400 0500 0600 0700 0800 0900 1000 1100 + 1200 1300 1400 1500 1600 1700 1800 1900 2000 2100 2200 2300) + "⏰" "——————————————————————————————")) +#+end_src + ** Error Checking Enable flymake for programming modes. #+begin_src elisp -- cgit