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

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

[nongnu] elpa/reformatter ab28d6480c 12/81: Support :group keyword


From: ELPA Syncer
Subject: [nongnu] elpa/reformatter ab28d6480c 12/81: Support :group keyword
Date: Tue, 5 Sep 2023 04:03:33 -0400 (EDT)

branch: elpa/reformatter
commit ab28d6480cff9489c2af54c3f88155a152b63433
Author: Steve Purcell <steve@sanityinc.com>
Commit: Steve Purcell <steve@sanityinc.com>

    Support :group keyword
---
 reformatter.el | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/reformatter.el b/reformatter.el
index 2464c22511..6ec42a459d 100644
--- a/reformatter.el
+++ b/reformatter.el
@@ -73,7 +73,7 @@
 (require 'ansi-color)
 
 ;;;###autoload
-(cl-defmacro reformatter-define (name &key program args (mode t) lighter 
keymap)
+(cl-defmacro reformatter-define (name &key program args (mode t) lighter 
keymap group)
   "Define a reformatter command with NAME.
 
 When called, the reformatter will use PROGRAM and any ARGS to
@@ -102,6 +102,11 @@ The macro accepts the following keyword arguments:
   reformatter command from `before-save-hook' when enabled.
   Default is t.
 
+:group
+
+  If provided, this is the custom group used for any generated
+  modes or custom variables.
+
 :lighter
 
   If provided, this is a mode lighter string which will be used
@@ -127,6 +132,7 @@ The macro accepts the following keyword arguments:
              `(progn
                 (defcustom ,lighter-name ,lighter
                   ,(format "Mode lighter for `%s'." on-save-mode-name)
+                  :group ,group
                   :type 'string)
                 (define-minor-mode ,on-save-mode-name
                   ,(format "When enabled, call `%s' when this buffer is 
saved." name)
@@ -134,6 +140,7 @@ The macro accepts the following keyword arguments:
                   :global nil
                   :lighter ,lighter-name
                   :keymap ,keymap
+                  :group ,group
                   (if ,on-save-mode-name
                       (add-hook 'before-save-hook ',name nil t)
                     (remove-hook 'before-save-hook ',name t))))))))



reply via email to

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