;ELC ;;; Compiled ;;; in Emacs version 24.5.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&\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 "\n\n(fn)"] "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))] 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\310!\203\310 \311 r\312\313\314\315\316\317!\320\"\321\322%DC\216\323 !\210\324\325\326!\210*\210\327\330r\331\332!q\210\f\333 )\"\210\334 !\"\203]!\203V\325\335!G\"\210\202i\325\336!\210\202i!\203f\337\202h#\340\332!\207" [package-alist helm-el-package--show-only helm-el-package--removable-packages helm-el-package--initialized-p tabulated-list-entries helm-el-package--tabulated-list all fboundp package--removable-packages internal--before-save-selected-window funcall make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-save-selected-window] 2 "\n\n(fn)" list-packages t message nil helm-init-candidates-in-buffer global get-buffer "*Packages*" buffer-string helm-el-package-menu--find-upgrades "Refreshing packages list done, %d package(s) to upgrade available" "Refreshing packages list done" upgrade kill-buffer helm-el-package--upgrades helm-force-updating-p helm-el-package-initial-filter] 8 "\n\n(fn)"]) (defalias 'helm-el-package-describe #[257 "\301\302\303#\304\305\306!\203 \302H>\204\307\310\306\311#\210\312H\202\"@!\207" [cl-struct-package-desc-tags get-text-property 0 tabulated-list-id describe-package fboundp package-desc-name error "%s accessing a non-%s" package-desc 1] 7 "\n\n(fn CANDIDATE)"]) (defalias 'helm-el-package-visit-homepage #[257 "\302\303\304#\305\306!\203\211\303H>\204\307\310\306\311#\210\211\312H\202!\211@\313 \"\211A@\262\211\303H>\2048\307\310\314\311#\210\211\315H\211<\205E\313\316\"\243\211;\203P\317!\202[\320\321\322\323!\324\325#\"\207" [cl-struct-package-desc-tags package-archive-contents get-text-property 0 tabulated-list-id fboundp package-desc-name error "%s accessing a non-%s" package-desc 1 assoc package-desc-extras 8 :url browse-url message "Package %s has no homepage" propertize symbol-name face font-lock-keyword-face] 12 "\n\n(fn CANDIDATE)"]) (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 "\n\n(fn)" nil]) (defalias 'helm-el-package-install-1 #[257 "\211\211\302\211\211:\203L@\262\303\304\305#\262\306\307\310!\2030\304H>\204*\311\312\310\313#\210\314H\2022@!\210\211\307\315!\203?\202A@C\244\262A\262\202\316\301!\203]\317\301\320\321\310\" \"\"\210\307\315!\203t\322\323\324G\325\315\326##!\210\202\202\322\323\324G\325\327\326##!\210\302\207" [cl-struct-package-desc-tags package-selected-packages nil get-text-property 0 tabulated-list-id package-install fboundp package-desc-name error "%s accessing a non-%s" package-desc 1 package-desc-full-name boundp customize-save-variable append mapcar message format "%d packages installed:\n(%s)" mapconcat ", " symbol-name] 14 "\n\n(fn PKG-LIST)"]) (defalias 'helm-el-package-install #[257 "\300\301 !\207" [helm-el-package-install-1 helm-marked-candidates] 3 "\n\n(fn CANDIDATE)"]) (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 "\n\n(fn)" nil]) (defalias 'helm-el-package-uninstall-1 #[257 "\211\211\301\211C\301:\203]@\262\302\303\304#\240\210\305\306\307\303\310\311\312!\313\"\314\315%D\316\306\317\305EDC\217\210\320\242\321\234\"\204V\211\322\323!\203G\242\202R\324\242@!\325\242A!BC\244\262A\262\202\211\203\250\322\323!\203x\326\327\330G\331\323\332##!\210\202\250\326\327\330G\331\333\332##!\210\301:\203\246@\262\324@!\236\203\237\334\"A\262\202\210\266\301\207" [package-alist nil get-text-property 0 tabulated-list-id #1=#:err funcall make-byte-code "\301\302!\203 \303\300\242!\207\303\304\300\242@!\305\300\242A!\"\207" vconcat vector [fboundp package-desc-full-name package-delete symbol-name package-version-join] 4 "\n\n(fn)" (debug error) #[257 "\300\211A@\262!\207" [message] 4 "\n\n(fn ERR)"] assoc 1 fboundp package-desc-full-name symbol-name package-version-join message format "%d packages deleted:\n(%s)" mapconcat ", " #[257 "\211@\300AQ\207" ["-"] 4 "\n\n(fn X)"] delete] 14 "\n\n(fn PKG-LIST)"]) (defalias 'helm-el-package-uninstall #[257 "\300\301 !\207" [helm-el-package-uninstall-1 helm-marked-candidates] 3 "\n\n(fn CANDIDATE)"]) (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 "\n\n(fn)" nil]) (defalias 'helm-el-package-menu--find-upgrades #[0 "\302\211\211\211\211:\203I@\262@\262\303!\262\304\235\203$C\244\262\305\235\203B\211\306H >\2049\307\310\311\312#\210\313HBC\244\262A\262\202\302\211\211:\203\244@\262\306H >\204d\307\310\311\312#\210\313H\236\262\203\235\314\306H >\204~\307\310\315\312#\210\316HA\306H >\204\220\307\310\315\312#\210A\316H\"\203\235B\262A\262\202M\211\237\266\204\207" [helm-el-package--tabulated-list cl-struct-package-desc-tags nil package-desc-status ("installed" "unsigned" "dependency") ("available" "new") 0 error "%s accessing a non-%s" package-desc-name package-desc 1 version-list-< package-desc-version 2] 16 "\n\n(fn)"]) (defalias 'helm-el-package-upgrade-1 #[257 "\211\302\211\211:\203R@\262@\262\303H>\204\304\305\306\307#\210\310H \236A\262\211\203K\232\2038\311!\210\202K\312\313!\203G\314\315\211#\210\202K\314!\210A\262\202\302\207" [cl-struct-package-desc-tags helm-el-package--upgrades nil 0 error "%s accessing a non-%s" package-desc-name package-desc 1 package-install boundp package-selected-packages package-delete t] 9 "\n\n(fn PKG-LIST)"]) (defalias 'helm-el-package-upgrade #[257 "\302\303 \304\211\211:\2038@\262@\262\305\306H >\204#\307\310\311\312#\210\313H!\235\2031B\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 0 error "%s accessing a non-%s" package-desc-name package-desc 1] 12 "\n\n(fn CANDIDATE)"]) (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 "\n\n(fn)" nil]) (defalias 'helm-el-package-upgrade-all #[0 "\2039\303 !\304C\305\306\307\310\311\312!\313\"\314\315%DC\216rq\210\316\317\320\"!\210\321\322\323\"\240!\210\324\325!\2057\326\n!*\207\327\330!\207" [helm-el-package--upgrades helm-marked-buffer-name helm-el-package--tabulated-list temp-buffer-window-setup nil funcall make-byte-code 0 "\301\302\300\242\"\207" vconcat vector [quit-window kill] 3 "\n\n(fn)" dired-format-columns-of-files mapcar #[257 "\300@!\207" [symbol-name] 3 "\n\n(fn X)"] select-window temp-buffer-window-show (display-buffer-below-selected (window-height . fit-window-to-buffer)) y-or-n-p "Upgrade all packages? " helm-el-package-upgrade-1 message "No packages to upgrade actually!"] 9 "\n\n(fn)"]) (defalias 'helm-el-package-upgrade-all-action #[257 "\300 \207" [helm-el-package-upgrade-all] 2 "\n\n(fn CANDIDATE)"]) (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 "\n\n(fn)" nil]) (defalias 'helm-el-package--transformer #[514 "\306\211\211\211\211\211\211\211:\203\270@\262\307\310\311\n#\262\312\313!\2038\310H>\2041\314\315\313\316#\210\317H\202;@\262 \236\262\n\236\262\320\303!\205P >\262\203_\321\310\322\323\324\f%\210\f>\203}\321\310\322\323\325\f%\210\321\322\326!G\322\\\327\330\f%\210\331 !@B\262\203\221 \332=\204\253\203\233 \333=\204\253\204\245 \334=\204\253 \335=\203\260B\262A\262 \202 \211\237\207" [cl-struct-package-desc-tags package-alist 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 fboundp package-desc-name error "%s accessing a non-%s" package-desc 1 boundp put-text-property 2 display "S " "U " symbol-name face font-lock-variable-name-face split-string upgrade installed uninstalled all] 17 "\n\n(fn CANDIDATES SOURCE)"]) (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 "\n\n(fn)" nil]) (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 "\n\n(fn)" nil]) (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 "\n\n(fn)" nil]) (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 "\n\n(fn)" nil]) (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\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 [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\304$\207" [eieio-defclass helm-list-el-package-source (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 (lambda (actions candidate) (let ((pkg-desc (get-text-property 0 'tabulated-list-id candidate)) (acts (if helm-el-package--upgrades (append actions '(("Upgrade all packages" . helm-el-package-upgrade-all-action))) actions))) (cond ((and (package-installed-p (package-desc-name pkg-desc)) (cdr (assq (package-desc-name pkg-desc) helm-el-package--upgrades))) (append '(("Upgrade package(s)" . helm-el-package-upgrade) ("Uninstall package(s)" . helm-el-package-uninstall)) acts)) ((cdr (assq (package-desc-name pkg-desc) helm-el-package--upgrades)) (append '(("Upgrade package(s)" . helm-el-package-upgrade)) acts)) ((package-installed-p (package-desc-name pkg-desc)) (append acts '(("Reinstall package(s)" . helm-el-package-reinstall) ("Uninstall package(s)" . helm-el-package-uninstall)))) (t (append acts '(("Install packages(s)" . helm-el-package-install)))))))) (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)))) nil] 5) (defalias 'helm-el-package--update #[0 "\301\211\207" [helm-el-package--initialized-p nil] 2 "\n\n(fn)"]) (defalias 'helm-el-package-reinstall #[257 "\301 \302\211\211:\203D@\262\303\304\305#\262\304H>\204#\306\307\310\311#\210\312H\262\313\314!\2035\314!\210\202=\315!\210\316!\210A\262\202\302\207" [cl-struct-package-desc-tags helm-marked-candidates nil get-text-property 0 tabulated-list-id error "%s accessing a non-%s" package-desc-name package-desc 1 fboundp package-reinstall package-delete package-install] 9 "\n\n(fn PKG)"]) (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 "\n\n(fn)" nil]) #@71 Preconfigured helm for listing and handling emacs packages. (fn ARG) (defalias 'helm-list-elisp-packages #[257 "\211\203\302 \204\303\304\305\"\306\307\301\310\311$\207" [helm-el-package--initialized-p helm-source-list-el-package nil helm-make-source "list packages" helm-list-el-package-source helm :sources :buffer "*helm list packages*"] 6 (#$ . 13508) "P"]) #@117 Preconfigured helm for emacs packages. Same as `helm-list-elisp-packages' but don't fetch packages on remote. (fn) (defalias 'helm-list-elisp-packages-no-fetch #[0 "\301\302\303!)\207" [helm-el-package--initialized-p t helm-list-elisp-packages nil] 2 (#$ . 13884) nil]) (provide 'helm-elisp-package)