diff options
| author | Pierre Neidhardt <ambrevar@gmail.com> | 2017-11-01 12:32:01 +0100 |
|---|---|---|
| committer | Somelauw <Somelauw> | 2017-11-04 12:47:04 +0100 |
| commit | 61c07e38f4a327ce0d26cf927cf42bf4ea367a30 (patch) | |
| tree | c1764d85586da3cce634b76e326d607a29bfe241 | |
| parent | 0719a442929288d66bbf8884198c52646a5e3fa4 (diff) | |
Bind calendar keys directly to the Emacs state, not to Evil insert state
The minibuffer is not running Evil mode by default. The extra configuration it
requires might be a hassle we don't want to tackle here.
Setting the bindings directly on the map will probably not interfere anyways as
the default values of those keys are not very useful to select a date.
| -rw-r--r-- | evil-org.el | 29 |
1 files changed, 19 insertions, 10 deletions
diff --git a/evil-org.el b/evil-org.el index a129e9d..7a25c86 100644 --- a/evil-org.el +++ b/evil-org.el @@ -715,27 +715,36 @@ Includes tables, list items and subtrees." (defun evil-org--populate-calendar-bindings () "Bindings for easy date selection." - (evil-define-key 'insert org-read-date-minibuffer-local-map + (define-key org-read-date-minibuffer-local-map (kbd "C-f") (lambda () (interactive) (org-eval-in-calendar - '(calendar-scroll-left-three-months 1))) + '(calendar-scroll-left-three-months 1)))) + (define-key org-read-date-minibuffer-local-map (kbd "C-b") (lambda () (interactive) (org-eval-in-calendar - '(calendar-scroll-right-three-months 1))) + '(calendar-scroll-right-three-months 1)))) + (define-key org-read-date-minibuffer-local-map (kbd "M-S-h") (lambda () (interactive) - (org-eval-in-calendar '(calendar-backward-month 1))) + (org-eval-in-calendar '(calendar-backward-month 1)))) + (define-key org-read-date-minibuffer-local-map (kbd "M-S-l") (lambda () (interactive) - (org-eval-in-calendar '(calendar-forward-month 1))) + (org-eval-in-calendar '(calendar-forward-month 1)))) + (define-key org-read-date-minibuffer-local-map (kbd "M-S-k") (lambda () (interactive) - (org-eval-in-calendar '(calendar-backward-year 1))) + (org-eval-in-calendar '(calendar-backward-year 1)))) + (define-key org-read-date-minibuffer-local-map (kbd "M-S-j") (lambda () (interactive) - (org-eval-in-calendar '(calendar-forward-year 1))) + (org-eval-in-calendar '(calendar-forward-year 1)))) + (define-key org-read-date-minibuffer-local-map (kbd "M-k") (lambda () (interactive) - (org-eval-in-calendar '(calendar-backward-week 1))) + (org-eval-in-calendar '(calendar-backward-week 1)))) + (define-key org-read-date-minibuffer-local-map (kbd "M-j") (lambda () (interactive) - (org-eval-in-calendar '(calendar-forward-week 1))) + (org-eval-in-calendar '(calendar-forward-week 1)))) + (define-key org-read-date-minibuffer-local-map (kbd "M-h") (lambda () (interactive) - (org-eval-in-calendar '(calendar-backward-day 1))) + (org-eval-in-calendar '(calendar-backward-day 1)))) + (define-key org-read-date-minibuffer-local-map (kbd "M-l") (lambda () (interactive) (org-eval-in-calendar '(calendar-forward-day 1))))) |