From 1fc08b4428c5d47010fb99a6c628dcc93d81b503 Mon Sep 17 00:00:00 2001 From: N V <44036031+progfolio@users.noreply.github.com> Date: Sun, 17 May 2020 01:24:21 -0400 Subject: [PATCH] (internal): inline minor-mode keymaps (#654) define-minor-mode macro creates appropriate symbol/documentation for inlined keymaps. --- org-roam.el | 18 +++++------------- 1 file changed, 5 insertions(+), 13 deletions(-) diff --git a/org-roam.el b/org-roam.el index 2b02e5f..9098027 100644 --- a/org-roam.el +++ b/org-roam.el @@ -848,19 +848,14 @@ file." 'org-link))) ;;;; org-roam-backlinks-mode -(defvar org-roam-backlinks-mode-map - (let ((map (make-sparse-keymap))) - (define-key map [mouse-1] 'org-open-at-point) - (define-key map (kbd "RET") 'org-open-at-point) - map) - "Keymap for symbol `org-roam-backlinks-mode'.") - (define-minor-mode org-roam-backlinks-mode "Minor mode for the `org-roam-buffer'. \\{org-roam-backlinks-mode-map}" :lighter " Backlinks" - :keymap org-roam-backlinks-mode-map - + :keymap (let ((map (make-sparse-keymap))) + (define-key map [mouse-1] 'org-open-at-point) + (define-key map (kbd "RET") 'org-open-at-point) + map) (if org-roam-backlinks-mode (add-hook 'org-open-at-point-functions 'org-roam-open-at-point nil 'local) @@ -924,9 +919,6 @@ for Org-ref cite links." (defalias 'org-roam 'org-roam-buffer-toggle-display) ;;; The global minor org-roam-mode -(defvar org-roam-mode-map - (make-sparse-keymap) - "Keymap for mode symbol `org-roam-mode'.") ;;;###autoload (define-minor-mode org-roam-mode @@ -944,7 +936,7 @@ When called from Lisp, enable `org-roam-mode' if ARG is omitted, nil, or positive. If ARG is `toggle', toggle `org-roam-mode'. Otherwise, behave as if called interactively." :lighter " Org-roam" - :keymap org-roam-mode-map + :keymap (let ((map (make-sparse-keymap))) map) :group 'org-roam :require 'org-roam :global t