config

commit 2fba3f3d84ce72df87cda3f6636b7a773256bbe2
parent 436c043eb04cc4e899d8d445acb11a29b6cdabbe
Author: dwrz <dwrz@dwrz.net>
Date:   Sun, 31 Dec 2023 18:02:50 +0000

Update Emacs init

Diffstat:
M
emacs/init.el
 | 
31
+++++++++++++++++++------------

1 file changed, 19 insertions(+), 12 deletions(-)
diff --git a/emacs/init.el b/emacs/init.el
@@ -488,7 +488,7 @@
 		 org-lowest-priority 3
 		 org-src-fontify-natively t
 		 org-tags-column 0
-		 org-todo-keywords '((sequence "|" "SOMEDAY-MAYBE(s)")
+		 org-todo-keywords '((sequence "|" "MAYBE(s)")
 				     (sequence "|" "EVENT(v)")
 				     (sequence "PROJECT(p)"
 					       "|"
@@ -556,7 +556,10 @@
 	org-agenda-tags-column 'auto
 	org-agenda-use-time-grid nil
 	org-agenda-window-setup 'current-window
-	org-archive-location "~/org/archive.org::")
+	org-archive-location "~/org/archive.org::"
+	org-agenda-show-all-dates nil
+	org-stuck-projects
+	'("+PROJECT" ("NEXT" "IN-PROGRESS" "WAITING") nil nil))
   :defer t
   :defines chimerical-agenda-files dwrz-agenda-files eti-agenda-files
   :functions dwrz-switch-org-ctx
@@ -597,16 +600,20 @@
 		  (?2 . (:foreground "#eab700"))
 		  (?3 . (:foreground "#718c00"))))
   (setq org-todo-keyword-faces
-	'(("NEXT" . (:foreground "#c82829"))
-	  ("IN-PROGRESS" . (:foreground "#718c00"))
-	  ("WAITING" . (:foreground "#eab700"))
-	  ("DONE" . (:foreground "#4271ae"))
-	  ("EVENT" . (:foreground "#3e999f"))
-	  ("DELEGATED" . (:foreground "#969896"))
-	  ("CANCELED" . (:foreground "#a3685a"))
-	  ("SOMEDAY-MAYBE" . (:foreground "#8959a8"))
-	  ("PROJECT" . (:foreground "#c82829" :weight bold))
-	  ("COMPLETE" . (:foreground "#718c00" :weight bold)))
+	'(("NEXT" . (:foreground "#c82829" :weight bold))
+	  ("IN-PROGRESS" . (:foreground "#718c00" :weight bold))
+	  ("WAITING" . (:foreground "#eab700" :weight bold))
+	  ("DONE" . (:foreground "#4271ae" :weight bold))
+	  ("EVENT" . (:foreground "#3e999f" :weight bold))
+	  ("DELEGATED" . (:foreground "#969896" :weight bold))
+	  ("CANCELED" . (:foreground "#a3685a" :weight bold))
+	  ("MAYBE" . (:foreground "#8959a8" :weight bold))
+	  ("PROJECT" . (:background "#c82829"
+				    :foreground "#ffffff"
+				    :weight bold))
+	  ("COMPLETE" . (:background "#718c00"
+				     :foreground "#ffffff"
+				     :weight bold ))))
   :defer t
   :ensure nil)