emacs/protesilaos.denote
1
0
Fork 0
mirror of https://github.com/protesilaos/denote.git synced 2026-09-15 09:46:24 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

Add code to integrate menu with context-menu-mode

Browse source 
Enable it with:

	(add-hook 'context-menu-functions #'denote-context-menu)

Read what I published about the menu:
<https://protesilaos.com/codelog/2023-03-31-emacs-denote-menu/>.
This commit is contained in:
Protesilaos Stavrou 2023-03-31 19:43:24 +03:00
parent a4c06fcede
commit 2a1d5eb8f6
No known key found for this signature in database
GPG key ID: 99BD6459CD5CA3EA
1 changed files with 18 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
denote.el
View file

@ -3224,8 +3224,7 @@ This command is meant to be used from a Dired buffer."
;;;;; Define menu
(easy-menu-define denote-global-menu global-map
"Menu with all Denote commands, each available in the right context."
(defvar denote--menu-contents
'("Denote"
["Create a note" denote
:help "Create a new note in the `denote-directory'"]
@ -3268,7 +3267,23 @@ This command is meant to be used from a Dired buffer."
:help "Apply colors to Denote file name components in Dired"
:enable (derived-mode-p 'dired-mode)
:style toggle
:selected (bound-and-true-p denote-dired-mode)]))
:selected (bound-and-true-p denote-dired-mode)])
"Contents of the Denote menu.")
(easy-menu-define denote-global-menu global-map
"Menu with all Denote commands, each available in the right context."
denote--menu-contents)
(defun denote-context-menu (menu _click)
"Populate MENU with Denote commands at CLICK."
(define-key menu [denote-separator] menu-bar-separator)
(let ((easy-menu (make-sparse-keymap "Denote")))
(easy-menu-define nil easy-menu nil
denote--menu-contents)
(dolist (item (reverse (lookup-key easy-menu [menu-bar])))
(when (consp item)
(define-key menu (vector (car item)) (cdr item)))))
menu)
;;;;; Register `denote:' custom Org hyperlink