Finished keybindings for todo state set
This commit is contained in:
parent
71ee185dc4
commit
c0581ee349
1 changed files with 9 additions and 6 deletions
15
emacs/.emacs
15
emacs/.emacs
|
@ -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)
|
||||||
|
|
Loading…
Reference in a new issue