[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org-remark 4782d43f0f 155/173: add: change to menu item
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org-remark 4782d43f0f 155/173: add: change to menu items |
Date: |
Fri, 28 Jan 2022 16:58:10 -0500 (EST) |
branch: externals/org-remark
commit 4782d43f0f586e609ad08c76cd820e7c36946250
Author: Noboru Ota <me@nobiot.com>
Commit: Noboru Ota <me@nobiot.com>
add: change to menu items
---
org-remark.el | 39 +++++++++++++++++++++++++++++++++++++--
1 file changed, 37 insertions(+), 2 deletions(-)
diff --git a/org-remark.el b/org-remark.el
index 0a9e1be771..31d6e84959 100644
--- a/org-remark.el
+++ b/org-remark.el
@@ -170,7 +170,16 @@ highlight. In this case, no new ID gets generated."
;; Add custom pens to the minor-mode menu
(define-key-after org-remark-pen-map
[,(intern (format "org-remark-mark-%s" label))]
- '(menu-item ,(format "%s pen" label) ,(intern (format
"org-remark-mark-%s" label)))))))
+ '(menu-item ,(format "%s pen" label) ,(intern (format
"org-remark-mark-%s" label))))
+
+ ;; Add custom pen change function for the minor-mode menu
+ (define-key-after org-remark-change-pen-map
+ [,(intern (format "org-remark-change-to-%s" label))]
+ '(menu-item ,(format "%s pen" label)
+ (lambda ()
+ (interactive)
+ (org-remark-change
+ #',(intern (format "org-remark-mark-%s" label)))))))))
;;;; Commands
@@ -236,6 +245,14 @@ recommended to turn it on as part of Emacs initialization.
(defvar org-remark-menu-map
(make-sparse-keymap "Org-remark"))
+(define-key-after org-remark-menu-map
+ [org-remark-view-next]
+ '(menu-item "View next" org-remark-view-next))
+
+(define-key-after org-remark-menu-map
+ [org-remark-view-prev]
+ '(menu-item "View previous" org-remark-view-prev))
+
(define-key-after org-remark-menu-map
[org-remark-open]
'(menu-item "Open" org-remark-open))
@@ -260,7 +277,7 @@ recommended to turn it on as part of Emacs initialization.
[menu-bar org-remark]
(list 'menu-item "Remark" org-remark-menu-map))
-;; Add pen functions
+;; Make pen functions menu
(defvar org-remark-pen-map
(make-sparse-keymap "Org-remark-mark"))
@@ -268,6 +285,24 @@ recommended to turn it on as part of Emacs initialization.
[org-remark-mark]
'(menu-item "default" org-remark-mark))
+;; Make change pen menu
+(defvar org-remark-change-pen-map
+ (make-sparse-keymap "Org-remark-change"))
+
+(define-key-after org-remark-change-pen-map
+ [org-remark-change]
+ '(menu-item "default" (lambda ()
+ (interactive)
+ (org-remark-change #'org-remark-mark))))
+
+
+;; FIXME somehow the change goes below other menu items
+;; Add change menu to the main menu
+(define-key org-remark-menu-map
+ [org-remark-change]
+ (list 'menu-item "Change pen to..." org-remark-change-pen-map))
+
+;; Add pen menu to the main menu
(define-key org-remark-menu-map
[org-remark-pens]
(list 'menu-item "Highlight with..." org-remark-pen-map))
- [elpa] externals/org-remark bee736f6e3 131/173: intrnl: refactor mark, (continued)
- [elpa] externals/org-remark bee736f6e3 131/173: intrnl: refactor mark, ELPA Syncer, 2022/01/28
- [elpa] externals/org-remark a7de41bdfa 139/173: docs: NEWS and README (incomplete, WIP), ELPA Syncer, 2022/01/28
- [elpa] externals/org-remark 50bfb96d69 140/173: Merge branch 'dev/name-change', ELPA Syncer, 2022/01/28
- [elpa] externals/org-remark 0c7fd2d711 143/173: docs: README for Org-remark, update user manual and css, ELPA Syncer, 2022/01/28
- [elpa] externals/org-remark 1b2db44fa7 145/173: docs: user manaul, ELPA Syncer, 2022/01/28
- [elpa] externals/org-remark 69d0259e20 146/173: docs: user manaul, ELPA Syncer, 2022/01/28
- [elpa] externals/org-remark 62cba0ec63 148/173: fix: change now updates the marginal notes, ELPA Syncer, 2022/01/28
- [elpa] externals/org-remark f43e4afc34 152/173: add: toggle to menu; intrnl: refactor, ELPA Syncer, 2022/01/28
- [elpa] externals/org-remark f353630ddd 153/173: fix:toggle: marking when toggle hidden confuses the state, ELPA Syncer, 2022/01/28
- [elpa] externals/org-remark da77d9dfba 154/173: fix: pen menu function for 27.x, ELPA Syncer, 2022/01/28
- [elpa] externals/org-remark 4782d43f0f 155/173: add: change to menu items,
ELPA Syncer <=
- [elpa] externals/org-remark 713f64b7cb 168/173: docs: minor change to the demo/marginalia.org, ELPA Syncer, 2022/01/28
- [elpa] externals/org-remark 7226f4d01e 173/173: docs: add delete; add help string to menu items, ELPA Syncer, 2022/01/28
- [elpa] externals/org-remark 4b5d9c3fda 171/173: fix:delete quit window if it did not exist on calling delete, ELPA Syncer, 2022/01/28
- [elpa] externals/org-remark 9deaecd211 116/173: add: Legacy data facility wtih org-remark-tracking, ELPA Syncer, 2022/01/28
- [elpa] externals/org-remark d36debe2b4 124/173: add: factor out org-remark-legacy-convert, ELPA Syncer, 2022/01/28
- [elpa] externals/org-remark f30ad4f570 122/173: fix: program error in save, ELPA Syncer, 2022/01/28
- [elpa] externals/org-remark b9a8409e27 126/173: docs: copyright & dates, ELPA Syncer, 2022/01/28
- [elpa] externals/org-remark e3dd998e6b 130/173: add: register the default pen function for change, ELPA Syncer, 2022/01/28
- [elpa] externals/org-remark 9f492e184e 111/173: fix side-window, ELPA Syncer, 2022/01/28
- [elpa] externals/org-remark 238a023021 141/173: docs: gh-html error, ELPA Syncer, 2022/01/28