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") ("f" "Fix me" entry (file+headline "~/org/fixmes.org" "Fixmes")
"* TODO %?\n %a\n %i") )) "* TODO %?\n %a\n %i") ))
(global-set-key (kbd "<f12>") 'my/counsel-org-agenda) (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 (setq org-todo-keyword-faces
'(("TODO" . "firebrick2") '(("TODO" . "firebrick2")
("WORKING" . "yellow") ("WORK" . "yellow")
("BLOCKED" . "orange red") ("BLOC" . "orange red")
("REVIEW" . "dodger blue") ("REVI" . "dodger blue")
("ABANDONED" . "slate blue") ("ABAN" . "slate blue")
("DONE" . "green3"))) ("DONE" . "green3")))
(setq org-ellipsis " ▼") (setq org-ellipsis " ▼")
(dolist (face '(org-level-1 (dolist (face '(org-level-1
@ -232,10 +232,10 @@
org-level-5)) org-level-5))
(set-face-attribute face nil :weight 'semi-bold :height 1.0)) (set-face-attribute face nil :weight 'semi-bold :height 1.0))
(dolist (kv '(("t" . "TODO") (dolist (kv '(("t" . "TODO")
("w" . "WORKING") ("w" . "WORK")
("b" . "BLOCKED") ("b" . "BLOC")
("r" . "REVIEW") ("r" . "REVI")
("a" . "ABANDONED") ("a" . "ABAN")
("d" . "DONE"))) ("d" . "DONE")))
(define-key org-mode-map (kbd (concat "C-c t " (car kv))) `(lambda () (interactive) (org-todo ,(cdr kv))))) (define-key org-mode-map (kbd (concat "C-c t " (car kv))) `(lambda () (interactive) (org-todo ,(cdr kv)))))
(add-hook 'org-mode-hook (add-hook 'org-mode-hook