Emacs: org: add org-timeblock, various config options

This commit is contained in:
Andrew Scott 2024-08-26 16:42:10 -04:00
parent 7c6df5371d
commit 494df18481
Signed by: a
GPG key ID: 7CD5A5977E4931C1

View file

@ -36,67 +36,87 @@
("C-c c" . org-capture) ("C-c c" . org-capture)
("C-c l" . org-store-link)) ("C-c l" . org-store-link))
:config :config
(setopt org-agenda-files (list (concat org-directory "/personal") (setopt org-agenda-files (directory-files-recursively org-directory "org$")
(concat org-directory "/projects") org-agenda-skip-deadline-if-done t
(concat org-directory "/work")) org-agenda-skip-scheduled-if-done t
org-agenda-start-on-weekday nil
org-archive-location (concat org-directory "/archive.org::* From %s")
org-blank-before-new-entry '((heading . auto)
(plain-list-item . auto))
org-enforce-todo-dependencies t
org-fontify-quote-and-verse-blocks t
org-hide-emphasis-markers t org-hide-emphasis-markers t
org-log-done 'time org-log-done 'time
org-refile-targets '((nil :maxlevel . 2)
(org-agenda-files :maxlevel . 2))
org-refile-use-outline-path 'file
org-return-follows-link t org-return-follows-link t
org-todo-keywords '((sequence "TODO(t)" "IN-PROGRESS(i@/!)" "|" org-src-preserve-indentation t
"DONE(d!)" "BLOCKED(b@)" "WONT-DO(w@/!)" )) org-startup-folded 'content
org-todo-keywords '((sequence "BLOCKED(b@/!)" "IN-PROGRESS(i@/!)"
"TODO(t)" "WAITING(i@/!)" "|" "DONE(d!)"
"WONT-DO(w@/!)"))
org-todo-keyword-faces '(("TODO" . (icon-button)) org-todo-keyword-faces '(("TODO" . (icon-button))
("IN-PROGRESS" . (tool-bar)) ("IN-PROGRESS" . (tool-bar))
("BLOCKED" . (match)) ("BLOCKED" . (match))
("WONT-DO" . (org-done)))) ("WONT-DO" . (org-done))))
(setopt org-capture-templates (setq org-capture-templates
`( `(
("m" "Personal") ("m" "Personal")
("mj" "Log Entry" ("mj" "Log Entry"
entry (file+datetree ,(concat org-directory "/personal/log.org")) entry (file+datetree ,(concat org-directory "/personal_log.org"))
"* %?" "** %?"
:empty-lines 1) :empty-lines 1)
("mn" "Note" ("mn" "Note"
entry (file+headline ,(concat org-directory "/personal/notes.org") "Note to self...") entry (file+headline ,(concat org-directory "/notes.org") "Note to self...")
"* %?" "** %?"
:empty-lines 1) :empty-lines 1)
("mt" "Todo" ("mt" "Todo"
entry (file+headline ,(concat org-directory "/personal/todo.org") "Personal Tasks") entry (file+headline ,(concat org-directory "/inbox.org") "You can do it!")
"* TODO [#B] %?\n:Created: %T\n " "** TODO [#B] %?\n:Created: %U\nSCHEDULED: %^{SCHEDULED: }T\n "
:empty-lines 1) :empty-lines 1)
("p" "Projects") ("p" "Projects")
("pn" "Note" ("pn" "Note"
entry (file+headline ,(concat org-directory "/projects/notes.org") "Project Notes") entry (file+headline ,(concat org-directory "/notes.org") "Project Notes")
"** %?" "** %?"
:empty-lines 1) :empty-lines 1)
("pt" "Todo" ("pt" "Todo"
entry (file+headline ,(concat org-directory "/projects/todo.org") "Project Tasks") entry (file+headline ,(concat org-directory "/inbox.org") "Project Tasks")
"* TODO [#B] %?\n:Created: %T\n%i\n%a\nNotes: " "** TODO [#B] %?\n:Created: %U\nSCHEDULED: %^{SCHEDULED: }T\n%i\n%a\nNotes: "
:empty-lines 0) :empty-lines 1)
("w" "Work") ("w" "Work")
("wn" "Note" ("wn" "Note"
entry (file+headline "~/Nextcloud/Documents/org/work/notes.org" "Work notes") entry (file+headline ,(concat org-directory "/notes.org") "Work Notes")
"** %?" "** %?"
:empty-lines 0) :empty-lines 1)
("wt" "Todo" ("wt" "Todo"
entry (file+headline "~/Nextcloud/Documents/org/work/todo.org" "Work tasks") entry (file+headline ,(concat org-directory "/inbox.org") "Work Tasks")
"* TODO [#B] %?\n:Created: %T\n%i\n%a\nNotes: " "** TODO [#B] %?\n:Created: %U\nSCHEDULED: %^{SCHEDULED: }T\n%i\n%a\nNotes: "
:empty-lines 0))) :empty-lines 1)))
:hook (org-mode . org-indent-mode) :hook (org-mode . org-indent-mode)
:init :init
(setopt org-directory "~/Nextcloud/Documents/org") (setopt org-directory "~/Nextcloud/Documents/org")
;; (bind-keys :prefix-map as/org-prefix-map (bind-keys :prefix-map as/org-prefix-map
;; :prefix "C-c o" :prefix "C-c o"
;; ("d" . org-priority-down) ("n" . org-priority-down)
;; ("u" . org-priority-up) ("p" . org-priority-up)
;; ("r" . org-shiftmetaright) ("f" . org-shiftmetaright)
;; ("l" . org-shiftmetaleft)) ("b" . org-shiftmetaleft)))
)
(use-package org-timeblock
:bind
(:map as/org-prefix-map
("t" . org-timeblock))
:config
(setopt org-timeblock-new-task-time 'pick
org-timeblock-show-future-repeats 'next
org-timeblock-span 3))
(provide 'init-org) (provide 'init-org)
;;; org-mode.el ends here ;;; org-mode.el ends here