diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/init-org.el | 78 |
1 files changed, 41 insertions, 37 deletions
diff --git a/lisp/init-org.el b/lisp/init-org.el index 9ecc273..e9d6431 100644 --- a/lisp/init-org.el +++ b/lisp/init-org.el @@ -1,39 +1,43 @@ -(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) +(provide 'my/init-org) (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))))) + '(progn + (global-set-key (kbd "C-c o l") 'org-store-link) + (global-set-key (kbd "C-c o a") 'org-agenda) + + ;; TODO: make these available in org-mode only + (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 gtd () - (interactive) - (find-file (concat org-directory "/master.org"))) + (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) + (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"))))) + +(require 'org) |