emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/org-remark 1d496daeb7 014/173: internal: Move minor mod


From: ELPA Syncer
Subject: [elpa] externals/org-remark 1d496daeb7 014/173: internal: Move minor mode to the top
Date: Fri, 28 Jan 2022 16:57:55 -0500 (EST)

branch: externals/org-remark
commit 1d496daeb7bcafa8e847e1c57514870214076f34
Author: Noboru Ota <me@nobiot.com>
Commit: Noboru Ota <me@nobiot.com>

    internal: Move minor mode to the top
    
    Align the sequence of commands with how they appear in the readme, etc.
---
 org-marginalia.el | 64 +++++++++++++++++++++++++++----------------------------
 1 file changed, 32 insertions(+), 32 deletions(-)

diff --git a/org-marginalia.el b/org-marginalia.el
index 43d86aedbe..2125179482 100644
--- a/org-marginalia.el
+++ b/org-marginalia.el
@@ -180,6 +180,38 @@ It is meant to exist only one of these in each Emacs 
session.")
 
 ;;;; Commands
 
+;;;###autoload
+(define-minor-mode org-marginalia-mode
+    "Toggle Org-marginalia minor mode.
+It is a local minior mode to lets you write margin notes for any
+text file in Org Mode.
+
+It loads your saved highlighters from the marginalia file, and
+enables automatic saving of highlights.
+
+The automatic saving is achieved via function `om/save' added
+to `after-save-hook'.
+
+Interactively with no argument, this command toggles the mode. A
+positive prefix argument enables the mode, any other prefix
+argument disables it. From Lisp, argument omitted or nil enables
+the mode, `toggle' toggles the state."
+    :init-value nil
+    :lighter " marginalia"
+    :global nil
+    :keymap (let ((map (make-sparse-keymap)))
+              (define-key map (kbd "C-c n o") #'om/open)
+              (define-key map (kbd "C-c m") #'om/mark)
+              map)
+    (cond
+     (org-marginalia-mode
+      ;; Activate
+      (om/load)
+      (add-hook 'after-save-hook #'om/save nil t))
+     (t
+      ;; Deactivate
+      (remove-hook 'after-save-hook #'om/save t))))
+
 ;;;###autoload
 (defun om/mark (beg end &optional id)
   "Highlight the selected region (BEG and END) when used interactively.
@@ -330,38 +362,6 @@ marginalia, but will keep the headline and notes."
 (defun om/previous ()
   "WIP.")
 
-;;;###autoload
-(define-minor-mode org-marginalia-mode
-    "Toggle Org-marginalia minor mode.
-It is a local minior mode to lets you write margin notes for any
-text file in Org Mode.
-
-It loads your saved highlighters from the marginalia file, and
-enables automatic saving of highlighters.
-
-The automatic saving is achieved via function `om/save' added
-to `after-save-hook'.
-
-Interactively with no argument, this command toggles the mode. A
-positive prefix argument enables the mode, any other prefix
-argument disables it. From Lisp, argument omitted or nil enables
-the mode, `toggle' toggles the state."
-    :init-value nil
-    :lighter " marginalia"
-    :global nil
-    :keymap (let ((map (make-sparse-keymap)))
-              (define-key map (kbd "C-c n o") #'om/open)
-              (define-key map (kbd "C-c m") #'om/mark)
-              map)
-    (cond
-     (org-marginalia-mode
-      ;; Activate
-      (om/load)
-      (add-hook 'after-save-hook #'om/save nil t))
-     (t
-      ;; Deactivate
-      (remove-hook 'after-save-hook #'om/save t))))
-
 ;;;; Functions
 
 ;;;;; Private



reply via email to

[Prev in Thread] Current Thread [Next in Thread]