1
0
Fork 0
mirror of https://github.com/Horhik/dotfiles.git synced 2024-11-22 08:21:27 +00:00

Improved org-agenda custom views

This commit is contained in:
horhik 2022-02-08 13:11:57 +03:00
parent 3a8e46334e
commit bcc5ef0c61
2 changed files with 155 additions and 233 deletions

View file

@ -631,127 +631,90 @@
: t : t
** Org mode ** Org mode
*** Org agenda commands
#+begin_src emacs-lisp #+begin_src emacs-lisp
(setq org-agenda-settings '(
(defun my/org-mode-setup() ("d" "Dashboard 📜"
(auto-fill-mode 0) (
(visual-line-mode 1) (tags "@morning" ((org-agenda-overriding-header "Eat the Frog 🐸")))
(setq evil-auto-indent 1) (todo "NEXT" ((org-agenda-overriding-header "Next Tasks ⏩")))
(variable-pitch-mode t) (todo "WAIT" ((org-agenda-overriding-header "Waiting tasks ⏰")))
(prettify-symbols-mode +1) (agenda "" ((org-deadline-warning-days 14)))
(display-line-numbers-mode 0) (todo "PROJECT" ((org-agenda-overriding-header "Active Projects ")))
) (todo "INBOX" ((org-agenda-overriding-header "Inbox 📥")))
))
(use-package pdf-tools
:defer t
)
(use-package org
:hook ((org-mode . my/org-mode-setup)
(org-mode . variable-pitch-mode)
(org-mode . org-indent-mode)
(org-mode . prettify-symbols-mode)
)
:config (setq org-agenda-files `("~/Notes/GTD"))
(display-line-numbers-mode 0)
(org-bullets-mode t)
(org-indent-mode t)
(setq org-ellipsis " ▸" org-hide-emphasis-markers t org-src-fontify-natively t
org-src-tab-acts-natively t org-edit-src-content-indentation 2 org-hide-block-startup nil
org-src-preserve-indentation nil org-startup-folded 'content org-cycle-separator-lines 2)
(setq org-agenda-start-with-log-mode t)
(setq org-log-done 'time)
(setq org-log-into-drawer t)
(setq org-todo-keyword-faces '(("TODO" . org-warning)
("STARTED" . "yellow")
("DREAM" . "pink")
("IDEA" . "gold")
("READ" . "violet")
("ARTICLE" . "lightblue")
("CANCELED" .
(:foreground "blue"
:weight bold))))
(setq org-todo-keywords '((sequence "INBOX(i)" "PROJECT(p)" "TODO(t)" "NEXT(n)" "CAL(c)" "WAIT(w@/!)" "|" "DONE(d!)" "CANC(k@)")
))
(setq org-agenda-custom-commands '(
("d" "Dashboard" ((agenda "" ((org-deadline-warning-days 14)))
(todo "NEXT" ((org-agenda-overriding-header
"Next Tasks")))
(todo "PROJECT"
((org-agenda-overriding-header
"Active Projects")))))
("n" "Next Tasks" ((todo "NEXT" ((org-agenda-overriding-header
"Next Tasks")))
))
("w" "Wait Tasks" ((todo "WAIT" ((org-agenda-overriding-header ("w" "Wait Tasks ⏰"
"Wait Tasks")))) (todo "WAIT" ((org-agenda-overriding-header "Wait Tasks")))
(todo "NEXT" ((org-agenda-overriding-header (todo "NEXT" ((org-agenda-overriding-header "Wait Tasks")))
"Wait Tasks"))) )
) ("c" "Dated Tasks 📅" ((todo "CAL" ((org-agenda-overriding-header "Dated Tasks")))))
("c" "Dated Tasks" ((todo "CAL" ((org-agenda-overriding-header
"Dated Tasks")))))
("s" "Somewhen" ((todo "TODO" ((org-agenda-overriding-header
"Somewhen "))
)))
("A" "Articles" ((todo "Article" ((org-agenda-overriding-header
"Article")))))
("R" "Read" tags-todo "+readlist")
("W" "Work Tasks" tags-todo "+work-email")
("I" "ideas" tags-todo "+idea-article")
;; Low-effort next actions ("S" "Somewhen ⌛" ((todo "TODO" ((org-agenda-overriding-header "Somewhen ")))))
("e" tags-todo "+TODO=\"NEXT\"+Effort<15&+Effort>0" ("R" "Read list 📚" tags-todo "+readlist")
((org-agenda-overriding-header "Low Effort Tasks") ("W" "Watch list 🎦" tags-todo "+watchlist")
(org-agenda-max-todos 20) ("I" "Ideas 💡" tags-todo "+idea")
(org-agenda-files org-agenda-files))) ("P" "petprojects 🐕" tags-todo "+petproject")
("w" "Workflow Status" ((todo "WAIT" ("B" "Things to buy 🛍" tags-todo "+shoplist")
((org-agenda-overriding-header
"Waiting on External") ;; My state/contexts
(org-agenda-files ("s" . "My State and contexts")
org-agenda-files))) ("st" "Tired 🥱" tags "+@tired" ((org-agenda-overriding-header "Tired 🥱")))
(todo "REVIEW" ("sh" "At home🏠" tags "+@home" ((org-agenda-overriding-header "At home🏠")))
((org-agenda-overriding-header ("sc" "By a computer 💻" tags "+@computer" ((org-agenda-overriding-header "By a computer 💻")))
"In Review") ("ss" "On studies 🏫" tags "+@school" ((org-agenda-overriding-header "On studies 🏫")))
(org-agenda-files ("so" "Online 🌐" tags "+@online" ((org-agenda-overriding-header "Online 🌐")))
org-agenda-files))) ("sO" "Outdoors🚶" tags "+@outdoors" ((org-agenda-overriding-header "Outdoors🚶")))
(todo "PLAN" ("sT" "To takeaway 👝 " tags "+takeaway" ((org-agenda-overriding-header "To takeaway 👝 ")))
((org-agenda-overriding-header )
"In Planning") )
(org-agenda-todo-list-sublevels #+end_src
nil) *** Org-mode config
(org-agenda-files #+begin_src emacs-lisp
org-agenda-files)))
(todo "BACKLOG" (defun my/org-mode-setup()
((org-agenda-overriding-header (auto-fill-mode 0)
"Project Backlog") (visual-line-mode 1)
(org-agenda-todo-list-sublevels (setq evil-auto-indent 1)
nil) (variable-pitch-mode t)
(org-agenda-files (prettify-symbols-mode +1)
org-agenda-files))) (display-line-numbers-mode 0)
(todo "READY" )
((org-agenda-overriding-header
"Ready for Work") (use-package pdf-tools
(org-agenda-files :defer t
org-agenda-files))) )
(todo "ACTIVE" (use-package org
((org-agenda-overriding-header :hook ((org-mode . my/org-mode-setup)
"Active Projects") (org-mode . variable-pitch-mode)
(org-agenda-files (org-mode . org-indent-mode)
org-agenda-files))) (org-mode . prettify-symbols-mode)
(todo "COMPLETED" )
((org-agenda-overriding-header :config (setq org-agenda-files `("~/Notes/GTD"))
"Completed Projects") (display-line-numbers-mode 0)
(org-agenda-files (org-bullets-mode t)
org-agenda-files))) (org-indent-mode t)
(todo "CANC" (setq org-ellipsis " ▸" org-hide-emphasis-markers t org-src-fontify-natively t
((org-agenda-overriding-header org-src-tab-acts-natively t org-edit-src-content-indentation 2 org-hide-block-startup nil
"Cancelled Projects") org-src-preserve-indentation nil org-startup-folded 'content org-cycle-separator-lines 2)
(org-agenda-files (setq org-agenda-start-with-log-mode t)
org-agenda-files))))))) (setq org-log-done 'time)
(setq org-log-into-drawer t)
(setq org-todo-keyword-faces '(("TODO" . org-warning)
("STARTED" . "yellow")
("DREAM" . "pink")
("PROJECT" . "pink")
("IDEA" . "gold")
("READ" . "violet")
("ARTICLE" . "lightblue")
("CANCELED" .
(:foreground "blue"
:weight bold))))
(setq org-todo-keywords '((sequence "INBOX(i)" "PROJECT(p)" "TODO(t)" "NEXT(n)" "CAL(c)" "WAIT(w@/!)" "|" "DONE(d!)" "CANC(k@)")
))
(setq org-agenda-custom-commands org-agenda-settings)
:general (general-nmap :prefix "SPC a" :general (general-nmap :prefix "SPC a"

View file

@ -511,125 +511,84 @@
(set-face-attribute 'org-column-title nil :background nil) (set-face-attribute 'org-column-title nil :background nil)
(setq org-src-fontify-natively t) (setq org-src-fontify-natively t)
(setq org-agenda-settings '(
("d" "Dashboard 📜"
(
(tags "@morning" ((org-agenda-overriding-header "Eat the Frog 🐸")))
(todo "NEXT" ((org-agenda-overriding-header "Next Tasks ⏩")))
(todo "WAIT" ((org-agenda-overriding-header "Waiting tasks ⏰")))
(agenda "" ((org-deadline-warning-days 14)))
(todo "PROJECT" ((org-agenda-overriding-header "Active Projects ")))
(todo "INBOX" ((org-agenda-overriding-header "Inbox 📥")))
))
("w" "Wait Tasks ⏰"
(todo "WAIT" ((org-agenda-overriding-header "Wait Tasks")))
(todo "NEXT" ((org-agenda-overriding-header "Wait Tasks")))
)
("c" "Dated Tasks 📅" ((todo "CAL" ((org-agenda-overriding-header "Dated Tasks")))))
("S" "Somewhen ⌛" ((todo "TODO" ((org-agenda-overriding-header "Somewhen ")))))
("R" "Read list 📚" tags-todo "+readlist")
("W" "Watch list 🎦" tags-todo "+watchlist")
("I" "Ideas 💡" tags-todo "+idea")
("P" "petprojects 🐕" tags-todo "+petproject")
("B" "Things to buy 🛍" tags-todo "+shoplist")
;; My state/contexts
("s" . "My State and contexts")
("st" "Tired 🥱" tags "+@tired" ((org-agenda-overriding-header "Tired 🥱")))
("sh" "At home🏠" tags "+@home" ((org-agenda-overriding-header "At home🏠")))
("sc" "By a computer 💻" tags "+@computer" ((org-agenda-overriding-header "By a computer 💻")))
("ss" "On studies 🏫" tags "+@school" ((org-agenda-overriding-header "On studies 🏫")))
("so" "Online 🌐" tags "+@online" ((org-agenda-overriding-header "Online 🌐")))
("sO" "Outdoors🚶" tags "+@outdoors" ((org-agenda-overriding-header "Outdoors🚶")))
("sT" "To takeaway 👝 " tags "+takeaway" ((org-agenda-overriding-header "To takeaway 👝 ")))
)
)
(defun my/org-mode-setup() (defun my/org-mode-setup()
(auto-fill-mode 0) (auto-fill-mode 0)
(visual-line-mode 1) (visual-line-mode 1)
(setq evil-auto-indent 1) (setq evil-auto-indent 1)
(variable-pitch-mode t) (variable-pitch-mode t)
(prettify-symbols-mode +1) (prettify-symbols-mode +1)
(display-line-numbers-mode 0) (display-line-numbers-mode 0)
) )
(use-package pdf-tools (use-package pdf-tools
:defer t :defer t
) )
(use-package org (use-package org
:hook ((org-mode . my/org-mode-setup) :hook ((org-mode . my/org-mode-setup)
(org-mode . variable-pitch-mode) (org-mode . variable-pitch-mode)
(org-mode . org-indent-mode) (org-mode . org-indent-mode)
(org-mode . prettify-symbols-mode) (org-mode . prettify-symbols-mode)
) )
:config (setq org-agenda-files `("~/Notes/GTD")) :config (setq org-agenda-files `("~/Notes/GTD"))
(display-line-numbers-mode 0) (display-line-numbers-mode 0)
(org-bullets-mode t) (org-bullets-mode t)
(org-indent-mode t) (org-indent-mode t)
(setq org-ellipsis "" org-hide-emphasis-markers t org-src-fontify-natively t (setq org-ellipsis "" org-hide-emphasis-markers t org-src-fontify-natively t
org-src-tab-acts-natively t org-edit-src-content-indentation 2 org-hide-block-startup nil org-src-tab-acts-natively t org-edit-src-content-indentation 2 org-hide-block-startup nil
org-src-preserve-indentation nil org-startup-folded 'content org-cycle-separator-lines 2) org-src-preserve-indentation nil org-startup-folded 'content org-cycle-separator-lines 2)
(setq org-agenda-start-with-log-mode t) (setq org-agenda-start-with-log-mode t)
(setq org-log-done 'time) (setq org-log-done 'time)
(setq org-log-into-drawer t) (setq org-log-into-drawer t)
(setq org-todo-keyword-faces '(("TODO" . org-warning) (setq org-todo-keyword-faces '(("TODO" . org-warning)
("STARTED" . "yellow") ("STARTED" . "yellow")
("DREAM" . "pink") ("DREAM" . "pink")
("IDEA" . "gold") ("IDEA" . "gold")
("READ" . "violet") ("READ" . "violet")
("ARTICLE" . "lightblue") ("ARTICLE" . "lightblue")
("CANCELED" . ("CANCELED" .
(:foreground "blue" (:foreground "blue"
:weight bold)))) :weight bold))))
(setq org-todo-keywords '((sequence "INBOX(i)" "PROJECT(p)" "TODO(t)" "NEXT(n)" "CAL(c)" "WAIT(w@/!)" "|" "DONE(d!)" "CANC(k@)") (setq org-todo-keywords '((sequence "INBOX(i)" "PROJECT(p)" "TODO(t)" "NEXT(n)" "CAL(c)" "WAIT(w@/!)" "|" "DONE(d!)" "CANC(k@)")
)) ))
(setq org-agenda-custom-commands '( (setq org-agenda-custom-commands org-agenda-settings)
("d" "Dashboard" ((agenda "" ((org-deadline-warning-days 14)))
(todo "NEXT" ((org-agenda-overriding-header
"Next Tasks")))
(todo "PROJECT"
((org-agenda-overriding-header
"Active Projects")))))
("n" "Next Tasks" ((todo "NEXT" ((org-agenda-overriding-header
"Next Tasks")))
))
("w" "Wait Tasks" ((todo "WAIT" ((org-agenda-overriding-header
"Wait Tasks"))))
(todo "NEXT" ((org-agenda-overriding-header
"Wait Tasks")))
)
("c" "Dated Tasks" ((todo "CAL" ((org-agenda-overriding-header
"Dated Tasks")))))
("s" "Somewhen" ((todo "TODO" ((org-agenda-overriding-header
"Somewhen "))
)))
("A" "Articles" ((todo "Article" ((org-agenda-overriding-header
"Article")))))
("R" "Read" tags-todo "+readlist")
("W" "Work Tasks" tags-todo "+work-email")
("I" "ideas" tags-todo "+idea-article")
;; Low-effort next actions
("e" tags-todo "+TODO=\"NEXT\"+Effort<15&+Effort>0"
((org-agenda-overriding-header "Low Effort Tasks")
(org-agenda-max-todos 20)
(org-agenda-files org-agenda-files)))
("w" "Workflow Status" ((todo "WAIT"
((org-agenda-overriding-header
"Waiting on External")
(org-agenda-files
org-agenda-files)))
(todo "REVIEW"
((org-agenda-overriding-header
"In Review")
(org-agenda-files
org-agenda-files)))
(todo "PLAN"
((org-agenda-overriding-header
"In Planning")
(org-agenda-todo-list-sublevels
nil)
(org-agenda-files
org-agenda-files)))
(todo "BACKLOG"
((org-agenda-overriding-header
"Project Backlog")
(org-agenda-todo-list-sublevels
nil)
(org-agenda-files
org-agenda-files)))
(todo "READY"
((org-agenda-overriding-header
"Ready for Work")
(org-agenda-files
org-agenda-files)))
(todo "ACTIVE"
((org-agenda-overriding-header
"Active Projects")
(org-agenda-files
org-agenda-files)))
(todo "COMPLETED"
((org-agenda-overriding-header
"Completed Projects")
(org-agenda-files
org-agenda-files)))
(todo "CANC"
((org-agenda-overriding-header
"Cancelled Projects")
(org-agenda-files
org-agenda-files)))))))
:general (general-nmap :prefix "SPC a" :general (general-nmap :prefix "SPC a"