Finished keybindings for todo state set

This commit is contained in:
madmaurice 2017-10-10 22:19:47 +02:00
parent 71ee185dc4
commit c0581ee349

View file

@ -160,10 +160,10 @@
(setq org-directory "~/org") (setq org-directory "~/org")
(setq org-agenda-files "~/org/agenda") (setq org-agenda-files "~/org/agenda")
(global-set-key (kbd "<f12>") 'org-agenda) (global-set-key (kbd "<f12>") 'org-agenda)
(setq org-todo-keywords '((sequence "TODO" "DOING" "BLOCKED" "REVIEW" "|" "ABANDONED" "DONE"))) (setq org-todo-keywords '((sequence "TODO" "WORKING" "BLOCKED" "REVIEW" "|" "ABANDONED" "DONE")))
(setq org-todo-keyword-faces (setq org-todo-keyword-faces
'(("TODO" . "firebrick2") '(("TODO" . "firebrick2")
("DOING" . "turquoise1") ("WORKING" . "yellow")
("BLOCKED" . "orange red") ("BLOCKED" . "orange red")
("REVIEW" . "dodger blue") ("REVIEW" . "dodger blue")
("ABANDONED" . "slate blue") ("ABANDONED" . "slate blue")
@ -175,10 +175,13 @@
org-level-4 org-level-4
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 (dolist (kv '(("t" . "TODO")
;; '(("t" . "TODO") ("w" . "WORKING")
;; ("r" . "REVIEW"))) ("b" . "BLOCKED")
;; (define-key org-mode-map (kbd (concat "C-c t " (car kv))) (lambda () `(org-todo ,(cdr kv))))) ("r" . "REVIEW")
("a" . "ABANDONED")
("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 (add-hook 'org-mode-hook
(lambda () (lambda ()
(linum-mode 0) (linum-mode 0)