mirror of https://github.com/Chizi123/.emacs.d.git
blame | history | raw
Chizi123
2018-11-17 5cb5f70b1872a757e93ea333b0e2dca50c6c8957 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122

;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\312!\203 \312 \211\203 \311\313!\203 \313 \210\314\216\315 r\316\317\320\321\322!\323\"\324$\216 \203A\311\325!\203A\325 \210\202N$\203J\326\327!\210\330 !\210\307\326\306!\210*\210\331\332r\333\334!q\210%&\335ed\336#\210\337 )\"\210\340 '$\203\212'\203\204\326\341'G\"\202\227\326\342!\202\227'\203\223\343\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 fboundp 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) 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\306!\203!\307!>\204\310\311\312D\"\210\313H\202#@!\207" [cl-struct-package-desc-tags get-text-property 0 tabulated-list-id describe-package fboundp package-desc-name type-of signal wrong-type-argument package-desc 1] 7 (#$ . 2755)])


#@18 


 


(fn CANDIDATE)


(defalias 'helm-el-package-visit-homepage #[257 "\302\303\304#\305\306!\203 \307!>\204\310\311\312D\"\210\211\313H\202\"\211@\314    \"A@\307!>\2047\310\311\312D\"\210\211\315H\211<\205D\314\316\"\243\211;\203O\317!\202Z\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 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 (#$ . 3086)])


(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)


#@17 


 


(fn PKG-LIST)


(defalias 'helm-el-package-install-1 #[257 "\211\211\300\211\211\211:\2036@\262\301\302\303#\262\304\305!\203!\202#@\262\306!\210\211C\244\262A\262\202\304\307!\203M\310\311\312G\313\307\314##!\210\202[\310\311\312G\313\315\314##!\210\300\207" [nil get-text-property 0 tabulated-list-id fboundp package-desc-name package-install package-desc-full-name message format "%d packages installed:\n(%s)" mapconcat ", " symbol-name] 15 (#$ . 3938)])


#@18 


 


(fn CANDIDATE)


(defalias 'helm-el-package-install #[257 "\300\301 !\207" [helm-el-package-install-1 helm-marked-candidates] 3 (#$ . 4430)])


(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:\203\200@\262\303\304\305#\262\3061A\307\310!\2033\3111,\312\"0\202=\210\312!\202=\312\313@!\314A!\"0\202H\315A@!\262\210\316\317!>\204Y\320\321\322D\"\210\323H    \"\204y\211\307\310!\203l\202u\313@!\314A!BC\244\262A\262\202\211\203\313\307\310!\203\233\315\324\325G\326\310\327##!\210\202\313\315\324\325G\326\330\327##!\210    \302:\203\311@\262\313@!\236\203\302\331    \"A\262\202\253\266\302\207" [cl-struct-package-desc-tags package-alist nil get-text-property 0 tabulated-list-id (debug error) fboundp package-desc-full-name (wrong-number-of-arguments) package-delete symbol-name package-version-join message assoc type-of signal wrong-type-argument package-desc 1 format "%d packages deleted:\n(%s)" mapconcat ", " #[257 "\211@\300AQ\207" ["-"] 4 "\n\n(fn X)"] delete] 15 (#$ . 4833)])


#@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 (#$ . 5780)])


(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:\203K@\262@\262\303!\262\304\235\203$C\244\262\305\235\203D\211\306!    >\204;\307\310\311D\"\210\312HBC\244\262A\262\202\302\211\211:\203\254@\262\306!    >\204g\307\310\311D\"\210\312H\236\262\203\245\313\306!    >\204\203\307\310\311D\"\210\314H\306A!    >\204\230\307\310\311AD\"\210A\314H\"\203\245B\262A\262\202O\211\237\266\204\207" [helm-el-package--tabulated-list cl-struct-package-desc-tags nil package-desc-status ("installed" "unsigned" "dependency") ("available" "new") type-of signal wrong-type-argument package-desc 1 version-list-< 2] 16])


#@17 


 


(fn PKG-LIST)


(defalias 'helm-el-package-upgrade-1 #[257 "\211\302\211\211:\203`@\262@\262\303!>\204 \304\305\306D\"\210\307H    \236A\262\211\203Y\232\203F\310\311!\203?\312\313\"\202B\312!\210\202Y\310\311!\203U\314\313\211#\210\202Y\314!\210A\262\202\302\207" [cl-struct-package-desc-tags helm-el-package--upgrades nil type-of signal wrong-type-argument package-desc 1 boundp package-selected-packages package-install t package-delete] 9 (#$ . 6893)])


#@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 (#$ . 7382)])


(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 (#$ . 9058)])


(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\n:\203\347\n@\262\n\306\307\310\f#\262    \311\312!\203A\205D\313    !>\204:\314\315\316D\"\210\317H\202D@\262\320    !\262\321!\205X\322\235?\262\323\235\262    \236\262\324\302!\205p\n>\262\203\325\307\326\327\330%\210>\203\236\325\307\326\327\331%\210\325\326\332\n!G\326\\\333\334%\210    \335!@B\262\203\262\f\336=\204\332\203\274\f\337=\204\332\203\306\f\340=\204\332\204\324\204\324\f\341=\204\332\f\342=\203\337B\262\nA\262\202\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 fboundp package-desc-name type-of signal wrong-type-argument package-desc 1 package-desc-status package-built-in-p ("available" "new" "installed" "dependency") ("installed" "dependency") boundp put-text-property 2 display "S " "U " symbol-name face font-lock-variable-name-face split-string built-in upgrade installed uninstalled all] 19 (#$ . 9465)])


(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 (#$ . 13761)])


(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 (#$ . 14124)])


#@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 (#$ . 14371)])


(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 "\301 \302\211\211\211:\203b@\262\303\304\305#\262\306!>\204&\307\310\311D\"\210\312H\262\306!>\204:\307\310\311D\"\210\313H\262\314\315!\203L\315!\210\202[\316\317\320\"!\203[\321\304\322#\210A\262\202\302\207" [cl-struct-package-desc-tags helm-marked-candidates nil get-text-property 0 tabulated-list-id type-of signal wrong-type-argument package-desc 1 7 fboundp async-byte-recompile-directory y-or-n-p format "Really recompile `%s' while already loaded ?" byte-recompile-directory t] 10 (#$ . 15706)])


#@12 


 


(fn PKG)


(defalias 'helm-el-package-reinstall #[257 "\302 \303\211\211:\203P@\262\304\305\306#\262\307!>\204$\310\311\312D\"\210\313H\262\314\315!\203A\316\317\320#\210\321    \236A@\322\"\210\202I\316!\210\321!\210A\262\202\303\207" [cl-struct-package-desc-tags package-archive-contents helm-marked-candidates nil get-text-property 0 tabulated-list-id type-of signal wrong-type-argument package-desc 1 boundp package-selected-packages package-delete force nosave package-install t] 9 (#$ . 16301)])


(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 (#$ . 17089) "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 (#$ . 17534) "P"])


(provide 'helm-elisp-package)