From 48aa8b1a5a4f0843f328980103e6f9a9ca709090 Mon Sep 17 00:00:00 2001 From: Evie Litherland-Smith Date: Sat, 4 Nov 2023 12:23:46 +0000 Subject: [PATCH] Add keymap to open/refresh dashboard Replace use of keymap-set global-map with keymap-global-set for brevity --- home/emacs/modules/custom-defaults-config.el | 14 +++++++------- home/emacs/modules/custom-email-config.el | 6 +++--- home/emacs/modules/custom-feed-config.el | 2 +- home/emacs/modules/custom-ide-config.el | 2 +- home/emacs/modules/custom-org-config.el | 14 +++++++------- home/emacs/modules/custom-ui-config.el | 1 + 6 files changed, 20 insertions(+), 19 deletions(-) diff --git a/home/emacs/modules/custom-defaults-config.el b/home/emacs/modules/custom-defaults-config.el index 6cd02f67..672a79f9 100644 --- a/home/emacs/modules/custom-defaults-config.el +++ b/home/emacs/modules/custom-defaults-config.el @@ -21,13 +21,13 @@ (delete-selection-mode) ;; Misc useful keymaps -(keymap-set global-map "M-#" #'dictionary-lookup-definition) -(keymap-set global-map "C-c r" #'recentf) -(keymap-set global-map "C-c b" #'ibuffer) -(keymap-set global-map "C-c p l" #'list-packages) -(keymap-set global-map "C-c p r" #'package-refresh-contents) -(keymap-set global-map "C-c p i" #'package-install) -(keymap-set global-map "C-c p d" #'package-delete) +(keymap-global-set "M-#" #'dictionary-lookup-definition) +(keymap-global-set "C-c r" #'recentf) +(keymap-global-set "C-c b" #'ibuffer) +(keymap-global-set "C-c p l" #'list-packages) +(keymap-global-set "C-c p r" #'package-refresh-contents) +(keymap-global-set "C-c p i" #'package-install) +(keymap-global-set "C-c p d" #'package-delete) ;; turn on spell checking, if available. (when (and (require 'ispell nil :noerror) (executable-find ispell-program-name)) diff --git a/home/emacs/modules/custom-email-config.el b/home/emacs/modules/custom-email-config.el index 6e4ce1ee..d681fad6 100644 --- a/home/emacs/modules/custom-email-config.el +++ b/home/emacs/modules/custom-email-config.el @@ -42,9 +42,9 @@ (:maildir "/Outlook/Inbox/" :key ?w))) (when (require 'mu4e nil :noerror) - (keymap-set global-map "C-c m m" #'mu4e) - (keymap-set global-map "C-c m u" #'mu4e-update-index) - (keymap-set global-map "C-c m c" #'mu4e-compose-new) + (keymap-global-set "C-c m m" #'mu4e) + (keymap-global-set "C-c m u" #'mu4e-update-index) + (keymap-global-set "C-c m c" #'mu4e-compose-new) (when (require 'mu4e-alert nil :noerror) (mu4e-alert-set-default-style 'libnotify) diff --git a/home/emacs/modules/custom-feed-config.el b/home/emacs/modules/custom-feed-config.el index b935ada3..6e13a512 100644 --- a/home/emacs/modules/custom-feed-config.el +++ b/home/emacs/modules/custom-feed-config.el @@ -4,7 +4,7 @@ rmh-elfeed-org-files (list (expand-file-name "feeds.org" elfeed-base-directory)))) (when (require 'elfeed nil :noerror) - (keymap-set global-map "C-c f f" #'elfeed) + (keymap-global-set "C-c f f" #'elfeed) (add-hook 'elfeed-search-mode-hook #'elfeed-update) (when (require 'elfeed-org nil :noerror) (elfeed-org)) diff --git a/home/emacs/modules/custom-ide-config.el b/home/emacs/modules/custom-ide-config.el index 66eafb61..9a02f920 100644 --- a/home/emacs/modules/custom-ide-config.el +++ b/home/emacs/modules/custom-ide-config.el @@ -6,7 +6,7 @@ (setq apheleia-remote-algorithm 'local) (when (require 'apheleia nil :noerror) - (keymap-set global-map "C-c c f" #'apheleia-format-buffer) + (keymap-global-set "C-c c f" #'apheleia-format-buffer) (apheleia-global-mode +1)) (when (require 'eglot nil :noerror) diff --git a/home/emacs/modules/custom-org-config.el b/home/emacs/modules/custom-org-config.el index 2ab66bd3..43e04504 100644 --- a/home/emacs/modules/custom-org-config.el +++ b/home/emacs/modules/custom-org-config.el @@ -21,13 +21,13 @@ org-outline-path-complete-in-steps nil org-default-notes-file (expand-file-name "notes.org" org-directory)) -(keymap-set global-map "C-c o a" #'org-agenda) -(keymap-set global-map "C-c o n" #'org-capture) -(keymap-set global-map "C-c o l" #'org-capture-goto-last-stored) -(keymap-set global-map "C-c o c" #'org-goto-calendar) -(keymap-set global-map "C-c o j j" #'org-journal-new-entry) -(keymap-set global-map "C-c o j n" #'org-journal-new-date-entry) -(keymap-set global-map "C-c o j s" #'org-journal-new-scheduled-entry) +(keymap-global-set "C-c o a" #'org-agenda) +(keymap-global-set "C-c o n" #'org-capture) +(keymap-global-set "C-c o l" #'org-capture-goto-last-stored) +(keymap-global-set "C-c o c" #'org-goto-calendar) +(keymap-global-set "C-c o j j" #'org-journal-new-entry) +(keymap-global-set "C-c o j n" #'org-journal-new-date-entry) +(keymap-global-set "C-c o j s" #'org-journal-new-scheduled-entry) (add-hook 'org-mode-hook #'org-modern-mode) (add-hook 'org-agenda-finalize-hook #'org-modern-agenda) diff --git a/home/emacs/modules/custom-ui-config.el b/home/emacs/modules/custom-ui-config.el index eee1130a..32d7a55c 100644 --- a/home/emacs/modules/custom-ui-config.el +++ b/home/emacs/modules/custom-ui-config.el @@ -83,6 +83,7 @@ " HHH HHHHHH \n" " HHHHH HH \n")) (when (require 'dashboard nil :noerror) + (keymap-global-set "C-c d" #'dashboard-open) (add-hook 'dashboard-mode-hook #'khalel-import-events)) ;; Extra minor-modes