1. alex koval
  2. .emacs.d

Commits

Alex V. Koval  committed a8e7eb4

org-mode custom keyword faces

  • Participants
  • Parent commits cdec36d
  • Branches default

Comments (0)

Files changed (2)

File configs/cfg_default_face.el

View file
    '(fringe ((t (:background "#add8e6"))))
    )
   (mode-line-faces-light)
+  (org-todo-keyword-faces-light)
 )
 
 
    '(fringe ((t (:background "#0f1a39" :foreground "yellow"))))
    )
   (mode-line-faces-dark)
+  (org-todo-keyword-faces-dark)
 )
 
 ; my 2 color themes

File configs/cfg_orgmode.el

View file
 ;; 	 "* NEW %?\n  %i\n  %a")
 ;; ))
 
+(defun org-todo-keyword-faces-dark()
+  (interactive)
+  (setq org-todo-keyword-faces
+	'(
+	  ("WORKING" . (:foreground "yellow" :weight bold))
+	  ("DELEGATE" . (:foreground "deep sky blue" :background "#032251" :weight normal))
+	  ("DELEGATED" . (:foreground "LightSteelBlue" :background "#032251" :weight normal))
+	  ("TOCHECK" . (:foreground "light coral" :background "#032251" :weight normal))
+	  ("TOPAIR" . (:foreground "wheat" :background "#032251" :weight normal))
+	  ("ASSIGNED" . (:foreground "green yellow" :background "#032251" :weight normal))
+	  ("CANCELLED" . (:foreground "dark green" :background "gray17" :weight bold :strike-through "coral"))
+	  )
+	)
+)
+
 (defun switch-to-agenda() ()
   (interactive)
   (if (get-buffer "*Org Agenda*")
 
 (setq org-completion-use-ido t)
 
-(setq org-todo-keyword-faces
-      '(
+(defun org-todo-keyword-faces-light()
+  (interactive)
+  (setq org-todo-keyword-faces
+	'(
 	("WORKING" . (:background "green yellow"))
 	("TODO" . (:foreground "DarkSlateBlue" :weight bold))
 	("DELEGATE" . (:foreground "black" :background "LightSeaGreen" :weight normal :slant italic))
 	("ASSIGNED" . (:foreground "black" :background "Yellow" :weight normal :slant italic))
 	("CANCELLED" . (:foreground "white" :background "dark red" :weight bold :strike-through "coral"))
 	)
-      )
+))
 
 ;; (setq org-todo-keywords
 ;;       '((sequence "TODO(t!)" "WORKING(w!)" "SLEEP(s@!)" "|" "DONE(x!)")