;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311\302%\210\312\313\314\315\316DD\317\311\306\320\321&\210\312\322\314\315\323DD\324\311\306\320\325&\210\312\326\314\315\327DD\330\311\306\320\325&\210\312\331\314\315\332DD\333\311\306\320\325&\207" [require cl-lib helm helm-help package custom-declare-group helm-el-package nil "helm elisp packages." :group custom-declare-variable helm-el-package-initial-filter funcall function #[0 "\300\207" [all] 1] "Show only installed, upgraded or all packages at startup." :type (radio :tag "Initial filter for elisp packages" (const :tag "Show all packages" all) (const :tag "Show installed packages" installed) (const :tag "Show not installed packages" uninstalled) (const :tag "Show upgradable packages" upgrade)) helm-el-truncate-lines #[0 "\300\207" [t] 1] "Truncate lines in `helm-buffer' when non-nil." boolean helm-el-package-upgrade-on-start #[0 "\300\207" [nil] 1] "Show package upgrades on startup when non nil." helm-el-package-autoremove-on-start #[0 "\300\207" [nil] 1] "Try to autoremove no more needed packages on startup.\nSee `package-autoremove'."] 8) (defvar helm-el-package--show-only 'all) (defvar helm-el-package--initialized-p nil) (defvar helm-el-package--tabulated-list nil) (defvar helm-el-package--upgrades nil) (defvar helm-el-package--removable-packages nil) (defalias 'helm-el-package--init #[0 "\204 \306\307!\203 \310 \210\311\312 \204\313 :\204%\314 \211\203$\211\210\315 \211&\2035'\2035\316 \210\317\216\320 r\321\322\"\216(\203J\323 \210\202X)\203S\324\325!\210\326(!\210\312(\324\311!\210*\210\327\330r\331\332!q\210*+\333ed\334#\210eb\210\335\336\311\312#\203\205\337\340!\210\202v\341 )\"\210\342 ,)\203\247,\203\241\324\343,G\"\202\271\324\344!\202\271-\203\265,\203\265\345\202\267.\211+\207" [package--initialized inhibit-read-only package-menu-async package-alist helm-el-package--show-only package-selected-packages boundp package-quickstart package-initialize nil t all package--find-non-dependencies package--removable-packages package-autoremove #[0 "\300\301!\207" [kill-buffer "*Packages*"] 2] internal--before-save-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-save-selected-window] 2] package-show-package-list message "Refreshing packages list..." list-packages helm-init-candidates-in-buffer global get-buffer "*Packages*" remove-text-properties (read-only button follow-link category) re-search-forward "^[ ]+" replace-match "" buffer-string helm-el-package-menu--find-upgrades "Refreshing packages list done, [%d] package(s) to upgrade" "Refreshing packages list done, no upgrades available" upgrade helm-el-package--removable-packages helm-el-package-autoremove-on-start helm-el-package--initialized-p helm--force-updating-p tabulated-list-entries helm-el-package--tabulated-list helm-el-package--upgrades helm-el-package-upgrade-on-start helm-el-package-initial-filter] 6]) #@18 (fn CANDIDATE) (defalias 'helm-el-package-describe #[257 "\301\302\303#\304\305!>\204\306\307\310D\"\210\311H!\207" [cl-struct-package-desc-tags get-text-property 0 tabulated-list-id describe-package type-of signal wrong-type-argument package-desc 1] 7 (#$ . 3065)]) #@18 (fn CANDIDATE) (defalias 'helm-el-package-visit-homepage #[257 "\302\303\304#\305!>\204\306\307\310D\"\210\211\311H\312 \"A@\305!>\204,\306\307\310D\"\210\211\313H\211<\2058\314\236\243\211;\203A\315!\207\316\317\320\321!\322\323#\"\207" [cl-struct-package-desc-tags package-archive-contents get-text-property 0 tabulated-list-id type-of signal wrong-type-argument package-desc 1 assoc 8 :url browse-url message "Package %s has no homepage" propertize symbol-name face font-lock-keyword-face] 12 (#$ . 3347)]) (defalias 'helm-el-run-visit-homepage #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-el-package-visit-homepage error "Running helm command outside of context"] 2 nil nil]) (put 'helm-el-run-visit-homepage 'helm-only t) #@12 (fn PKG) (defalias 'helm-elisp-package--pkg-name #[257 "\301!>\203\301!>\204\302\303\304D\"\210\211\305H\207\207" [cl-struct-package-desc-tags type-of signal wrong-type-argument package-desc 1] 5 (#$ . 4142)]) #@17 (fn PKG-LIST) (defalias 'helm-el-package-install-1 #[257 "\211\211\303\211\211\211\211:\203j@\262\304\305\306#\262\307!\262\310\311\"\210\236\211\205I\211A@\312! >\204;\313\314\315D\"\210\211\316H\262\211\205G\317!\262\262\203`C\244\262\320!\204`\321\nB!\210A\262\303\262\202\322\323\324G\325\326\327##!\210\303\207" [package-alist cl-struct-package-desc-tags package-selected-packages nil get-text-property 0 tabulated-list-id helm-elisp-package--pkg-name package-install t type-of signal wrong-type-argument package-desc 7 file-exists-p package--user-selected-p package--save-selected-packages message format "%d packages installed:\n(%s)" mapconcat package-desc-full-name ", "] 16 (#$ . 4369)]) #@18 (fn CANDIDATE) (defalias 'helm-el-package-install #[257 "\300\301 !\207" [helm-el-package-install-1 helm-marked-candidates] 3 (#$ . 5111)]) (defalias 'helm-el-run-package-install #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-el-package-install error "Running helm command outside of context"] 2 nil nil]) (put 'helm-el-run-package-install 'helm-only t) #@33 (fn PKG-LIST &optional FORCE) (defalias 'helm-el-package-uninstall-1 #[513 "\211\302\211\211\211:\203U@\262\303\304\305#\262\3061%\307\"0\210\202,\310A@!\266\311\312!>\204=\313\314\315D\"\210\316H \"\204KC\244\262A\262\302\262\202\203g\310\317\320G\321\322\323##!\210\302\207" [cl-struct-package-desc-tags package-alist nil get-text-property 0 tabulated-list-id (debug error) package-delete message assoc type-of signal wrong-type-argument package-desc 1 format "%d packages deleted:\n(%s)" mapconcat package-desc-full-name ", "] 16 (#$ . 5514)]) #@18 (fn CANDIDATE) (defalias 'helm-el-package-uninstall #[257 "\301\302 \"\207" [helm-current-prefix-arg helm-el-package-uninstall-1 helm-marked-candidates] 4 (#$ . 6104)]) (defalias 'helm-el-run-package-uninstall #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-el-package-uninstall error "Running helm command outside of context"] 2 nil nil]) (put 'helm-el-run-package-uninstall 'helm-only t) (defalias 'helm-el-package-menu--find-upgrades #[0 "\302\211\211\211\211\211\211\211:\203u@\262@\262\303!\262\304\230\203,C\244\262\305!\203:C\244\262\306\235\203GC\244\262\307\235\203j\310! >\204_\311\312\313\nD\"\210\314HBC\244\262A\262 \302\262\202 \315#\211\302\211\211\211\211:\203\346@\262\310! >\204\231\311\312\313D\"\210\314H\262 \236\262\203\334\316\310! >\204\272\311\312\313D\"\210\317H\310A! >\204\317\311\312\313AD\"\210A\317H\"\203\334B\262A\262\302\262\202\200\237\207" [helm-el-package--tabulated-list cl-struct-package-desc-tags nil package-desc-status "dependency" package--used-elsewhere-p ("installed" "unsigned") ("available" "new") type-of signal wrong-type-argument package-desc 1 append version-list-< 2] 22]) #@70 Return non-nil if PACKAGE is a user-installed package. (fn PACKAGE) (defalias 'helm-el-package--user-installed-p #[257 "\211\236\211\205\n\211A@\211\205 \303! >\204\304\305\306D\"\210\211\307H\211\205(\310\n\"\207" [package-alist cl-struct-package-desc-tags package-user-dir type-of signal wrong-type-argument package-desc 7 file-in-directory-p] 7 (#$ . 7364)]) #@17 (fn PKG-LIST) (defalias 'helm-el-package-upgrade-1 #[257 "\211\302\211\211\211\211:\203`@\262@\262\303!>\204#\304\305\306D\"\210\307H\262 \236A\262\232\203A\310\311\"\210\312\313\"\210\202V\203V\314!\204V\310\315\"\210\316\313\211#\210A\262\302\262\202\302\207" [cl-struct-package-desc-tags helm-el-package--upgrades nil type-of signal wrong-type-argument package-desc 1 message "Installing package `%s'" package-install t package-built-in-p "Deleting package `%s'" package-delete] 11 (#$ . 7742)]) #@18 (fn CANDIDATE) (defalias 'helm-el-package-upgrade #[257 "\302\303 \304\211\211\211:\203?@\262@\262\305\306! >\204&\307\310\311D\"\210\312H!\235\2035B\262A\262\304\262\202\237\266\206!\207" [helm-el-package--tabulated-list cl-struct-package-desc-tags helm-el-package-upgrade-1 helm-marked-candidates nil symbol-name type-of signal wrong-type-argument package-desc 1] 13 (#$ . 8281)]) (defalias 'helm-el-run-package-upgrade #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-el-package-upgrade error "Running helm command outside of context"] 2 nil nil]) (put 'helm-el-run-package-upgrade 'helm-only t) (defalias 'helm-el-package-upgrade-all #[0 "\203V\306 !\n\307\f\310=\203\311\202\f\312\211\312Crq\210\313\314\315\316\"\317\320#!\210)\321\322#\216\323\324\325\"\240!r\321\326\"\216\327@\330\"\210\331\332!\205Q\333!*\262-\207\334\335!\207" [helm-el-package--upgrades helm-marked-buffer-name helm-last-frame-or-window-configuration helm-always-two-windows helm-split-window-default-side helm-split-window-inside-p temp-buffer-window-setup t same below nil helm-format-columns-of-files helm-fast-remove-dups mapcar #[257 "\300@!\207" [symbol-name] 3 "\n\n(fn X)"] :test equal make-closure #[0 "\302\303\301\242\"\210\300\205 \304\300!\207" [V0 V1 quit-window kill set-window-configuration] 3] internal--before-with-selected-window temp-buffer-window-show (display-buffer-below-selected (window-height . fit-window-to-buffer)) #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord y-or-n-p "Upgrade all packages? " helm-el-package-upgrade-1 message "No packages to upgrade actually!" helm-reuse-last-window-split-state helm-el-package--tabulated-list] 9]) #@18 (fn CANDIDATE) (defalias 'helm-el-package-upgrade-all-action #[257 "\300 \207" [helm-el-package-upgrade-all] 2 (#$ . 10063)]) (defalias 'helm-el-run-package-upgrade-all #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-el-package-upgrade-all-action error "Running helm command outside of context"] 2 nil nil]) (put 'helm-el-run-package-upgrade-all 'helm-only t) #@26 (fn CANDIDATES SOURCE) (defalias 'helm-el-package--transformer #[514 "\305\211\211\211\211\211\211\211\211\211\211\211\f:\203\f@\262\f\306\fP\262 \307\310\311#\262\n \205@\312\n!>\204<\313\314\315\fD\"\210 \316H\262 \317\n!\262\320 !\205T\321\235?\262\322\235\262 \236\262\n>\262\203y\204y\323\310\324\325\326%\210 >\204\210\203\240\203\240\323\310\324\325\327%\210\323\324\330 !G\324\\\331\332%\210\203\266\204\266\204\266\323\310\324\325\333%\210\n\334\f!@B\262\203\313\f\335=\204\364\203\325\f\336=\204\364\203\337\f\337=\204\364\204\356\204\356\f\340=\204\364\f\341=\203\371B\262\fA\262 \305\262\202 \237\207" [cl-struct-package-desc-tags helm-el-package--upgrades package-selected-packages helm-el-package--removable-packages helm-el-package--show-only nil " " get-text-property 0 tabulated-list-id type-of signal wrong-type-argument package-desc 1 package-desc-status package-built-in-p ("available" "new" "installed" "dependency") ("installed" "dependency") put-text-property 2 display "S " "U " symbol-name face font-lock-variable-name-face "I " split-string built-in upgrade installed uninstalled all] 21 (#$ . 10471)]) (defalias 'helm-el-package-show-built-in #[0 "\203 \302\303 \207\304\305!\207" [helm-alive-p helm-el-package--show-only built-in helm-update error "Running helm command outside of context"] 2 nil nil]) (put 'helm-el-package-show-built-in 'helm-only t) (defalias 'helm-el-package-show-upgrade #[0 "\203 \302\303 \207\304\305!\207" [helm-alive-p helm-el-package--show-only upgrade helm-update error "Running helm command outside of context"] 2 nil nil]) (put 'helm-el-package-show-upgrade 'helm-only t) (defalias 'helm-el-package-show-installed #[0 "\203 \302\303 \207\304\305!\207" [helm-alive-p helm-el-package--show-only installed helm-update error "Running helm command outside of context"] 2 nil nil]) (put 'helm-el-package-show-installed 'helm-only t) (defalias 'helm-el-package-show-all #[0 "\203 \302\303 \207\304\305!\207" [helm-alive-p helm-el-package--show-only all helm-update error "Running helm command outside of context"] 2 nil nil]) (put 'helm-el-package-show-all 'helm-only t) (defalias 'helm-el-package-show-uninstalled #[0 "\203 \302\303 \207\304\305!\207" [helm-alive-p helm-el-package--show-only uninstalled helm-update error "Running helm command outside of context"] 2 nil nil]) (put 'helm-el-package-show-uninstalled 'helm-only t) (defvar helm-el-package-map (byte-code "\301 \302\"\210\303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\303\314\315#\210\303\316\317#\210\303\320\321#\210\303\322\323#\210\303\324\325#\210\303\326\327#\210\303\330\331#\210\207" [helm-map make-sparse-keymap set-keymap-parent define-key [134217801] helm-el-package-show-installed [134217807] helm-el-package-show-uninstalled [134217813] helm-el-package-show-upgrade [134217794] helm-el-package-show-built-in [134217793] helm-el-package-show-all "i" helm-el-run-package-install "r" helm-el-run-package-reinstall "d" helm-el-run-package-uninstall "u" helm-el-run-package-upgrade "U" helm-el-run-package-upgrade-all "@" helm-el-run-visit-homepage] 5)) (defvar helm-source-list-el-package nil) (byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias helm-list-el-package-source-p eieio-make-class-predicate helm-list-el-package-source helm-list-el-package-source--eieio-childp eieio-make-child-predicate helm-list-el-package-source-child-p make-obsolete "use (cl-typep ... \\='helm-list-el-package-source) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (helm-source-in-buffer) ((init :initform 'helm-el-package--init) (get-line :initform 'buffer-substring) (filtered-candidate-transformer :initform 'helm-el-package--transformer) (action-transformer :initform 'helm-el-package--action-transformer) (help-message :initform 'helm-el-package-help-message) (keymap :initform helm-el-package-map) (update :initform 'helm-el-package--update) (candidate-number-limit :initform 9999) (action :initform '(("Describe package" . helm-el-package-describe) ("Visit homepage" . helm-el-package-visit-homepage))) (group :initform 'helm-el-package)) nil] 6) #@84 Create a new object of class type `helm-list-el-package-source'. (fn &rest SLOTS) (defalias 'helm-list-el-package-source #[128 "\300\301\302#\207" [apply make-instance helm-list-el-package-source] 5 (#$ . 14817)]) (byte-code "\300\301\302\303#\300\207" [function-put helm-list-el-package-source compiler-macro helm-list-el-package-source--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (defalias 'helm-list-el-package-source--anon-cmacro #[385 "\211@;\204\207\300\301\302@@#@\303@DABB\"\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 15180)]) #@26 (fn ACTIONS CANDIDATE) (defalias 'helm-el-package--action-transformer #[514 "\303\304\305#\306!\307!>\204\310\311\312D\"\210\313H\314!\205$\315\235? \2030\316\317\"\2021\2037\320\207\321!\203O \236A\203O\322\235\203O\316\323\"\207\321!\203g \236A\203g\324\230\203g\316\325\"\207\321!\203\204\314!\203\314!\203\204\n\236\203\204\316\326\"\207\316\327\"\207" [cl-struct-package-desc-tags helm-el-package--upgrades package-alist get-text-property 0 tabulated-list-id package-desc-status type-of signal wrong-type-argument package-desc 1 package-built-in-p ("available" "new" "installed" "dependency") append (("Upgrade all packages" . helm-el-package-upgrade-all-action)) (("Describe package" . helm-el-package-describe)) package-installed-p ("installed" "dependency") (("Upgrade package(s)" . helm-el-package-upgrade) ("Uninstall package(s)" . helm-el-package-uninstall)) "available" (("Upgrade package(s)" . helm-el-package-upgrade)) (("Reinstall package(s)" . helm-el-package-reinstall) ("Recompile package(s)" . helm-el-package-recompile) ("Uninstall package(s)" . helm-el-package-uninstall)) (("Install packages(s)" . helm-el-package-install))] 10 (#$ . 15426)]) (defalias 'helm-el-package--update #[0 "\301\211\207" [helm-el-package--initialized-p nil] 2]) #@12 (fn PKG) (defalias 'helm-el-package-recompile #[257 "\300 \301:\203@\262\302!\210A\262\202\301\207" [helm-marked-candidates nil helm-el-package-recompile-1] 5 (#$ . 16738)]) #@12 (fn PKG) (defalias 'helm-el-package-recompile-1 #[257 "\301\302\303#\304!>\204\305\306\307D\"\210\211\310H\311!\207" [cl-struct-package-desc-tags get-text-property 0 tabulated-list-id type-of signal wrong-type-argument package-desc 7 async-byte-recompile-directory] 6 (#$ . 16930)]) #@12 (fn PKG) (defalias 'helm-el-package-reinstall #[257 "\300 \301\211\211:\203#@\262\302\303\304#\262\305!\210A\262\301\262\202\301\207" [helm-marked-candidates nil get-text-property 0 tabulated-list-id helm-el-package-reinstall-1] 9 (#$ . 17228)]) #@17 (fn PKG-DESC) (defalias 'helm-el-package-reinstall-1 #[257 "\302!>\204\303\304\305D\"\210\211\306H\307\310\311#\210\312 \236A@\313\"\207" [cl-struct-package-desc-tags package-archive-contents type-of signal wrong-type-argument package-desc 1 package-delete force nosave package-install t] 6 (#$ . 17494)]) (defalias 'helm-el-run-package-reinstall #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-el-package-reinstall error "Running helm command outside of context"] 2 nil nil]) (put 'helm-el-run-package-reinstall 'helm-only t) #@73 Preconfigured `helm' for listing and handling Emacs packages. (fn ARG) (defalias 'helm-list-elisp-packages #[257 "\211\203\303 \204\304\305\306\"\307\310\301\311\n\312\313\314\315&\207" [helm-el-package--initialized-p helm-source-list-el-package helm-el-truncate-lines nil helm-make-source "list packages" helm-list-el-package-source helm :sources :truncate-lines :full-frame t :buffer "*helm list packages*"] 10 (#$ . 18076) "P"]) #@181 Preconfigured Helm for Emacs packages. Same as `helm-list-elisp-packages' but don't fetch packages on remote. Called with a prefix ARG always fetch packages on remote. (fn ARG) (defalias 'helm-list-elisp-packages-no-fetch #[257 "\211?\301\302!)\207" [helm-el-package--initialized-p helm-list-elisp-packages nil] 3 (#$ . 18523) "P"]) (provide 'helm-elisp-package)