diff options
| author | Craig Jennings <c@cjennings.net> | 2026-02-18 01:13:30 -0600 |
|---|---|---|
| committer | Craig Jennings <c@cjennings.net> | 2026-02-18 01:13:30 -0600 |
| commit | fe18fa8c57f35c7e9d3d89f5d0e34c4ad1ec0dab (patch) | |
| tree | f2d0018741d15ab2376d7cfe3240268e291679ce /modules | |
| parent | d6adae20584cc6cc76d936756d7a85c30b878e10 (diff) | |
| download | dotemacs-fe18fa8c57f35c7e9d3d89f5d0e34c4ad1ec0dab.tar.gz dotemacs-fe18fa8c57f35c7e9d3d89f5d0e34c4ad1ec0dab.zip | |
fix(org): remap date picker keys — . for today, <> for days, M-,/. for months
Unbind comma, restore . to goto-today, use angle brackets for day
navigation, and M-comma/M-dot for month navigation.
Diffstat (limited to 'modules')
| -rw-r--r-- | modules/org-config.el | 19 |
1 files changed, 7 insertions, 12 deletions
diff --git a/modules/org-config.el b/modules/org-config.el index a4f98310..f1e90973 100644 --- a/modules/org-config.el +++ b/modules/org-config.el @@ -154,24 +154,19 @@ ("c i" . org-table-insert-column) ("c d" . org-table-delete-column)) - ;; backward and forward day are ',' and '.' - ;; shift & meta moves by week or year - ;; C-. jumps to today - ;; original keybindings blocked by windmove keys - ;; these are consistent with plain-old calendar mode + ;; . jumps to today, < and > move by day, M-, and M-. move by month + ;; original shift-arrow keybindings blocked by windmove keys (:map org-read-date-minibuffer-local-map - ("," . (lambda () (interactive) - (org-eval-in-calendar '(calendar-backward-day 1)))) ("." . (lambda () (interactive) - (org-eval-in-calendar '(calendar-forward-day 1)))) + (org-eval-in-calendar '(calendar-goto-today)))) ("<" . (lambda () (interactive) - (org-eval-in-calendar '(calendar-backward-month 1)))) + (org-eval-in-calendar '(calendar-backward-day 1)))) (">" . (lambda () (interactive) - (org-eval-in-calendar '(calendar-forward-month 1)))) + (org-eval-in-calendar '(calendar-forward-day 1)))) ("M-," . (lambda () (interactive) - (org-eval-in-calendar '(calendar-backward-year 1)))) + (org-eval-in-calendar '(calendar-backward-month 1)))) ("M-." . (lambda () (interactive) - (org-eval-in-calendar '(calendar-forward-year 1))))) + (org-eval-in-calendar '(calendar-forward-month 1))))) :init ;; windmove's keybindings conflict with org-agenda-todo-nextset/previousset keybindings |