update: configurations for org super agenda

master
Kore Francis 5 years ago
parent 6fc5570e61
commit 5c366850f4

@ -1,8 +1,8 @@
(setq user-full-name "Francis Kore" (setq user-full-name "Francis Kore"
user-mail-address "me@korefrancis.com") user-mail-address "me@korefrancis.com")
;; (setq doom-font (font-spec :family "monospace" :size 12 :weight 'semi-light) (setq doom-font (font-spec :family "monospace" :size 12 :weight 'semi-light)
;; doom-variable-pitch-font (font-spec :family "sans" :size 13)) doom-variable-pitch-font (font-spec :family "sans" :size 13))
(setq doom-theme 'doom-one) (setq doom-theme 'doom-one)
@ -10,8 +10,11 @@
(setq deft-directory "~/org/deft") (setq deft-directory "~/org/deft")
(setq org-superstar-headline-bullets-list '("" "" "" "" "")) (setq org-superstar-headline-bullets-list '("" "" "" "" ""))
;; Startup folded
(setq org-startup-folded 'overview)
(setq org-todo-keywords (setq org-todo-keywords
'((sequence "TODO(t)" "PROJ(p)" "STRT(s)" "WAIT(w)" "HOLD(h)" "IDEA(i)" "|" "DONE(d)" "KILL(k)") '((sequence "TODO(t)" "PROJ(p)" "NEXT(n)" "STRT(s)" "WAIT(w)" "HOLD(h)" "IDEA(i)" "|" "DONE(d)" "KILL(k)")
(sequence "[ ](T)" "[-](S)" "[?](W)" "|" "[X](D)") (sequence "[ ](T)" "[-](S)" "[?](W)" "|" "[X](D)")
(sequence "|" "OKAY(o)" "YES(y)" "NO(n)"))) (sequence "|" "OKAY(o)" "YES(y)" "NO(n)")))
@ -60,24 +63,41 @@
(setq org-log-done t) (setq org-log-done t)
(setq org-agenda-skip-scheduled-if-done t
org-agenda-skip-deadline-if-done t
org-agenda-include-deadlines t
org-agenda-block-separator nil
org-agenda-tags-column 100 ;; from testing this seems to be a good value
org-agenda-compact-blocks t)
(use-package! org-super-agenda (use-package! org-super-agenda
:after org-agenda
:init :init
(setq org-super-agenda-groups '((:name "Today" (setq org-super-agenda-groups
:time-grid t '((:name "Next Items"
:scheduled today) :time-grid t
(:name "Due Today" :tag ("NEXT" "outbox"))
:deadline today) (:name "Important"
(:name "Important" :priority "A")
:priority "") (:name "Quick Picks"
(:name "Overdue" :effort< "0:30")
:deadline past) (:priority<= "B"
(:name "Due Soon" :scheduled future
:deadline future) :order 1)))
(:name "Big Outcomes" :config
:tag "bo")))
:config
(org-super-agenda-mode)) (org-super-agenda-mode))
;(setq org-super-agenda-groups '((:name "Today"
; :time-grid t
; :scheduled today)
; (:name "Due Today"
; :deadline today)
; (:name "Important"
; :priority "❗")
; (:name "Overdue"
; :deadline past)
; (:name "Due Soon"
; :deadline future)
; (:name "Big Outcomes"
; :tag "bo")))
(setq ispell-program-name "aspell") (setq ispell-program-name "aspell")
(setq ispell-extra-args '("--sug-mode=ultra" "--lang=en_US")) (setq ispell-extra-args '("--sug-mode=ultra" "--lang=en_US"))

@ -149,8 +149,6 @@ numbers are disabled. For relative line numbers, set this to `relative'.
#+end_src #+end_src
** Super-Agenda ** Super-Agenda
#+begin_src emacs-lisp #+begin_src emacs-lisp
(after! org-agenda
(org-super-agenda-mode))
(setq org-agenda-skip-scheduled-if-done t (setq org-agenda-skip-scheduled-if-done t
org-agenda-skip-deadline-if-done t org-agenda-skip-deadline-if-done t
@ -158,6 +156,9 @@ numbers are disabled. For relative line numbers, set this to `relative'.
org-agenda-block-separator nil org-agenda-block-separator nil
org-agenda-tags-column 100 ;; from testing this seems to be a good value org-agenda-tags-column 100 ;; from testing this seems to be a good value
org-agenda-compact-blocks t) org-agenda-compact-blocks t)
(use-package! org-super-agenda
:init
(setq org-super-agenda-groups (setq org-super-agenda-groups
'((:name "Next Items" '((:name "Next Items"
:time-grid t :time-grid t
@ -169,6 +170,8 @@ numbers are disabled. For relative line numbers, set this to `relative'.
(:priority<= "B" (:priority<= "B"
:scheduled future :scheduled future
:order 1))) :order 1)))
:config
(org-super-agenda-mode))
;(setq org-super-agenda-groups '((:name "Today" ;(setq org-super-agenda-groups '((:name "Today"
; :time-grid t ; :time-grid t
; :scheduled today) ; :scheduled today)

@ -52,5 +52,4 @@
(package! org-roam-server) (package! org-roam-server)
(package! spray) (package! spray)
(package! mixed-pitch) (package! mixed-pitch)
(use-package! org-super-agenda (use-package! org-super-agenda)
:commands (org-super-agenda-mode))

Loading…
Cancel
Save