;ELC ;;; Compiled ;;; in Emacs version 26.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (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&\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] 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 "\306\307\n\204\n\310\311 \211\203\312 \210\313\216\314 r\315\316\317\320\321!\322\"\323$\216 \203/\324 \210\202<'\2038\325\326!\210\327 !\210\307\325\306!\210*\210\330\331r\332\333!q\210()\334ed\335#\210eb\210\336\337\306\307#\203h\340\341!\210\202Y\342 )\"\210\343 *'\203\212*\203\204\325\344*G\"\202\227\325\345!\202\227*\203\223\346\202\225+\211+\207" [inhibit-read-only package-menu-async package-alist helm-el-package--show-only helm-el-package--removable-packages helm-el-package--initialized-p nil t all package--removable-packages package-autoremove #[0 "\300\301!\207" [kill-buffer "*Packages*"] 2] internal--before-save-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [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--force-updating-p tabulated-list-entries helm-el-package--tabulated-list helm-el-package--upgrades helm-el-package-initial-filter] 7]) #@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 (#$ . 2794)]) #@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<\2059\312\314\"\243\211;\203D\315!\202O\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 (#$ . 3076)]) (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 (#$ . 3875)]) #@17 (fn PKG-LIST) (defalias 'helm-el-package-install-1 #[257 "\211\211\303\211\211\211:\203f@\262\304\305\306#\262\307!\262\310\311\"\210\236\211\205H\211A@\312! >\204:\313\314\315D\"\210\211\316H\262\211\205F\317!\262\262\203_\211C\244\262\320!\204_\321\nB!\210A\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 ", "] 15 (#$ . 4102)]) #@18 (fn CANDIDATE) (defalias 'helm-el-package-install #[257 "\300\301 !\207" [helm-el-package-install-1 helm-marked-candidates] 3 (#$ . 4834)]) (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:\203O@\262\303\304\305#\262\3061\"\307\"0\202)\310A@!\262\210\311\312!>\204:\313\314\315D\"\210\316H \"\204H\211C\244\262A\262\202\211\203a\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 ", "] 15 (#$ . 5237)]) #@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 (#$ . 5819)]) (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:\203q@\262@\262\303!\262\304\230\203+C\244\262\305!\2039C\244\262\306\235\203FC\244\262\307\235\203i\211\310! >\204^\311\312\313 D\"\210\314HBC\244\262A\262\202\315#\211\302\211\211\211:\203\335@\262\310! >\204\224\311\312\313D\"\210\314H\262\236\262\203\326\316\310! >\204\264\311\312\313D\"\210\317H\310A! >\204\311\311\312\313AD\"\210A\317H\"\203\326B\262A\262\202{\211\237\266\206\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] 20]) #@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 (#$ . 7062)]) #@17 (fn PKG-LIST) (defalias 'helm-el-package-upgrade-1 #[257 "\211\302\211\211\211:\203[@\262@\262\303!>\204!\304\305\306D\"\210\307H\262 \236A\262\232\203?\310\311\"\210\312\313\"\210\202T\211\203T\314!\204T\310\315\"\210\316\313\211#\210A\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] 10 (#$ . 7440)]) #@18 (fn CANDIDATE) (defalias 'helm-el-package-upgrade #[257 "\302\303 \304\211\211:\2039@\262@\262\305\306! >\204$\307\310\311D\"\210\312H!\235\2032B\262A\262\202\211\237\266\205!\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] 12 (#$ . 7968)]) (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 "\203]\306 !\307 \310=\203\311\202 \312\211\312Crq\210\313\314\315\"!\210)\316\317\320\321\322!\323\"\324$\216\325\326\327\"\240!r\316\317\330\321\322!\331\"\332$\216\333@\334\"\210\335\336!\205X\337\"!*\262-\207\340\341!\207" [helm-el-package--upgrades helm-marked-buffer-name helm-always-two-windows helm-split-window-default-side helm-split-window-inside-p helm-reuse-last-window-split-state temp-buffer-window-setup t same below nil helm-format-columns-of-files mapcar #[257 "\300@!\207" [symbol-name] 3 "\n\n(fn X)"] make-byte-code 0 "\301\302\300\242\"\207" vconcat vector [quit-window kill] 3 internal--before-with-selected-window temp-buffer-window-show (display-buffer-below-selected (window-height . fit-window-to-buffer)) "\301\300!\207" [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-el-package--tabulated-list] 10]) #@18 (fn CANDIDATE) (defalias 'helm-el-package-upgrade-all-action #[257 "\300 \207" [helm-el-package-upgrade-all] 2 (#$ . 9644)]) (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 :\203\375 @\262 \306 P\262\n\307\310\311 #\262 \205?\312 !>\204;\313\314\315 D\"\210\316H\262\317 !\262\320!\205S\321\235?\262\322\235\262 \236\262\n>\262\203x\204x\323\310\324\325\326%\210 >\204\207\203\237\203\237\323\310\324\325\327%\210\323\324\330\n!G\324\\\331\332%\210\203\264\204\264\204\264\323\310\324\325\333%\210 \334 !@B\262\203\310\f\335=\204\360\203\322\f\336=\204\360\203\334\f\337=\204\360\204\352\204\352\f\340=\204\360\f\341=\203\365B\262 A\262\f\202\f\211\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] 20 (#$ . 10051)]) (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\211\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 (#$ . 14384)]) (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 (#$ . 14747)]) #@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\2039\320\202\220\321!\203S \236A\203S\322\235\203S\316\323\"\202\220\321!\203m \236A\203m\324\230\203m\316\325\"\202\220\321!\203\214\314!\203\205\314!\203\214\n\236\203\214\316\326\"\202\220\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 (#$ . 14994)]) (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 (#$ . 16329)]) #@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 (#$ . 16521)]) #@12 (fn PKG) (defalias 'helm-el-package-reinstall #[257 "\300 \301\211:\203@\262\302\303\304#\262\305!\210A\262\202\301\207" [helm-marked-candidates nil get-text-property 0 tabulated-list-id helm-el-package-reinstall-1] 8 (#$ . 16819)]) #@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 (#$ . 17072)]) (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) #@71 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 (#$ . 17654) "P"]) #@180 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 (#$ . 18099) "P"]) (provide 'helm-elisp-package)