emacs.d/config/init-org.el

   1
   2 ;;; org-mode init File
   3
   4 ;; refer http://doc.norang.ca/org-mode.html
   5
   6 ;(add-to-list 'load-path (expand-file-name "~/git/org-mode/lisp"))
   7 (add-to-list 'auto-mode-alist '("\\.\\(org\\|org_archive\\|txt\\)$" . org-mode))
   8 (require 'org)
   9 ;;
  10 ;; Standard key bindings
  11 (global-set-key "\C-cl" 'org-store-link)
  12 (global-set-key "\C-ca" 'org-agenda)
  13 (global-set-key "\C-cb" 'org-iswitchb)
  14
  15
  16 ;;(add-hook 'org-mode-hook
  17 ;;          (lambda ()
  18 ;;                      (org-set-local 'yas/trigger-key [tab])
  19 ;;                      (define-key yas/keymap [tab] 'yas/next-field-or-maybe-expand)))
  20
  21
  22
  23 ;; org-todo
  24 (setq org-todo-keywords
  25       (quote ((sequence "TODO(t)" "STARTED(s)" "|" "DONE(d)")
  26               (sequence "WAITING(w@/!)" "HOLD(h@/!)" "|" "CANCELLED(c@/!)" ))))
  27
  28 (setq org-todo-keyword-faces
  29       (quote (("TODO" :foreground "red" :weight bold)
  30               ("NEXT" :foreground "blue" :weight bold)
  31               ("DONE" :foreground "forest green" :weight bold)
  32               ("WAITING" :foreground "orange" :weight bold)
  33               ("HOLD" :foreground "magenta" :weight bold)
  34               ("CANCELLED" :foreground "forest green" :weight bold)
  35               ("MEETING" :foreground "forest green" :weight bold)
  36               ("PHONE" :foreground "forest green" :weight bold))))
  37
  38 (setq org-use-fast-todo-selection t)
  39 (setq org-treat-S-cursor-todo-selection-as-state-change nil)
  40
  41 (setq org-todo-state-tags-triggers
  42       (quote (("CANCELLED" ("CANCELLED" . t))
  43               ("WAITING" ("WAITING" . t))
  44               ("HOLD" ("WAITING") ("HOLD" . t))
  45               (done ("WAITING") ("HOLD"))
  46               ("TODO" ("WAITING") ("CANCELLED") ("HOLD"))
  47               ("NEXT" ("WAITING") ("CANCELLED") ("HOLD"))
  48               ("DONE" ("WAITING") ("CANCELLED") ("HOLD")))))
  49
  50
  51 ;; org-capture
  52 (setq org-directory "~/Private/org")
  53 (setq org-default-notes-file (concat org-directory "/notes.org"))
  54 (define-key global-map "\C-cc" 'org-capture)
  55
  56
  57
  58 (provide 'init-org)