Add first stage to add quick todo state set key bindings

2017-10-10 21:28:58 +02:00 · 2017-10-10 21:28:58 +02:00 · d5fcab2f00
parent 396a9c70bf
commit d5fcab2f00
1 changed files with 4 additions and 0 deletions
--- a/emacs/.emacs
+++ b/emacs/.emacs
@ -175,6 +175,10 @@
                  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)))))
  (add-hook 'org-mode-hook
            (lambda ()
              (linum-mode 0)