From 9159461442afd9d4cf6a314ca3cffd5a9be61ed2 Mon Sep 17 00:00:00 2001 From: Valentin Gehrke Date: Sun, 15 Oct 2017 17:16:35 +0200 Subject: [PATCH] emacs - make org todo states equally long. --- emacs/.emacs.d/init.el | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/emacs/.emacs.d/init.el b/emacs/.emacs.d/init.el index bc14b5b..6349f7a 100644 --- a/emacs/.emacs.d/init.el +++ b/emacs/.emacs.d/init.el @@ -216,13 +216,13 @@ ("f" "Fix me" entry (file+headline "~/org/fixmes.org" "Fixmes") "* TODO %?\n %a\n %i") )) (global-set-key (kbd "") 'my/counsel-org-agenda) - (setq org-todo-keywords '((sequence "TODO" "WORKING" "BLOCKED" "REVIEW" "|" "ABANDONED" "DONE"))) + (setq org-todo-keywords '((sequence "TODO" "WORK" "BLOC" "REVI" "|" "ABAN" "DONE"))) (setq org-todo-keyword-faces '(("TODO" . "firebrick2") - ("WORKING" . "yellow") - ("BLOCKED" . "orange red") - ("REVIEW" . "dodger blue") - ("ABANDONED" . "slate blue") + ("WORK" . "yellow") + ("BLOC" . "orange red") + ("REVI" . "dodger blue") + ("ABAN" . "slate blue") ("DONE" . "green3"))) (setq org-ellipsis " ▼") (dolist (face '(org-level-1 @@ -232,10 +232,10 @@ org-level-5)) (set-face-attribute face nil :weight 'semi-bold :height 1.0)) (dolist (kv '(("t" . "TODO") - ("w" . "WORKING") - ("b" . "BLOCKED") - ("r" . "REVIEW") - ("a" . "ABANDONED") + ("w" . "WORK") + ("b" . "BLOC") + ("r" . "REVI") + ("a" . "ABAN") ("d" . "DONE"))) (define-key org-mode-map (kbd (concat "C-c t " (car kv))) `(lambda () (interactive) (org-todo ,(cdr kv))))) (add-hook 'org-mode-hook