secstate/dotfiles
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix emacs to load org on demand #emacs

Browse Source
This commit is contained in:
Colin Powell
2019-01-29 12:21:12 -05:00
parent 423a36ea97
commit 79a399dbbb
2 changed files with 93 additions and 66 deletions
Download Patch File Download Diff File Expand all files Collapse all files

157
emacs/.config/doom/+org.el
View File

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

2
emacs/.config/doom/config.el
View File

@ -22,8 +22,6 @@
(add-to-list 'default-frame-alist '(ns-appearance . dark)) (add-to-list 'default-frame-alist '(ns-appearance . dark))
;(add-hook 'window-setup-hook 'toggle-frame-maximized) ;(add-hook 'window-setup-hook 'toggle-frame-maximized)
(setq org-todo-keywords '((sequence "TODO(t)" "|" "DONE(d)")))
;;
;; Keybindings ;; Keybindings
(map! (map!