;ELC ;;; Compiled ;;; in Emacs version 30.1 ;;; with all optimizations. #@126 Treat every package as though it had specified using `:ensure SEXP'. See also `use-package-defaults', which uses this value.#@2 #@122 Treat every package as though it had specified using `:pin SYM'. See also `use-package-defaults', which uses this value.#@596 Function that ensures a package is installed. This function is called with three arguments: the name of the package declared in the `use-package' form; the arguments passed to all `:ensure' keywords (always a list, even if only one); and the current `state' plist created by previous handlers. Note that this function is called whenever `:ensure' is provided, even if it is nil. It is up to the function to decide on the semantics of the various values for `:ensure'. This function should return non-nil if the package is installed. The default value uses package.el to install the package.#@26 (fn NAME KEYWORD ARGS)#@18 (fn LABEL ARG) (byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310\311\312\313\314& \210\315\316\317\320\321DD\322\323\324\307\304\313\314& \210\315\325\317\320\326DD\327\323\330\307\304\313\314& \210\315\331\317\320\332DD\333\323\334\307\304\313\314& \207" [require cl-lib use-package-core custom-declare-group use-package-ensure nil "Support for :ensure and :pin keywords in `use-package' declarations." :group use-package :link (custom-manual "(use-package) Installing packages") :version "29.1" custom-declare-variable use-package-always-ensure funcall function #[0 "\300\207" [nil] 1 (#$ . 213)] (#$ . 84) :type sexp use-package-always-pin #[0 "\300\207" [nil] 1 (#$ . 213)] (#$ . 220) symbol use-package-ensure-function #[0 "\300\207" [use-package-ensure-elpa] 1 (#$ . 213)] (#$ . 347) (choice (const :tag "package.el" use-package-ensure-elpa) (function :tag "Custom"))] 10) (defalias 'use-package-normalize/:pin #[771 "\300\301!\302#\207" [use-package-only-one symbol-name #[514 "\211;\203\207\211\211\205 \2119\262\203\300!\207\301\302\303\"\207" [symbol-name ":pin wants an archive name (a string)" error "use-package: %s"] 6 (#$ . 977)]] 7 (#$ . 947)])#@141 Check if a given ARCHIVE is enabled. ARCHIVE can be a string or a symbol or `manual' to indicate a manually updated package. (fn ARCHIVE) (defalias 'use-package-archive-exists-p #[257 "\211\301\235\203\302\207\303\211\203$\211@@\304@!D\235\203\302\262\210A\202\n\210\207" [package-archives (manual "manual") t nil intern] 8 (#$ . 2169)])#@47 Pin PACKAGE to ARCHIVE. (fn PACKAGE ARCHIVE) (defalias 'use-package-pin-package #[514 "\302\300!\204\303\2119\203\211\202\304!;\203\202 \305!\306!\203=B\211\235\2035\266\202D\211B\210\202D\307\310#\210\302\301!\205K ?\205R\311\312!\207" [package-pinned-packages package--initialized boundp nil intern symbol-name use-package-archive-exists-p error "Archive '%s' requested for package '%s' is not available" package-initialize t] 8 (#$ . 2525)])#@45 (fn NAME KEYWORD ARCHIVE-NAME REST STATE) (defalias 'use-package-handler/:pin #[1285 "\301#\205\302\303\2119\204\304!\262DE\305\300!\203+\203+\306!\210\2020\211B\262\207" [byte-compile-current-file use-package-process-keywords use-package-pin-package quote intern boundp eval] 11 (#$ . 3007)]) (defalias 'use-package-normalize/:ensure #[771 "\211\204\300C\207\301\302!\303#\207" [t use-package-only-one symbol-name #[514 "\2119\203C\207\211<\2037\211G\300U\2037\211@9\2037\211A@\301=\2037\3028;\204/\30289\2037\211@\3028BC\207\303\304\305\"\207" [3 :pin 2 ":ensure wants an optional package name (an unquoted symbol name), or ( :pin )" error "use-package: %s"] 6 (#$ . 977)]] 7 (#$ . 947)])#@45 (fn NAME ARGS STATE &optional NO-REFRESH) (defalias 'use-package-ensure-elpa #[1027 "\211\205\211\211@\211\302=\203\2119\204\303!\262\206\211\211\203\203\304\305!\210\211:\2031\306@A\"\210@\307!\204\203\3101t\311\312\300!\205D\"\203K\313 \210\311 \"\203X\314!\202n\315 \210\311\312\300!\205d\"\203k\313 \210\314!0\266\202\205\316\317\320\321 \322!#\323#\266\266A\202\207" [package-pinned-packages package-archive-contents t intern require package use-package-pin-package package-installed-p (debug error) assoc boundp package-read-all-archive-contents package-install package-refresh-contents display-warning use-package format "Failed to install %s: %s" error-message-string :error] 15 (#$ . 3758)])#@39 (fn NAME KEYWORD ENSURE REST STATE) (defalias 'use-package-handler/:ensure #[1285 "\302#\303\304\"?\205\305\300!\203\"\203\" #\210\2023 \306D\306D\306DFB\262\207" [byte-compile-current-file use-package-ensure-function use-package-process-keywords plist-member :vc boundp quote] 12 (#$ . 4506)]) (byte-code "\300\301\302\303#\210\300\301\304\303#\210\300\305\306\"\210\300\305\307\"\210\310\311!\207" [add-to-list use-package-defaults (:ensure (list use-package-always-ensure) (lambda (name args) (and use-package-always-ensure (not (plist-member args :load-path))))) t (:pin use-package-always-pin use-package-always-pin) use-package-keywords :ensure :pin provide use-package-ensure] 4)