43 lines
1.2 KiB
EmacsLisp
43 lines
1.2 KiB
EmacsLisp
;;; Evil+Calendar
|
|
|
|
(evil-define-key 'motion calendar-mode-map
|
|
"v" 'calendar-set-mark
|
|
"h" 'calendar-backward-day
|
|
"0" 'calendar-beginning-of-week
|
|
"$" 'calendar-end-of-week
|
|
"l" 'calendar-forward-day
|
|
"j" 'calendar-forward-week
|
|
"k" 'calendar-backward-week
|
|
"\C-f" 'calendar-scroll-left-three-months
|
|
;; (kbd "<space>") 'scroll-other-window
|
|
"." 'calendar-goto-today
|
|
"<" 'calendar-scroll-right
|
|
">" 'calendar-scroll-left
|
|
"?" 'calendar-goto-info-node
|
|
"D" 'diary-view-other-diary-entries
|
|
"M" 'calendar-lunar-phases
|
|
"S" 'calendar-sunrise-sunset
|
|
"a" 'calendar-list-holidays
|
|
"c" 'org-calendar-goto-agenda
|
|
"d" 'diary-view-entries
|
|
"\M-h" 'calendar-cursor-holidays
|
|
"m" 'diary-mark-entries
|
|
"o" 'calendar-other-month
|
|
"q" 'calendar-exit
|
|
"s" 'diary-show-all-entries
|
|
"u" 'calendar-unmark
|
|
"x" 'calendar-mark-holidays
|
|
"\C-c\C-l" 'calendar-redraw
|
|
"[" 'calendar-backward-year
|
|
"]" 'calendar-forward-year
|
|
"\M-<" 'calendar-beginning-of-year
|
|
"\M-=" 'calendar-count-days-region
|
|
"\M->" 'calendar-end-of-year
|
|
"(" 'calendar-beginning-of-month
|
|
")" 'calendar-end-of-month
|
|
"\C-b" 'calendar-scroll-right-three-months
|
|
"{" 'calendar-backward-month
|
|
"}" 'calendar-forward-month)
|
|
|
|
(provide 'init-evil-calendar)
|