[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/embark 7c581a16b8 3/4: Add toggle variable action
From: |
ELPA Syncer |
Subject: |
[elpa] externals/embark 7c581a16b8 3/4: Add toggle variable action |
Date: |
Tue, 13 Sep 2022 12:57:37 -0400 (EDT) |
branch: externals/embark
commit 7c581a16b862eb310b622c7c139afb1bd83ff754
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
Add toggle variable action
---
embark.el | 11 ++++++++++-
1 file changed, 10 insertions(+), 1 deletion(-)
diff --git a/embark.el b/embark.el
index 715dbf0183..7b520fdcc9 100644
--- a/embark.el
+++ b/embark.el
@@ -3557,6 +3557,14 @@ Returns the new name actually used."
(interactive "SVariable: ")
(insert (string-trim (pp-to-string (symbol-value var)))))
+(defun embark-toggle-variable-value (var)
+ "Toggle value of boolean variable VAR."
+ (interactive "SVariable: ")
+ (let ((val (symbol-value var)))
+ (unless (memq val '(nil t))
+ (user-error "Not a boolean variable"))
+ (funcall (or (get var 'custom-set) #'set-default) var (not val))))
+
(defun embark-insert-relative-path (file)
"Insert relative path to FILE.
The insert path is relative to `default-directory'."
@@ -4148,7 +4156,8 @@ library, which have an obvious notion of associated
directory."
("c" customize-set-variable)
("u" customize-variable)
("v" embark-save-variable-value)
- ("<" embark-insert-variable-value))
+ ("<" embark-insert-variable-value)
+ ("t" embark-toggle-variable-value))
(embark-define-keymap embark-function-map
"Keymap for Embark function actions."