;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (byte-code "\301\302!\210\301\303!\210\301\304!\210\305\306\307\310\211$\210\311\306!\210\312\306\"\313\306\310\314\315\316\317\320\321\322& \207" [custom-enabled-themes require bytecomp cl-lib tabulated-list custom-declare-theme use-package use-package-theme nil enable-theme remq custom-declare-group "A `use-package' declaration for simplifying your `.emacs'." :group initialization :link (custom-manual "(use-package) Top") :version "29.1"] 10)#@32 This version of `use-package'. (defconst use-package-version "2.4.5" (#$ . 534)) (byte-code "\301\300\302\303\304DD\305\306\307\310\311&\210\301\312\302\303\313DD\314\306\315\310\311&\210\301\316\302\303\317DD\320\306\321\310\311&\210\301\322\302\303\323DD\324\306\321\310\311&\210\301\325\302\303\326DD\327\306\330\310\311&\210\301\331\302\303\332DD\333\306\321\310\311&\210\301\334\302\303\335DD\336\306\321\310\311&\210\301\337\302\303\340DD\341\306\321\310\311&\210\301\342\302\303\343DD\344\306\345\310\311&\210\301\346\302\303\347DD\350\306\351\352\353\354\355\356\357\360\"\361\"BBB\362BBD\310\311&\210\301\363\302\303\364DD\365\306\366\310\311&\210\301\367\302\303\370DD\371\306\372\310\311&\210\301\373\302\303\374DD\375\306\321\310\311&\210\301\376\302\303\377DD\201@\306\321\310\311&\210\301\201A\302\303\201BDD\201C\306\201D\310\311&\210\301\201E\302\303\201FDD\201G\306\321\201H\201I\310\311& \207" [use-package-keywords custom-declare-variable funcall function #[0 "\300\207" [(:disabled :load-path :requires :defines :functions :preface :if :when :unless :no-require :catch :after :custom :custom-face :bind :bind* :bind-keymap :bind-keymap* :interpreter :mode :magic :magic-fallback :hook :commands :autoload :init :defer :demand :load :config)] 1 #1=""] "The set of valid keywords, in the order they are processed in.\nThe order of this list is *very important*, so it is only\nadvisable to insert new keywords, never to delete or reorder\nthem. Further, attention should be paid to the NEWS.md if the\ndefault order ever changes, as they may have subtle effects on\nthe semantics of `use-package' declarations and may necessitate\nchanging where you had inserted a new keyword earlier.\n\nNote that `:disabled' is special in this list, as it causes\nnothing at all to happen, even if the rest of the `use-package'\ndeclaration is incorrect." :type (repeat symbol) :group use-package use-package-deferring-keywords #[0 "\300\207" [(:bind-keymap :bind-keymap* :commands :autoload)] 1 #1#] "Unless `:demand' is used, keywords in this list imply deferred loading.\nThe reason keywords like `:hook' are not in this list is that\nthey only imply deferred loading if they reference actual\nfunction symbols that can be autoloaded from the module; whereas\nthe default keywords provided here always defer loading unless\notherwise requested." (repeat symbol) use-package-ignore-unknown-keywords #[0 "\300\207" [nil] 1 #1#] "If non-nil, warn instead of signaling error for unknown keywords.\nThe unknown keyword and its associated arguments will be ignored\nin the `use-package' expansion." boolean use-package-use-theme #[0 "\300\207" [t] 1 #1#] "If non-nil, use a custom theme to avoid saving :custom\nvariables twice (once in the Custom file, once in the use-package\ncall)." use-package-verbose #[0 "\300\207" [nil] 1 #1#] "Whether to report about loading and configuration details.\nIf you customize this, then you should require the `use-package'\nfeature in files that use `use-package', even if these files only\ncontain compiled expansions of the macros. If you don't do so,\nthen the expanded macros do their job silently." (choice (const :tag "Quiet, without catching errors" errors) (const :tag "Quiet" nil) (const :tag "Verbose" t) (const :tag "Debug" debug)) use-package-check-before-init #[0 "\300\207" [nil] 1 #1#] "If non-nil, check that package exists before executing its `:init' block.\nThis check is performed by calling `locate-library'." use-package-always-defer #[0 "\300\207" [nil] 1 #1#] "If non-nil, assume `:defer t' unless `:demand' is used.\nSee also `use-package-defaults', which uses this value." use-package-always-demand #[0 "\300\207" [nil] 1 #1#] "If non-nil, assume `:demand t' unless `:defer' is used.\nSee also `use-package-defaults', which uses this value." use-package-defaults #[0 "\300\207" [((:config '(t) t) (:init nil t) (:catch t (lambda (name args) (not use-package-expand-minimally))) (:defer use-package-always-defer (lambda (name args) (and use-package-always-defer (not (plist-member args :defer)) (not (plist-member args :demand))))) (:demand use-package-always-demand (lambda (name args) (and use-package-always-demand (not (plist-member args :defer)) (not (plist-member args :demand))))))] 1 #1#] "Default values for specified `use-package' keywords.\nEach entry in the alist is a list of three elements:\nThe first element is the `use-package' keyword.\n\nThe second is a form that can be evaluated to get the default\nvalue. It can also be a function that will receive the name of\nthe `use-package' declaration and the keyword plist given to\n`use-package', in normalized form. The value it returns should\nalso be in normalized form (which is sometimes *not* what one\nwould normally write in a `use-package' declaration, so use\ncaution).\n\nThe third element is a form that can be evaluated to determine\nwhether or not to assign a default value; if it evaluates to nil,\nthen the default value is not assigned even if the keyword is not\npresent in the `use-package' form. This third element may also be\na function, in which case it receives the name of the package (as\na symbol) and a list of keywords (in normalized form). It should\nreturn nil or non-nil depending on whether defaulting should be\nattempted." (repeat (list (symbol :tag "Keyword") (choice :tag "Default value" sexp function) (choice :tag "Enable if non-nil" sexp function))) use-package-merge-key-alist #[0 "\300\207" [((:if lambda (new old) `(and ,new ,old)) (:after lambda (new old) `(:all ,new ,old)) (:defer lambda (new old) old) (:bind lambda (new old) (append new (list :break) old)))] 1 #1#] "Alist of keys and the functions used to merge multiple values.\nFor example, if the following form is provided:\n\n (use-package foo :if pred1 :if pred2)\n\nThen based on the above defaults, the merged result will be:\n\n (use-package foo :if (and pred1 pred2))\n\nThis is done so that, at the stage of invoking handlers, each\nhandler is called only once." repeat cons choice :tag "Keyword" append mapcar #[257 "\300D\207" [const] 3 "\n\n(fn K)"] ((const :tag "Any" t)) (function) use-package-hook-name-suffix #[0 "\300\207" ["-hook"] 1 #1#] "Text append to the name of hooks mentioned by :hook.\nSet to nil if you don't want this to happen; it's only a\nconvenience." (choice string (const :tag "No suffix" nil)) use-package-minimum-reported-time #[0 "\300\207" [0.1] 1 #1#] "Minimal load time that will be reported.\nNote that `use-package-verbose' has to be set to a non-nil value\nfor anything to be reported at all." number use-package-inject-hooks #[0 "\300\207" [nil] 1 #1#] "If non-nil, add hooks to the `:init' and `:config' sections.\nIn particular, for a given package `foo', the following hooks\nbecome available:\n\n `use-package--foo--pre-init-hook'\n `use-package--foo--post-init-hook'\n `use-package--foo--pre-config-hook'\n `use-package--foo--post-config-hook'\n\nThis way, you can add to these hooks before evaluation of a\n`use-package` declaration, and exercise some control over what\nhappens.\n\nNOTE: These hooks are run even if the user does not specify an\n`:init' or `:config' block, and they will happen at the regular\ntime when initialization and configuration would have been\nperformed.\n\nNOTE: If the `pre-init' hook return a nil value, that block's\nuser-supplied configuration is not evaluated, so be certain to\nreturn t if you only wish to add behavior to what the user had\nspecified." use-package-expand-minimally #[0 "\300\207" [nil] 1 #1#] "If non-nil, make the expanded code as minimal as possible.\nThis disables:\n\n - Printing to the *Messages* buffer of slowly-evaluating forms\n - Capturing of load errors (normally redisplayed as warnings)\n - Conditional loading of packages (load failures become errors)\n\nThe main advantage to this variable is that, if you know your\nconfiguration works, it will make the byte-compiled file as\nminimal as possible. It can also help with reading macro-expanded\ndefinitions, to understand the main intent of what's happening." use-package-form-regexp-eval #[0 "\300\301\302BB\207" [concat "^\\s-*(\\(\\(?:requir\\|use-packag\\)e\\)\\s-+\\(" ((or (bound-and-true-p lisp-mode-symbol-regexp) "\\(?:\\sw\\|\\s_\\|\\\\.\\)+") "\\)")] 3 #1#] "Sexp providing regexp for finding `use-package' forms in user files.\nThis is used by `use-package-jump-to-package-form' and\n`use-package-enable-imenu-support'." sexp use-package-enable-imenu-support #[0 "\300\207" [nil] 1 #1#] "If non-nil, cause imenu to see `use-package' declarations.\nThis is done by adjusting `lisp-imenu-generic-expression' to\ninclude support for finding `use-package' and `require' forms.\n\nMust be set before loading `use-package'." :set #[514 "\301\302\203\303\304\305\306\307BBBE\202!\310\311\312\305\306\313BBB\314BBE\"\210\315\"\207" [use-package-form-regexp-eval eval-after-load lisp-mode add-to-list 'lisp-imenu-generic-expression list "Packages" (2) setq lisp-imenu-generic-expression remove (2) (lisp-imenu-generic-expression) set-default] 11 "\n\n(fn SYM VALUE)"]] 14) (defconst use-package-font-lock-keywords '(("(\\(use-package\\)\\_>[ ']*\\(\\(?:\\sw\\|\\s_\\)+\\)?" (1 font-lock-keyword-face) (2 font-lock-constant-face nil t)))) (byte-code "\301\302\"\210\303\304\305\306\307DD\310\311\312\313\314&\207" [use-package-font-lock-keywords font-lock-add-keywords emacs-lisp-mode custom-declare-variable use-package-compute-statistics funcall function #[0 "\300\207" [nil] 1 ""] "If non-nil, compute statistics concerned `use-package' declarations.\nView the statistical report using `use-package-report'. Note that\nif this option is enabled, you must require `use-package' in your\nuser init file at loadup time, or you will see errors concerning\nundefined variables." :type boolean :group use-package] 8) (defvar use-package-statistics (make-hash-table))#@80 Report MSG as an error, so the user knows it came from this package. (fn MSG) (defalias 'use-package-error #[257 "\300\301\"\207" [error "use-package: %s"] 4 (#$ . 10457)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put use-package-error speed -1 put byte-optimizer byte-compile-inline-expand] 5)#@91 Delete all empty lists from ELEMS (nil or (list nil)), and append them. (fn &rest ELEMS) (defalias 'use-package-concat #[128 "\300\301\302\303\302\303C\"\"\"\207" [apply append delete nil] 8 (#$ . 10780)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put use-package-concat speed -1 put byte-optimizer byte-compile-inline-expand] 5)#@12 (fn SYM) (defalias 'use-package-non-nil-symbolp #[257 "\211\205\2119\207" [] 2 (#$ . 11138)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put use-package-non-nil-symbolp speed -1 put byte-optimizer byte-compile-inline-expand] 5)#@126 If STRING-OR-SYMBOL is already a symbol, return it. Otherwise convert it to a symbol and return that. (fn STRING-OR-SYMBOL) (defalias 'use-package-as-symbol #[257 "\2119\203\207\300!\207" [intern] 3 (#$ . 11395)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put use-package-as-symbol speed -1 put byte-optimizer byte-compile-inline-expand] 5)#@126 If STRING-OR-SYMBOL is already a string, return it. Otherwise convert it to a string and return that. (fn STRING-OR-SYMBOL) (defalias 'use-package-as-string #[257 "\211;\203\207\300!\207" [symbol-name] 3 (#$ . 11766)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put use-package-as-string speed -1 put byte-optimizer byte-compile-inline-expand] 5)#@52 Return t if RE is some regexp-like thing. (fn RE) (defalias 'use-package-regex-p #[257 "\211<\203\f\211@\300=\206\211;\207" [rx] 3 (#$ . 12141)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put use-package-regex-p speed -1 put byte-optimizer byte-compile-inline-expand] 5)#@79 Given some regexp-like thing in RE, resolve to a regular expression. (fn RE) (defalias 'use-package-normalize-regex #[257 "\211<\203\211@\300=\203\301!\207\211;\203\207\302\303\"\207" [rx eval error "Not recognized as regular expression: %s"] 4 (#$ . 12441)])#@162 Return non-nil if X is a cons satisfying the given predicates. CAR-PRED and CDR-PRED are applied to X's `car' and `cdr', respectively. (fn X CAR-PRED CDR-PRED) (defalias 'use-package-is-pair #[771 ":\205@!\205\211A!\207" [] 5 (#$ . 12716)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put use-package-is-pair speed -1 put byte-optimizer byte-compile-inline-expand] 5)#@160 If STRING-OR-SYMBOL ends in `-mode' (or its name does), return it as a symbol. Otherwise, return it as a symbol with `-mode' appended. (fn STRING-OR-SYMBOL) (defalias 'use-package-as-mode #[257 "\211\211;\204 \300!\262\301\302\303\"\203\202\304P!\207" [symbol-name intern string-match "-mode\\'" "-mode"] 6 (#$ . 13117)])#@205 Return a form which will load or require NAME. It does the right thing no matter if NAME is a string or symbol. Argument NOERROR means to indicate load failures as a warning. (fn NAME &optional NOERROR) (defalias 'use-package-load-name #[513 ";\203\n\300E\207\301\302D\303F\207" [load require quote nil] 6 (#$ . 13457)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put use-package-load-name speed -1 put byte-optimizer byte-compile-inline-expand] 5)#@170 Wrap pre/post hook injections around the given BODY for KEYWORD. The BODY is a list of forms, so `((foo))' if only `foo' is being called. (fn NAME-STRING KEYWORD BODY) (defalias 'use-package-hook-injector #[771 "\204\207\301\302\"\303\304O\305\306\307\310\311\312\313\260!DD\314\315\307\310\311 \316\n\313\260!DDC\"BBC\207" [use-package-inject-hooks format "%s" 1 nil when run-hook-with-args-until-failure quote intern "use-package--" "--pre-" "-hook" append run-hooks "--post-"] 16 (#$ . 13938)])#@86 BODY is a list of forms, so `((foo))' if only `foo' is being called. (fn TEXT BODY) (defalias 'use-package-with-elapsed-timer #[514 "\203\207\303\304!\305\301!\203D \203D\306\307BC\310\311E\312\313!\306\314\315\316\317\nEDDC\320\321\314\nE\310\322 \323BBB\310\324EFEEFC\207\207" [use-package-expand-minimally use-package-verbose use-package-minimum-reported-time make-symbol "now" boundp let ((current-time)) message "%s..." prog1 macroexp-progn elapsed float-time time-subtract (current-time) if > "%s...done (%.3fs)" (elapsed) "%s...done"] 16 (#$ . 14455)]) (byte-code "\300\301\302\303#\304\301\302\303#\207" [function-put use-package-with-elapsed-timer lisp-indent-function 1 put] 5)#@39 (fn NAME &optional NO-REQUIRE BODY) (defalias 'use-package-require #[769 "\2032?\205#\301;\203\302E\266\202\202\"\303\304D\301F\266\202CD\305\306\307\301\307\301C\"\"\"\207\2037\207\310\311\312\"\313\314\315;\203O\302E\266\202\202X\303\304D\301F\266\202D\316\317\311\320\304 DE\321BBBBBBC\"\207" [use-package-expand-minimally nil load require quote apply append delete use-package-with-elapsed-timer format "Loading package %s" if not t display-warning 'use-package "Cannot load %s" (:error)] 13 (#$ . 15164)])#@97 Delete PROPERTY from PLIST. This is in contrast to merely setting it to 0. (fn PLIST PROPERTY) (defalias 'use-package-plist-delete #[514 "\300\203@=\204\301@A@#\262AA\262\202\207" [nil plist-put] 7 (#$ . 15712)])#@97 Delete PROPERTY from PLIST. This is in contrast to merely setting it to 0. (fn PLIST PROPERTY) (defalias 'use-package-plist-delete-first #[514 "\300\203+@=\203\211AA\244\262\300\262\202\211@A@D\244\262AA\262\202\207" [nil] 6 (#$ . 15946)])#@93 Add a VALUE for PROPERTY to PLIST, if it does not already exist. (fn PLIST PROPERTY VALUE) (defalias 'use-package-plist-maybe-put #[771 "\300\"\203 \207\301#\207" [plist-member plist-put] 7 (#$ . 16210)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put use-package-plist-maybe-put speed -1 put byte-optimizer byte-compile-inline-expand] 5)#@87 Cons VALUE onto the head of the list at PROPERTY in PLIST. (fn PLIST PROPERTY VALUE) (defalias 'use-package-plist-cons #[771 "\300\301\"B#\207" [plist-put plist-get] 10 (#$ . 16581)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put use-package-plist-cons speed -1 put byte-optimizer byte-compile-inline-expand] 5)#@90 Append VALUE onto the front of the list at PROPERTY in PLIST. (fn PLIST PROPERTY VALUE) (defalias 'use-package-plist-append #[771 "\300\301\302\"\"#\207" [plist-put append plist-get] 11 (#$ . 16926)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put use-package-plist-append speed -1 put byte-optimizer byte-compile-inline-expand] 5)#@16 (fn PRED XS) (defalias 'use-package-split-list #[514 "\300C\300C\300\211\2036\211@\203C\244\210\202/!\203*\301\262C\244\210\202/C\244\210A\266\202\202\210AAB\207" [nil t] 9 (#$ . 17290)])#@16 (fn KEY LST) (defalias 'use-package-split-list-at-keys #[514 "\211\205\300\301\302\"\"\211@\303AA\"B\262\207" [use-package-split-list apply-partially eq use-package-split-list-at-keys] 7 (#$ . 17508)])#@16 (fn KEYWORD) (defalias 'use-package-keyword-index #[257 "\3012*\302\303:\203&@\262\211=\203\304\301\"\210T\262A\262\202\266\3030\207" [use-package-keywords --cl-block-outer-- 0 nil throw] 7 (#$ . 17724)])#@202 Given a pseudo-plist, normalize it to a regular plist. The normalized key/value pairs from input are added to PLIST, extending any keys already present. (fn NAME INPUT &optional PLIST MERGE-FUNCTION) (defalias 'use-package-normalize-plist #[1026 "\204\207@\302\303A\"\211@A\304\305\306!P!\307!\205&\211 #\310\311\">\203^\312   $\262 \313 \314\f \"\203[\n\n\315\"#\202\\#\207 \203q\316\317\"\210\312   $\207\211\320\321\"\207" [use-package-keywords use-package-ignore-unknown-keywords use-package-split-list keywordp intern-soft "use-package-normalize/" symbol-name functionp format "Unrecognized keyword: %s" use-package-normalize-plist plist-put plist-member plist-get display-warning use-package error "use-package: %s"] 20 (#$ . 17954)])#@18 (fn NAME ARGS) (defalias 'use-package-unalias-keywords #[514 "\300\301\302#\262\303\304\305\"\211\262\203%\306\305\"\262\307\301\310DD\"\262\202\210\207" [cl-nsubstitute :if :when nil plist-get :unless use-package-plist-delete-first append not] 8 (#$ . 18749)])#@20 (fn KEY NEW OLD) (defalias 'use-package-merge-keys #[771 "\236\211\203 \211A\"\207\301\"\207" [use-package-merge-key-alist append] 7 (#$ . 19030)])#@14 (fn PLIST) (defalias 'use-package-sort-keywords #[257 "\300\203@A@BB\262AA\262\202\300\301\302\"\237\211\2033\211@\211@ABB\262A\266\202\202\210\207" [nil sort #[514 "\300@!\300@!W\207" [use-package-keyword-index] 5 "\n\n(fn L R)"]] 8 (#$ . 19192)])#@18 (fn NAME ARGS) (defalias 'use-package-normalize-keywords #[514 ";\203 \304!\202\f\305!\306\307\"\262\310\"\262\311\312\313$\262\211\203\203\211@\3148\211\203@\315!\203@\211\"\202C\316!\262\203|@A@\211\203a\315!\203a\211  \"\202d\316!\262\317\"\203s\266\203\202z\320#\266\203\262A\266\202\202$\210\312\203\273\321@!\203\263\322\323\305@!P!\315!\203\262\324\325\326@A@#\"\"\262\210AA\262\202\206\211\203\317\320\327\330\324\331 \327\"\"!#\262\266\332\301!\203? \203?\333\325\334\331\335\"\"\325\336\337\"\331\340\"\"\341\342\343\344\"\n\345=\205\346\343\347\n\"D\331 \350\"?\205\351\352\353\fDD\354 \355BBEFDCE\356\324\357\312\357\312C\"\"\"\262\320\324\331\"\"#\266\203\262\317\360\"\204\202\317\361\"\204\202\331\362\"\363\232\204\202\211;\204a\305!\262C\325\364\331\362\"\"\232\204\202\365\366\325\367\317\" \"\"\203\202\324\370\"\262\317\362\"\203\226\317\350\"\203\226\371\350\"\262\317\362\"\204\265\317\361\"\204\265\317\350\"\204\265\324\362CD\"\262\372!\207" [use-package-defaults byte-compile-current-file use-package-verbose use-package-deferring-keywords intern symbol-name delq elisp--witness--lisp use-package-unalias-keywords use-package-normalize-plist nil use-package-merge-keys 2 functionp eval plist-member plist-put keywordp intern-soft "use-package-autoloads/" append mapcar car :commands delete-dups plist-get boundp :preface #[257 "\300D\207" [defvar] 3 "\n\n(fn VAR)"] :defines make-closure #[257 "\301\300E\207" [V0 declare-function] 4 "\n\n(fn FN)"] :functions eval-when-compile with-demoted-errors format "Cannot load %s: %%S" debug message "Compiling package %s" :no-require unless featurep quote load (nil t) apply delete :demand :defer :load (t) use-package-as-string cl-some identity apply-partially (:defer t) use-package-plist-delete use-package-sort-keywords] 17 (#$ . 19469)])#@614 Process the next keyword in the free-form property list PLIST. The values in the PLIST have each been normalized by the function use-package-normalize/KEYWORD (minus the colon). STATE is a property list that the function may modify and/or query. This is useful if a package defines multiple keywords and wishes them to have some kind of stateful interaction. Unless the KEYWORD being processed intends to ignore remaining keywords, it must call this function recursively, passing in the plist with its keyword and argument removed, and passing in the next value for the STATE. (fn NAME PLIST &optional STATE) (defalias 'use-package-process-keywords #[770 "\205C@A@AA\300!\204\301\302\"\303\304\"\266\305\306!P\307!\310!\2037\211\n%\207\301\311\"\303\304\"\262\266\205\207" [keywordp format "%s is not a keyword" error "use-package: %s" "use-package-handler/" symbol-name intern functionp "Keyword handler not defined: %s"] 14 (#$ . 21430)]) (byte-code "\300\301\302\303#\304\301\302\305#\207" [function-put use-package-process-keywords lisp-indent-function 1 put defun] 5)#@426 Insert ELEM into the list XS. If ANCHOR is also a keyword, place the new KEYWORD before that one. If AFTER is non-nil, insert KEYWORD either at the end of the keywords list, or after the ANCHOR if one has been provided. If TEST is non-nil, it is the test used to compare ELEM to list elements. The default is `eq'. The modified list is returned. The original list is not modified. (fn ELEM XS &optional ANCHOR AFTER TEST) (defalias 'use-package-list-insert #[1282 "\300\211\203@\211@\206 \301\"\2034\203&\211B\262B\262\2029B\262\211B\262\2029\211B\262A\266\202\202\210\203H\211\237\207\203QB\237\207\237B\207" [nil eq] 11 (#$ . 22540)])#@86 Call F on the first member of ARGS if it has exactly one element. (fn LABEL ARGS F) (defalias 'use-package-only-one #[771 "<\203A<\203G\300U\203\211@\"\207\301P\302\303\"\207" [1 " wants exactly one argument" error "use-package: %s"] 7 (#$ . 23222)]) (byte-code "\300\301\302\303#\304\301\302\305#\207" [function-put use-package-only-one lisp-indent-function 1 put defun] 5)#@182 Call F on the first element of ARGS if it has one element, or all of ARGS. If ALLOW-EMPTY is non-nil, it's OK for ARGS to be an empty list. (fn LABEL ARGS F &optional ALLOW-EMPTY) (defalias 'use-package-as-one #[1027 "\203<\203%A<\202\211\203%G\300U\203 @\"\207\"\207\301P\302\303\"\207" [1 " wants a non-empty list" error "use-package: %s"] 8 (#$ . 23617)]) (byte-code "\300\301\302\303#\304\301\302\305#\207" [function-put use-package-as-one lisp-indent-function 1 put defun] 5)#@93 Ensure the macro-expansion of F applied to ARG evaluates ARG no more than once. (fn F ARG) (defalias 'use-package-memoize #[514 "\300\301!\300\302!\300\303!\304\305BB\304\306BB\304\307\310\311\312\n\n\313 \314\257FEDE\315DC!BBB\207" [cl-gentemp "use-package--loaded" "use-package--result" "use-package--next" defvar (nil) (nil) function lambda nil if setq t funcall] 20 (#$ . 24123)])#@87 Normalize the Lisp value given by ARG. The argument LABEL is ignored. (fn LABEL ARG) (defalias 'use-package-normalize-value #[514 "\211\300\267\202\n\301\207\302\207\211\211\205\2119\262\203\303\304DD\207\305!\203(\306\307DD\207\207" [#s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nil 6 t 8)) nil t symbol-value quote functionp funcall function] 5 (#$ . 24528)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put use-package-normalize-value speed -1 put byte-optimizer byte-compile-inline-expand] 5)#@65 Normalize a list of symbols. (fn LABEL ARG &optional RECURSED) (defalias 'use-package-normalize-symbols #[770 "\211\205\2119\262\203C\207\211\204&<\203&A<\203&\300\301\302\"\"\207\303P\304\305\"\207" [mapcar make-closure #[257 "\301\300\302#@\207" [V0 use-package-normalize-symbols t] 5 "\n\n(fn X)"] " wants a symbol, or list of symbols" error "use-package: %s"] 7 (#$ . 25100)])#@26 (fn NAME KEYWORD ARGS) (defalias 'use-package-normalize-symlist #[771 "\300\301!\302#\207" [use-package-as-one symbol-name use-package-normalize-symbols] 7 (#$ . 25504)])#@46 Normalize a list of symbols. (fn LABEL ARG) (defalias 'use-package-normalize-recursive-symbols #[514 "\211\211\205\2119\262\203 \207\211<\203 \211A<\203 \300\301\302\"\"\207\303P\304\305\"\207" [mapcar make-closure #[257 "\301\300\"\207" [V0 use-package-normalize-recursive-symbols] 4 "\n\n(fn X)"] " wants a symbol, or nested list of symbols" error "use-package: %s"] 6 (#$ . 25684)])#@26 (fn NAME KEYWORD ARGS) (defalias 'use-package-normalize-recursive-symlist #[771 "\300\301!\302#\207" [use-package-as-one symbol-name use-package-normalize-recursive-symbols] 7 (#$ . 26087)])#@74 Normalize a list of filesystem paths. (fn LABEL ARG &optional RECURSED) (defalias 'use-package-normalize-paths #[770 "\203!\211\205 \2119\262\204\301!\203!\302\"\303\304!\"\207;\2037\305!\2030\2024\306\"\211C\207\211\204N<\203NA<\203N\307\310\311\"\"\207\312P\313\314\"\207" [user-emacs-directory functionp #[514 "\211\300\267\202\n\301\207\302\207\211\211\205\2119\262\203\303\304DD\207\305!\203(\306\307DD\207\207" [#s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nil 6 t 8)) nil t symbol-value quote functionp funcall function] 5 "Normalize the Lisp value given by ARG.\nThe argument LABEL is ignored.\n\n(fn LABEL ARG)"] use-package-normalize-paths eval file-name-absolute-p expand-file-name mapcar make-closure #[257 "\301\300\302#@\207" [V0 use-package-normalize-paths t] 5 "\n\n(fn X)"] " wants a directory path, or list of paths" error "use-package: %s"] 8 (#$ . 26287)])#@26 (fn NAME KEYWORD ARGS) (defalias 'use-package-normalize-predicate #[771 "\211\204\300\207\301\302!\303#\207" [t use-package-only-one symbol-name use-package-normalize-value] 7 (#$ . 27252)])#@71 Given a list of forms, return it wrapped in `progn'. (fn LABEL ARGS) (defalias 'use-package-normalize-form #[514 "\211@<\204\300P\301\302\"\266\303\304\"\207" [" wants a sexp or list of sexps" error "use-package: %s" mapcar #[257 "\211:\203\211@\300>\203\301!\207\207" [(use-package bind-key bind-key* unbind-key bind-keys bind-keys*) macroexpand] 3 "\n\n(fn FORM)"]] 6 (#$ . 27454)])#@26 (fn NAME KEYWORD ARGS) (defalias 'use-package-normalize-forms #[771 "\300\301!\"\207" [use-package-normalize-form symbol-name] 6 (#$ . 27856)])#@219 Normalize a list of pairs. KEY-PRED and VAL-PRED are predicates recognizing valid keys and values, respectively. If RECURSED is non-nil, recurse into sublists. (fn KEY-PRED VAL-PRED NAME LABEL ARG &optional RECURSED) (defalias 'use-package-normalize-pairs #[1541 "!\203\2119\204\300!\262BC\207:\205*@!\205*\211A!\266\203\2032C\207\211\204T<\203TA<\203T\301C\302\303\304   &\"\207\207" [intern nil mapcar make-closure #[257 "\305\304\303\302\301\306&\211<\203\307\300\242!\204\211@\202\211\262\300\240\210\207" [V0 V1 V2 V3 V4 use-package-normalize-pairs t keywordp] 8 "\n\n(fn X)"]] 15 (#$ . 28010)])#@275 A predicate that recognizes functional constructions: nil sym \='sym (quote sym) #\='sym (function sym) (lambda () ...) \='(lambda () ...) (quote (lambda () ...)) #\='(lambda () ...) (function (lambda () ...)) (fn V &optional BINDING ADDITIONAL-PRED) (defalias 'use-package-recognize-function #[769 "\203 9\202\211\205\2119\262\206F<\203/@\300>\203/A@\211\205*\2119\262\206F\2039\301!\202<\302!\206F\211\205F\211!\207" ['function commandp functionp] 5 (#$ . 28665)])#@97 Reduce functional constructions to one of two normal forms: sym #\='(lambda () ...) (fn V) (defalias 'use-package-normalize-function #[257 "\2119\203\207\211<\203$\211@\300>\203$\211A@\211\205\2119\262\203$\211A@\207\211:\2031\211@\301=\2031\207\211<\203J\211@\302>\203J\211A@@\301=\203J\211A@\207\207" ['function lambda 'function] 3 (#$ . 29186)])#@81 Map over ARGS of the form ((_ . F) ...), normalizing functional F's. (fn ARGS) (defalias 'use-package-normalize-commands #[257 "\300\301\"\207" [mapcar #[257 "\211:\203 \211@\300A!B\207\207" [use-package-normalize-function] 4 "\n\n(fn X)"]] 4 (#$ . 29558)])#@99 Normalize arguments for keywords which add regexp/mode pairs to an alist. (fn NAME KEYWORD ARGS) (defalias 'use-package-normalize-mode #[771 "\300\301!\302\303\304\305 $#\207" [use-package-as-one symbol-name apply-partially use-package-normalize-pairs use-package-regex-p use-package-recognize-function] 11 (#$ . 29825)])#@26 (fn NAME KEYWORD ARGS) (defalias 'use-package-autoloads-mode #[771 "\300\301\302\303\"\"\207" [mapcar #[257 "\211A\300B\207" [command] 3 "\n\n(fn X)"] cl-remove-if-not #[257 "\211:\205\211A\211\205 \2119\262\207" [] 3 "\n\n(fn X)"]] 8 (#$ . 30156)])#@91 Handle keywords which add regexp/mode pairs to an alist. (fn NAME ALIST ARGS REST STATE) (defalias 'use-package-handle-mode #[1285 "\300#\301\302\303\"\304!\"D\305\306\307\310\307\310C\"\"\"\207" [use-package-process-keywords mapcar make-closure #[257 "\301\302\300D\302\303@!ABDE\207" [V0 add-to-list quote use-package-normalize-regex] 6 "\n\n(fn THING)"] use-package-normalize-commands apply append delete nil] 13 (#$ . 30418)])#@72 Reset statistics for `use-package'. See also `use-package-statistics'. (defalias 'use-package-reset-statistics #[0 "\301 \211\207" [use-package-statistics make-hash-table] 2 (#$ . 30866) nil])#@74 Return loading configuration status of PACKAGE statistics. (fn PACKAGE) (defalias 'use-package-statistics-status #[257 "\300\301\"\203 \302\207\300\303\"\203\304\207\300\305\"\203\306\207\300\307\"\205#\310\207" [gethash :config "Configured" :init "Initialized" :preface "Prefaced" :use-package "Declared"] 4 (#$ . 31065)])#@101 Return the date when PACKAGE's status last changed. The date is returned as a string. (fn PACKAGE) (defalias 'use-package-statistics-last-event #[257 "\300\301\"\206\300\302\"\206\300\303\"\206\300\304\"\207" [gethash :config :init :preface :use-package] 4 (#$ . 31406)])#@60 Return the time is took for PACKAGE to load. (fn PACKAGE) (defalias 'use-package-statistics-time #[257 "\300\301\302\303\304#!\301\302\305\306#!\301\302\307\310#!\301\302\311\312#!$\207" [+ float-time gethash :config-secs (0 0 0 0) :init-secs (0 0 0 0) :preface-secs (0 0 0 0) :use-package-secs (0 0 0 0)] 10 (#$ . 31694)])#@132 Return information about PACKAGE. The information is formatted in a way suitable for `use-package-statistics-mode'. (fn PACKAGE) (defalias 'use-package-statistics-convert #[257 "\301\"\302\303!\304!\305\306\307!\"\310\311\312!\"$D\207" [use-package-statistics gethash vector symbol-name use-package-statistics-status format-time-string "%H:%M:%S.%6N" use-package-statistics-last-event format "%.2f" use-package-statistics-time] 11 (#$ . 32031)])#@387 Show current statistics gathered about `use-package' declarations. In the table that's generated, the status field has the following meaning: Configured :config has been processed (the package is loaded!) Initialized :init has been processed (load status unknown) Prefaced :preface has been processed Declared the use-package declaration was seen (defalias 'use-package-report #[0 "r\302\303!q\210\304\305\306C\307\310\311\"\"\210\211\242\266\202\"\312 \210\313 \210\314p!)\207" [use-package-statistics tabulated-list-entries get-buffer-create "*use-package statistics*" mapcar use-package-statistics-convert nil maphash make-closure #[514 "\300\300\242B\240\207" [V0] 5 "\n\n(fn K _)"] use-package-statistics-mode tabulated-list-print display-buffer] 8 (#$ . 32494) nil]) (defvar use-package-statistics-status-order '(("Declared" . 0) ("Prefaced" . 1) ("Initialized" . 2) ("Configured" . 3))) (defvar use-package-statistics-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [use-package-statistics-mode-hook variable-documentation put "Hook run after entering use-package statistics mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp use-package-statistics-mode-map definition-name use-package-statistics-mode] 4) (defvar use-package-statistics-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204*\303\307\310\311#\210\312\307\306\307!\203&\313\202(\314 \"\210\307\302N\2048\303\307\302\304\315!#\210\306\300!\204X\303\300\310\311#\210\312\300\306\300!\203P\313\202V\316\300\313\"\210\"\210\300\302N\204f\303\300\302\304\317!#\210\303\311\320\321#\207" [use-package-statistics-mode-abbrev-table use-package-statistics-mode-map variable-documentation put purecopy "Keymap for `use-package-statistics-mode'." boundp use-package-statistics-mode-syntax-table definition-name use-package-statistics-mode defvar-1 nil make-syntax-table "Syntax table for `use-package-statistics-mode'." define-abbrev-table "Abbrev table for `use-package-statistics-mode'." derived-mode-parent tabulated-list-mode] 5)#@300 Show current statistics gathered about `use-package' declarations. In addition to any hooks its parent mode `tabulated-list-mode' might have run, this mode runs the hook `use-package-statistics-mode-hook', as the final or penultimate step during initialization. \{use-package-statistics-mode-map} (defalias 'use-package-statistics-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315 !\204'\316 \317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324 \325\"\204R =\204R\326 \325C#\210\327 !\210\330\f!\210 \331\332 \333 )\210\334\335!\207" [delay-mode-hooks major-mode mode-name use-package-statistics-mode-map use-package-statistics-mode-syntax-table use-package-statistics-mode-abbrev-table make-local-variable t tabulated-list-mode use-package-statistics-mode "use-package statistics" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table [("Package" 25 t) ("Status" 13 (lambda (a b) (< (assoc-default (use-package-statistics-status (gethash (car a) use-package-statistics)) use-package-statistics-status-order) (assoc-default (use-package-statistics-status (gethash (car b) use-package-statistics)) use-package-statistics-status-order)))) ("Last Event" 23 (lambda (a b) (< (float-time (use-package-statistics-last-event (gethash (car a) use-package-statistics))) (float-time (use-package-statistics-last-event (gethash (car b) use-package-statistics)))))) ("Time" 10 (lambda (a b) (< (use-package-statistics-time (gethash (car a) use-package-statistics)) (use-package-statistics-time (gethash (car b) use-package-statistics)))))] ("Time" . t) tabulated-list-init-header run-mode-hooks use-package-statistics-mode-hook local-abbrev-table tabulated-list-format tabulated-list-sort-key] 5 (#$ . 34744) nil])#@27 (fn KEYWORD NAME AFTER) (defalias 'use-package-statistics-gather #[771 "\301\302 #\205\301\303 #\304\303 #\210\203,\304\305\306!\307P!\310\303 \"#\210\304#\207" [use-package-statistics gethash make-hash-table current-time puthash intern symbol-name "-secs" time-subtract] 10 (#$ . 36686)])#@48 Do nothing, return nil. (fn NAME KEYWORD ARG) (defalias 'use-package-normalize/:disabled #[771 "\300\207" ["Do nothing, return nil."] 4 (#$ . 37001)])#@36 (fn NAME KEYWORD ARG REST STATE) (defalias 'use-package-handler/:disabled #[1285 "\300#\207" [use-package-process-keywords] 9 (#$ . 37158)])#@26 (fn NAME KEYWORD ARGS) (defalias 'use-package-normalize-test #[771 "\300\301!\302#\207" [use-package-only-one symbol-name use-package-normalize-value] 7 (#$ . 37309)]) (defalias 'use-package-normalize/:if 'use-package-normalize-test)#@37 (fn NAME KEYWORD PRED REST STATE) (defalias 'use-package-handler/:if #[1285 "\300#\301BBC\207" [use-package-process-keywords when] 9 (#$ . 37552)]) (byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\302\"\207" [defalias use-package-normalize/:when use-package-normalize-test use-package-handler/:when use-package-handler/:if use-package-normalize/:unless] 3)#@37 (fn NAME KEYWORD PRED REST STATE) (defalias 'use-package-handler/:unless #[1285 "\300#\301BBC\207" [use-package-process-keywords unless] 9 (#$ . 37929)]) (defalias 'use-package-normalize/:requires 'use-package-normalize-symlist)#@41 (fn NAME KEYWORD REQUIRES REST STATE) (defalias 'use-package-handler/:requires #[1285 "\300#\204\n\207\301G\302V\203!\303\304\305\306\307\310\nDEED\202(\311\310@DDBBC\207" [use-package-process-keywords when 1 not member nil mapcar #'featurep quote featurep] 14 (#$ . 38170)])#@26 (fn NAME KEYWORD ARGS) (defalias 'use-package-normalize/:load-path #[771 "\300\301!\302#\207" [use-package-as-one symbol-name use-package-normalize-paths] 7 (#$ . 38465)])#@36 (fn NAME KEYWORD ARG REST STATE) (defalias 'use-package-handler/:load-path #[1285 "\300#\301\302\"D\303\304\305\306\305\306C\"\"\"\207" [use-package-process-keywords mapcar #[257 "\300\301\302ED\207" [eval-and-compile add-to-list 'load-path] 5 "\n\n(fn PATH)"] apply append delete nil] 14 (#$ . 38646)]) (defalias 'use-package-normalize/:no-require 'use-package-normalize-predicate)#@36 (fn NAME KEYWORD ARG REST STATE) (defalias 'use-package-handler/:no-require #[1285 "\300#\207" [use-package-process-keywords] 9 (#$ . 39044)]) (defalias 'use-package-normalize/:defines 'use-package-normalize-symlist)#@36 (fn NAME KEYWORD ARG REST STATE) (defalias 'use-package-handler/:defines #[1285 "\300#\207" [use-package-process-keywords] 9 (#$ . 39271)]) (defalias 'use-package-normalize/:functions 'use-package-normalize-symlist)#@36 (fn NAME KEYWORD ARG REST STATE) (defalias 'use-package-handler/:functions #[1285 "\300#\207" [use-package-process-keywords] 9 (#$ . 39497)]) (defalias 'use-package-normalize/:preface 'use-package-normalize-forms)#@36 (fn NAME KEYWORD ARG REST STATE) (defalias 'use-package-handler/:preface #[1285 "\301#\205\302\303\304D\305BBBC\205\306BC\205,\302\303\304 D\307BBBCF\310\311\312\313\312\313C\"\"\"\207" [use-package-compute-statistics use-package-process-keywords use-package-statistics-gather :preface quote (nil) eval-and-compile (t) apply append delete nil] 14 (#$ . 39721)]) (defvar use-package--hush-function #[514 "\207" [] 3 "\n\n(fn KEYWORD BODY)"])#@29 (fn CONTEXT KEYWORD BODY) (defalias 'use-package-hush #[771 "\300\301\302!\303\304\305BBBDFC\207" [condition-case-unless-debug err macroexp-progn error funcall (err)] 11 (#$ . 40187)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put use-package-hush speed -1 put byte-optimizer byte-compile-inline-expand] 5)#@26 (fn NAME KEYWORD ARGS) (defalias 'use-package-normalize/:catch #[771 "\211\204\301\207\302\303!#\207" [use-package--hush-function t use-package-only-one symbol-name] 7 (#$ . 40526)])#@36 (fn NAME KEYWORD ARG REST STATE) (defalias 'use-package-handler/:catch #[1285 "\303\304!\305\267\202T\306#\207\307\310\311\312\313\314\315\316\317D\320BBBDC\321\322=\2059\323\324\325\326\327\314 F\330BBBB\331B\332\"BBEDE\333\334\"\211\306 #\")B\207\335!\203r\307E\333\334\"\211\306 #\")B\207\336\337\340\"\207" [use-package-verbose use-package--form use-package--hush-function cl-gentemp "use-package--warning" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nil 9 t 16)) use-package-process-keywords defvar function lambda (keyword err) let msg format "%s/%s: %s" quote (keyword (error-message-string err)) append debug with-current-buffer (get-buffer-create "*use-package*") (goto-char (point-max)) insert "-----\n" ((emacs-lisp-mode)) ((setq msg (concat msg " (see the *use-package* buffer)"))) ((display-warning 'use-package msg :error)) apply-partially use-package-hush functionp "The :catch keyword expects 't' or a function" error "use-package: %s"] 22 (#$ . 40721)]) (byte-code "\300\301\302\"\210\300\303\304\"\207" [defalias use-package-normalize/:interpreter use-package-normalize-mode use-package-autoloads/:interpreter use-package-autoloads-mode] 3)#@36 (fn NAME KEYWORD ARG REST STATE) (defalias 'use-package-handler/:interpreter #[1285 "\300\301%\207" [use-package-handle-mode interpreter-mode-alist] 11 (#$ . 41963)]) (byte-code "\300\301\302\"\210\300\303\304\"\207" [defalias use-package-normalize/:mode use-package-normalize-mode use-package-autoloads/:mode use-package-autoloads-mode] 3)#@36 (fn NAME KEYWORD ARG REST STATE) (defalias 'use-package-handler/:mode #[1285 "\300\301%\207" [use-package-handle-mode auto-mode-alist] 11 (#$ . 42315)]) (byte-code "\300\301\302\"\210\300\303\304\"\207" [defalias use-package-normalize/:magic use-package-normalize-mode use-package-autoloads/:magic use-package-autoloads-mode] 3)#@36 (fn NAME KEYWORD ARG REST STATE) (defalias 'use-package-handler/:magic #[1285 "\300\301%\207" [use-package-handle-mode magic-mode-alist] 11 (#$ . 42655)]) (byte-code "\300\301\302\"\210\300\303\304\"\207" [defalias use-package-normalize/:magic-fallback use-package-normalize-mode use-package-autoloads/:magic-fallback use-package-autoloads-mode] 3)#@36 (fn NAME KEYWORD ARG REST STATE) (defalias 'use-package-handler/:magic-fallback #[1285 "\300\301%\207" [use-package-handle-mode magic-fallback-mode-alist] 11 (#$ . 43015)])#@26 (fn NAME KEYWORD ARGS) (defalias 'use-package-normalize/:hook #[771 "\300\301!\302\303\"#\207" [use-package-as-one symbol-name make-closure #[514 "\211\211\205\2119\262\204\211:\204\301P\302\303\"\266\304\305\306\307\310\311\300!\"\203*\300\2021\312\311\300!\310P!%\207" [V0 " a or ( . ) or list of these" error "use-package: %s" use-package-normalize-pairs #[257 "\211\211\205\2119\262\206;\211\205;\300\211\2038\2038:\2032@\211\205&\2119\262\2032A\262\202\301\262\202\211\262\207" [t nil] 4 "\n\n(fn K)"] use-package-recognize-function string-suffix-p "-mode" symbol-name intern] 9 "\n\n(fn LABEL ARG)"]] 9 (#$ . 43199)]) (defalias 'use-package-autoloads/:hook 'use-package-autoloads-mode)#@78 Generate use-package custom keyword code. (fn NAME KEYWORD ARGS REST STATE) (defalias 'use-package-handler/:hook #[1285 "\300#\301\302\303!\"D\304\305\306\307\306\307C\"\"\"\207" [use-package-process-keywords cl-mapcan #[257 "\211@A\211\205\300\301\302\"\303!\"\207" [mapcar make-closure #[257 "\302\303\304\305! P!D\306\300DE\207" [V0 use-package-hook-name-suffix add-hook quote intern symbol-name function] 6 "\n\n(fn SYM)"] use-package-hook-handler-normalize-mode-symbols] 7 "\n\n(fn DEF)"] use-package-normalize-commands apply append delete nil] 13 (#$ . 43994)])#@59 Ensure that `SYMS' turns into a list of modes. (fn SYMS) (defalias 'use-package-hook-handler-normalize-mode-symbols #[257 "\211\211\205\2119\262\203\211C\207\207" [] 3 (#$ . 44581)]) (defalias 'use-package-normalize/:commands 'use-package-normalize-symlist)#@36 (fn NAME KEYWORD ARG REST STATE) (defalias 'use-package-handler/:commands #[1285 "\211;\204 \300!\262\301\302\303#\304!\"\262\305#D\306\307\310\311\310\311C\"\"\"\207" [symbol-name cl-mapcan make-closure #[257 "\2119\2051\303\304\301\305\"?\205\306\307\310DD\311\312D\300\313BBBEC\314\302!\2050\n\2050\315\316\300EDC\"\207" [V0 V1 byte-compile-current-file append plist-get :demand unless fboundp quote autoload function (nil t) boundp eval-when-compile declare-function] 8 "\n\n(fn COMMAND)"] delete-dups use-package-process-keywords apply append delete nil] 13 (#$ . 44850)]) (defalias 'use-package-normalize/:autoload 'use-package-normalize/:commands)#@36 (fn NAME KEYWORD ARG REST STATE) (defalias 'use-package-handler/:autoload #[1285 "\211;\204 \300!\262\301\302\303#\304!\"\262\305#D\306\307\310\311\310\311C\"\"\"\207" [symbol-name cl-mapcan make-closure #[257 "\2119\205.\303\304\301\305\"?\205\306\307\310DD\311\312D\300EEC\313\302!\205-\n\205-\314\315\300EDC\"\207" [V0 V1 byte-compile-current-file append plist-get :demand unless fboundp quote autoload function boundp eval-when-compile declare-function] 7 "\n\n(fn COMMAND)"] delete-dups use-package-process-keywords apply append delete nil] 13 (#$ . 45535)]) (defalias 'use-package-normalize/:defer 'use-package-normalize-predicate)#@36 (fn NAME KEYWORD ARG REST STATE) (defalias 'use-package-handler/:defer #[1285 "\300#\247\205#\301\302\303\304\n\2119\204\305!\262D\306BBBBBC\203+\204/\202;\307\304D\304\310!DECD\311\312\313\302\313\302C\"\"\"\207" [use-package-process-keywords run-with-idle-timer nil #'require quote intern (nil t) eval-after-load macroexp-progn apply append delete] 14 (#$ . 46203)])#@26 (fn NAME KEYWORD ARGS) (defalias 'use-package-normalize/:after #[771 "\300#\262\211:\203 \207\211C\207" [use-package-normalize-recursive-symlist] 7 (#$ . 46601)])#@79 Count the number of time the body would appear in the result. (fn FEATURES*) (defalias 'use-package-after-count-uses #[257 "\211\211\205\2119\262\203\300\207\211:\2033\211@\301>\2033\302A\211\2031\211@\303!\\\262A\266\202\202\210\207\211:\203H\211@\304>\203H\305\306\307\303A\"\"\207\211<\205R\303\310B!\207" [1 (:or :any) 0 use-package-after-count-uses (:and :all) apply max mapcar :all] 7 (#$ . 46776)])#@177 Generate `eval-after-load' statements to represents FEATURES*. FEATURES* is a list containing keywords `:and' and `:all', where no keyword implies `:all'. (fn FEATURES* BODY) (defalias 'use-package-require-after-load #[514 "\211C\211\205 \2119\262\203\300\301D\301\302\242!DEC\207:\2030@\303>\2030\304\305\306\"A\"\207:\203W@\307>\203WA\211\203S\211@\310\242\"\240\210A\266\202\202>\210\211\242\207<\205c\310\311B\242\"\207" [eval-after-load quote macroexp-progn (:or :any) cl-mapcan make-closure #[257 "\301\300\242\"\207" [V0 use-package-require-after-load] 4 "\n\n(fn X)"] (:and :all) use-package-require-after-load :all] 9 (#$ . 47209)])#@36 (fn NAME KEYWORD ARG REST STATE) (defalias 'use-package-handler/:after #[1285 "\300#\301!\211\203\204\207\211\302X\203\303\"\207\304\305\303\"\306!\"\207" [use-package-process-keywords use-package-after-count-uses 1 use-package-require-after-load use-package-memoize apply-partially macroexp-progn] 11 (#$ . 47886)]) (defalias 'use-package-normalize/:demand 'use-package-normalize-predicate)#@36 (fn NAME KEYWORD ARG REST STATE) (defalias 'use-package-handler/:demand #[1285 "\300#\207" [use-package-process-keywords] 9 (#$ . 48302)])#@63 Normalize use-package custom keyword. (fn NAME KEYWORD ARGS) (defalias 'use-package-normalize/:custom #[771 "\300\301!\302#\207" [use-package-as-one symbol-name #[514 "\211<\204\300P\301\302\"\266\211@\211\205\2119\262\203\211C\207\207" [" a ( [comment]) or list of these" error "use-package: %s"] 6 "\n\n(fn LABEL ARG)"]] 7 (#$ . 48451)])#@78 Generate use-package custom keyword code. (fn NAME KEYWORD ARGS REST STATE) (defalias 'use-package-handler/:custom #[1285 "\301\300!\203\203\302\303\304\305\306\307\310\311\f\" \"BBFC\202'\307\310\312\"\"\313#D\314\315\316\317\316\317C\"\"\"\207" [use-package-use-theme boundp let ((custom--inhibit-theme-enable nil)) (unless (memq 'use-package custom-known-themes) (deftheme use-package) (enable-theme 'use-package) (setq custom-enabled-themes (remq 'use-package custom-enabled-themes))) custom-theme-set-variables 'use-package mapcar make-closure #[257 "\211@A@\3018\211\203\211;\204\302\303\300\"\262\304\305\211\257D\207" [V0 2 format "Customized with use-package %s" quote nil] 10 "\n\n(fn DEF)"] #[257 "\211@A@\3018\211\203\211;\204\302\303\300\"\262\304\305DF\207" [V0 2 format "Customized with use-package %s" customize-set-variable quote] 8 "\n\n(fn DEF)"] use-package-process-keywords apply append delete nil] 14 (#$ . 48825)])#@74 Normalize use-package custom-face keyword. (fn NAME-SYMBOL KEYWORD ARG) (defalias 'use-package-normalize/:custom-face #[771 "\300\301\"<\204\211\302\303\"\266\211\203G\211@\211<\204#\302\303\"\266\211@A@\2037\211\2037G\304V\203>\302\303\"\266\266A\266\202\202\207" [format "%s wants a ( [spec-type]) or list of these" error "use-package: %s" 3] 12 (#$ . 49807)])#@83 Generate use-package custom-face keyword code. (fn NAME KEYWORD ARGS REST STATE) (defalias 'use-package-handler/:custom-face #[1285 "\300\301\"\302#D\303\304\305\306\305\306C\"\"\"\207" [mapcar #[257 "\300\301\302DE\207" [apply #'face-spec-set backquote] 5 "\n\n(fn DEF)"] use-package-process-keywords apply append delete nil] 13 (#$ . 50222)]) (defalias 'use-package-normalize/:init 'use-package-normalize-forms)#@36 (fn NAME KEYWORD ARG REST STATE) (defalias 'use-package-handler/:init #[1285 "\205\303\304\305D\306BBBC\307\211;\204\310!\262\304#\211\205B \304\n\203@\311\312\n\211;\2048\310!\262DBBC\202A\"\262\313#\205Y\303\304\305\nD\314BBBCF\315\316\317\320\317\320C\"\"\"\207" [use-package-compute-statistics use-package--hush-function use-package-check-before-init use-package-statistics-gather :init quote (nil) use-package-hook-injector symbol-name when locate-library use-package-process-keywords (t) apply append delete nil] 14 (#$ . 50650)])#@26 (fn NAME KEYWORD ARGS) (defalias 'use-package-normalize/:load #[771 "\300#\262\211:\203 \207\211C\207" [use-package-normalize-recursive-symlist] 7 (#$ . 51226)])#@36 (fn NAME KEYWORD ARG REST STATE) (defalias 'use-package-handler/:load #[1285 "\300#\211\203%\211@\301\302=\203\202\303#\262A\266\202\202\210\207" [use-package-process-keywords use-package-require t nil] 12 (#$ . 51400)]) (defalias 'use-package-normalize/:config 'use-package-normalize-forms)#@36 (fn NAME KEYWORD ARG REST STATE) (defalias 'use-package-handler/:config #[1285 "\303#\2119\204\304!\262\205\305\306\307 D\310BBBC\203)\311\232\2031 \2041\202V\312\313\314\"\n\306\315\316!\306\f#\317CE\320\321\322\323\322\323C\"\"\"\262\"\"\205e\305\306\307 D\324BBBCE\320\321\322\323\322\323C\"\"\"\207" [use-package-compute-statistics use-package-inject-hooks use-package--hush-function use-package-process-keywords intern use-package-statistics-gather :config quote (nil) (t) use-package-with-elapsed-timer format "Configuring package %s" use-package-hook-injector symbol-name t apply append delete nil (t)] 20 (#$ . 51717)])#@18 (fn NAME ARGS) (defalias 'use-package-core '(macro . #[514 "\300\301\302ED\303\304\305\306\307\310\311\312\313\314\fDEDD\315BBB\316BBBDD\317BB\207" [let* args* use-package-normalize-keywords use-package--form if (eq use-package-verbose 'debug) concat "\n\n" pp-to-string \` use-package (\, name) \,@ ("\n -->\n\n" (pp-to-string `(use-package ,name ,@args*)) "\n ==>\n\n" (pp-to-string (macroexp-progn (let ((use-package-verbose 'errors) (use-package-expand-minimally t)) (use-package-process-keywords name args* (and (plist-get args* :demand) (list :demand t))))))) ("") ((use-package-process-keywords name args* (and (plist-get args* :demand) (list :demand t))))] 15 (#$ . 52385)]))#@3496 Declare an Emacs package by specifying a group of configuration options. For the full documentation, see Info node `(use-package) top'. Usage: (use-package package-name [:keyword [option]]...) :init Code to run before PACKAGE-NAME has been loaded. :config Code to run after PACKAGE-NAME has been loaded. Note that if loading is deferred for any reason, this code does not execute until the lazy load has occurred. :preface Code to be run before everything except `:disabled'; this can be used to define functions for use in `:if', or that should be seen by the byte-compiler. :mode Form to be added to `auto-mode-alist'. :magic Form to be added to `magic-mode-alist'. :magic-fallback Form to be added to `magic-fallback-mode-alist'. :interpreter Form to be added to `interpreter-mode-alist'. :commands Define autoloads for commands that will be defined by the package. This is useful if the package is being lazily loaded, and you wish to conditionally call functions in your `:init' block that are defined in the package. :autoload Similar to :commands, but it for no-interactive one. :hook Specify hook(s) to attach this package to. :bind Bind keys, and define autoloads for the bound commands. :bind* Bind keys, and define autoloads for the bound commands, *overriding all minor mode bindings*. :bind-keymap Bind a key prefix to an auto-loaded keymap defined in the package. This is like `:bind', but for keymaps. :bind-keymap* Like `:bind-keymap', but overrides all minor mode bindings :defer Defer loading of a package -- this is implied when using `:commands', `:bind', `:bind*', `:mode', `:magic', `:hook', `:magic-fallback', or `:interpreter'. This can be an integer, to force loading after N seconds of idle time, if the package has not already been loaded. :demand Prevent the automatic deferred loading introduced by constructs such as `:bind' (see `:defer' for the complete list). :after Delay the effect of the use-package declaration until after the named libraries have loaded. Before they have been loaded, no other keyword has any effect at all, and once they have been loaded it is as if `:after' was not specified. :if EXPR Initialize and load only if EXPR evaluates to a non-nil value. :disabled The package is ignored completely if this keyword is present. :defines Declare certain variables to silence the byte-compiler. :functions Declare certain functions to silence the byte-compiler. :load-path Add to the `load-path' before attempting to load the package. :diminish Support for diminish.el (if installed). :delight Support for delight.el (if installed). :custom Call `Custom-set' or `set-default' with each variable definition without modifying the Emacs `custom-file'. (compare with `custom-set-variables'). :custom-face Call `custom-set-faces' with each face definition. :ensure Loads the package using package.el if necessary. :pin Pin the package to an archive. (fn NAME &rest ARGS) (defalias 'use-package '(macro . #[385 "\304>?\205\371\305\205\306\307\310D\311BBBC \312=\203p\313\" \314=\203Z\315\316\317BB!\320\316\317 BB!\321\316\305\312\322\323\f \324 \325\"\205Q\325\322D#*!!\260\202[\326\323\324\325\"\205i\325\322D#)\262\202\332\3271\311\313\" \314=\203\262\315\316\317BB!\320\316\317 BB!\321\316\305\312\322\323\f \324 \325\"\205\251\325\322D#*!!\260\202\263\326\323\324\325\"\205\301\325\322D#)\2620\202\332\330\317\331\332\333!#\334#\210\335\262\205\351\306\307\310D\336BBBCE\337\340\341\335\341\335C\"\"\"\262!\207" [use-package-compute-statistics use-package-verbose use-package-expand-minimally use-package--form :disabled macroexp-progn use-package-statistics-gather :use-package quote (nil) errors use-package-normalize-keywords debug "\n\n" pp-to-string use-package "\n -->\n\n" "\n ==>\n\n" t use-package-process-keywords plist-get :demand "" (debug error) display-warning format "Failed to parse package %s: %s" error-message-string :error nil (t) apply append delete] 18 (#$ . 53083)])) (byte-code "\300\301\302\303#\304\305!\207" [function-put use-package lisp-indent-function defun provide use-package-core] 4)