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 | a721d1c11216d7bad684ae18f4878d29d671e541 (patch) | |
| tree | ab9d82dd787ab09421e8023a00328fc5df38d537 | |
| parent | 94374ab46c43a5c16ae121c17ca6d6ff0ebea582 (diff) | |
| download | dotemacs-a721d1c11216d7bad684ae18f4878d29d671e541.tar.gz dotemacs-a721d1c11216d7bad684ae18f4878d29d671e541.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.
| -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 a4f98310c..f1e909732 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 |