From ec6f14547fb4732583776d81a30ec9d498624724 Mon Sep 17 00:00:00 2001 From: Peng Li Date: Tue, 18 Aug 2015 22:05:37 +0800 Subject: [PATCH] emacs - org-mode add more todo state --- emacs.d/config/init-org.el | 31 +++++++++++++++++++++++++++---- 1 file changed, 27 insertions(+), 4 deletions(-) diff --git a/emacs.d/config/init-org.el b/emacs.d/config/init-org.el index f814058..10d171a 100644 --- a/emacs.d/config/init-org.el +++ b/emacs.d/config/init-org.el @@ -3,10 +3,6 @@ ;; refer http://doc.norang.ca/org-mode.html - -;;; -;;; Org Mode -;;; ;(add-to-list 'load-path (expand-file-name "~/git/org-mode/lisp")) (add-to-list 'auto-mode-alist '("\\.\\(org\\|org_archive\\|txt\\)$" . org-mode)) (require 'org) @@ -24,6 +20,33 @@ +;; org-todo +(setq org-todo-keywords + (quote ((sequence "TODO(t)" "STARTED(s)" "|" "DONE(d)") + (sequence "WAITING(w@/!)" "HOLD(h@/!)" "|" "CANCELLED(c@/!)" )))) + +(setq org-todo-keyword-faces + (quote (("TODO" :foreground "red" :weight bold) + ("NEXT" :foreground "blue" :weight bold) + ("DONE" :foreground "forest green" :weight bold) + ("WAITING" :foreground "orange" :weight bold) + ("HOLD" :foreground "magenta" :weight bold) + ("CANCELLED" :foreground "forest green" :weight bold) + ("MEETING" :foreground "forest green" :weight bold) + ("PHONE" :foreground "forest green" :weight bold)))) + +(setq org-use-fast-todo-selection t) +(setq org-treat-S-cursor-todo-selection-as-state-change nil) + +(setq org-todo-state-tags-triggers + (quote (("CANCELLED" ("CANCELLED" . t)) + ("WAITING" ("WAITING" . t)) + ("HOLD" ("WAITING") ("HOLD" . t)) + (done ("WAITING") ("HOLD")) + ("TODO" ("WAITING") ("CANCELLED") ("HOLD")) + ("NEXT" ("WAITING") ("CANCELLED") ("HOLD")) + ("DONE" ("WAITING") ("CANCELLED") ("HOLD"))))) + ;; org-capture (setq org-directory "~/Private/org") -- 2.11.0