Skip to content

Instantly share code, notes, and snippets.

@TeMPOraL
Created November 3, 2016 13:58
Show Gist options
  • Star 3 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save TeMPOraL/a25fbf499e295537fa80e525fcceebf3 to your computer and use it in GitHub Desktop.
Save TeMPOraL/a25fbf499e295537fa80e525fcceebf3 to your computer and use it in GitHub Desktop.
Excerpts from the current config for org-mode I use.
(try-load-and-configure-library
'org-install
(setq org-hide-leading-stars t)
(setq org-pretty-entities t)
(setq org-pretty-entities-include-sub-superscripts nil)
(setq org-return-follows-link t)
(setq org-special-ctrl-a/e t)
(setq org-log-done t)
(setq org-agenda-files '("~/Dropbox/GTD2/"
"~/Dropbox/GTD2/projects/"
"~/Dropbox/GTD2/projects/HSKRK/"))
;; (setq org-agenda-category-icon-alist '(("HSKRK" "~/.emacs.conf/icons/hskrk2.png" nil nil :ascent center)
;; ("home" "~/.emacs.conf/icons/home.png" nil nil :ascent center)
;; (".*" (space . (:width (16)))))
;; )
(setq org-refile-targets '((nil :maxlevel . 1)
(org-agenda-files :maxlevel . 1)))
(setq org-agenda-prefix-format '((agenda . " %i %-12:c%?-12t% s")
(timeline . " % s")
(todo . " %l%i %-12:c")
(tags . " %i %-12:c")
(search . " %i %-12:c")))
(setq org-agenda-span 14)
(setq org-todo-keywords
(quote ((sequence "TODO(t)" "NEXT(n)" "DOING(o)" "|" "DONE(d)")
(sequence "WAITING_FOR(w@/!)" "DELEGATED(e@/!)" "|" "CANCELLED(c@/!)")))) ; "HOLD(h@/!)"
(custom-set-faces
;; '(org-agenda-date ((t (:inherit org-agenda-structure :weight semi-bold :height 1.2))) t)
;; '(org-date ((t (:foreground "Purple" :underline t :height 0.8 :family "Helvetica Neue"))))
'(org-document-title ((t (:height 1.5 :weight bold))))
'(org-done ((t (:foreground "light green" :weight light))))
'(org-level-1 ((t (:weight semi-bold :height 1.2))))
'(org-level-2 ((t (:inherit outline-2 :weight semi-bold :height 1.1))))
'(org-level-3 ((t (:inherit outline-3 :weight bold))))
;; '(org-level-5 ((t (:inherit outline-5 :family "Helvetica Neue"))))
;; '(org-link ((t (:inherit link :weight normal))))
'(org-meta-line ((t (:inherit font-lock-comment-face :height 0.9))))
'(org-property-value ((t (:height 0.9))) t)
'(org-special-keyword ((t (:inherit font-lock-keyword-face :height 0.9))))
;; '(org-table ((t (:foreground "dim gray" :height 0.9 :family "Menlo"))))
;; '(org-tag ((t (:foreground "dark gray" :weight bold :height 0.8))))
;; '(org-todo ((t (:foreground "#e67e22" :weight bold))))
)
(setq org-todo-keyword-faces
(quote (("TODO" :foreground "orange red" :weight bold)
("NEXT" :foreground "deep sky blue" :weight bold)
("DONE" :foreground "light green" :weight light)
("WAITING_FOR" :foreground "indian red" :weight bold)
("DELEGATED" :foreground "indian red" :weight bold)
; ("HOLD" :foreground "magenta" :weight bold)
("CANCELLED" :foreground "light green" :weight light))))
(setq org-use-fast-todo-selection t)
(setq org-treat-S-cursor-todo-selection-as-state-change nil)
(setq org-agenda-restore-windows-after-quit t)
(add-hook 'org-agenda-mode-hook '(lambda () (hl-line-mode 1)))
;; Org Habits
(setq org-habit-following-days 14)
(setq org-habit-preceding-days 56)
;; Org Agenda fun
;; (stolen from http://nakkaya.com/2010/03/19/org-mode-in-your-pocket-setting-up-mobileorg/)
(setq org-agenda-custom-commands
'(("w" todo "TODO")
("h" agenda "" ((org-agenda-show-all-dates nil)))
("W" agenda "" ((org-agenda-ndays 21)
(org-agenda-show-all-dates nil)))
("A" agenda ""
((org-agenda-ndays 1)
(org-agenda-overriding-header "Today")))))
;; Capture
(setq org-default-notes-file "~/Dropbox/GTD2/capture.org")
(setq org-capture-templates
'(("t" "TODO" entry
(file+headline "~/Dropbox/GTD2/inbox.org" "Inbox")
"* TODO %?\n %i\n %a")
("j" "Journal" entry
(file+headline "~/Dropbox/GTD2/journal.org" "Quick Notes")
"* %T\n %i\n %?")
("w" "Web link" entry
(file+headline "~/Dropbox/GTD2/stuff.org" "RnR Web link")
"* TODO %c\n %?")
("b" "Bookmark" entry
(file "~/Dropbox/GTD/bookmarks.org")
"* %c\n %T\n %?")
("n" "Note" entry
(file+headline "~/Dropbox/GTD2/stuff.org" "Notes")
"* %T\n %i\n %?")
("q" "Question" entry
(file+headline "~/Dropbox/GTD2/stuff.org" "Questions")
"* TODO Question: %?")
("u" "Quote" entry
(file "~/Dropbox/GTD2/quotes.org")
"* %c\n %?")
("l" "Blacklist" entry
(file "~/Dropbox/GTD2/blacklist.org")
"* %c\n %T\n %?")))
;; Key bindings
(global-set-key "\C-ca" 'org-agenda)
(global-set-key "\C-cr" 'org-remember)
(global-set-key "\C-cc" 'org-capture)
(global-set-key (kbd "<f9>") 'org-agenda))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment