From a4250afb49ef8fa3a9bb144464be81e91ede7b4e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Martin=20=C3=98in=C3=A6s=20Myrseth?= Date: Mon, 27 Aug 2018 23:04:38 +0200 Subject: [PATCH] lang/org: Add evil-friendly calendar navigation --- modules/lang/org/config.el | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/modules/lang/org/config.el b/modules/lang/org/config.el index c6e6e6960..eb2ffcfa3 100644 --- a/modules/lang/org/config.el +++ b/modules/lang/org/config.el @@ -342,7 +342,16 @@ between the two." :n "C" #'org-clock-out :n "g" #'org-clock-goto :n "G" (λ! (org-clock-goto 'select)) - :n "x" #'org-clock-cancel))) + :n "x" #'org-clock-cancel)) + (map! :map org-read-date-minibuffer-local-map + "C-h" (λ! (org-eval-in-calendar '(calendar-backward-day 1))) + "C-l" (λ! (org-eval-in-calendar '(calendar-forward-day 1))) + "C-k" (λ! (org-eval-in-calendar '(calendar-backward-week 1))) + "C-j" (λ! (org-eval-in-calendar '(calendar-forward-week 1))) + "C-S-h" (λ! (org-eval-in-calendar '(calendar-backward-month 1))) + "C-S-l" (λ! (org-eval-in-calendar '(calendar-forward-month 1))) + "C-S-k" (λ! (org-eval-in-calendar '(calendar-backward-year 1))) + "C-S-j" (λ! (org-eval-in-calendar '(calendar-forward-year 1))))) (defun +org|setup-hacks () "Getting org to behave."