;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (require 'use-package-core) #@40 Build hydra name for the package NAME. (defalias 'use-package-hydra--name #[(name) "\301\302\303!P!\207" [name cl-gentemp "hydra-" symbol-name] 4 (#$ . 115)]) #@178 Normalize the ARGS to be a list hydras. It accepts a single hydra, or a list of hydras. It is optional provide a name for the hydra, if so there is a name generated from NAME. (defalias 'use-package-hydra--normalize #[(name _keyword args) "\304\211\n\203U\n@9\203\nC\244\304\211\202\305\n8;\2031\306 ! \nBC\244\304\211\202\n@<\203G\307 \n@#\244\nA\211\202\310 !\311P\312\313\"\266\202*\207" [result* name args _keyword nil 2 use-package-hydra--name use-package-hydra--normalize symbol-name " wants arguments acceptable to the `defhydra' macro, or a list of such values" error "use-package: %s"] 6 (#$ . 282)]) (defalias 'use-package-normalize/:hydra 'use-package-hydra--normalize "Normalize for the definition of one or more hydras.") #@121 Generate defhydra with NAME for `:hydra' KEYWORD. ARGS, REST, and STATE are prepared by `use-package-normalize/:hydra'. (defalias 'use-package-handler/:hydra #[(name keyword args rest state) "\304\305\"\306 \n #D\307\310\311\312\311\312C\"\"\"\207" [args name rest state mapcar #[(def) "\301B\207" [def defhydra] 2] use-package-process-keywords apply append delete nil] 8 (#$ . 1054)]) (byte-code "\300\301\302\303#\210\304\305!\207" [add-to-list use-package-keywords :hydra t provide use-package-hydra] 4)