Add todo tags and style

1 files changed, 64 insertions, 0 deletions

diff --git a/emacs-config.org b/emacs-config.org
index 2fe2f99..54287a9 100644
--- a/emacs-config.org
+++ b/emacs-config.org
@@ -391,6 +391,70 @@ Enable notes for various actions.
                 org-log-note-clock-out t)
 #+end_src
 
+*** Org To-do
+Set to-do key words and selection type.
+#+begin_src elisp
+  (setq-default
+   org-use-fast-todo-selection 'expert
+   org-todo-keywords '((sequence "IDLE(i)" "TODO(t)" "LIVE(l)" "WAIT(w@/!)"
+                                 "|" "AXED(a@)" "DONE(d)")))
+#+end_src
+
+Style keywords.
+#+begin_src elisp
+  (set-face-attribute 'org-todo nil :weight 'bold :slant 'italic)
+  (setq-default
+   org-todo-keyword-faces '(("IDLE"  . "grey")
+                            ("TODO"  . "RoyalBlue1")
+                            ("LIVE"  . "goldenrod2")
+                            ("WAIT"  . "linen")
+                            ("DONE"  . "SeaGreen3")
+                            ("AXED"  . "OrangeRed2")))
+#+end_src
+
+Add no-export tag.
+#+begin_src elisp
+  (setq-default org-export-exclude-tags '("noexport" "NOEXPORT"))
+#+end_src
+
+Set tag list.
+#+begin_src elisp
+  (setq-default
+   org-tag-alist '(;; Built-in Actions
+                   ("ARCHIVE") ("NOEXPORT") ("ignore")
+
+                   ;; General definitions
+                   ("blog") ("crypt") ("emacs") ("mail") ("note") ("web")
+
+                   ;; Code
+                   (:startgroup)
+                   ("code")
+                   (:grouptags)
+                   ("bash") ("c") ("cpp") ("css") ("elisp") ("html")
+                   (:endgroup)
+
+                   ;; Text
+                   (:startgroup)
+                   ("text")
+                   (:grouptags)
+                   ("article") ("book") ("man") ("pdf") ("txt") ("doc")
+                   (:endgroup)
+
+                   ;; Audio
+                   (:startgroup)
+                   ("audio")
+                   (:grouptags)
+                   ("audbook") ("music") ("podcast")
+                   (:endgroup)
+
+                   ;; Video
+                   (:startgroup)
+                   ("video")
+                   (:grouptags)
+                   ("movie") ("yt")
+                   (:endgroup)))
+#+end_src
+
 *** Org Speed Commands
 #+begin_src elisp :noweb yes
   (with-eval-after-load 'org-keys