branch: externals/leaf
commit 6b827f50338f09a28fcb0e8e39e47f7d078bfbb6
Author: conao3 <[email protected]>
Commit: conao3 <[email protected]>
tagged v4.2.9
---
README.org | 74 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
leaf.el | 2 +-
2 files changed, 75 insertions(+), 1 deletion(-)
diff --git a/README.org b/README.org
index 834fa53..c3badca 100644
--- a/README.org
+++ b/README.org
@@ -57,6 +57,7 @@
- [[#contribution][Contribution]]
- [[#leafel-mechanism][leaf.el mechanism]]
- [[#adding-new-keywords][Adding new keywords]]
+ - [[#customize-leaf-keywords][Customize leaf keywords]]
- [[#migration][Migration]]
- [[#leaf-v10-to-v20][leaf v3.0 to v4.0]]
- [[#leaf-v20-to-v30][leaf v2.0 to v3.0]]
@@ -2258,6 +2259,79 @@ In
[[https://github.com/conao3/leaf-keywords.el][leaf-keywords.el]], you can see
Note that leaf only contains keywords for packages that come with the Emacs
standard,
and that keywords that depend on external packages are added to its repository.
+*** Customize leaf keywords
+~leaf~ stores "keyword" and corresponding "expandion" in ~leaf-keywords~.
+You can customize ~leaf~ expandion to customize ~leaf-keywords~.
+
+#+begin_src emacs-lisp
+(leaf-plist-get :custom leaf-keywords)
+;;=> ...
+
+(ppp-macroexpand
+ (leaf foo-package
+ :custom
+ (foo-package-to-enable . t)
+ (foo-package-to-disable . nil)
+ (foo-package-to-symbol . 'symbol)
+ (foo-package-to-function . #'ignore)
+ (foo-package-to-lambda . (lambda (elm) (message elm)))))
+;;=> (prog1 'foo-package
+;; (customize-set-variable 'foo-package-to-enable t "Customized with leaf
in foo-package block")
+;; (customize-set-variable 'foo-package-to-disable nil "Customized with
leaf in foo-package block")
+;; (customize-set-variable 'foo-package-to-symbol 'symbol "Customized with
leaf in foo-package block")
+;; (customize-set-variable 'foo-package-to-function #'ignore "Customized
with leaf in foo-package block")
+;; (customize-set-variable 'foo-package-to-lambda
+;; (lambda (elm)
+;; (message elm))
+;; "Customized with leaf in foo-package block"))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(setf (leaf-plist-get :custom leaf-keywords)
+ '`(,@(mapcar (lambda (elm) `(customize-set-variable ',(car elm) ,(cdr
elm) ,(format "leaf block" leaf--name))) leaf--value) ,@leaf--body))
+;;=> ...
+
+(ppp-macroexpand
+ (leaf foo-package
+ :custom
+ (foo-package-to-enable . t)
+ (foo-package-to-disable . nil)
+ (foo-package-to-symbol . 'symbol)
+ (foo-package-to-function . #'ignore)
+ (foo-package-to-lambda . (lambda (elm) (message elm)))))
+;;=> (prog1 'foo-package
+;; (customize-set-variable 'foo-package-to-enable t "leaf block")
+;; (customize-set-variable 'foo-package-to-disable nil "leaf block")
+;; (customize-set-variable 'foo-package-to-symbol 'symbol "leaf block")
+;; (customize-set-variable 'foo-package-to-function #'ignore "leaf block")
+;; (customize-set-variable 'foo-package-to-lambda
+;; (lambda (elm)
+;; (message elm))
+;; "leaf block"))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(setf (leaf-plist-get :custom leaf-keywords)
+ '`(,@(mapcar (lambda (elm) `(setq ',(car elm) ,(cdr elm))) leaf--value)
,@leaf--body))
+;;=> ...
+
+(ppp-macroexpand
+ (leaf foo-package
+ :custom
+ (foo-package-to-enable . t)
+ (foo-package-to-disable . nil)
+ (foo-package-to-symbol . 'symbol)
+ (foo-package-to-function . #'ignore)
+ (foo-package-to-lambda . (lambda (elm) (message elm)))))
+;;=> (prog1 'foo-package
+;; (setq 'foo-package-to-enable t)
+;; (setq 'foo-package-to-disable nil)
+;; (setq 'foo-package-to-symbol 'symbol)
+;; (setq 'foo-package-to-function #'ignore)
+;; (setq 'foo-package-to-lambda (lambda (elm)
+;; (message elm))))
+#+end_src
+
** Migration
*** leaf v3.0 to v4.0
**** Drop support for Emacs versions lower than Emacs-24.4
diff --git a/leaf.el b/leaf.el
index 84ea83a..aaacf04 100644
--- a/leaf.el
+++ b/leaf.el
@@ -5,7 +5,7 @@
;; Author: Naoya Yamashita <[email protected]>
;; Maintainer: Naoya Yamashita <[email protected]>
;; Keywords: lisp settings
-;; Version: 4.2.8
+;; Version: 4.2.9
;; URL: https://github.com/conao3/leaf.el
;; Package-Requires: ((emacs "24.4"))
