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

Finished keybindings for todo state set

Browse source
This commit is contained in:
madmaurice 2017-10-10 22:19:47 +02:00
parent 71ee185dc4
commit c0581ee349
1 changed files with 9 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
emacs/.emacs
View file

@ -160,10 +160,10 @@
(setq org-directory "~/org")
(setq org-agenda-files "~/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
'(("TODO" . "firebrick2")
("DOING" . "turquoise1")
("WORKING" . "yellow")
("BLOCKED" . "orange red")
("REVIEW" . "dodger blue")
("ABANDONED" . "slate blue")
@ -175,10 +175,13 @@
org-level-4
org-level-5))
(set-face-attribute face nil :weight 'semi-bold :height 1.0))
;; (dolist (kv
;; '(("t" . "TODO")
;; ("r" . "REVIEW")))
;; (define-key org-mode-map (kbd (concat "C-c t " (car kv))) (lambda () `(org-todo ,(cdr kv)))))
(dolist (kv '(("t" . "TODO")
("w" . "WORKING")
("b" . "BLOCKED")
("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
(lambda ()
(linum-mode 0)