From b7e31592eb62ec0ce5e4abd3b81066ec7811f1b3 Mon Sep 17 00:00:00 2001
From: JaeYoo-Im <cpu3792@gmail.com>
Date: Thu, 26 Jan 2023 13:25:45 +0900
Subject: [PATCH] Emacs : change org todo sequence, calendar buffer

---
 .config/emacs/emacs.org | 50 ++++++++++++++++++++++++++++++-----------
 1 file changed, 37 insertions(+), 13 deletions(-)

diff --git a/.config/emacs/emacs.org b/.config/emacs/emacs.org
index 098944e..e86d8d9 100755
--- a/.config/emacs/emacs.org
+++ b/.config/emacs/emacs.org
@@ -144,7 +144,7 @@ Emacs Configuration for emacs 29.50
 #+end_src
 * Modules Selection module
 #+begin_src emacs-lisp :tangle ~/.config/emacs/config.el
-  ;;; config.el -*- lexical-binding: t; -*-
+    ;;; config.el -*- lexical-binding: t; -*-
   (setq user-full-name "JaeYoo-Im"
         user-mail-address "cpu3792@gmail.com")
 
@@ -154,6 +154,9 @@ Emacs Configuration for emacs 29.50
   (modify-syntax-entry ?_ "w")
   (setq visible-bell t)
 
+  ;; split threshold
+  (setq split-width-threshold 160
+        split-height-threshold nil)
   (add-hook 'emacs-startup-hook
             (lambda ()
               (custom-set-faces
@@ -173,7 +176,7 @@ Emacs Configuration for emacs 29.50
   (require 'custom-languages)
   (require 'custom-extra)
 
-  ;;; config.el ends here
+    ;;; config.el ends here
 #+end_src
 
 ** Module Lists
@@ -827,26 +830,43 @@ Quick Action in minibuffer
 ***** configure org
 #+begin_src emacs-lisp :mkdirp yes :tangle ~/.config/emacs/modules/custom-org.el
   (setq org-directory "~/org") ; use for relative file location
+  (with-no-warnings
+    (custom-declare-face '+org-todo-active  '((t (:inherit (bold font-lock-constant-face org-todo)))) "")
+    (custom-declare-face '+org-todo-project '((t (:inherit (bold font-lock-doc-face org-todo)))) "")
+    (custom-declare-face '+org-todo-onhold  '((t (:inherit (bold warning org-todo)))) "")
+    (custom-declare-face '+org-todo-cancel  '((t (:inherit (bold error org-todo)))) ""))
   (use-package org
     :straight (:build t)
     :defer t
     :config
     (add-hook 'org-mode-hook #'org-indent-mode)
+    (add-hook 'org-mode-hook #'org-fold-hide-drawer-all)
     (setq org-todo-keywords
           '((sequence
-             "TODO(t)" ; doing later
-             "NEXT(n)" ; doing now or soon
+             "TODO(t)"  ; A task that needs doing & is ready to do
+             "PROJ(p)"  ; A project, which usually contains other tasks
+             "STRT(s)"  ; A task that is in progress
+             "WAIT(w)"  ; Something external is holding up this task
+             "HOLD(h)"  ; This task is paused/on hold because of me
+             "IDEA(i)"  ; An unconfirmed and unapproved task or notion
              "|"
-             "DONE(d)" ; done
-             )
+             "DONE(d)"  ; Task successfully completed
+             "KILL(k)") ; Task was cancelled, aborted or is no longer applicable
             (sequence
-             "WAIT(w)" ; waiting for some external change (event)
-             "HOLD(h)" ; waiting for some internal change (of mind)
-             "IDEA(i)" ; maybe someday
+             "[ ](T)"   ; A task that needs doing
+             "[-](S)"   ; Task is in progress
+             "[?](W)"   ; Task is being held up or paused
              "|"
-             "NOTE(o@/!)" ; end state, just keep track of it
-             "STOP(s@/!)" ; stopped waiting, decided not to work on it
-             )))
+             "[X](D)")  ; Task was completed
+            ))
+    (setq org-todo-keyword-faces
+        '(("[-]"  . +org-todo-active)
+          ("STRT" . +org-todo-active)
+          ("[?]"  . +org-todo-onhold)
+          ("WAIT" . +org-todo-onhold)
+          ("HOLD" . +org-todo-onhold)
+          ("PROJ" . +org-todo-project)
+          ("KILL" . +org-todo-cancel)))
     (setq org-ellipsis                       " ⤵"
           org-hide-emphasis-markers          t
           org-image-actual-width             600
@@ -1565,7 +1585,11 @@ calendar
 #+begin_src emacs-lisp :mkdirp yes :tangle ~/.config/emacs/modules/custom-extra.el
   (use-package calfw
     :straight (:build t)
-    :defer t)
+    :ensure t)
+  (use-package calfw-org
+    :after calfw
+    :straight (:build t)
+    :ensure t)
 #+end_src
 **** ELFEED
 #+begin_src emacs-lisp :mkdirp yes :tangle ~/.config/emacs/modules/custom-extra.el