Files
dotfiles/emacs/.config/doom/+org.el

103 lines
3.3 KiB
EmacsLisp

;;; package --- summary +org.el
;;; lexical-binding: t; -*-
;;; Commentary:
;;; Code:
(setq +todo-file "~/org/inbox.org")
(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 %i\n %a")
("n" "Create new note" entry (file "~/Org/notes.org")
"* %?\nEntered on %U\n %i\n %a")
("e" "Elation related note" entry (file "~/Org/elation.org")
"* %?\nEntered on %U\n %i\n %a")
("g" "Add glossary note" entry (file "~/Org/glossary.org")
"* %?\nEntered on %U\n %i\n")
("d" "Add an idea" entry (file "~/Org/ideas.org")
"* %?\nEntered on %U\n %i\n"))
org-todo-keywords '((sequence "TODO(t)" "|" "DONE(d)"))
org-agenda-include-diary nil
org-agenda-custom-commands
'(("h" todo "HOLD")
("d" "Agenda + Next Actions" ((agenda) (todo "NEXT"))))
org-tag-alist '(("@home" . ?h)
("@townhall" . ?t)
("@farm" . ?f)
("@read" . ?r)
("@computer" . ?c))
org-modules '(org-drill
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 todo file" "O" #'+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 open link" "l" #'org-open-at-point
:desc "Org Agenda and Notes" "A" #'+show-agenda))