summaryrefslogtreecommitdiff
path: root/lisp/init-org.el
blob: efb2e74602c47afe06dea4637bae914f0f3da252 (about) (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
(require 'org)
(global-set-key (kbd "C-c o l") 'org-store-link)
(global-set-key (kbd "C-c o a") 'org-agenda)
(global-set-key (kbd "C-c o s") 'org-schedule)
(global-set-key (kbd "C-c o c") 'org-capture)

(setq org-log-done t)
(setq org-return-follows-link t)
(setq org-startup-indented t)

(setq org-directory "~/org.local")
(setq org-agenda-files (mapcar (lambda (x) (concat org-directory x))
                               (list "/master.org"
                                     "/work.org"
                                     "/study.org"
                                     "/home.org")))
(setq org-default-notes-file (concat org-directory "/notes.org"))

(setq org-agenda-custom-commands
    '(("w" todo "WAITING" nil)
      ("n" todo "NEXT" nil)
      ("d" "Agenda + Next Actions" ((agenda) (todo "NEXT")))))

(defun my/modify-org-done-face ()
  (setq org-fontify-done-headline t)
  (set-face-attribute 'org-done nil :strike-through t)
  (set-face-attribute 'org-headline-done nil
                      :strike-through t
                      :foreground "light gray"))

(eval-after-load "org"
  (add-hook 'org-add-hook 'my/modify-org-done-face))

(defun gtd ()
   (interactive)
   (find-file (concat org-directory "/master.org")))