;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (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&\210\315\325\317\320\326DD\327\323\330\307\304&\210\315\331\317\320\332DD\333\323\334\307\304&\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 #1=""] "Treat every package as though it had specified using `:ensure SEXP'.\nSee also `use-package-defaults', which uses this value." :type sexp use-package-always-pin #[0 "\300\207" [nil] 1 #1#] "Treat every package as though it had specified using `:pin SYM'.\nSee also `use-package-defaults', which uses this value." symbol use-package-ensure-function #[0 "\300\207" [use-package-ensure-elpa] 1 #1#] "Function that ensures a package is installed.\nThis function is called with three arguments: the name of the\npackage declared in the `use-package' form; the arguments passed\nto all `:ensure' keywords (always a list, even if only one); and\nthe current `state' plist created by previous handlers.\n\nNote that this function is called whenever `:ensure' is provided,\neven if it is nil. It is up to the function to decide on the\nsemantics of the various values for `:ensure'.\n\nThis function should return non-nil if the package is installed.\n\nThe default value uses package.el to install the package." (choice (const :tag "package.el" use-package-ensure-elpa) (function :tag "Custom"))] 10)#@26 (fn NAME KEYWORD ARGS) (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 "\n\n(fn LABEL ARG)"]] 7 (#$ . 1746)])#@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\262A\266\202\202\n\210\207" [package-archives (manual "manual") t nil intern] 8 (#$ . 2080)])#@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 (#$ . 2441)])#@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 (#$ . 2923)])#@26 (fn NAME KEYWORD ARGS) (defalias 'use-package-normalize/:ensure #[771 "\211\204\300C\207\301\302!\303#\207" [t use-package-only-one symbol-name #[514 "\2119\203\211C\207\211<\2038\211G\300U\2038\211@9\2038\211A@\301=\2038\3028;\2040\30289\2038\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 "\n\n(fn LABEL ARG)"]] 7 (#$ . 3245)])#@45 (fn NAME ARGS STATE &optional NO-REFRESH) (defalias 'use-package-ensure-elpa #[1027 "\211\205\216\211@\211\302=\203\2119\204\303!\262\206\211\211\203\206\304\305!\210\211:\2034\306@A\"\210\211@\262\307!\204\206\3101w\311\312\300!\205G\"\203N\313 \210\311 \"\203[\314!\202q\315 \210\311\312\300!\205g\"\203n\313 \210\314!0\266\202\207\316\317\320\321 \322!#\323#\266\210A\266\202\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 (#$ . 3719)])#@39 (fn NAME KEYWORD ENSURE REST STATE) (defalias 'use-package-handler/:ensure #[1285 "\302#\303\300!\203\203 #\210\207 \304D\304D\304DFB\207" [byte-compile-current-file use-package-ensure-function use-package-process-keywords boundp quote] 11 (#$ . 4484)]) (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)