| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132 |
- ;;; package --- summary +org.el
- ;;; lexical-binding: t; -*-
- ;;; Commentary:
- ;;; Code:
- (setq +todo-file "~/org/inbox.org")
- (add-hook! :append org-load
- (setq org-directory (expand-file-name "~/org/")
- org-journal-dir "~/org/journal/"
- org-startup-indented t
- org-agenda-files (list org-directory)
- org-pretty-entities t
- org-hide-emphasis-markers t
- org-hide-leading-stars t
- org-contacts-files '("~/org/contacts.org")
- ; attempt to return todo function to spacemacs
- evil-org-key-theme '(textobjects navigation additional insert todo)
- ;; show actually italicized text instead of /italicized text/
- org-agenda-block-separator ""
- org-fontify-whole-heading-line t
- org-fontify-done-headline t
- org-fontify-quote-and-verse-blocks t
- org-log-done 'time
- org-bullets-face-name (quote org-bullet-face)
- org-bullets-bullet-list '("■" "◆" "▲" "▶")
- org-capture-templates
- '(
- ("i" "Send to inbox" entry (file+headline "~/org/inbox.org" "Inbox")
- "* TODO %?\n")
- ("l" "Send to inbox with link" entry (file+headline "~/org/inbox.org" "Inbox")
- "* TODO %?\n %i\n %a")
- ("w" "Work diary entry" entry (file "~/org/work_diary.org")
- "* %u\n%?\n")
- ("n" "Add an idea" entry (file "~/org/ideas.org")
- "* %?\nEntered on %U\n"))
- org-agenda-include-diary nil
- org-todo-keywords
- '((sequence "TODO(t)" "NEXT(n)" "WAITING(w)" "MAYBE(m)" "|" "DONE(d)"))
- org-todo-keyword-faces
- '((("TODO" . (:foreground "red" :weight bold))
- ("NEXT" . (:foreground "blue"))
- ("MAYBE" . (:foreground "sea green"))
- ("WAITING" . (:foreground "forest green")))
- ("DONE" . (:foreground "light sea green")))
- org-agenda-span 5
- org-agenda-start-day "1d"
- org-agenda-custom-commands
- '(("N" "List all next tasks" ((agenda "" ((org-agenda-span 1)))
- (tags "@errand/-DONE") ; should generaly be pretty empty
- (tags "@home/NEXT")
- (tags "@work/NEXT")
- (tags "@selectp/NEXT")))
- ("R" "Weekly Review"
- ((agenda "" ((org-agenda-span 7)))
- (stuck "") ; review stuck projects as designated by org-stuck-projects
- (tags "PROJECT/-DONE-MAYBE") ; review all projects
- (todo "MAYBE") ; review someday/maybe items
- (todo "WAITING")))) ; review waiting items
- org-use-tag-inheritance nil ; bug in variable below, just turn 'em off
- org-tags-exclude-from-inheritance '("PROJECT" "SPRINT") ; PROJECT should not be inheritable
- org-stuck-projects
- '("+PROJECT/-MAYBE-DONE" ("TODO" "NEXT") nil "\\<IGNORE\\>")
- org-tag-alist '(("PROJECT" . ?p)
- ("@home" . ?h)
- ("@selectp" . ?s)
- ("@errand" . ?e)
- ("@read" . ?r)
- ("@work" . ?w)
- ("@family" . ?f))
- org-modules '(org-drill
- org-clock
- org-id
- org-info
- org-habit
- org-protocol
- org-annotate-file
- org-eval
- org-expiry
- org-contacts
- org-man
- org-notmuch
- org-collector
- org-panel
- org-screen
- org-toc)
- ; refile targets
- org-refile-targets '(("~/org/todo.org" :maxlevel . 2)
- ("~/org/someday.org" :maxlevel . 2)
- ("~/org/town.org" :maxlevel . 2)
- ("~/org/personal.org" :maxlevel . 2)
- ("~/org/elation.org" :maxlevel . 2))))
- ;; org-match-sparse-tree
- ;;
- ;; org-set-tags-command
- (defun +open-todo-file ()
- (interactive)
- "Opens the todo file"
- (find-file +todo-file))
- (map!
- :leader
- :desc "Open inbox" "I" #'+open-todo-file)
- (defun +show-agenda ()
- (interactive)
- (delete-other-windows)
- (with-popup-rules! nil
- (org-agenda-list)
- (calendar))
- (other-window 1)
- (split-window-vertically)
- (other-window 1)
- (find-file +todo-file))
- (map! :leader
- (:prefix "o"
- :desc "Org Agenda" "A" #'org-agenda-list
- :desc "Org Agenda" "a" #'org-agenda
- :desc "Org open link" "l" #'org-open-at-point
- :desc "Org set tags" "t" #'org-set-tags-command))
|
