(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 "~/Documents/org") (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")) (require 'org-bullets) (eval-after-load "org" (progn (add-hook 'org-add-hook 'my/modify-org-done-face) (add-hook 'org-mode-hook (lambda () (org-bullets-mode 1))))) (defun gtd () (interactive) (find-file (concat org-directory "/master.org")))