yogsototh/org-roam
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(internal): inline minor-mode keymaps (#654)

Browse source 
define-minor-mode macro creates appropriate symbol/documentation for
inlined keymaps.
This commit is contained in:
N V 2020-05-17 01:24:21 -04:00 committed by GitHub
parent cfe3b19a73
commit 1fc08b4428
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 5 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
org-roam.el
View file

@ -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