madmaurice/configfiles
1
1
Fork 0
Code Issues Pull requests Releases Wiki Activity

emacs - make org todo states equally long.

Browse source
This commit is contained in:
madmaurice 2017-10-15 17:16:35 +02:00
parent 1619b4b697
commit 9159461442
1 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
emacs/.emacs.d/init.el
View file

@ -216,13 +216,13 @@
("f" "Fix me" entry (file+headline "~/org/fixmes.org" "Fixmes")
"* TODO %?\n %a\n %i") ))
(global-set-key (kbd "<f12>") '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