;ELC   
;;; Compiled
;;; in Emacs version 28.0.50
;;; with all optimizations.


(byte-code "\300\301!\210\302\303!\210\304\305!\204 \306\305\307\"\210\304\310!\204 \306\310\311\"\210\300\207" [load "cort-test" require leaf fboundp autoload-do-load defalias #[769 ":\203\f @\305=\204 \207\3068\203 \307\310\311	!\"\210\312\216\211\313=\206' \211\314=?\205, \n\315A@\313\316\313%\266)?\206> ?\205^ \317\320\316!\"\211\232\203[ \307\321\f@@\311!#\202\\ \211\262\207" [purify-flag funnname macro_only ignore-errors load-history autoload 4 error "Attempt to autoload %s while preparing to dump" symbol-name #[0 "\300\207" [nil] 1] t macro load nil indirect-function \, "Autoloading file %s failed to define function %s"] 11 "\n\n(fn FUNDEF &optional FUNNAME MACRO-ONLY)"] macroexpand-1 #[513 ":\203W @\211\236\211\203 \211A\203 \300AA\"\207\2079\203' \301!\204) \207\302K\303#\2119\203? \304!\203? \211AB\207\211:\204F \207\211@\303=\203U \300AA\"\207\207\207" [apply fboundp autoload-do-load macro macrop] 8 "Perform (at most) one step of macroexpansion.\n\n(fn FORM &optional ENVIRONMENT)"]] 3)
#@281 Return `cort-deftest' compare by `equal' for NAME, FORM.

Example:
  (p (cort-deftest-with-equal leaf/disabled
       '((asdf asdf-fn)
         (uiop uiop-fn))))
   => (cort-deftest leaf/disabled
        '((:equal 'asdf asdf-fn)
          (:equal 'uiop uiop-fn)))

(fn NAME FORM)
(defalias 'cort-deftest-with-equal '(macro . #[514 "\300\301\302\303A@\"DE\207" [cort-deftest quote mapcar #[257 "\300A@@E\207" [:equal] 4 "\n\n(fn ELM)"]] 8 (#$ . 1140)]))
(byte-code "\300\301\302\303#\300\207" [function-put cort-deftest-with-equal lisp-indent-function 1] 4)
#@339 Return `cort-deftest' compare by `equal' for NAME, FORM.

Example:
  (p (cort-deftest-with-equal leaf/disabled
       '((asdf asdf)
         (uiop uiop))))
   => (cort-deftest leaf/disabled
        '((:equal 'asdf
                  (macroexpand-1 'asdf))
          (:equal 'uiop
                  (macroexpand-1 'uiop))))

(fn NAME FORM)
(defalias 'cort-deftest-with-macroexpand '(macro . #[514 "\300\301\302\303A@\"DE\207" [cort-deftest quote mapcar #[257 "\300\301A@D\302\301@DDE\207" [:equal quote macroexpand-1] 6 "\n\n(fn ELM)"]] 8 (#$ . 1708)]))
(byte-code "\300\301\302\303#\300\207" [function-put cort-deftest-with-macroexpand lisp-indent-function 1] 4)
#@636 Return `cort-deftest' compare by `equal' for NAME, LETFORM FORM.

Example:
  (p (cort-deftest-with-macroexpand-let leaf/leaf
         ((leaf-expand-leaf-protect t))
       '(((leaf leaf
            :config (leaf-init))
          (prog1 'leaf
            (leaf-handler-leaf-protect leaf
              (leaf-init)))))))
   => (cort-deftest leaf/leaf
        '((:equal
           '(prog1 'leaf
              (leaf-handler-leaf-protect leaf
                (leaf-init)))
           (let ((leaf-expand-leaf-protect t))
             (macroexpand-1
              '(leaf leaf
                 :config (leaf-init)))))))

(fn NAME LETFORM FORM)
(defalias 'cort-deftest-with-macroexpand-let '(macro . #[771 "\300\301\302\303\304\"A@\"DE\207" [cort-deftest quote mapcar make-closure #[257 "\301\302A@D\303\300\304\302@DDEE\207" [V0 :equal quote let macroexpand-1] 8 "\n\n(fn ELM)"]] 10 (#$ . 2381)]))
(byte-code "\306\307\310\311#\312\211\312\211\313\f\314\"\210\313\315\"\210\313@\316\"\210\313A\317\"\210\313B\320\"\210\313C\321\"\210\313D\322\"\210\313E\323\"\210\313F\324\"\210\313G\325\"\210\313H\326\"\210\313I\327\"\210\313J\330\"\210\313K\331\"\210\313L\332\"\210\313M\333\"\210\313N\334\"\210\313O\335\"\210\313P\336\"\210\313Q\337\"\210\313R\340\"\210\313S\341\"\210\313T\342\"\210\313U\343\"\210\313V\344\"\210\313W\345\"\210\313X\346\"\210\313Y\347\"\210\313Z\350\"\210\313[\351\"\210\313\\\352\"\210\313]\353\"\210\313^\354\"\210\313_\355\"\210\313`\356\"\210\313a\357\"\210\313b\360\"\210\313c\361\"\210\313d\362\"\210\313e\363\"\210\313f\364\"\210\313g\365\"\210\313h\366\"\210\313i\367\"\210\313j\370\"\210\313k\371\"\210\313l\372\"\210\313m\373\"\210\313n\374\"\210\313o\375\"\210\313p\376\"\210\313q\377\"\210\313r\201\205 \"\210\313s\201\206 \"\210\201\207 \201\210 t\"\203g\313u\201\211 \"\210\201\207 \201\210 t\"\203{\313v\201\212 \"\210\201\213 \201\214 t\"\203\217\313w\201\215 \"\210\313x\201\216 \"\210\313y\201\217 \"\210\313z\201\220 \"\210\313{\201\221 \"\210\313|\201\222 \"\210\313}\201\223 \"\210\313~\201\224 \"\210\313\201\225 \"\210\313\200\201\226 \"\210\313\201\201\227 \"\210\313\202\201\230 \"\210\313\203\201\231 \"\210\201\213 \201\232 t\"\203\201\233 \201\234 !\210\313\204\201\235 \"\210\312\207" [leaf-expand-leaf-protect leaf-expand-leaf-defun leaf-expand-leaf-defvar leaf-expand-leaf-path leaf/none leaf/disabled function-put cort-deftest-with-macroexpand-let lisp-indent-function 2 nil cort-deftest ((:equal '(prog1 'leaf) (macroexpand-1 '(leaf leaf)))) ((:equal '(prog1 'leaf) (macroexpand-1 '(leaf leaf :disabled t :config (leaf-init)))) (:equal '(prog1 'leaf (leaf-init)) (macroexpand-1 '(leaf leaf :disabled nil :config (leaf-init)))) (:equal '(prog1 'leaf) (macroexpand-1 '(leaf leaf :disabled t t :config (leaf-init)))) (:equal '(prog1 'leaf) (macroexpand-1 '(leaf leaf :disabled t nil :config (leaf-init)))) (:equal '(prog1 'leaf (leaf-init)) (macroexpand-1 '(leaf leaf :disabled nil t :config (leaf-init)))) (:equal '(prog1 'leaf (leaf-init)) (macroexpand-1 '(leaf leaf :disabled nil nil :config (leaf-init)))) (:equal '(prog1 'leaf) (macroexpand-1 '(leaf leaf :disabled t :disabled t :config (leaf-init)))) (:equal '(prog1 'leaf) (macroexpand-1 '(leaf leaf :disabled t :disabled nil :config (leaf-init)))) (:equal '(prog1 'leaf) (macroexpand-1 '(leaf leaf :disabled t :disabled t t :config (leaf-init)))) (:equal '(prog1 'leaf) (macroexpand-1 '(leaf leaf :disabled t :disabled t nil :config (leaf-init)))) (:equal '(prog1 'leaf) (macroexpand-1 '(leaf leaf :disabled t :disabled nil t :config (leaf-init)))) (:equal '(prog1 'leaf) (macroexpand-1 '(leaf leaf :disabled t :disabled nil nil :config (leaf-init)))) (:equal '(prog1 'leaf (leaf-init)) (macroexpand-1 '(leaf leaf :disabled nil :disabled t :config (leaf-init)))) (:equal '(prog1 'leaf (leaf-init)) (macroexpand-1 '(leaf leaf :disabled nil :disabled nil :config (leaf-init)))) (:equal '(prog1 'leaf (leaf-init)) (macroexpand-1 '(leaf leaf :disabled nil :disabled t t :config (leaf-init)))) (:equal '(prog1 'leaf (leaf-init)) (macroexpand-1 '(leaf leaf :disabled nil :disabled t nil :config (leaf-init)))) (:equal '(prog1 'leaf (leaf-init)) (macroexpand-1 '(leaf leaf :disabled nil :disabled nil t :config (leaf-init)))) (:equal '(prog1 'leaf (leaf-init)) (macroexpand-1 '(leaf leaf :disabled nil :disabled nil nil :config (leaf-init)))) (:equal '(prog1 'leaf) (macroexpand-1 '(leaf leaf :disabled t :disabled t :config (leaf-init) :disabled t))) (:equal '(prog1 'leaf) (macroexpand-1 '(leaf leaf :disabled t :disabled nil :config (leaf-init) :disabled nil))) (:equal '(prog1 'leaf) (macroexpand-1 '(leaf leaf :disabled t :disabled t t :config (leaf-init) :disabled t t))) (:equal '(prog1 'leaf) (macroexpand-1 '(leaf leaf :disabled t :disabled t nil :config (leaf-init) :disabled t nil))) (:equal '(prog1 'leaf) (macroexpand-1 '(leaf leaf :disabled t :disabled nil t :config (leaf-init) :disabled nil t))) (:equal '(prog1 'leaf) (macroexpand-1 '(leaf leaf :disabled t :disabled nil nil :config (leaf-init) :disabled nil nil))) (:equal '(prog1 'leaf (leaf-init)) (macroexpand-1 '(leaf leaf :disabled nil :disabled t :config (leaf-init) :disabled t))) (:equal '(prog1 'leaf (leaf-init)) (macroexpand-1 '(leaf leaf :disabled nil :disabled nil :config (leaf-init) :disabled nil))) (:equal '(prog1 'leaf (leaf-init)) (macroexpand-1 '(leaf leaf :disabled nil :disabled t t :config (leaf-init) :disabled t t))) (:equal '(prog1 'leaf (leaf-init)) (macroexpand-1 '(leaf leaf :disabled nil :disabled t nil :config (leaf-init) :disabled t nil))) (:equal '(prog1 'leaf (leaf-init)) (macroexpand-1 '(leaf leaf :disabled nil :disabled nil t :config (leaf-init) :disabled nil t))) (:equal '(prog1 'leaf (leaf-init)) (macroexpand-1 '(leaf leaf :disabled nil :disabled nil nil :config (leaf-init) :disabled nil nil)))) ((:equal '(prog1 'leaf (leaf-handler-package leaf leaf nil) (leaf-init)) (macroexpand-1 '(leaf leaf :ensure t :config (leaf-init)))) (:equal '(prog1 'leaf (leaf-handler-package leaf leaf nil) (leaf-handler-package leaf leaf-browser nil) (leaf-init)) (macroexpand-1 '(leaf leaf :ensure t leaf-browser :config (leaf-init)))) (:equal '(prog1 'leaf (leaf-handler-package leaf feather nil) (leaf-handler-package leaf leaf-key nil) (leaf-handler-package leaf leaf-browser nil) (leaf-init)) (macroexpand-1 '(leaf leaf :ensure (feather leaf-key leaf-browser) :config (leaf-init)))) (:equal '(prog1 'leaf (leaf-handler-package leaf leaf pin)) (macroexpand-1 '(leaf leaf :ensure (t . pin))))) ((:equal '(prog1 'leaf (leaf-handler-package leaf leaf nil) (leaf-init)) (macroexpand-1 '(leaf leaf :package t :config (leaf-init)))) (:equal '(prog1 'leaf (leaf-handler-package leaf leaf nil) (leaf-handler-package leaf leaf-browser nil) (leaf-init)) (macroexpand-1 '(leaf leaf :package t leaf-browser :config (leaf-init)))) (:equal '(prog1 'leaf (leaf-handler-package leaf feather nil) (leaf-handler-package leaf leaf-key nil) (leaf-handler-package leaf leaf-browser nil) (leaf-init)) (macroexpand-1 '(leaf leaf :package feather leaf-key leaf-browser :config (leaf-init)))) (:equal '(prog1 'leaf (leaf-init)) (macroexpand-1 '(leaf leaf :package nil :config (leaf-init)))) (:equal '(prog1 'leaf (leaf-init)) (macroexpand-1 '(leaf leaf :package nil leaf :config (leaf-init)))) (:equal '(prog1 'leaf (leaf-handler-package leaf leaf pin)) (macroexpand-1 '(leaf leaf :package (t . pin))))) ((:equal '(prog1 'leaf (leaf-init)) (macroexpand-1 '(leaf leaf :doc "Symplify init.el configuration" :config (leaf-init)))) (:equal '(prog1 'leaf (leaf-init)) (macroexpand-1 '(leaf leaf :file "~/.emacs.d/elpa/leaf.el/leaf.el" :config (leaf-init)))) (:equal '(prog1 'leaf (leaf-init)) (macroexpand-1 '(leaf leaf :url "https://github.com/conao3/leaf.el" :config (leaf-init)))) (:equal '(prog1 'leaf (leaf-init)) (macroexpand-1 '(leaf leaf :doc "Symplify init.el configuration" :file "~/.emacs.d/elpa/leaf.el/leaf.el" :url "https://github.com/conao3/leaf.el" :config (leaf-init)))) (:equal '(prog1 'leaf (leaf-init)) (macroexpand-1 '(leaf leaf :doc "Symplify init.el configuration" "\n(leaf leaf\n  :doc \"Symplify init.el configuration\"\n  :config (leaf-init))\n => (progn\n      (leaf-init))" "\n(leaf leaf\n  :disabled nil\n  :config (leaf-init))\n => (progn\n      (leaf-init))" :file "~/.emacs.d/elpa/leaf.el/leaf.el" :url "https://github.com/conao3/leaf.el" :config (leaf-init))))) ((:equal '(prog1 'leaf (add-to-list 'load-path "~/.emacs.d/elpa-archive/leaf.el/") (require 'leaf) (leaf-init)) (macroexpand-1 '(leaf leaf :load-path "~/.emacs.d/elpa-archive/leaf.el/" :require t :config (leaf-init)))) (:equal '(prog1 'leaf (add-to-list 'load-path "~/.emacs.d/elpa-archive/leaf.el/") (add-to-list 'load-path "~/.emacs.d/elpa-archive/leaf-browser.el/") (require 'leaf) (leaf-init)) (macroexpand-1 '(leaf leaf :load-path "~/.emacs.d/elpa-archive/leaf.el/" "~/.emacs.d/elpa-archive/leaf-browser.el/" :require t :config (leaf-init)))) (:equal '(prog1 'leaf (add-to-list 'load-path "~/.emacs.d/elpa-archive/leaf.el/") (add-to-list 'load-path "~/.emacs.d/elpa-archive/leaf-browser.el/") (require 'leaf) (leaf-init)) (macroexpand-1 '(leaf leaf :load-path ("~/.emacs.d/elpa-archive/leaf.el/" "~/.emacs.d/elpa-archive/leaf-browser.el/") :require t :config (leaf-init)))) (:equal '(prog1 'leaf (add-to-list 'load-path "~/.emacs.d/elpa-archive/leaf.el/") (add-to-list 'load-path "~/.emacs.d/elpa-archive/leaf-browser.el/") (require 'leaf) (leaf-init)) (macroexpand-1 '(leaf leaf :load-path ("~/.emacs.d/elpa-archive/leaf.el/" ("~/.emacs.d/elpa-archive/leaf.el/" "~/.emacs.d/elpa-archive/leaf-browser.el/")) :require t :config (leaf-init)))) (:equal '(prog1 'leaf (add-to-list 'load-path "~/.emacs.d/elpa-archive/leaf.el/") (require 'leaf) (leaf-init)) (macroexpand-1 '(leaf leaf :load-path ("~/.emacs.d/elpa-archive/leaf.el/" ("~/.emacs.d/elpa-archive/leaf.el/" ("~/.emacs.d/elpa-archive/leaf.el/" ("~/.emacs.d/elpa-archive/leaf.el/" ("~/.emacs.d/elpa-archive/leaf.el/"))))) :require t :config (leaf-init)))) (:equal '(prog1 'leaf (add-to-list 'load-path "~/.emacs.d/elpa-archive/leaf.el/") (add-to-list 'load-path "~/.emacs.d/elpa-archive/leaf-broser.el/") (add-to-list 'load-path "~/.emacs.d/elpa-archive/orglyth.el/") (require 'leaf) (leaf-init)) (macroexpand-1 '(leaf leaf :load-path ("~/.emacs.d/elpa-archive/leaf.el/") :load-path `(,(mapcar (lambda (elm) (concat "~/.emacs.d/elpa-archive/" elm "/")) '("leaf.el" "leaf-broser.el" "orglyth.el"))) :require t :config (leaf-init))))) ((:equal '(prog1 'leaf (add-to-list 'load-path (locate-user-emacs-file "leaf.el")) (require 'leaf) (leaf-init)) (let #1=((user-emacs-directory "~/.emacs.d")) (macroexpand-1 '(leaf leaf :load-path* "leaf.el" :require t :config (leaf-init))))) (:equal '(prog1 'leaf (add-to-list 'load-path (locate-user-emacs-file "leaf.el")) (add-to-list 'load-path (locate-user-emacs-file "leaf-browser.el")) (require 'leaf) (leaf-init)) (let #1# (macroexpand-1 '(leaf leaf :load-path* "leaf.el" "leaf-browser.el" :require t :config (leaf-init))))) (:equal '(prog1 'leaf (add-to-list 'load-path (locate-user-emacs-file "leaf.el")) (add-to-list 'load-path (locate-user-emacs-file "leaf-browser.el")) (require 'leaf) (leaf-init)) (let #1# (macroexpand-1 '(leaf leaf :load-path* ("leaf.el" "leaf-browser.el") :require t :config (leaf-init))))) (:equal '(prog1 'leaf (add-to-list 'load-path (locate-user-emacs-file "leaf.el")) (add-to-list 'load-path (locate-user-emacs-file "leaf-browser.el")) (require 'leaf) (leaf-init)) (let #1# (macroexpand-1 '(leaf leaf :load-path* ("leaf.el" ("leaf.el" "leaf-browser.el")) :require t :config (leaf-init))))) (:equal '(prog1 'leaf (add-to-list 'load-path (locate-user-emacs-file "leaf.el")) (require 'leaf) (leaf-init)) (let #1# (macroexpand-1 '(leaf leaf :load-path* ("leaf.el" ("leaf.el" ("leaf.el" ("leaf.el" ("leaf.el"))))) :require t :config (leaf-init)))))) ((:equal '(prog1 'leaf (declare-function leaf "leaf")) (macroexpand-1 '(leaf leaf :defun leaf))) (:equal '(prog1 'leaf (declare-function leaf "leaf") (declare-function leaf-normalize-plist "leaf") (declare-function leaf-merge-dupkey-values-plist "leaf")) (macroexpand-1 '(leaf leaf :defun leaf leaf-normalize-plist leaf-merge-dupkey-values-plist))) (:equal '(prog1 'leaf (declare-function leaf "leaf") (declare-function leaf-normalize-plist "leaf") (declare-function leaf-merge-dupkey-values-plist "leaf")) (macroexpand-1 '(leaf leaf :defun (leaf leaf-normalize-plist leaf-merge-dupkey-values-plist)))) (:equal '(prog1 'leaf (declare-function lbrowser-open "leaf-browser")) (macroexpand-1 '(leaf leaf :defun (lbrowser-open . leaf-browser)))) (:equal '(prog1 'leaf (declare-function lbrowser-open "leaf-browser") (declare-function lbrowser-close "leaf-browser")) (macroexpand-1 '(leaf leaf :defun ((lbrowser-open lbrowser-close) . leaf-browser))))) ((:equal '(prog1 'leaf (defvar leaf-var)) (macroexpand-1 '(leaf leaf :defvar leaf-var))) (:equal '(prog1 'leaf (defvar leaf-var1) (defvar leaf-var2) (defvar leaf-var3)) (macroexpand-1 '(leaf leaf :defvar leaf-var1 leaf-var2 leaf-var3))) (:equal '(prog1 'leaf (defvar leaf-var1) (defvar leaf-var2) (defvar leaf-var3)) (macroexpand-1 '(leaf leaf :defvar (leaf-var1 leaf-var2 leaf-var3)))) (:equal '(prog1 'leaf (defvar leaf-var1) (defvar leaf-var2) (defvar leaf-var3)) (macroexpand-1 '(leaf leaf :defvar (leaf-var1 (leaf-var1 leaf-var2 leaf-var3)))))) ((:equal '(prog1 'leaf (preface-init) (when (some-condition) (package-preconfig) (require 'leaf) (package-init))) (macroexpand-1 '(leaf leaf :require t :preface (preface-init) :when (some-condition) :init (package-preconfig) :config (package-init)))) (:equal '(prog1 'leaf (leaf-pre-init) (leaf-pre-init-after) (when (some-condition) (package-preconfig) (require 'leaf) (package-init))) (macroexpand-1 '(leaf leaf :preface (leaf-pre-init) (leaf-pre-init-after) :when (some-condition) :require t :init (package-preconfig) :config (package-init)))) (:equal '(prog1 'leaf (progn (leaf-pre-init) (leaf-pre-init-after)) (when (some-condition) (package-preconfig) (require 'leaf) (package-init))) (macroexpand-1 '(leaf leaf :preface (progn (leaf-pre-init) (leaf-pre-init-after)) :when (some-condition) :require t :init (package-preconfig) :config (package-init))))) ((:equal '(prog1 'leaf (if leafp (progn (require 'leaf) (leaf-init)))) (macroexpand-1 '(leaf leaf :if leafp :require t :config (leaf-init)))) (:equal '(prog1 'leaf (if (and leafp leaf-avairablep (window-system)) (progn (require 'leaf) (leaf-init)))) (macroexpand-1 '(leaf leaf :if leafp leaf-avairablep (window-system) :require t :config (leaf-init)))) (:equal '(prog1 'leaf (when leaf-browserp (if (and leafp leaf-avairablep (window-system)) (progn (require 'leaf) (leaf-init))))) (macroexpand-1 '(leaf leaf :if leafp leaf-avairablep (window-system) :when leaf-browserp :require t :config (leaf-init)))) (:equal '(prog1 'leaf (add-to-list 'load-path "~/.emacs.d/elpa-archive/leaf.el/") (leaf-load) (when leaf-browserp (if (and leafp leaf-avairablep (window-system)) (progn (require 'leaf) (leaf-init))))) (macroexpand-1 '(leaf leaf :if leafp leaf-avairablep (window-system) :when leaf-browserp :load-path "~/.emacs.d/elpa-archive/leaf.el/" :preface (leaf-load) :require t :config (leaf-init))))) ((:equal '(prog1 'leaf (when leafp (require 'leaf) (leaf-init))) (macroexpand-1 '(leaf leaf :when leafp :require t :config (leaf-init)))) (:equal '(prog1 'leaf (when (and leafp leaf-avairablep (window-system)) (require 'leaf) (leaf-init))) (macroexpand-1 '(leaf leaf :when leafp leaf-avairablep (window-system) :require t :config (leaf-init))))) ((:equal '(prog1 'leaf (unless leafp (require 'leaf) (leaf-init))) (macroexpand-1 '(leaf leaf :unless leafp :require t :config (leaf-init)))) (:equal '(prog1 'leaf (unless (and leafp leaf-avairablep (window-system)) (require 'leaf) (leaf-init))) (macroexpand-1 '(leaf leaf :unless leafp leaf-avairablep (window-system) :require t :config (leaf-init))))) ((:equal '(prog1 'leaf-keywords (when (version< "24.4" emacs-version) (leaf-keywords-init))) (macroexpand-1 '(leaf leaf-keywords :emacs> "24.4" :config (leaf-keywords-init)))) (:equal '(prog1 'leaf-keywords (when (version< "24.4" emacs-version) (leaf-keywords-init))) (macroexpand-1 '(leaf leaf-keywords :emacs> 24.4 :config (leaf-keywords-init)))) (:equal '(prog1 'leaf-keywords (when (version< "24.4" emacs-version) (leaf-keywords-init))) (macroexpand-1 '(leaf leaf-keywords :emacs> '24.4 :config (leaf-keywords-init)))) (:equal '(prog1 'leaf-keywords (when (version< "24.4" emacs-version) (leaf-keywords-init))) (macroexpand-1 '(leaf leaf-keywords :emacs> '"24.4" :config (leaf-keywords-init)))) (:equal '(prog1 'leaf-keywords (when (version< "24.4" emacs-version) (leaf-keywords-init))) (macroexpand-1 '(leaf leaf-keywords :emacs> ("24.4") :config (leaf-keywords-init)))) (:equal '(prog1 'leaf-keywords (when (version< "24.4" emacs-version) (leaf-keywords-init))) (macroexpand-1 '(leaf leaf-keywords :emacs> ('"24.4") :config (leaf-keywords-init))))) ((:equal '(prog1 'leaf-browser (eval-after-load 'leaf '(progn (require 'leaf-browser) (leaf-browser-init)))) (macroexpand-1 '(leaf leaf-browser :after leaf :require t :config (leaf-browser-init)))) (:equal '(prog1 'leaf-browser (eval-after-load 'orglyth '(eval-after-load 'org '(eval-after-load 'leaf '(progn (require 'leaf-browser) (leaf-browser-init)))))) (macroexpand-1 '(leaf leaf-browser :after leaf org orglyth :require t :config (leaf-browser-init)))) (:equal '(prog1 'leaf-browser (eval-after-load 'orglyth '(eval-after-load 'org '(eval-after-load 'leaf '(progn (require 'leaf-browser) (leaf-browser-init)))))) (macroexpand-1 '(leaf leaf-browser :after leaf (org orglyth) :require t :config (leaf-browser-init)))) (:equal '(prog1 'leaf-browser (eval-after-load 'orglyth '(eval-after-load 'org '(eval-after-load 'leaf '(progn (require 'leaf-browser) (leaf-browser-init)))))) (macroexpand-1 '(leaf leaf-browser :after leaf (org orglyth) org org :require t :config (leaf-browser-init)))) (:equal '(prog1 'leaf-browser (eval-after-load 'leaf-browser '(progn (require 'leaf-browser) (leaf-browser-init)))) (macroexpand-1 '(leaf leaf-browser :after t :require t :config (leaf-browser-init))))) ((:equal '(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")) (macroexpand-1 '(leaf foo-package :custom (foo-package-to-enable . t) (foo-package-to-disable) (foo-package-to-symbol quote symbol) (foo-package-to-function function ignore) (foo-package-to-lambda lambda (elm) (message elm))))) (:equal '(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")) (macroexpand-1 '(leaf foo-package :custom ((foo-package-to-enable . t) (foo-package-to-disable) (foo-package-to-symbol quote symbol) (foo-package-to-function function ignore) (foo-package-to-lambda lambda (elm) (message elm)))))) (:equal '(prog1 'foo-package (customize-set-variable 'to-enable1 t "Customized with leaf in `foo-package' block") (customize-set-variable 'to-enable2 t "Customized with leaf in `foo-package' block") (customize-set-variable 'to-enable3 t "Customized with leaf in `foo-package' block") (customize-set-variable 'to-disable1 nil "Customized with leaf in `foo-package' block") (customize-set-variable 'to-disable2 nil "Customized with leaf in `foo-package' block") (customize-set-variable 'to-disable3 nil "Customized with leaf in `foo-package' block")) (macroexpand-1 '(leaf foo-package :custom (((to-enable1 to-enable2 to-enable3) . t) ((to-disable1 to-disable2 to-disable3)))))) (:equal '(prog1 'foo-package (customize-set-variable 'foo-package-to-function #'ignore "Customized with leaf in `foo-package' block") (customize-set-variable 'to-symbol1 'baz "Customized with leaf in `foo-package' block") (customize-set-variable 'to-symbol2 'baz "Customized with leaf in `foo-package' block") (customize-set-variable 'to-enable1 t "Customized with leaf in `foo-package' block") (customize-set-variable 'to-enable2 t "Customized with leaf in `foo-package' block") (customize-set-variable 'to-enable3 t "Customized with leaf in `foo-package' block") (customize-set-variable 'to-disable1 nil "Customized with leaf in `foo-package' block") (customize-set-variable 'to-disable2 nil "Customized with leaf in `foo-package' block") (customize-set-variable 'to-disable3 nil "Customized with leaf in `foo-package' block")) (macroexpand-1 '(leaf foo-package :custom (foo-package-to-function function ignore) ((to-symbol1 to-symbol2) quote baz) (((to-enable1 to-enable2 to-enable3) . t) ((to-disable1 to-disable2 to-disable3))))))) ((:equal '(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")) (macroexpand-1 '(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)))))))) ((:equal '(prog1 'eruby-mode (custom-set-faces '(eruby-standard-face ((t (:slant italic))) nil "Customized with leaf in `eruby-mode' block"))) (macroexpand-1 '(leaf eruby-mode :custom-face (eruby-standard-face quote ((t (:slant italic))))))) (:equal '(prog1 'eruby-mode (custom-set-faces '(default ((t (:slant italic))) nil "Customized with leaf in `eruby-mode' block") '(eruby-standard-face ((t (:slant italic))) nil "Customized with leaf in `eruby-mode' block"))) (macroexpand-1 '(leaf eruby-mode :custom-face ((default eruby-standard-face) quote ((t (:slant italic)))))))) ((:equal '(prog1 'sql (customize-set-variable 'sql-connection-alist (leaf-handler-auth sql sql-connection-alist some-plstore) "Customized with leaf in `sql' block using `some-plstore' plstore")) (macroexpand-1 '(leaf sql :pl-custom (sql-connection-alist . some-plstore)))) (:equal '(prog1 'erc (customize-set-variable 'erc-password (leaf-handler-auth erc erc-password some-plstore) "Customized with leaf in `erc' block using `some-plstore' plstore") (customize-set-variable 'erc-nickserv-passwords (leaf-handler-auth erc erc-nickserv-passwords some-plstore) "Customized with leaf in `erc' block using `some-plstore' plstore") (customize-set-variable 'erc-user-full-name (leaf-handler-auth erc erc-user-full-name another-plstore) "Customized with leaf in `erc' block using `another-plstore' plstore") (customize-set-variable 'erc-nick (leaf-handler-auth erc erc-nick another-plstore) "Customized with leaf in `erc' block using `another-plstore' plstore")) (macroexpand-1 '(leaf erc :pl-custom ((erc-password erc-nickserv-passwords) . some-plstore) ((erc-user-full-name erc-nick) . another-plstore)))) (:equal '(prog1 'erc (customize-set-variable 'erc-nick (leaf-handler-auth erc erc-nick leaf-default-plstore) "Customized with leaf in `erc' block using `leaf-default-plstore' plstore") (customize-set-variable 'erc-password (leaf-handler-auth erc erc-password leaf-default-plstore) "Customized with leaf in `erc' block using `leaf-default-plstore' plstore")) (macroexpand-1 '(leaf erc :pl-custom erc-nick erc-password)))) ((:equal '(prog1 'macrostep (unless (fboundp 'macrostep-expand) (autoload #'macrostep-expand "macrostep" nil t)) (leaf-handler-package macrostep macrostep nil) (leaf-keys (("C-c e" . macrostep-expand)))) (macroexpand-1 '(leaf macrostep :ensure t :bind ("C-c e" . macrostep-expand)))) (:equal '(prog1 'color-moccur (unless (fboundp 'moccur) (autoload #'moccur "color-moccur" nil t)) (unless (fboundp 'isearch-moccur) (autoload #'isearch-moccur "color-moccur" nil t)) (unless (fboundp 'isearch-moccur-all) (autoload #'isearch-moccur-all "color-moccur" nil t)) (leaf-keys (("M-s O" . moccur) ("M-o" . isearch-moccur) ("M-O" . isearch-moccur-all)))) (macroexpand-1 '(leaf color-moccur :bind ("M-s O" . moccur) ("M-o" . isearch-moccur) ("M-O" . isearch-moccur-all)))) (:equal '(prog1 'color-moccur (unless (fboundp 'moccur) (autoload #'moccur "color-moccur" nil t)) (unless (fboundp 'isearch-moccur) (autoload #'isearch-moccur "color-moccur" nil t)) (unless (fboundp 'isearch-moccur-all) (autoload #'isearch-moccur-all "color-moccur" nil t)) (leaf-keys (("M-s O" . moccur) ("M-o" . isearch-moccur) ("M-O" . isearch-moccur-all)))) (macroexpand-1 '(leaf color-moccur :bind (("M-s O" . moccur) ("M-o" . isearch-moccur) ("M-O" . isearch-moccur-all))))) (:equal '(prog1 'color-moccur (unless (fboundp 'isearch-moccur) (autoload #'isearch-moccur "color-moccur" nil t)) (unless (fboundp 'isearch-moccur-all) (autoload #'isearch-moccur-all "color-moccur" nil t)) (leaf-keys (("M-s") ("M-s o" . isearch-moccur) ("M-s i" . isearch-moccur-all)))) (macroexpand-1 '(leaf color-moccur :bind (("M-s") ("M-s o" . isearch-moccur) ("M-s i" . isearch-moccur-all))))) (:equal '(prog1 'color-moccur (unless (fboundp 'moccur) (autoload #'moccur "color-moccur" nil t)) (unless (fboundp 'isearch-moccur) (autoload #'isearch-moccur "color-moccur" nil t)) (unless (fboundp 'isearch-moccur-all) (autoload #'isearch-moccur-all "color-moccur" nil t)) (unless (fboundp 'isearch-moccur-some) (autoload #'isearch-moccur-some "color-moccur" nil t)) (leaf-keys (("M-s O" . moccur) ("M-o" . isearch-moccur) ("M-O" . isearch-moccur-all) ("M-s" . isearch-moccur-some)))) (macroexpand-1 '(leaf color-moccur :bind (("M-s O" . moccur) (("M-o" . isearch-moccur) (("M-O" . isearch-moccur-all)) ("M-s" . isearch-moccur-some)))))) (:equal '(prog1 'color-moccur (unless (fboundp 'moccur) (autoload #'moccur "color-moccur" nil t)) (unless (fboundp 'isearch-moccur) (autoload #'isearch-moccur "color-moccur" nil t)) (unless (fboundp 'isearch-moccur-all) (autoload #'isearch-moccur-all "color-moccur" nil t)) (leaf-keys (("M-s O" . moccur) (isearch-mode-map :package color-moccur ("M-o" . isearch-moccur) ("M-O" . isearch-moccur-all))))) (macroexpand-1 '(leaf color-moccur :bind (("M-s O" . moccur) (:isearch-mode-map ("M-o" . isearch-moccur) ("M-O" . isearch-moccur-all)))))) (:equal '(prog1 'color-moccur (unless (fboundp 'moccur) (autoload #'moccur "color-moccur" nil t)) (unless (fboundp 'isearch-moccur) (autoload #'isearch-moccur "color-moccur" nil t)) (unless (fboundp 'isearch-moccur-all) (autoload #'isearch-moccur-all "color-moccur" nil t)) (leaf-keys (("M-s O" . moccur) (isearch-mode-map :package color-moccur ("M-o" . isearch-moccur) ("M-O" . isearch-moccur-all))))) (macroexpand-1 '(leaf color-moccur :bind ("M-s O" . moccur) (:isearch-mode-map ("M-o" . isearch-moccur) ("M-O" . isearch-moccur-all))))) (:equal '(prog1 'color-moccur (unless (fboundp 'moccur) (autoload #'moccur "color-moccur" nil t)) (unless (fboundp 'isearch-moccur) (autoload #'isearch-moccur "color-moccur" nil t)) (unless (fboundp 'isearch-moccur-all) (autoload #'isearch-moccur-all "color-moccur" nil t)) (leaf-keys (("M-s O" . moccur) (isearch-mode-map :package isearch ("M-o" . isearch-moccur) ("M-O" . isearch-moccur-all))))) (macroexpand-1 '(leaf color-moccur :bind (("M-s O" . moccur) (:isearch-mode-map :package isearch ("M-o" . isearch-moccur) ("M-O" . isearch-moccur-all)))))) (:equal '(prog1 'color-moccur (unless (fboundp 'moccur) (autoload #'moccur "color-moccur" nil t)) (unless (fboundp 'isearch-moccur) (autoload #'isearch-moccur "color-moccur" nil t)) (unless (fboundp 'isearch-moccur-all) (autoload #'isearch-moccur-all "color-moccur" nil t)) (leaf-keys (("M-s O" . moccur) (isearch-mode-map :package isearch ("M-o" . isearch-moccur) ("M-O" . isearch-moccur-all))))) (macroexpand-1 '(leaf color-moccur :bind (("M-s O" . moccur) (isearch-mode-map :package isearch ("M-o" . isearch-moccur) ("M-O" . isearch-moccur-all)))))) (:equal '(prog1 'swiper (unless (fboundp 'swiper) (autoload #'swiper "swiper" nil t)) (leaf-handler-package swiper swiper nil) (leaf-keys (([remap isearch-forward] . swiper)))) (macroexpand-1 '(leaf swiper :ensure t :bind (([remap isearch-forward] . swiper))))) (:equal '(prog1 'files (unless (fboundp 'find-file) (autoload #'find-file "files" nil t)) (leaf-keys (([(control 120) (control 102)] . find-file)))) (macroexpand-1 '(leaf files :bind (([(control 120) (control 102)] . find-file)))))) ((:equal '(prog1 'color-moccur (unless (fboundp 'moccur) (autoload #'moccur "color-moccur" nil t)) (unless (fboundp 'isearch-moccur) (autoload #'isearch-moccur "color-moccur" nil t)) (unless (fboundp 'isearch-moccur-all) (autoload #'isearch-moccur-all "color-moccur" nil t)) (leaf-keys* (("M-s O" . moccur) ("M-o" . isearch-moccur) ("M-O" . isearch-moccur-all)))) (macroexpand-1 '(leaf color-moccur :bind* ("M-s O" . moccur) ("M-o" . isearch-moccur) ("M-O" . isearch-moccur-all)))) (:equal '(prog1 'color-moccur (unless (fboundp 'moccur) (autoload #'moccur "color-moccur" nil t)) (unless (fboundp 'isearch-moccur) (autoload #'isearch-moccur "color-moccur" nil t)) (unless (fboundp 'isearch-moccur-all) (autoload #'isearch-moccur-all "color-moccur" nil t)) (leaf-keys* (("M-s O" . moccur) ("M-o" . isearch-moccur) ("M-O" . isearch-moccur-all)))) (macroexpand-1 '(leaf color-moccur :bind* (("M-s O" . moccur) ("M-o" . isearch-moccur) ("M-O" . isearch-moccur-all))))) (:equal '(prog1 'color-moccur (unless (fboundp 'moccur) (autoload #'moccur "color-moccur" nil t)) (unless (fboundp 'isearch-moccur) (autoload #'isearch-moccur "color-moccur" nil t)) (unless (fboundp 'isearch-moccur-all) (autoload #'isearch-moccur-all "color-moccur" nil t)) (leaf-keys* (("M-s O" . moccur) ("M-o" . isearch-moccur) ("M-O" . isearch-moccur-all)))) (macroexpand-1 '(leaf color-moccur :bind* (("M-s O" . moccur) (("M-o" . isearch-moccur) (("M-O" . isearch-moccur-all))))))) (:equal '(prog1 'color-moccur (unless (fboundp 'moccur) (autoload #'moccur "color-moccur" nil t)) (unless (fboundp 'isearch-moccur) (autoload #'isearch-moccur "color-moccur" nil t)) (unless (fboundp 'isearch-moccur-all) (autoload #'isearch-moccur-all "color-moccur" nil t)) (unless (fboundp 'isearch-moccur-some) (autoload #'isearch-moccur-some "color-moccur" nil t)) (leaf-keys* (("M-s O" . moccur) ("M-o" . isearch-moccur) ("M-O" . isearch-moccur-all) ("M-s" . isearch-moccur-some)))) (macroexpand-1 '(leaf color-moccur :bind* (("M-s O" . moccur) (("M-o" . isearch-moccur) (("M-O" . isearch-moccur-all)) ("M-s" . isearch-moccur-some))))))) ((:equal '(prog1 'projectile (leaf-handler-package projectile projectile nil) (leaf-keys-bind-keymap (("C-c p" . projectile-command-map)) nil 'projectile)) (macroexpand-1 '(leaf projectile :ensure t :bind-keymap ("C-c p" . projectile-command-map)))) (:equal '(prog1 'projectile (leaf-keys-bind-keymap (("C-c p" . projectile-command-map) ("C-%" . ctl-x-5-map)) nil 'projectile)) (macroexpand-1 '(leaf projectile :bind-keymap ("C-c p" . projectile-command-map) ("C-%" . ctl-x-5-map)))) (:equal '(prog1 'projectile (leaf-keys-bind-keymap (("C-c p" . projectile-command-map) ("C-%" . ctl-x-5-map)) nil 'projectile)) (macroexpand-1 '(leaf projectile :bind-keymap (("C-c p" . projectile-command-map) ("C-%" . ctl-x-5-map))))) (:equal '(prog1 'projectile (leaf-keys-bind-keymap (("C-c p" . projectile-command-map) ("C-^" . ctl-x-4-map) ("C-%" . ctl-x-5-map)) nil 'projectile)) (macroexpand-1 '(leaf projectile :bind-keymap (("C-c p" . projectile-command-map) (("C-^" . ctl-x-4-map) ("C-%" . ctl-x-5-map)))))) (:equal '(prog1 'projectile (leaf-keys-bind-keymap (("C-c p" . projectile-command-map) (projectile-mode-map :package projectile ("C-^" . ctl-x-4-map) ("C-%" . ctl-x-5-map))) nil 'projectile)) (macroexpand-1 '(leaf projectile :bind-keymap (("C-c p" . projectile-command-map) (:projectile-mode-map ("C-^" . ctl-x-4-map) ("C-%" . ctl-x-5-map)))))) (:equal '(prog1 'projectile (leaf-keys-bind-keymap (("C-c p" . projectile-command-map) (projectile-mode-map :package projectile ("C-^" . ctl-x-4-map) ("C-%" . ctl-x-5-map))) nil 'projectile)) (macroexpand-1 '(leaf projectile :bind-keymap ("C-c p" . projectile-command-map) (:projectile-mode-map ("C-^" . ctl-x-4-map) ("C-%" . ctl-x-5-map))))) (:equal '(prog1 'projectile (leaf-keys-bind-keymap (("C-c p" . projectile-command-map) (isearch-mode-map :package isearch ("C-^" . ctl-x-4-map) ("C-%" . ctl-x-5-map))) nil 'projectile)) (macroexpand-1 '(leaf projectile :bind-keymap (("C-c p" . projectile-command-map) (:isearch-mode-map :package isearch ("C-^" . ctl-x-4-map) ("C-%" . ctl-x-5-map)))))) (:equal '(prog1 'projectile (leaf-keys-bind-keymap (("C-c p" . projectile-command-map) (isearch-mode-map :package isearch ("C-^" . ctl-x-4-map) ("C-%" . ctl-x-5-map))) nil 'projectile)) (macroexpand-1 '(leaf projectile :bind-keymap (("C-c p" . projectile-command-map) (isearch-mode-map :package isearch ("C-^" . ctl-x-4-map) ("C-%" . ctl-x-5-map)))))) (:equal '(prog1 'projectile (leaf-handler-package projectile projectile nil) (leaf-keys-bind-keymap (([remap isearch-forward] . projectile-command-map)) nil 'projectile)) (macroexpand-1 '(leaf projectile :ensure t :bind-keymap (([remap isearch-forward] . projectile-command-map)))))) ((:equal '(prog1 'autorevert (unless (fboundp 'global-auto-revert-mode) (autoload #'global-auto-revert-mode "autorevert" nil t)) (global-auto-revert-mode 1)) (macroexpand-1 '(leaf autorevert :global-minor-mode global-auto-revert-mode))) (:equal '(prog1 'autorevert (unless (fboundp 'global-auto-revert-mode) (autoload #'global-auto-revert-mode "autorevert" nil t)) (unless (fboundp 'show-paren-mode) (autoload #'show-paren-mode "autorevert" nil t)) (global-auto-revert-mode 1) (show-paren-mode 1)) (macroexpand-1 '(leaf autorevert :global-minor-mode global-auto-revert-mode show-paren-mode))) (:equal '(prog1 'autorevert (unless (fboundp 'global-auto-revert-mode) (autoload #'global-auto-revert-mode "autorevert" nil t)) (unless (fboundp 'show-paren-mode) (autoload #'show-paren-mode "autorevert" nil t)) (global-auto-revert-mode 1) (show-paren-mode 1)) (macroexpand-1 '(leaf autorevert :global-minor-mode (global-auto-revert-mode show-paren-mode)))) (:equal '(prog1 'autorevert (unless (fboundp 'global-auto-revert-mode) (autoload #'global-auto-revert-mode "autorevert" nil t)) (unless (fboundp 'show-paren-mode) (autoload #'show-paren-mode "paren" nil t)) (global-auto-revert-mode 1) (show-paren-mode 1)) (macroexpand-1 '(leaf autorevert :global-minor-mode ((global-auto-revert-mode . autorevert) (show-paren-mode . paren))))) (:equal '(prog1 'simple (unless (fboundp 'line-number-mode) (autoload #'line-number-mode "simple" nil t)) (unless (fboundp 'column-number-mode) (autoload #'column-number-mode "simple" nil t)) (line-number-mode 1) (column-number-mode 1)) (macroexpand-1 '(leaf simple :global-minor-mode ((line-number-mode column-number-mode) . simple)))) (:equal '(prog1 'autoinsert (unless (fboundp 'auto-insert-mode) (autoload #'auto-insert-mode "autoinsert" nil t)) (unless (fboundp 'line-number-mode) (autoload #'line-number-mode "simple" nil t)) (unless (fboundp 'column-number-mode) (autoload #'column-number-mode "simple" nil t)) (auto-insert-mode 1) (line-number-mode 1) (column-number-mode 1)) (macroexpand-1 '(leaf autoinsert :global-minor-mode (auto-insert-mode ((line-number-mode column-number-mode) . simple))))) (:equal '(prog1 'autorevert (unless (fboundp 'autorevert-mode) (autoload #'autorevert-mode "autorevert" nil t)) (autorevert-mode 1)) (macroexpand-1 '(leaf autorevert :global-minor-mode t))) (:equal '(prog1 'autorevert (unless (fboundp 'autorevert-mode) (autoload #'autorevert-mode "autorevert" nil t)) (autorevert-mode 1)) (macroexpand-1 '(leaf autorevert :global-minor-mode autorevert)))) ((:equal '(prog1 'web-mode (unless (fboundp 'web-mode) (autoload #'web-mode "web-mode" nil t)) (add-to-list 'auto-mode-alist '("\\.js\\'" . web-mode))) (macroexpand-1 '(leaf web-mode :mode "\\.js\\'"))) (:equal '(prog1 'web-mode (unless (fboundp 'web-mode) (autoload #'web-mode "web-mode" nil t)) (add-to-list 'auto-mode-alist '("\\.js\\'" . web-mode)) (add-to-list 'auto-mode-alist '("\\.p?html?\\'" . web-mode))) (macroexpand-1 '(leaf web-mode :mode "\\.js\\'" "\\.p?html?\\'"))) (:equal '(prog1 'web-mode (unless (fboundp 'web-mode) (autoload #'web-mode "web-mode" nil t)) (add-to-list 'auto-mode-alist '("\\.js\\'" . web-mode)) (add-to-list 'auto-mode-alist '("\\.p?html?\\'" . web-mode))) (macroexpand-1 '(leaf web-mode :mode ("\\.js\\'" "\\.p?html?\\'")))) (:equal '(prog1 'web-mode (unless (fboundp 'web-strict-mode) (autoload #'web-strict-mode "web-mode" nil t)) (add-to-list 'auto-mode-alist '("\\.js\\'" . web-strict-mode))) (macroexpand-1 '(leaf web-mode :mode ("\\.js\\'" . web-strict-mode)))) (:equal '(prog1 'web-mode (unless (fboundp 'web-strict-mode) (autoload #'web-strict-mode "web-mode" nil t)) (add-to-list 'auto-mode-alist '("\\.js\\'" . web-strict-mode)) (add-to-list 'auto-mode-alist '("\\.p?html?\\'" . web-strict-mode))) (macroexpand-1 '(leaf web-mode :mode (("\\.js\\'" "\\.p?html?\\'") . web-strict-mode)))) (:equal '(prog1 'web-mode (unless (fboundp 'web-mode) (autoload #'web-mode "web-mode" nil t)) (unless (fboundp 'web-strict-mode) (autoload #'web-strict-mode "web-mode" nil t)) (add-to-list 'auto-mode-alist '("\\.html\\'" . web-mode)) (add-to-list 'auto-mode-alist '("\\.js\\'" . web-strict-mode)) (add-to-list 'auto-mode-alist '("\\.p?html?\\'" . web-strict-mode))) (macroexpand-1 '(leaf web-mode :mode ("\\.html\\'" (("\\.js\\'" "\\.p?html?\\'") . web-strict-mode))))) (:equal '(prog1 'gnuplot (unless (fboundp 'gnuplot-mode) (autoload #'gnuplot-mode "gnuplot" nil t)) (add-to-list 'auto-mode-alist '("\\.gp$" . gnuplot-mode))) (macroexpand-1 '(leaf gnuplot :mode "\\.gp$")))) ((:equal '(prog1 'ruby-mode (unless (fboundp 'ruby-mode) (autoload #'ruby-mode "ruby-mode" nil t)) (unless (fboundp 'rb-mode) (autoload #'rb-mode "ruby-mode" nil t)) (add-to-list 'auto-mode-alist '("\\.rb\\'" . ruby-mode)) (add-to-list 'auto-mode-alist '("\\.rb2\\'" . ruby-mode)) (add-to-list 'auto-mode-alist '("\\.rbg\\'" . rb-mode)) (add-to-list 'interpreter-mode-alist '("ruby" . ruby-mode))) (macroexpand-1 '(leaf ruby-mode :mode "\\.rb\\'" "\\.rb2\\'" ("\\.rbg\\'" . rb-mode) :interpreter "ruby"))) (:equal '(prog1 'web-mode (unless (fboundp 'web-mode) (autoload #'web-mode "web-mode" nil t)) (add-to-list 'interpreter-mode-alist '("js" . web-mode)) (add-to-list 'interpreter-mode-alist '("p?html?" . web-mode))) (macroexpand-1 '(leaf web-mode :interpreter "js" "p?html?"))) (:equal '(prog1 'web-mode (unless (fboundp 'web-mode) (autoload #'web-mode "web-mode" nil t)) (add-to-list 'interpreter-mode-alist '("js" . web-mode)) (add-to-list 'interpreter-mode-alist '("p?html?" . web-mode))) (macroexpand-1 '(leaf web-mode :interpreter ("js" "p?html?")))) (:equal '(prog1 'web-mode (unless (fboundp 'web-mode) (autoload #'web-mode "web-mode" nil t)) (add-to-list 'interpreter-mode-alist '("js" . web-mode)) (add-to-list 'interpreter-mode-alist '("p?html?" . web-mode))) (macroexpand-1 '(leaf web-mode :interpreter (("js" "p?html?") . web-mode))))) ((:equal '(prog1 'pdf-tools (unless (fboundp 'pdf-view-mode) (autoload #'pdf-view-mode "pdf-tools" nil t)) (add-to-list 'magic-mode-alist '("%PDF" . pdf-view-mode)) (eval-after-load 'pdf-tools '(progn (pdf-tools-install)))) (macroexpand-1 '(leaf pdf-tools :magic ("%PDF" . pdf-view-mode) :config (pdf-tools-install)))) (:equal '(prog1 'web-mode (unless (fboundp 'web-mode) (autoload #'web-mode "web-mode" nil t)) (add-to-list 'magic-mode-alist '("js" . web-mode)) (add-to-list 'magic-mode-alist '("p?html?" . web-mode))) (macroexpand-1 '(leaf web-mode :magic "js" "p?html?"))) (:equal '(prog1 'web-mode (unless (fboundp 'web-mode) (autoload #'web-mode "web-mode" nil t)) (add-to-list 'magic-mode-alist '("js" . web-mode)) (add-to-list 'magic-mode-alist '("p?html?" . web-mode))) (macroexpand-1 '(leaf web-mode :magic ("js" "p?html?")))) (:equal '(prog1 'web-mode (unless (fboundp 'web-mode) (autoload #'web-mode "web-mode" nil t)) (add-to-list 'magic-mode-alist '("js" . web-mode)) (add-to-list 'magic-mode-alist '("p?html?" . web-mode))) (macroexpand-1 '(leaf web-mode :magic (("js" "p?html?") . web-mode))))) ((:equal '(prog1 'pdf-tools (unless (fboundp 'pdf-view-mode) (autoload #'pdf-view-mode "pdf-tools" nil t)) (add-to-list 'magic-fallback-mode-alist '("%PDF" . pdf-view-mode)) (eval-after-load 'pdf-tools '(progn (pdf-tools-install)))) (macroexpand-1 '(leaf pdf-tools :magic-fallback ("%PDF" . pdf-view-mode) :config (pdf-tools-install)))) (:equal '(prog1 'web-mode (unless (fboundp 'web-mode) (autoload #'web-mode "web-mode" nil t)) (add-to-list 'magic-fallback-mode-alist '("js" . web-mode)) (add-to-list 'magic-fallback-mode-alist '("p?html?" . web-mode))) (macroexpand-1 '(leaf web-mode :magic-fallback "js" "p?html?"))) (:equal '(prog1 'web-mode (unless (fboundp 'web-mode) (autoload #'web-mode "web-mode" nil t)) (add-to-list 'magic-fallback-mode-alist '("js" . web-mode)) (add-to-list 'magic-fallback-mode-alist '("p?html?" . web-mode))) (macroexpand-1 '(leaf web-mode :magic-fallback ("js" "p?html?")))) (:equal '(prog1 'web-mode (unless (fboundp 'web-mode) (autoload #'web-mode "web-mode" nil t)) (add-to-list 'magic-fallback-mode-alist '("js" . web-mode)) (add-to-list 'magic-fallback-mode-alist '("p?html?" . web-mode))) (macroexpand-1 '(leaf web-mode :magic-fallback (("js" "p?html?") . web-mode))))) ((:equal '(prog1 'ace-jump-mode (unless (fboundp 'ace-jump-mode) (autoload #'ace-jump-mode "ace-jump-mode" nil t)) (add-hook 'cc-mode-hook #'ace-jump-mode) (eval-after-load 'ace-jump-mode '(progn (ace-jump-mode)))) (macroexpand-1 '(leaf ace-jump-mode :hook cc-mode-hook :config (ace-jump-mode)))) (:equal '(prog1 'ace-jump-mode (unless (fboundp 'ace-jump-mode) (autoload #'ace-jump-mode "ace-jump-mode" nil t)) (add-hook 'cc-mode-hook #'ace-jump-mode) (add-hook 'prog-mode-hook #'ace-jump-mode)) (macroexpand-1 '(leaf ace-jump-mode :hook cc-mode-hook prog-mode-hook))) (:equal '(prog1 'ace-jump-mode (unless (fboundp 'my-ace-jump-mode) (autoload #'my-ace-jump-mode "ace-jump-mode" nil t)) (add-hook 'prog-mode-hook #'my-ace-jump-mode)) (macroexpand-1 '(leaf ace-jump-mode :hook (prog-mode-hook . my-ace-jump-mode)))) (:equal '(prog1 'ace-jump-mode (unless (fboundp 'my-ace-jump-mode) (autoload #'my-ace-jump-mode "ace-jump-mode" nil t)) (add-hook 'cc-mode-hook #'my-ace-jump-mode) (add-hook 'prog-mode-hook #'my-ace-jump-mode)) (macroexpand-1 '(leaf ace-jump-mode :hook ((cc-mode-hook prog-mode-hook) . my-ace-jump-mode)))) (:equal '(prog1 'dired-filter (unless (fboundp 'dired-filter-mode) (autoload #'dired-filter-mode "dired-filter" nil t)) (add-hook 'dired-mode-hook #'dired-filter-mode)) (macroexpand-1 '(leaf dired-filter :hook dired-mode-hook))) (:equal '(prog1 'hook (add-hook 'foo-hook #'(lambda nil (foo)))) (macroexpand-1 '(leaf hook :hook (foo-hook lambda nil (foo))))) (:equal '(prog1 'hook (add-hook 'foo-hook #'(lambda nil (foo) (bar) (baz)))) (macroexpand-1 '(leaf hook :hook (foo-hook lambda nil (foo) (bar) (baz)))))) ((:equal '(prog1 'leaf (unless (fboundp 'matu-around0) (autoload #'matu-around0 "leaf" nil t)) (unless (fboundp 'matu-before0) (autoload #'matu-before0 "leaf" nil t)) (defun matu (x) (princ (format ">>%s<<" x)) nil) (defun matu-around0 (f &rest args) (prog2 (princ "around0 ==>") (apply f args) (princ "around0 <=="))) (defun matu-before0 (&rest args) (princ "before0:")) (advice-add 'matu :around #'matu-around0) (advice-add 'matu :before #'matu-before0)) (macroexpand-1 '(leaf leaf :preface (defun matu (x) (princ (format ">>%s<<" x)) nil) (defun matu-around0 (f &rest args) (prog2 (princ "around0 ==>") (apply f args) (princ "around0 <=="))) (defun matu-before0 (&rest args) (princ "before0:")) :advice (:around matu matu-around0) (:before matu matu-before0)))) (:equal '(prog1 'leaf (unless (fboundp 'matu-around0) (autoload #'matu-around0 "leaf" nil t)) (unless (fboundp 'matu-before0) (autoload #'matu-before0 "leaf" nil t)) (defun matu (x) (princ (format ">>%s<<" x)) nil) (defun matu-around0 (f &rest args) (prog2 (princ "around0 ==>") (apply f args) (princ "around0 <=="))) (defun matu-before0 (&rest args) (princ "before0:")) (advice-add 'matu :around #'matu-around0) (advice-add 'matu :before #'matu-before0)) (macroexpand-1 '(leaf leaf :preface (defun matu (x) (princ (format ">>%s<<" x)) nil) (defun matu-around0 (f &rest args) (prog2 (princ "around0 ==>") (apply f args) (princ "around0 <=="))) (defun matu-before0 (&rest args) (princ "before0:")) :advice ((:around matu matu-around0) (:before matu matu-before0))))) (:equal '(prog1 'leaf (unless (fboundp 'matu-around0) (autoload #'matu-around0 "leaf" nil t)) (unless (fboundp 'matu-before0) (autoload #'matu-before0 "leaf" nil t)) (defun matu (x) (princ (format ">>%s<<" x)) nil) (defun matu-around0 (f &rest args) (prog2 (princ "around0 ==>") (apply f args) (princ "around0 <=="))) (defun matu-before0 (&rest args) (princ "before0:")) (advice-add 'matu :around #'matu-around0) (advice-add 'matu :before #'matu-before0) (advice-add 'matu :around #'(lambda (f &rest args) (prog2 (princ "around1 ==>") (apply f args) (princ "around1 <=="))))) (macroexpand-1 '(leaf leaf :preface (defun matu (x) (princ (format ">>%s<<" x)) nil) (defun matu-around0 (f &rest args) (prog2 (princ "around0 ==>") (apply f args) (princ "around0 <=="))) (defun matu-before0 (&rest args) (princ "before0:")) :advice ((:around matu matu-around0) (:before matu matu-before0) (:around matu (lambda (f &rest args) (prog2 (princ "around1 ==>") (apply f args) (princ "around1 <=="))))))))) ((:equal '(prog1 'leaf (unless (fboundp 'matu-before0) (autoload #'matu-before0 "leaf" nil t)) (unless (fboundp 'matu-around0) (autoload #'matu-around0 "leaf" nil t)) (advice-remove 'matu #'matu-around0) (advice-remove 'matu #'matu-before0)) (macroexpand-1 '(leaf leaf :advice-remove (matu matu-around0) (matu matu-before0)))) (:equal '(prog1 'leaf (unless (fboundp 'matu-before0) (autoload #'matu-before0 "leaf" nil t)) (unless (fboundp 'matu-around0) (autoload #'matu-around0 "leaf" nil t)) (advice-remove 'matu #'matu-around0) (advice-remove 'matu #'matu-before0)) (macroexpand-1 '(leaf leaf :advice-remove ((matu matu-around0) (matu matu-before0)))))) ((:equal '(prog1 'leaf (unless (fboundp 'leaf) (autoload #'leaf "leaf" nil t)) (eval-after-load 'leaf '(progn (leaf-init)))) (macroexpand-1 '(leaf leaf :commands leaf :config (leaf-init)))) (:equal '(prog1 'leaf (unless (fboundp 'leaf) (autoload #'leaf "leaf" nil t)) (unless (fboundp 'leaf-pairp) (autoload #'leaf-pairp "leaf" nil t)) (unless (fboundp 'leaf-plist-get) (autoload #'leaf-plist-get "leaf" nil t))) (macroexpand-1 '(leaf leaf :commands leaf leaf-pairp leaf-plist-get))) (:equal '(prog1 'leaf (unless (fboundp 'leaf) (autoload #'leaf "leaf" nil t)) (unless (fboundp 'leaf-pairp) (autoload #'leaf-pairp "leaf" nil t)) (unless (fboundp 'leaf-plist-get) (autoload #'leaf-plist-get "leaf" nil t))) (macroexpand-1 '(leaf leaf :commands (leaf leaf-pairp leaf-plist-get)))) (:equal '(prog1 'leaf (unless (fboundp 'leaf) (autoload #'leaf "leaf" nil t)) (unless (fboundp 'leaf-pairp) (autoload #'leaf-pairp "leaf" nil t)) (unless (fboundp 'leaf-plist-get) (autoload #'leaf-plist-get "leaf" nil t)) (unless (fboundp 'leaf-insert-list-after) (autoload #'leaf-insert-list-after "leaf" nil t))) (macroexpand-1 '(leaf leaf :commands leaf (leaf-pairp leaf-plist-get (leaf-insert-list-after)))))) ((:equal '(prog1 'alloc (setq gc-cons-threshold 536870912) (setq garbage-collection-messages t) (require 'alloc)) (macroexpand-1 '(leaf alloc :pre-setq `((gc-cons-threshold \, (* 512 1024 1024)) (garbage-collection-messages . t)) :require t))) (:equal '(prog1 'alloc (setq gc-cons-threshold 536870912) (setq garbage-collection-messages t) (require 'alloc)) (macroexpand-1 '(leaf alloc :pre-setq ((gc-cons-threshold . 536870912) (garbage-collection-messages . t)) :require t))) (:equal '(prog1 'leaf (setq leaf-backend-bind 'bind-key) (setq leaf-backend-bind* 'bind-key) (require 'leaf)) (macroexpand-1 '(leaf leaf :pre-setq (leaf-backend-bind quote bind-key) (leaf-backend-bind* quote bind-key) :require t))) (:equal '(prog1 'leaf (setq leaf-backend-bind 'bind-key) (setq leaf-backend-bind* 'bind-key) (require 'leaf)) (macroexpand-1 '(leaf leaf :pre-setq ((leaf-backend-bind leaf-backend-bind*) quote bind-key) :require t))) (:equal '(prog1 'lsp-mode (setq lsp-print-io nil) (setq lsp-trace nil) (setq lsp-print-performance nil) (require 'lsp-mode)) (macroexpand-1 '(leaf lsp-mode :pre-setq ((lsp-print-io lsp-trace lsp-print-performance)) :require t))) (:equal '(prog1 'lsp-mode (setq lsp-use-native-json t) (setq lsp-enable-folding t) (setq lsp-enable-snippet t) (setq lsp-print-io nil) (setq lsp-trace nil) (setq lsp-print-performance nil) (require 'lsp-mode)) (macroexpand-1 '(leaf lsp-mode :pre-setq ((lsp-use-native-json . t) ((lsp-enable-folding lsp-enable-snippet) . t) ((lsp-print-io lsp-trace lsp-print-performance))) :require t)))) ((:equal '(prog1 'leaf (leaf-pre-init) (require 'leaf) (leaf-init)) (macroexpand-1 '(leaf leaf :init (leaf-pre-init) :require t :config (leaf-init)))) (:equal '(prog1 'leaf (progn (leaf-pre-init) (leaf-pre-init-after)) (require 'leaf) (leaf-init)) (macroexpand-1 '(leaf leaf :init (progn (leaf-pre-init) (leaf-pre-init-after)) :require t :config (leaf-init)))) (:equal '(prog1 'leaf (leaf-pre-init) (leaf-pre-init-after) (require 'leaf) (leaf-init)) (macroexpand-1 '(leaf leaf :init (leaf-pre-init) (leaf-pre-init-after) :require t :config (leaf-init))))) ((:equal '(prog1 'leaf (when leaf-workable-p (leaf-pre-init) (require 'leaf) (leaf-init))) (macroexpand-1 '(leaf leaf :init (leaf-pre-init) :when leaf-workable-p :require t :config (leaf-init)))) (:equal '(prog1 'leaf (leaf-pre-init) (leaf-init)) (macroexpand-1 '(leaf leaf :init (leaf-pre-init) :require nil :config (leaf-init)))) (:equal '(prog1 'leaf (leaf-pre-init) (require 'leaf) (require 'leaf-polyfill) (leaf-init)) (macroexpand-1 '(leaf leaf :init (leaf-pre-init) :require leaf leaf-polyfill :config (leaf-init)))) (:equal '(prog1 'leaf (leaf-pre-init) (require 'leaf) (require 'leaf-polyfill) (leaf-init)) (macroexpand-1 '(leaf leaf :init (leaf-pre-init) :require t :require leaf-polyfill :config (leaf-init)))) (:equal '(prog1 'leaf (leaf-pre-init) (require 'leaf) (require 'leaf-polyfill) (require 'leaf-sub) (require 'leaf-subsub) (leaf-init)) (macroexpand-1 '(leaf leaf :init (leaf-pre-init) :require (leaf leaf-polyfill leaf-sub leaf-subsub) :config (leaf-init))))) ((:equal '(prog1 'alloc (require 'alloc) (setq gc-cons-threshold 536870912)) (macroexpand-1 '(leaf alloc :setq (gc-cons-threshold . 536870912) :require t))) (:equal '(prog1 'alloc (require 'alloc) (setq gc-cons-threshold 536870912) (setq garbage-collection-messages t)) (macroexpand-1 '(leaf alloc :setq (gc-cons-threshold . 536870912) (garbage-collection-messages . t) :require t))) (:equal '(prog1 'alloc (require 'alloc) (setq gc-cons-threshold 536870912) (setq garbage-collection-messages t)) (macroexpand-1 '(leaf alloc :setq ((gc-cons-threshold . 536870912) (garbage-collection-messages . t)) :require t))) (:equal '(prog1 'alloc (require 'alloc) (setq gc-cons-threshold 536870912) (setq garbage-collection-messages t)) (macroexpand-1 '(leaf alloc :setq `((gc-cons-threshold \, (* 512 1024 1024)) (garbage-collection-messages . t)) :require t))) (:equal '(prog1 'leaf (require 'leaf) (setq leaf-backend-bind 'bind-key) (setq leaf-backend-bind* 'bind-key)) (macroexpand-1 '(leaf leaf :setq ((leaf-backend-bind leaf-backend-bind*) quote bind-key) :require t)))) ((:equal '(prog1 'alloc (require 'alloc) (setf gc-cons-threshold 536870912) (setf garbage-collection-messages t)) (macroexpand-1 '(leaf alloc :setf ((gc-cons-threshold . 536870912) (garbage-collection-messages . t)) :require t))) (:equal '(prog1 'emacs (setf (alist-get "gnu" package-archives) "http://elpa.gnu.org/packages/") (setf (alist-get 'vertical-scroll-bars default-frame-alist) nil)) (macroexpand-1 '(leaf emacs :setf (((alist-get "gnu" package-archives) . "http://elpa.gnu.org/packages/") ((alist-get 'vertical-scroll-bars default-frame-alist))))))) ((:equal '(prog1 'emacs (push '("melpa" . "https://melpa.org/packages/") package-archives) (push '("\\.jpe?g\\'" . image-mode) auto-mode-alist)) (macroexpand-1 '(leaf emacs :push ((package-archives quote ("melpa" . "https://melpa.org/packages/")) (auto-mode-alist quote ("\\.jpe?g\\'" . image-mode))))))) ((:equal '(prog1 'sql (setq sql-connection-alist (leaf-handler-auth sql sql-connection-alist some-plstore))) (macroexpand-1 '(leaf sql :pl-setq (sql-connection-alist . some-plstore)))) (:equal '(prog1 'erc (setq erc-password (leaf-handler-auth erc erc-password some-plstore)) (setq erc-nickserv-passwords (leaf-handler-auth erc erc-nickserv-passwords some-plstore)) (setq erc-user-full-name (leaf-handler-auth erc erc-user-full-name another-plstore)) (setq erc-nick (leaf-handler-auth erc erc-nick another-plstore))) (macroexpand-1 '(leaf erc :pl-setq ((erc-password erc-nickserv-passwords) . some-plstore) ((erc-user-full-name erc-nick) . another-plstore))))) ((:equal '(prog1 'alloc (require 'alloc) (setq-default gc-cons-threshold 536870912) (setq-default garbage-collection-messages t)) (macroexpand-1 '(leaf alloc :setq-default `((gc-cons-threshold \, (* 512 1024 1024)) (garbage-collection-messages . t)) :require t))) (:equal '(prog1 'alloc (require 'alloc) (setq-default gc-cons-threshold 536870912) (setq-default garbage-collection-messages t)) (macroexpand-1 '(leaf alloc :setq-default ((gc-cons-threshold . 536870912) (garbage-collection-messages . t)) :require t))) (:equal '(prog1 'leaf (require 'leaf) (setq-default leaf-backend-bind 'bind-key) (setq-default leaf-backend-bind* 'bind-key)) (macroexpand-1 '(leaf leaf :setq-default (leaf-backend-bind quote bind-key) (leaf-backend-bind* quote bind-key) :require t))) (:equal '(prog1 'leaf (require 'leaf) (setq-default leaf-backend-bind 'bind-key) (setq-default leaf-backend-bind* 'bind-key)) (macroexpand-1 '(leaf leaf :setq-default ((leaf-backend-bind leaf-backend-bind*) quote bind-key) :require t)))) ((:equal '(prog1 'indent (setq-default indent-tabs-mode (leaf-handler-auth indent indent-tabs-mode some-plstore))) (macroexpand-1 '(leaf indent :pl-setq-default (indent-tabs-mode . some-plstore))))) ((:equal '(prog1 'indent (setq indent-tabs-mode (leaf-handler-auth indent indent-tabs-mode some-plstore)) (require 'indent)) (macroexpand-1 '(leaf indent :pl-pre-setq (indent-tabs-mode . some-plstore) :require t)))) ((:equal '(prog1 'leaf (leaf-pre-init) (require 'leaf) (leaf-init)) (macroexpand-1 '(leaf leaf :init (leaf-pre-init) :require t :config (leaf-init)))) (:equal '(prog1 'leaf (leaf-init) (require 'leaf) (progn (leaf-pre-init) (leaf-pre-init-after))) (macroexpand-1 '(leaf leaf :init (leaf-init) :require t :config (progn (leaf-pre-init) (leaf-pre-init-after))))) (:equal '(prog1 'leaf (leaf-init) (require 'leaf) (leaf-pre-init) (leaf-pre-init-after)) (macroexpand-1 '(leaf leaf :init (leaf-init) :require t :config (leaf-pre-init) (leaf-pre-init-after))))) ((:equal '(prog1 'leaf (leaf-pre-init) (eval-after-load 'leaf '(progn (leaf-init)))) (macroexpand-1 '(leaf leaf :init (leaf-pre-init) :defer-config (leaf-init)))) (:equal '(prog1 'leaf (leaf-init) (eval-after-load 'leaf '(progn (leaf-pre-init) (leaf-pre-init-after)))) (macroexpand-1 '(leaf leaf :init (leaf-init) :defer-config (leaf-pre-init) (leaf-pre-init-after))))) ((:equal '(prog1 'sql (customize-set-variable 'sql-connection-alist (leaf-handler-auth sql sql-connection-alist some-plstore) "Customized with leaf in `sql' block using `some-plstore' plstore")) (macroexpand-1 '(leaf sql :auth-custom (sql-connection-alist . some-plstore)))) (:equal '(prog1 'erc (customize-set-variable 'erc-password (leaf-handler-auth erc erc-password some-plstore) "Customized with leaf in `erc' block using `some-plstore' plstore") (customize-set-variable 'erc-nickserv-passwords (leaf-handler-auth erc erc-nickserv-passwords some-plstore) "Customized with leaf in `erc' block using `some-plstore' plstore") (customize-set-variable 'erc-user-full-name (leaf-handler-auth erc erc-user-full-name another-plstore) "Customized with leaf in `erc' block using `another-plstore' plstore") (customize-set-variable 'erc-nick (leaf-handler-auth erc erc-nick another-plstore) "Customized with leaf in `erc' block using `another-plstore' plstore")) (macroexpand-1 '(leaf erc :auth-custom ((erc-password erc-nickserv-passwords) . some-plstore) ((erc-user-full-name erc-nick) . another-plstore)))) (:equal '(prog1 'erc (customize-set-variable 'erc-nick (leaf-handler-auth erc erc-nick leaf-default-plstore) "Customized with leaf in `erc' block using `leaf-default-plstore' plstore") (customize-set-variable 'erc-password (leaf-handler-auth erc erc-password leaf-default-plstore) "Customized with leaf in `erc' block using `leaf-default-plstore' plstore")) (macroexpand-1 '(leaf erc :auth-custom erc-nick erc-password)))) ((:equal '(prog1 'sql (setq sql-connection-alist (leaf-handler-auth sql sql-connection-alist some-plstore))) (macroexpand-1 '(leaf sql :auth-setq (sql-connection-alist . some-plstore)))) (:equal '(prog1 'erc (setq erc-password (leaf-handler-auth erc erc-password some-plstore)) (setq erc-nickserv-passwords (leaf-handler-auth erc erc-nickserv-passwords some-plstore)) (setq erc-user-full-name (leaf-handler-auth erc erc-user-full-name another-plstore)) (setq erc-nick (leaf-handler-auth erc erc-nick another-plstore))) (macroexpand-1 '(leaf erc :auth-setq ((erc-password erc-nickserv-passwords) . some-plstore) ((erc-user-full-name erc-nick) . another-plstore))))) ((:equal '(prog1 'indent (setq-default indent-tabs-mode (leaf-handler-auth indent indent-tabs-mode some-plstore))) (macroexpand-1 '(leaf indent :auth-setq-default (indent-tabs-mode . some-plstore))))) ((:equal '(prog1 'indent (setq indent-tabs-mode (leaf-handler-auth indent indent-tabs-mode some-plstore)) (require 'indent)) (macroexpand-1 '(leaf indent :auth-pre-setq (indent-tabs-mode . some-plstore) :require t)))) ((:equal '(prog1 'leaf (leaf-init)) (let ((leaf-expand-minimally t)) (macroexpand-1 '(leaf leaf :config (leaf-init)))))) ((:equal '(prog1 'leaf (unless (fboundp 'leaf) (autoload #'leaf "leaf" nil t)) (eval-after-load 'leaf '(progn (leaf-init)))) (macroexpand-1 '(leaf leaf :commands leaf :config (leaf-init)))) (:equal '(prog1 'leaf (eval-after-load 'leaf '(progn (leaf-init)))) (macroexpand-1 '(leaf leaf :leaf-autoload nil :commands leaf :config (leaf-init))))) ((:equal '(prog1 'leaf (unless (fboundp 'leaf) (autoload #'leaf "leaf" nil t)) (eval-after-load 'leaf '(progn (leaf-init)))) (macroexpand-1 '(leaf leaf :commands leaf :config (leaf-init)))) (:equal '(prog1 'leaf (unless (fboundp 'leaf) (autoload #'leaf "leaf" nil t)) (leaf-init)) (macroexpand-1 '(leaf leaf :leaf-defer nil :commands leaf :config (leaf-init))))) ((:equal '(prog1 'leaf (leaf-handler-leaf-protect leaf (leaf-init))) (let #2=((leaf-expand-leaf-protect t)) (macroexpand-1 '(leaf leaf :config (leaf-init))))) (:equal '(prog1 'leaf (leaf-init)) (let #2# (macroexpand-1 '(leaf leaf :leaf-protect nil :config (leaf-init))))) (:equal '(prog1 'leaf (leaf-handler-leaf-protect leaf (leaf-init))) (let #2# (macroexpand-1 '(leaf leaf :leaf-protect t nil :config (leaf-init))))) (:equal '(condition-case err (progn (leaf-load) (leaf-init)) (error (display-warning 'leaf (format "Error in `leaf' block.  Error msg: %s" (error-message-string err))))) (let #2# (macroexpand-1 '(leaf-handler-leaf-protect leaf (leaf-load) (leaf-init)))))) ((:equal '(prog1 'leaf (leaf-handler-leaf-path leaf) (leaf-init)) (let #3=((leaf-expand-leaf-path t)) (macroexpand-1 '(leaf leaf :config (leaf-init))))) (:equal '(prog1 'leaf (leaf-init)) (let #3# (macroexpand-1 '(leaf leaf :leaf-path nil :config (leaf-init))))) (:equal '(prog1 'leaf (leaf-handler-leaf-path leaf) (leaf-init)) (let #3# (macroexpand-1 '(leaf leaf :leaf-path t nil :config (leaf-init))))) (:equal '(let ((file (leaf-this-file))) (unless (boundp 'leaf--paths) (defvar leaf--paths nil)) (when file (add-to-list 'leaf--paths (cons 'leaf file)))) (let #3# (macroexpand-1 '(leaf-handler-leaf-path leaf))))) leaf/ensure leaf/package leaf/doc leaf/load-path leaf/load-path* leaf/defun leaf/defvar leaf/preface leaf/if leaf/when leaf/unless leaf/emacs< leaf/after leaf/custom leaf/custom* leaf/custom-face leaf/pl-custom leaf/bind leaf/bind* leaf/bind-keymap leaf/global-minor-mode leaf/mode leaf/interpreter leaf/magic leaf/magic-fallback leaf/hook leaf/advice leaf/advice-remove leaf/commands leaf/pre-setq leaf/init leaf/require leaf/setq leaf/setf leaf/push leaf/pl-setq leaf/setq-default leaf/pl-setq-default leaf/pl-pre-setq leaf/config leaf/defer-config leaf/auth-custom leaf/auth-setq leaf/auth-setq-default leaf/auth-pre-setq leaf/leaf-expand-minimally leaf/leaf-autoload leaf/leaf-defer leaf/leaf-protect leaf/leaf-path leaf/leaf-defun leaf/handler-package emacs-version leaf/leaf-key leaf/leaf-key-bind-keymap leaf/leaf-key-describe leaf/leaf-key* leaf/leaf-keys leaf/leaf-keys-dryrun leaf/leaf-keys* leaf/alias leaf/no-leaf-defaults leaf/leaf-defaults leaf/pairp leaf/pairp-allow-nil leaf/normalize-list-in-list--normal normalize-list-in-list--distribute leaf/leaf-form-regexp leaf/leaf-plist-get ((:equal '(prog1 'annotate (unless (fboundp 'annotate-annotate) (autoload #'annotate-annotate "annotate" nil t)) (unless (fboundp 'annotate-next-annotation) (autoload #'annotate-next-annotation "annotate" nil t)) (unless (fboundp 'annotate-previous-anotation) (autoload #'annotate-previous-anotation "annotate" nil t)) (unless (fboundp 'annotate-mode) (autoload #'annotate-mode "annotate" nil t)) (leaf-keys (("C-c a a" . annotate-annotate) ("C-c a ]" . annotate-next-annotation) ("C-c a [" . annotate-previous-anotation)))) (macroexpand-1 '(leaf annotate :commands annotate-mode :bind (("C-c a a" . annotate-annotate) ("C-c a ]" . annotate-next-annotation) ("C-c a [" . annotate-previous-anotation))))) (:equal '(prog1 'annotate (leaf-keys (("C-c a a" . annotate-annotate) ("C-c a ]" . annotate-next-annotation) ("C-c a [" . annotate-previous-anotation)))) (macroexpand-1 '(leaf annotate :leaf-autoload nil :leaf-defun nil :commands annotate-mode :bind (("C-c a a" . annotate-annotate) ("C-c a ]" . annotate-next-annotation) ("C-c a [" . annotate-previous-anotation)))))) ((:equal '(prog1 'macrostep (leaf-handler-package macrostep macrostep nil)) (macroexpand-1 '(leaf macrostep :ensure t))) (:equal '(unless (package-installed-p 'macrostep) (unless (assoc 'macrostep package-archive-contents) (package-refresh-contents)) (condition-case _err (package-install 'macrostep) (error (condition-case err (progn (package-refresh-contents) (package-install 'macrostep)) (error (display-warning 'leaf (format "In `macrostep' block, failed to :package of `macrostep'.  Error msg: %s" (error-message-string err)))))))) (macroexpand-1 '(leaf-handler-package macrostep macrostep nil)))) version< "24.0" ((:equal '(let* ((old (lookup-key global-map (kbd "C-M-i"))) (value `(global-map "C-M-i" flyspell-correct-wrapper ,(and old (not (numberp old)) old) nil))) (leaf-safe-push value leaf-key-bindlist) (define-key global-map (kbd "C-M-i") 'flyspell-correct-wrapper)) (macroexpand-1 '(leaf-key "C-M-i" 'flyspell-correct-wrapper))) (:equal '(let* ((old (lookup-key global-map [remap backward-sentence])) (value `(global-map "<remap> <backward-sentence>" sh-beginning-of-command ,(and old (not (numberp old)) old) nil))) (leaf-safe-push value leaf-key-bindlist) (define-key global-map [remap backward-sentence] 'sh-beginning-of-command)) (macroexpand-1 '(leaf-key [remap backward-sentence] 'sh-beginning-of-command))) (:equal '(let* ((old (lookup-key c-mode-map (kbd "C-M-i"))) (value `(c-mode-map "C-M-i" flyspell-correct-wrapper ,(and old (not (numberp old)) old) nil))) (leaf-safe-push value leaf-key-bindlist) (define-key c-mode-map (kbd "C-M-i") 'flyspell-correct-wrapper)) (macroexpand-1 '(leaf-key "C-M-i" 'flyspell-correct-wrapper 'c-mode-map))) (:equal '(let* ((old (lookup-key shell-mode-map [remap backward-sentence])) (value `(shell-mode-map "<remap> <backward-sentence>" sh-beginning-of-command ,(and old (not (numberp old)) old) nil))) (leaf-safe-push value leaf-key-bindlist) (define-key shell-mode-map [remap backward-sentence] 'sh-beginning-of-command)) (macroexpand-1 '(leaf-key [remap backward-sentence] 'sh-beginning-of-command 'shell-mode-map))) (:equal '(let* ((old (lookup-key global-map [key-chord 105 106])) (value `(global-map "<key-chord> i j" undo ,(and old (not (numberp old)) old) nil))) (leaf-safe-push value leaf-key-bindlist) (define-key global-map [key-chord 105 106] 'undo)) (macroexpand-1 '(leaf-key (vector 'key-chord 105 106) 'undo nil))) (:equal '(let* ((old (lookup-key global-map [(control 120) (control 102)])) (value `(global-map "C-x C-f" undo ,(and old (not (numberp old)) old) nil))) (leaf-safe-push value leaf-key-bindlist) (define-key global-map [(control 120) (control 102)] 'undo)) (macroexpand-1 '(leaf-key [(control 120) (control 102)] 'undo)))) ((:equal '(progn nil (leaf-key "C-c p" projectile-command-map nil)) (macroexpand-1 '(leaf-key-bind-keymap "C-c p" projectile-command-map))) (:equal '(progn nil (leaf-key "C-c p" projectile-command-map 'c-mode-map)) (macroexpand-1 '(leaf-key-bind-keymap "C-c p" projectile-command-map 'c-mode-map))) (:equal '(progn (require 'projectile) (leaf-key "C-c p" projectile-command-map 'c-mode-map)) (macroexpand-1 '(leaf-key-bind-keymap "C-c p" projectile-command-map 'c-mode-map 'projectile))) (:equal '(progn nil (leaf-key [remap backward-sentence] projectile-command-map 'shell-mode-map)) (macroexpand-1 '(leaf-key-bind-keymap [remap backward-sentence] projectile-command-map 'shell-mode-map)))) version<= "24.4" ((:equal (leaf-key-describe-bindings) (leaf-key-describe-bindings))) ((:equal '(leaf-key "C-M-i" 'flyspell-correct-wrapper 'leaf-key-override-global-map) (macroexpand-1 '(leaf-key* "C-M-i" 'flyspell-correct-wrapper))) (:equal '(leaf-key [remap backward-sentence] 'sh-beginning-of-command 'leaf-key-override-global-map) (macroexpand-1 '(leaf-key* [remap backward-sentence] 'sh-beginning-of-command)))) ((:equal '(leaf-key "C-M-i" #'flyspell-correct-wrapper) (macroexpand-1 '(leaf-keys ("C-M-i" . flyspell-correct-wrapper)))) (:equal '(leaf-key "C-M-i" #'flyspell-correct-wrapper) (macroexpand-1 '(leaf-keys (("C-M-i" . flyspell-correct-wrapper))))) (:equal '(progn (leaf-key "C-c C-n" #'go-run) (leaf-key "C-c ." #'go-test-current-test)) (macroexpand-1 '(leaf-keys (("C-c C-n" . go-run) ("C-c ." . go-test-current-test))))) (:equal '(progn (leaf-key "C-M-i" #'flyspell-correct-wrapper 'go-mode-map)) (macroexpand-1 '(leaf-keys (:go-mode-map ("C-M-i" . flyspell-correct-wrapper))))) (:equal '(progn (leaf-key "C-c C-n" #'go-run 'go-mode-map) (leaf-key "C-c ." #'go-test-current-test 'go-mode-map)) (macroexpand-1 '(leaf-keys (:go-mode-map ("C-c C-n" . go-run) ("C-c ." . go-test-current-test))))) (:equal '(progn (leaf-key "C-c C-n" #'go-run 'go-mode-map) (leaf-key "C-c ." #'go-test-current-test 'go-mode-map)) (macroexpand-1 '(leaf-keys (:go-mode-map (("C-c C-n" . go-run) ("C-c ." . go-test-current-test)))))) (:equal '(eval-after-load 'go-mode '(progn (leaf-key "C-M-i" #'flyspell-correct-wrapper 'go-mode-map))) (macroexpand-1 '(leaf-keys (:go-mode-map :package go-mode ("C-M-i" . flyspell-correct-wrapper))))) (:equal '(eval-after-load 'go-mode '(progn (leaf-key "C-c C-n" #'go-run 'go-mode-map) (leaf-key "C-c ." #'go-test-current-test 'go-mode-map))) (macroexpand-1 '(leaf-keys (:go-mode-map :package go-mode (("C-c C-n" . go-run) ("C-c ." . go-test-current-test)))))) (:equal '(eval-after-load 'go-mode '(eval-after-load 'cc-mode '(progn (leaf-key "C-c C-n" #'go-run 'go-mode-map) (leaf-key "C-c ." #'go-test-current-test 'go-mode-map)))) (macroexpand-1 '(leaf-keys (:go-mode-map :package (cc-mode go-mode) (("C-c C-n" . go-run) ("C-c ." . go-test-current-test)))))) (:equal '(eval-after-load 'go-mode '(eval-after-load 'cc-mode '(progn (leaf-key "C-c C-n" #'go-run 'go-mode-map) (leaf-key "C-c ." #'go-test-current-test 'go-mode-map)))) (macroexpand-1 '(leaf-keys (:go-mode-map :package (cc-mode go-mode) (("C-c C-n" . go-run) ("C-c ." . go-test-current-test)))))) (:equal '(progn (progn (leaf-key "M-o" #'isearch-moccur 'isearch-mode-map) (leaf-key "M-O" #'isearch-moccur-all 'isearch-mode-map)) (eval-after-load 'go-mode '(eval-after-load 'cc-mode '(progn (leaf-key "C-c C-n" #'go-run 'go-mode-map) (leaf-key "C-c ." #'go-test-current-test 'go-mode-map))))) (macroexpand-1 '(leaf-keys ((:isearch-mode-map ("M-o" . isearch-moccur) ("M-O" . isearch-moccur-all)) (:go-mode-map :package (cc-mode go-mode) (("C-c C-n" . go-run) ("C-c ." . go-test-current-test))))))) (:equal '(progn (leaf-key "C-c C-n" #'go-run) (leaf-key "C-c ." #'go-test-current-test) (progn (leaf-key "M-o" #'isearch-moccur 'isearch-mode-map) (leaf-key "M-O" #'isearch-moccur-all 'isearch-mode-map)) (eval-after-load 'go-mode '(eval-after-load 'cc-mode '(progn (leaf-key "C-c C-n" #'go-run 'go-mode-map) (leaf-key "C-c ." #'go-test-current-test 'go-mode-map))))) (macroexpand-1 '(leaf-keys (("C-c C-n" . go-run) ("C-c ." . go-test-current-test) (:isearch-mode-map ("M-o" . isearch-moccur) ("M-O" . isearch-moccur-all)) (:go-mode-map :package (cc-mode go-mode) (("C-c C-n" . go-run) ("C-c ." . go-test-current-test))))))) (:equal '(progn (leaf-key [remap compile] #'go-run) (leaf-key "C-c ." #'go-test-current-test)) (macroexpand-1 '(leaf-keys (([remap compile] . go-run) ("C-c ." . go-test-current-test))))) (:equal '(progn (leaf-key (vector 'key-chord 105 106) #'undo) (leaf-key [remap compile] #'go-run) (leaf-key "C-c ." #'go-test-current-test)) (macroexpand-1 '(leaf-keys (((vector 'key-chord 105 106) . undo) ([remap compile] . go-run) ("C-c ." . go-test-current-test))))) (:equal '(eval-after-load 'go-mode '(progn (leaf-key (vector 'key-chord 105 106) #'undo 'go-mode-map) (leaf-key "C-c C-n" #'go-run 'go-mode-map) (leaf-key "C-c ." #'go-test-current-test 'go-mode-map))) (macroexpand-1 '(leaf-keys (:go-mode-map :package go-mode (((vector 'key-chord 105 106) . undo) ("C-c C-n" . go-run) ("C-c ." . go-test-current-test))))))) ((:equal '((("C-M-i" . flyspell-correct-wrapper)) (flyspell-correct-wrapper)) (leaf-keys ("C-M-i" . flyspell-correct-wrapper) flyspell)) (:equal '((("C-M-i" . flyspell-correct-wrapper)) (flyspell-correct-wrapper)) (leaf-keys (("C-M-i" . flyspell-correct-wrapper)) flyspell)) (:equal '((("C-c C-n" . go-run) ("C-c ." . go-test-current-test)) (go-run go-test-current-test)) (leaf-keys (("C-c C-n" . go-run) ("C-c ." . go-test-current-test)) go-mode)) (:equal '(((go-mode-map :package go-mode ("C-M-i" . flyspell-correct-wrapper))) (flyspell-correct-wrapper)) (leaf-keys (:go-mode-map ("C-M-i" . flyspell-correct-wrapper)) go-mode)) (:equal '(((go-mode-map :package go-mode ("C-c C-n" . go-run) ("C-c ." . go-test-current-test))) (go-run go-test-current-test)) (leaf-keys (:go-mode-map ("C-c C-n" . go-run) ("C-c ." . go-test-current-test)) go-mode)) (:equal '(((go-mode-map :package go-mode ("C-M-i" . flyspell-correct-wrapper))) (flyspell-correct-wrapper)) (leaf-keys (:go-mode-map :package go-mode ("C-M-i" . flyspell-correct-wrapper)) go-mode)) (:equal '(((go-mode-map :package go-mode ("C-c C-n" . go-run) ("C-c ." . go-test-current-test))) (go-run go-test-current-test)) (leaf-keys (:go-mode-map :package go-mode (("C-c C-n" . go-run) ("C-c ." . go-test-current-test))) go-mode)) (:equal '(((go-mode-map :package (cc-mode go-mode) ("C-c C-n" . go-run) ("C-c ." . go-test-current-test))) (go-run go-test-current-test)) (leaf-keys (:go-mode-map :package (cc-mode go-mode) (("C-c C-n" . go-run) ("C-c ." . go-test-current-test))) go-mode)) (:equal '(((go-mode-map :package (cc-mode go-mode) ("C-c C-n" . go-run) ("C-c ." . go-test-current-test))) (go-run go-test-current-test)) (leaf-keys (:go-mode-map :package (cc-mode go-mode) (("C-c C-n" . go-run) ("C-c ." . go-test-current-test))) go-mode)) (:equal '(((isearch-mode-map :package go-mode ("M-o" . isearch-moccur) ("M-O" . isearch-moccur-all)) (go-mode-map :package (cc-mode go-mode) ("C-c C-n" . go-run) ("C-c ." . go-test-current-test))) (isearch-moccur isearch-moccur-all go-run go-test-current-test)) (leaf-keys ((:isearch-mode-map ("M-o" . isearch-moccur) ("M-O" . isearch-moccur-all)) (:go-mode-map :package (cc-mode go-mode) (("C-c C-n" . go-run) ("C-c ." . go-test-current-test)))) go-mode)) (:equal '((("C-c C-n" . go-run) ("C-c ." . go-test-current-test) (isearch-mode-map :package go-mode ("M-o" . isearch-moccur) ("M-O" . isearch-moccur-all)) (go-mode-map :package (cc-mode go-mode) ("C-c C-n" . go-run) ("C-c ." . go-test-current-test))) (go-run go-test-current-test isearch-moccur isearch-moccur-all go-run go-test-current-test)) (leaf-keys (("C-c C-n" . go-run) ("C-c ." . go-test-current-test) (:isearch-mode-map ("M-o" . isearch-moccur) ("M-O" . isearch-moccur-all)) (:go-mode-map :package (cc-mode go-mode) ("C-c C-n" . go-run) ("C-c ." . go-test-current-test))) go-mode)) (:equal '((([remap compile] . go-run) ("C-c ." . go-test-current-test)) (go-run go-test-current-test)) (leaf-keys (([remap compile] . go-run) ("C-c ." . go-test-current-test)) go-mode)) (:equal '((((vector 'key-chord 105 106) . undo) ([remap compile] . go-run) ("C-c ." . go-test-current-test)) (undo go-run go-test-current-test)) (leaf-keys (((vector 'key-chord 105 106) . undo) ([remap compile] . go-run) ("C-c ." . go-test-current-test)) go-mode)) (:equal '(((go-mode-map :package go-mode ((vector 'key-chord 105 106) . undo) ("C-c C-n" . go-run) ("C-c ." . go-test-current-test))) (undo go-run go-test-current-test)) (leaf-keys (:go-mode-map :package go-mode (((vector 'key-chord 105 106) . undo) ("C-c C-n" . go-run) ("C-c ." . go-test-current-test))) go-mode))) ((:equal '(leaf-keys (:leaf-key-override-global-map ("C-M-i" . flyspell-correct-wrapper))) (macroexpand-1 '(leaf-keys* ("C-M-i" . flyspell-correct-wrapper)))) (:equal '(leaf-keys (:leaf-key-override-global-map ("C-c C-n" . go-run) ("C-c ." . go-test-current-test))) (macroexpand-1 '(leaf-keys* (("C-c C-n" . go-run) ("C-c ." . go-test-current-test)))))) ((:equal '(prog1 'leaf (unless (fboundp 'leaf) (autoload #'leaf "leaf" nil t)) (eval-after-load 'leaf '(progn (leaf-init)))) (let #4=((leaf-alias-keyword-alist '((:defer . :leaf-defer)))) (macroexpand-1 '(leaf leaf :commands leaf :config (leaf-init))))) (:equal '(prog1 'leaf (unless (fboundp 'leaf) (autoload #'leaf "leaf" nil t)) (leaf-init)) (let #4# (macroexpand-1 '(leaf leaf :defer nil :commands leaf :config (leaf-init)))))) ((:equal '(prog1 'leaf (leaf leaf-keywords :config (leaf-keywords-init)) (leaf leaf-tree :config (leaf-tree-init))) (let ((leaf-defaults 'nil)) (macroexpand-1 '(leaf leaf :config (leaf leaf-keywords :config (leaf-keywords-init)) (leaf leaf-tree :config (leaf-tree-init))))))) ((:equal '(prog1 'leaf (leaf-handler-package leaf leaf nil) (leaf leaf-keywords :config (leaf-keywords-init)) (leaf leaf-tree :config (leaf-tree-init))) (let ((leaf-defaults '(:ensure t))) (macroexpand-1 '(leaf leaf :config (leaf leaf-keywords :config (leaf-keywords-init)) (leaf leaf-tree :config (leaf-tree-init))))))) ((:equal nil (leaf-pairp nil)) (:equal nil (leaf-pairp t)) (:equal nil (leaf-pairp 'a)) (:equal nil (leaf-pairp '(nil))) (:equal nil (leaf-pairp '(a))) (:equal t (leaf-pairp '(a . t))) (:equal t (leaf-pairp '(a quote b))) (:equal t (leaf-pairp '(a \` b))) (:equal t (leaf-pairp '(a function b))) (:equal t (leaf-pairp '(a lambda (elm) elm)))) ((:equal t (leaf-pairp nil 'allow-nil)) (:equal nil (leaf-pairp t 'allow-nil)) (:equal nil (leaf-pairp 'a 'allow-nil)) (:equal t (leaf-pairp '(nil) 'allow-nil)) (:equal t (leaf-pairp '(a) 'allow-nil)) (:equal t (leaf-pairp '(a . t) 'allow-nil)) (:equal t (leaf-pairp '(a quote b) 'allow-nil)) (:equal t (leaf-pairp '(a \` b) 'allow-nil)) (:equal t (leaf-pairp '(a function b) 'allow-nil)) (:equal t (leaf-pairp '(a lambda (elm) elm)))) ((:equal '(a) (leaf-normalize-list-in-list 'a)) (:equal '(a b c) (leaf-normalize-list-in-list '(a b c))) (:equal '(a . b) (leaf-normalize-list-in-list '(a . b))) (:equal '(a) (leaf-normalize-list-in-list '(a))) (:equal '(a quote b) (leaf-normalize-list-in-list '(a quote b))) (:equal '(a quote nil) (leaf-normalize-list-in-list '(a quote nil))) (:equal '(a) (leaf-normalize-list-in-list '(a))) (:equal '((a . b) (c . d)) (leaf-normalize-list-in-list '((a . b) (c . d)))) (:equal '((a quote b) (c quote d)) (leaf-normalize-list-in-list '((a quote b) (c quote d)))) (:equal '((a) (b) (c)) (leaf-normalize-list-in-list '((a) (b) (c)))) (:equal '((a b c) . d) (leaf-normalize-list-in-list '((a b c) . d))) (:equal '((a b c) quote d) (leaf-normalize-list-in-list '((a b c) quote d)))) ((:equal '((a)) (leaf-normalize-list-in-list 'a 'dotlist)) (:equal '((a)) (leaf-normalize-list-in-list '(a) 'dotlist)) (:equal '((a) (b) (c)) (leaf-normalize-list-in-list '(a b c) 'dotlist)) (:equal '((a . b)) (leaf-normalize-list-in-list '(a . b) 'dotlist)) (:equal '((a)) (leaf-normalize-list-in-list '(a) 'dotlist)) (:equal '((a quote nil)) (leaf-normalize-list-in-list '(a quote nil) 'dotlist)) (:equal '((a quote b)) (leaf-normalize-list-in-list '(a quote b) 'dotlist)) (:equal '((a \` b)) (leaf-normalize-list-in-list '(a \` b) 'dotlist)) (:equal '((a function b)) (leaf-normalize-list-in-list '(a function b) 'dotlist)) (:equal '((a quote (b c))) (leaf-normalize-list-in-list '(a quote (b c)) 'dotlist)) (:equal '((a \` (b (\, c)))) (leaf-normalize-list-in-list '(a \` (b (\, c))) 'dotlist)) (:equal '((a lambda (v) v)) (leaf-normalize-list-in-list '(a lambda (v) v) 'dotlist)) (:equal '((a quote (lambda (v) v))) (leaf-normalize-list-in-list '(a quote (lambda (v) v)) 'dotlist)) (:equal '((a function (lambda (v) v))) (leaf-normalize-list-in-list '(a function (lambda (v) v)) 'dotlist)) (:equal '((a . b) (z . b)) (leaf-normalize-list-in-list '(a z . b) 'dotlist)) (:equal '((a) (z)) (leaf-normalize-list-in-list '(a z) 'dotlist)) (:equal '((a quote nil) (z quote nil)) (leaf-normalize-list-in-list '(a z quote nil) 'dotlist)) (:equal '((a quote b) (z quote b)) (leaf-normalize-list-in-list '(a z quote b) 'dotlist)) (:equal '((a \` b) (z \` b)) (leaf-normalize-list-in-list '(a z \` b) 'dotlist)) (:equal '((a function b) (z function b)) (leaf-normalize-list-in-list '(a z function b) 'dotlist)) (:equal '((a quote (b c)) (z quote (b c))) (leaf-normalize-list-in-list '(a z quote (b c)) 'dotlist)) (:equal '((a \` (b (\, c))) (z \` (b (\, c)))) (leaf-normalize-list-in-list '(a z \` (b (\, c))) 'dotlist)) (:equal '((a lambda (v) v) (z lambda (v) v)) (leaf-normalize-list-in-list '(a z lambda (v) v) 'dotlist)) (:equal '((a quote (lambda (v) v)) (z quote (lambda (v) v))) (leaf-normalize-list-in-list '(a z quote (lambda (v) v)) 'dotlist)) (:equal '((a function (lambda (v) v)) (z function (lambda (v) v))) (leaf-normalize-list-in-list '(a z function (lambda (v) v)) 'dotlist)) (:equal '((a) (b)) (leaf-normalize-list-in-list '((a) (b)) 'dotlist)) (:equal '((a . b) (c)) (leaf-normalize-list-in-list '((a . b) (c)) 'dotlist)) (:equal '((a . b) (c . d)) (leaf-normalize-list-in-list '((a . b) (c . d)) 'dotlist)) (:equal '((a quote b) (c quote d)) (leaf-normalize-list-in-list '((a quote b) (c quote d)) 'dotlist)) (:equal '((a quote b) (c function d)) (leaf-normalize-list-in-list '((a quote b) (c function d)) 'dotlist)) (:equal '((a quote b) (c quote (d e))) (leaf-normalize-list-in-list '((a quote b) (c quote (d e))) 'dotlist)) (:equal '((a quote b) (c \` (d (\, e)))) (leaf-normalize-list-in-list '((a quote b) (c \` (d (\, e)))) 'dotlist)) (:equal '((a quote b) (c lambda (v) v)) (leaf-normalize-list-in-list '((a quote b) (c lambda (v) v)) 'dotlist)) (:equal '((a quote b) (c quote (lambda (v) v))) (leaf-normalize-list-in-list '((a quote b) (c quote (lambda (v) v))) 'dotlist)) (:equal '((a quote b) (c function (lambda (v) v))) (leaf-normalize-list-in-list '((a quote b) (c function (lambda (v) v))) 'dotlist)) (:equal '((a) (b) (z)) (leaf-normalize-list-in-list '((a) (b z)) 'dotlist)) (:equal '((a . b) (c) (z)) (leaf-normalize-list-in-list '((a . b) (c z)) 'dotlist)) (:equal '((a . b) (c . d) (z . d)) (leaf-normalize-list-in-list '((a . b) (c z . d)) 'dotlist)) (:equal '((a quote b) (c quote d) (z quote d)) (leaf-normalize-list-in-list '((a quote b) (c z quote d)) 'dotlist)) (:equal '((a quote b) (c function d) (z function d)) (leaf-normalize-list-in-list '((a quote b) (c z function d)) 'dotlist)) (:equal '((a quote b) (c quote (d e)) (z quote (d e))) (leaf-normalize-list-in-list '((a quote b) (c z quote (d e))) 'dotlist)) (:equal '((a quote b) (c \` (d (\, e))) (z \` (d (\, e)))) (leaf-normalize-list-in-list '((a quote b) (c z \` (d (\, e)))) 'dotlist)) (:equal '((a quote b) (c lambda (v) v) (z lambda (v) v)) (leaf-normalize-list-in-list '((a quote b) (c z lambda (v) v)) 'dotlist)) (:equal '((a quote b) (c quote (lambda (v) v)) (z quote (lambda (v) v))) (leaf-normalize-list-in-list '((a quote b) (c z quote (lambda (v) v))) 'dotlist)) (:equal '((a quote b) (c function (lambda (v) v)) (z function (lambda (v) v))) (leaf-normalize-list-in-list '((a quote b) (c z function (lambda (v) v))) 'dotlist)) (:equal '((a) (b) (c)) (leaf-normalize-list-in-list '((a b c)) 'dotlist)) (:equal '((a . d) (b . d) (c . d)) (leaf-normalize-list-in-list '((a b c) . d) 'dotlist)) (:equal '((a quote d) (b quote d) (c quote d)) (leaf-normalize-list-in-list '((a b c) quote d) 'dotlist)) (:equal '((a function d) (b function d) (c function d)) (leaf-normalize-list-in-list '((a b c) function d) 'dotlist)) (:equal '((a lambda (v) v) (b lambda (v) v) (c lambda (v) v)) (leaf-normalize-list-in-list '((a b c) lambda (v) v) 'dotlist)) (:equal '((x quote y) (a) (b) (c)) (leaf-normalize-list-in-list '((x quote y) ((a b c))) 'dotlist)) (:equal '((x quote y) (a . d) (b . d) (c . d)) (leaf-normalize-list-in-list '((x quote y) ((a b c) . d)) 'dotlist)) (:equal '((x quote y) (a quote d) (b quote d) (c quote d)) (leaf-normalize-list-in-list '((x quote y) ((a b c) quote d)) 'dotlist)) (:equal '((x quote y) (a function d) (b function d) (c function d)) (leaf-normalize-list-in-list '((x quote y) ((a b c) function d)) 'dotlist)) (:equal '((x quote y) (a lambda (v) v) (b lambda (v) v) (c lambda (v) v)) (leaf-normalize-list-in-list '((x quote y) ((a b c) lambda (v) v)) 'dotlist))) ((:equal '("package-foo") (with-temp-buffer (require 'imenu) (emacs-lisp-mode) (insert (pp-to-string '(leaf package-foo))) (mapcar 'car (cdr (assoc "Leaf" (funcall imenu-create-index-function)))))) (:equal '("package-foo") (with-temp-buffer (require 'imenu) (emacs-lisp-mode) (insert (pp-to-string '(leaf package-foo :config (leaf-init)))) (mapcar 'car (cdr (assoc "Leaf" (funcall imenu-create-index-function)))))) (:equal '("package-foo") (with-temp-buffer (require 'imenu) (emacs-lisp-mode) (insert (pp-to-string '(leaf package-foo :custom (foo-package-to-enable . t) (foo-package-to-disable) (foo-package-to-symbol quote symbol) (foo-package-to-function function ignore) (foo-package-to-lambda lambda (elm) (message elm))))) (mapcar 'car (cdr (assoc "Leaf" (funcall imenu-create-index-function)))))) (:equal '("package-foo" "package-bar" "package-baz") (with-temp-buffer (require 'imenu) (emacs-lisp-mode) (insert (pp-to-string '(leaf package-foo :custom (foo-package-to-enable . t) (foo-package-to-disable) (foo-package-to-symbol quote symbol) (foo-package-to-function function ignore) (foo-package-to-lambda lambda (elm) (message elm)) :config (leaf package-bar :init (leaf package-baz))))) (mapcar 'car (cdr (assoc "Leaf" (funcall imenu-create-index-function)))))) (:equal '("scala-mode" "lsp-metals" "*scala-flycheck-integration") (with-temp-buffer (require 'imenu) (emacs-lisp-mode) (insert "(leaf scala-mode\n  :ensure t\n  :after t\n  :init\n  (defun lsp-format-before-save ()\n    (add-hook 'before-save-hook 'lsp-format-buffer nil t))\n  :hook (scala-mode-hook . lsp-format-before-save)\n  :config (leaf lsp-metals :ensure t :require t)\n  (leaf *scala-flycheck-integration))") (mapcar 'car (cdr (assoc "Leaf" (funcall imenu-create-index-function))))))) "24.3" require cl-lib ((:equal '(:a "a" :b "modify" :c "c") (let ((target '(:a "a" :b "b" :c "c"))) (setf (leaf-plist-get :b target) "modify") target)) (:equal '(:a "a" :b "c" :c "b") (let ((target '(:a "a" :b "b" :c "c"))) (cl-rotatef (leaf-plist-get :b target) (leaf-plist-get :c target)) target)) (:equal '(:d "modify" :a "a" :b "b" :c "c") (let ((target '(:a "a" :b "b" :c "c"))) (setf (leaf-plist-get :d target) "modify") target)) (:equal '(:d "b" :a "a" :b nil :c "c") (let ((target '(:a "a" :b "b" :c "c"))) (cl-rotatef (leaf-plist-get :b target) (leaf-plist-get :d target)) target)))] 5)