;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\300\305!\207" [require seq tramp tramp-sh helm cl-lib] 2) (defvar helm-system-packages-shell-buffer-name "helm-system-packages-eshell") (defvar helm-system-packages-eshell-buffer (concat #1="*" helm-system-packages-shell-buffer-name #1#)) (make-obsolete-variable 'helm-system-packages-eshell-buffer 'helm-system-packages-shell-buffer-name "1.9.0") (defvar helm-system-packages-buffer "*helm-system-packages-output*") (defvar helm-system-packages--show-uninstalled-p t) (defvar helm-system-packages--show-explicit-p t) (defvar helm-system-packages--show-dependencies-p t) (defvar helm-system-packages--show-orphans-p t) (defvar helm-system-packages--show-locals-p t) (defvar helm-system-packages--show-groups-p t) (defvar helm-system-packages--show-pinned-p t) #@295 Cache of all package names and descriptions. It's an alist indexed by hostnames. The values are in the form (:names STRING-BUFFER :descriptions STRING-BUFFER :display LIST :title STRING ...) 'display' is a list of (package . (faces...)) Optional 'title' is usually the package manager. (defvar helm-system-packages--cache nil (#$ . 913)) #@83 Current host to use from cache. If nil, use host linked with `default-directory'. (defvar helm-system-packages--cache-current nil (#$ . 1265)) #@69 List of virtual packages. This is only used for dependency display. (defvar helm-system-packages--virtual-list nil (#$ . 1414)) (byte-code "\300\301\302\303\304\305%\210\300\306\307\310\304\305%\210\300\311\312\313\304\305%\210\300\314\315\316\304\305%\210\300\317\320\321\304\305%\210\300\322\323\324\304\305%\210\300\325\326\327\304\305%\210\300\330\331\332\304\305%\207" [custom-declare-face helm-system-packages-explicit ((t (:inherit font-lock-warning-face))) "Face for explicitly installed packages." :group helm-system-packages helm-system-packages-dependencies ((t (:inherit font-lock-comment-face :slant italic))) "Face for packages installed as dependencies." helm-system-packages-orphans ((t (:inherit font-lock-string-face :slant italic))) "Face for orphan packages (unrequired dependencies)." helm-system-packages-locals ((t (:weight bold))) "Face for local packages." helm-system-packages-groups ((t (:inherit font-lock-doc-face))) "Face for package groups." helm-system-packages-pinned ((t (:weight bold))) "Face for pinned packages." helm-system-packages-virtual ((t (:slant italic))) "Face for virtual packages." helm-system-packages-residuals ((t (:slant italic))) "Face for packages with left-over configuration files."] 6) (defalias 'helm-system-packages-toggle-explicit #[0 "\203\n ?\302 \207\303\304!\207" [helm-alive-p helm-system-packages--show-explicit-p helm-update error "Running helm command outside of context"] 2 nil nil]) (put 'helm-system-packages-toggle-explicit 'helm-only t) (defalias 'helm-system-packages-toggle-uninstalled #[0 "\203\n ?\302 \207\303\304!\207" [helm-alive-p helm-system-packages--show-uninstalled-p helm-update error "Running helm command outside of context"] 2 nil nil]) (put 'helm-system-packages-toggle-uninstalled 'helm-only t) (defalias 'helm-system-packages-toggle-dependencies #[0 "\203\n ?\302 \207\303\304!\207" [helm-alive-p helm-system-packages--show-dependencies-p helm-update error "Running helm command outside of context"] 2 nil nil]) (put 'helm-system-packages-toggle-dependencies 'helm-only t) (defalias 'helm-system-packages-toggle-orphans #[0 "\203\n ?\302 \207\303\304!\207" [helm-alive-p helm-system-packages--show-orphans-p helm-update error "Running helm command outside of context"] 2 nil nil]) (put 'helm-system-packages-toggle-orphans 'helm-only t) (defalias 'helm-system-packages-toggle-locals #[0 "\203\n ?\302 \207\303\304!\207" [helm-alive-p helm-system-packages--show-locals-p helm-update error "Running helm command outside of context"] 2 nil nil]) (put 'helm-system-packages-toggle-locals 'helm-only t) (defalias 'helm-system-packages-toggle-groups #[0 "\203\n ?\302 \207\303\304!\207" [helm-alive-p helm-system-packages--show-groups-p helm-update error "Running helm command outside of context"] 2 nil nil]) (put 'helm-system-packages-toggle-groups 'helm-only t) (defalias 'helm-system-packages-toggle-pinned #[0 "\203\n ?\302 \207\303\304!\207" [helm-alive-p helm-system-packages--show-pinned-p helm-update error "Running helm command outside of context"] 2 nil nil]) (put 'helm-system-packages-toggle-pinned 'helm-only t) #@116 Function to refresh the package list. It is called: - on each session start; - whenever a shell command completes. (defvar helm-system-packages-refresh nil (#$ . 4554)) (byte-code "\300\301\302\303\304\305%\210\306\307\310\311\312DD\313\304\301\314\315&\210\306\316\310\311\317DD\320\304\301\314\321&\210\306\322\310\311\323DD\324\304\301\314\321&\210\306\325\310\311\326DD\327\304\301\314\315&\210\306\330\310\311\331DD\332\304\301\314\321&\210\306\333\310\311\334DD\335\304\301\314\321&\207" [custom-declare-group helm-system-packages nil "Predefined configurations for `helm-system-packages'." :group helm custom-declare-variable helm-system-packages-column-width funcall function #[0 "\300\207" [40] 1] "Column at which descriptions are aligned, excluding a double-space gap." :type integer helm-system-packages-show-descriptions-p #[0 "\300\207" [t] 1] "Always show descriptions in package list when non-nil." boolean helm-system-packages-auto-send-commandline-p #[0 "\300\207" [t] 1] "When a transaction commandline is inserted into a shell buffer, " helm-system-packages-candidate-limit #[0 "\300\207" [1000] 1] "Maximum number of candidates to display at once.\n0 means display all." helm-system-packages-use-symbol-at-point-p #[0 "\300\207" [nil] 1] "Whether to use symbol at point as a default search entry." helm-system-packages-editable-info-p #[0 "\300\207" [nil] 1] "Whether info buffer is editable.\nIf nil, it is displayed in view-mode, which means \"q\" (default binding) quits\nthe window."] 8) #@69 Get current cache entry. See `helm-system-packages--cache-current'. (defalias 'helm-system-packages--cache-get #[0 "\206$\304 !\203#\305 !\211\242\n>\204\306\307\310D\"\210\3118\262\206$\312\313 \"A\207" [helm-system-packages--cache-current default-directory cl-struct-tramp-file-name-tags helm-system-packages--cache tramp-tramp-file-p tramp-dissect-file-name signal wrong-type-argument tramp-file-name 4 "" assoc] 5 (#$ . 6079)]) #@496 Set current cache entry. NAMES and DESCRIPTIONS are strings. TITLE is a string, usually the name of the package manager. DISPLAY-LIST is a list of (PACKAGE . '(FACES...)). It associates packages with the list of faces used for display. A face corresponds to a category. A package can belong to multiple categories (e.g. both "orphan" and "installed"). EXTRA is an arbitrary prop-val sequence appended to the resulting plist. (fn NAMES DESCRIPTIONS DISPLAY-LIST &optional TITLE &rest EXTRA) (defalias 'helm-system-packages--cache-set #[1155 "\303!\203\304!\211\242 >\204\305\306\307D\"\210\3108\262\206 \311\312\313\314\315 \316\n\257\"\317\n\"\203?\317\n\"\241\207B\nB\211\207" [default-directory cl-struct-tramp-file-name-tags helm-system-packages--cache tramp-tramp-file-p tramp-dissect-file-name signal wrong-type-argument tramp-file-name 4 "" append :names :descriptions :display :title assoc] 15 (#$ . 6528)]) #@45 Cache package lists and create Helm buffer. (defalias 'helm-system-packages-init #[0 "\301 \211\204 \302 \210\301 \262\303\304\203\305\306\"\202\305\307\"\"\207" [helm-system-packages-show-descriptions-p helm-system-packages--cache-get helm-system-packages-refresh helm-init-candidates-in-buffer global plist-get :descriptions :names] 6 (#$ . 7479)]) #@59 Cache package lists and create Helm buffer. (fn MANAGER) (defalias 'helm-system-packages--make-init #[257 "\300\301\"\207" [make-closure #[0 "\303 \211\204\304\300! >\204\305\306\307\300D\"\210\300\310H \210\303 \262\311\312\n\203+\313\314\"\202/\313\315\"\"\207" [V0 cl-struct-helm-system-packages-manager-tags helm-system-packages-show-descriptions-p helm-system-packages--cache-get type-of signal wrong-type-argument helm-system-packages-manager 2 helm-init-candidates-in-buffer global plist-get :descriptions :names] 6]] 4 (#$ . 7845)]) #@427 Apply each function of FUN-ALIST to the list with the same key in ALIST. Return the alist of the results. Keys must be symbols. The special key `all' matches all members in ALIST. Only the first match is applied. If a member of ALIST does not have a matching function, it is dropped. To explicitly drop an element, use the `ignore' function. To explicitly keep an element, use the `identity' function. (fn FUN-ALIST ALIST) (defalias 'helm-system-packages-mapalist #[514 "\300\301\"@\302\211\2035\211@\300@\"@\206\211\205 \211A!\211\203,@BB\262\266A\266\202\202\210\211\237\207" [alist-get all nil] 10 (#$ . 8404)]) #@265 Return an alist of PACKAGES indexed by category. PACKAGES must be a list. Order is presever within categories. Categories are infered from the display list: it's the last word of the first associated symbol. If not found, category is `uninstalled'. (fn PACKAGES) (defalias 'helm-system-packages-categorize #[257 "\300\211\203I\211@\301\302\303 \304\"\"\211\203\"\305\306\307\310\311A@!#!\206#\312\301\"\211\2038\211AC\244\241\266\202BDB\262\266A\266\202\202\207" [nil assoc plist-get helm-system-packages--cache-get :display intern replace-regexp-in-string ".*\\W\\(\\w+\\)$" "\\1" symbol-name uninstalled] 11 (#$ . 9049)]) #@28 Toggle description column. (defalias 'helm-system-packages-toggle-descriptions #[0 "\203\n ?\302 \207\303\304!\207" [helm-alive-p helm-system-packages-show-descriptions-p helm-force-update error "Running helm command outside of context"] 2 (#$ . 9704) nil]) (put 'helm-system-packages-toggle-descriptions 'helm-only t) #@237 Extract package name from the candidate. This is useful because the Helm session runs over a buffer source, so there is only a REAL value which might contain additional display information such as the package description. (fn PACKAGE) (defalias 'helm-system-packages-extract-name #[257 "\203 \301!@\207\207" [helm-system-packages-show-descriptions-p split-string] 3 (#$ . 10033)]) #@166 Show package information contained in DESC-ALIST. DESC-ALIST's keys are ignored, the values are in the form ((package-name . package-desc)...) (fn DESC-ALIST) (defalias 'helm-system-packages-show-information #[257 "\211\204\303\304\305\306\307 \310#\"\207\203\311\312\313\314\"\"\207\315 !\210\316\317!\210\320 \210\321\322\323\313\324\"\"\325\"\211\203K\211@\326@\327\330\331\332A#\327\261\210A\266\202\202/\210eb\210\333 \210\334 \210\206Z\n?\205a\316\335!\207" [helm-current-prefix-arg helm-system-packages-buffer helm-system-packages-editable-info-p message "No information for package(s) %s" mapconcat identity helm-marked-candidates " " mapc insert mapcar cadr switch-to-buffer view-mode 0 erase-buffer sort apply append cdr #[514 "@@\231\207" [] 4 "\n\n(fn A B)"] "* " "\n" replace-regexp-in-string "^* " "- " org-mode outline-show-all 1] 10 (#$ . 10425)]) #@155 COMMAND to run with OPTIONS over the ARGS list. OPTIONS are insert before ARGS. Return the result as a string. (fn COMMAND &optional ARGS &rest OPTIONS) (defalias 'helm-system-packages-call #[641 "\300\301\302\"r\211q\210\303\304\"\216\305\306\307\310\307\311\n\"&\210\312 *\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] apply process-file nil (t nil) append buffer-string] 13 (#$ . 11321)]) #@72 COMMAND to run over `helm-marked-candidates'. (fn COMMAND &rest ARGS) (defalias 'helm-system-packages-run #[385 "\300\301 \"\302\303\304\"r\211q\210\305\306\"\216\307\310\311\312\311&\210\313 *\207" [append helm-marked-candidates generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] apply process-file nil (t nil) buffer-string] 11 (#$ . 11798)]) (make-obsolete 'helm-system-packages-run 'helm-system-packages-call "1.9.0") #@175 COMMAND to run over `helm-marked-candidates'. With prefix argument, insert the output at point. Otherwise display in `helm-system-packages-buffer'. (fn COMMAND &rest ARGS) (defalias 'helm-system-packages-print #[385 "\303\304B\"\211\305\230\203\306\307!\207\2040\310 !\210\311\312!\210\313 \210\314 \210\315\316\317#\262\315\320\321#\262\212\211c\210)\206:\n?\205A\311\322!\207" [helm-current-prefix-arg helm-system-packages-buffer helm-system-packages-editable-info-p apply helm-system-packages-run "" message "No result" switch-to-buffer view-mode 0 erase-buffer org-mode replace-regexp-in-string "\\`.*: " "* " "\n\n.*: " "\n* " 1] 7 (#$ . 12295)]) (make-obsolete 'helm-system-packages-print 'helm-system-packages-show-information "1.9.0") #@90 Prefix FILE with path to remote connection. If local, return FILE unmodified. (fn FILE) (defalias 'helm-system-packages-make-tramp-file-name '(macro . #[257 "\301\302\303W\203\304\305\306\307\310BBBBB\202'\304\311\312\313\314\315\316BBBBBBBE\207" [emacs-major-version let ((v (tramp-dissect-file-name default-directory))) 26 tramp-make-tramp-file-name (tramp-file-name-method v) (tramp-file-name-user v) (tramp-file-name-host v) ((tramp-file-name-hop v)) (tramp-file-name-method v) (tramp-file-name-user v) (tramp-file-name-domain v) (tramp-file-name-host v) (tramp-file-name-port v) ((tramp-file-name-hop v))] 11 (#$ . 13059)])) #@13 (fn FILE) (defalias 'helm-system-packages-prefix-remote #[257 "\302!\203|\303!\304\242 >\204\305\306\307D\"\210A@\242 >\204)\305\306\307D\"\210\3108\242 >\204;\305\306\307D\"\210\3118\242 >\204M\305\306\307D\"\210\3128\242 >\204_\305\306\307D\"\210\3138\242 >\204u\305\306\307\nD\"\210\3148&\207\207" [default-directory cl-struct-tramp-file-name-tags tramp-tramp-file-p tramp-dissect-file-name tramp-make-tramp-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 7] 13 (#$ . 13704)]) #@132 Build Helm file source for PACKAGE with FILES candidates. PACKAGES is a string and FILES is a list of strings. (fn PACKAGE FILES) (defalias 'helm-system-packages-build-file-source #[514 "\300\301!\210\302\303P\304\305\306\307\310\311\312\313\314\315\316\317&\207" [require helm-files helm-make-source " files" helm-source-sync :candidates :display-to-real helm-system-packages-prefix-remote :candidate-number-limit helm-ff-candidate-number-limit :persistent-action-if helm-find-files-persistent-action-if :keymap helm-find-files-map :action helm-find-files-actions] 17 (#$ . 14243)]) #@257 Run a `helm-find-files' over files in FILES FILES are either - a hash table whose keys are the package names and the values the list of files, - or a single list of files. In case of a hash table, one Helm source per package will be created. (fn FILES) (defalias 'helm-system-packages-find-files #[257 "\300!\301U\203\302\303\304\305\306 \307#\"\207\310\311!\210\312!\203.\313C\314\315\316\"\"\210\317\320\242\321\322$\207\317\320\323\324\"\321\322$\207" [hash-table-count 0 message "No file list for package(s) %s" mapconcat identity helm-marked-candidates " " require helm-files hash-table-p nil maphash make-closure #[514 "\300\301\"\300\242B\240\207" [V0 helm-system-packages-build-file-source] 6 "\n\n(fn PACKAGE FILES)"] helm :sources :buffer "*helm system package files*" helm-system-packages-build-file-source "Package files"] 7 (#$ . 14838)]) #@27 (fn COMMAND &rest ARGS) (defalias 'helm-system-packages-files #[385 "\301\302#\211\303\230\203\304\305!\207\203\211c\207\306\307\310\311\312\313\"\"\314\315$\207" [helm-current-prefix-arg apply helm-system-packages-call "" message "No result" helm :sources helm-system-packages-build-file-source "Packages" split-string "\n" :buffer "*helm system package files*"] 10 (#$ . 15710)]) (make-obsolete 'helm-system-packages-files 'helm-system-packages-find-files "1.9.0") #@143 Return the name of the shell buffer associated with `default-directory'. The basename is defined by `helm-system-packages-shell-buffer-name'. (defalias 'helm-system-packages-shell-name #[0 "\303\304 !\205o\305 !\211\242\n>\204\306\307\310D\"\210\3118\2043\211\242\n>\204-\306\307\310D\"\210\3128\205m\313\242\n>\204B\306\307\310D\"\210\3118\242\n>\204S\306\307\310D\"\210\3128\205Z\314\242\n>\204i\306\307\310D\"\210\3128R\262\303R\207" [helm-system-packages-shell-buffer-name default-directory cl-struct-tramp-file-name-tags "*" tramp-tramp-file-p tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 4 " " "@"] 10 (#$ . 16194)]) #@183 Call COMMAND ARGS PACKAGES as root. ARGS and PACKAGES must be lists. COMMAND will be run in the Eshell buffer named by `helm-system-packages-shell-name'. (fn COMMAND ARGS PACKAGES) (defalias 'helm-system-packages-call-as-root #[771 "\302\303!\210\211\204\f\304\305!\207\306\"\307 \310 \210\311 \203!\304\312!\202IB\262\313B\262\314\315\316\317\320$\210\314\315\321\320\211$\210db\210\322\323\324#c\210 \205I\325 )\207" [eshell-buffer-name helm-system-packages-auto-send-commandline-p require esh-mode message "No suitable package selected" append helm-system-packages-shell-name eshell eshell-interactive-process "A process is already running" "sudo" add-hook eshell-post-command-hook helm-system-packages-refresh nil t #[0 "\300\301\302\303#\207" [remove-hook eshell-post-command-hook helm-system-packages-refresh t] 4] mapconcat identity " " eshell-send-input] 9 (#$ . 16874)]) #@151 COMMAND to run over `helm-marked-candidates'. COMMAND will be run in the Eshell buffer `helm-system-packages-eshell-buffer'. (fn COMMAND &rest ARGS) (defalias 'helm-system-packages-run-as-root #[385 "\300\301 #\207" [helm-system-packages-call-as-root helm-marked-candidates] 6 (#$ . 17775)]) #@176 COMMAND to run over installed packages among `helm-marked-candidates'. COMMAND will be run in the Eshell buffer `helm-system-packages-eshell-buffer'. (fn COMMAND &rest ARGS) (defalias 'helm-system-packages-run-as-root-over-installed #[385 "\300\301\302\303 \"#\207" [helm-system-packages-call-as-root seq-filter #[257 "\300\301\302 \303\"\"\207" [assoc plist-get helm-system-packages--cache-get :display] 6 "\n\n(fn P)"] helm-marked-candidates] 8 (#$ . 18077)]) #@294 Run a Helm session over the packages in PACKAGE-ALIST. The key of the alist is ignored and the package lists are considered as one single list. This may change in the future. The value is a string buffer, like the cache. TITLE is the name of the Helm session. (fn PKG-ALIST &optional TITLE) (defalias 'helm-system-packages-show-packages #[513 "\204\304\305\306\307\310 \311#\"\207\312\313\314 \315\"\316\317\320\"r\211q\210\321\322\"\216\323\324\325\326\"\"\210\327\312ed#\210\330ed\"\210\331 *\262\332\333\320#\211\203t\211@\334\335\336Q\"\203\\\337\340\"\333Q\262\202m\211B\341 GZ\342\"\343R\262A\266\202\202?\210\344\211\n\236\345\315\346\n\257\203\220\241\210\202\226\344B\nB\347 )\207" [helm-system-packages--virtual-list helm-system-packages-column-width helm-system-packages--cache helm-system-packages--cache-current message "No dependency list for package(s) %s" mapconcat identity helm-marked-candidates " " nil plist-get helm-system-packages--cache-get :descriptions generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] mapc insert mapcar cdr sort-lines delete-duplicate-lines buffer-string split-string "\n" string-match "^" " .*$" match-string 0 make-string 32 " \n" dependencies :names :title helm-system-packages] 13 (#$ . 18550)]) #@62 Browse homepage URLs of `helm-marked-candidates'. (fn URLS) (defalias 'helm-system-packages-browse-url #[257 "\211\204\300\301!\207\302\303\304\305\306\307\310\307\311\307&\"\207" [message "No result" mapc browse-url helm-comp-read "URL: " :must-match t :exec-when-only-one :marked-candidates] 12 (#$ . 19922)]) #@59 Return non-nil if some DEPS are missing. (fn &rest DEPS) (defalias 'helm-system-packages-missing-dependencies-p #[128 "\300\301\"\211\205\302\303\304\305\306#\"\207" [seq-remove #[257 "\301!\203\302\303!\304#\207\305!\207" [default-directory tramp-tramp-file-p tramp-find-executable tramp-dissect-file-name nil executable-find] 5 "\n\n(fn P)"] message "Dependencies are missing (%s), please install them" mapconcat identity ", "] 8 (#$ . 20245)]) #@87 compiler-macro for inlining `helm-system-packages-manager-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'helm-system-packages-manager-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block helm-system-packages-manager-p (and (memq (type-of cl-x) cl-struct-helm-system-packages-manager-tags) t)) nil] 9 (#$ . 20709)]) (put 'helm-system-packages-manager-p 'compiler-macro 'helm-system-packages-manager-p--cmacro) #@13 (fn CL-X) (defalias 'helm-system-packages-manager-p #[257 "\301!>\205 \302\207" [cl-struct-helm-system-packages-manager-tags type-of t] 3 (#$ . 21152)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put helm-system-packages-manager-p side-effect-free error-free put helm-system-packages-manager cl-deftype-satisfies] 5) #@90 compiler-macro for inlining `helm-system-packages-manager-name'. (fn CL-WHOLE-ARG CL-X) (defalias 'helm-system-packages-manager-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block helm-system-packages-manager-name (progn (or (helm-system-packages-manager-p cl-x) (signal 'wrong-type-argument (list 'helm-system-packages-manager cl-x))) (aref cl-x 1))) nil] 9 (#$ . 21499)]) (put 'helm-system-packages-manager-name 'compiler-macro 'helm-system-packages-manager-name--cmacro) #@78 Access slot "name" of `helm-system-packages-manager' struct CL-X. (fn CL-X) (defalias 'helm-system-packages-manager-name #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-helm-system-packages-manager-tags type-of signal wrong-type-argument helm-system-packages-manager 1] 5 (#$ . 22020)]) (byte-code "\300\301\302\303#\300\207" [function-put helm-system-packages-manager-name side-effect-free t] 4) #@102 compiler-macro for inlining `helm-system-packages-manager-refresh-function'. (fn CL-WHOLE-ARG CL-X) (defalias 'helm-system-packages-manager-refresh-function--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block helm-system-packages-manager-refresh-function (progn (or (helm-system-packages-manager-p cl-x) (signal 'wrong-type-argument (list 'helm-system-packages-manager cl-x))) (aref cl-x 2))) nil] 9 (#$ . 22444)]) (put 'helm-system-packages-manager-refresh-function 'compiler-macro 'helm-system-packages-manager-refresh-function--cmacro) #@90 Access slot "refresh-function" of `helm-system-packages-manager' struct CL-X. (fn CL-X) (defalias 'helm-system-packages-manager-refresh-function #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-helm-system-packages-manager-tags type-of signal wrong-type-argument helm-system-packages-manager 2] 5 (#$ . 23025)]) (byte-code "\300\301\302\303#\300\207" [function-put helm-system-packages-manager-refresh-function side-effect-free t] 4) #@98 compiler-macro for inlining `helm-system-packages-manager-dependencies'. (fn CL-WHOLE-ARG CL-X) (defalias 'helm-system-packages-manager-dependencies--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block helm-system-packages-manager-dependencies (progn (or (helm-system-packages-manager-p cl-x) (signal 'wrong-type-argument (list 'helm-system-packages-manager cl-x))) (aref cl-x 3))) nil] 9 (#$ . 23484)]) (put 'helm-system-packages-manager-dependencies 'compiler-macro 'helm-system-packages-manager-dependencies--cmacro) #@86 Access slot "dependencies" of `helm-system-packages-manager' struct CL-X. (fn CL-X) (defalias 'helm-system-packages-manager-dependencies #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-helm-system-packages-manager-tags type-of signal wrong-type-argument helm-system-packages-manager 3] 5 (#$ . 24045)]) (byte-code "\300\301\302\303#\300\207" [function-put helm-system-packages-manager-dependencies side-effect-free t] 4) #@98 compiler-macro for inlining `helm-system-packages-manager-help-message'. (fn CL-WHOLE-ARG CL-X) (defalias 'helm-system-packages-manager-help-message--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block helm-system-packages-manager-help-message (progn (or (helm-system-packages-manager-p cl-x) (signal 'wrong-type-argument (list 'helm-system-packages-manager cl-x))) (aref cl-x 4))) nil] 9 (#$ . 24492)]) (put 'helm-system-packages-manager-help-message 'compiler-macro 'helm-system-packages-manager-help-message--cmacro) #@86 Access slot "help-message" of `helm-system-packages-manager' struct CL-X. (fn CL-X) (defalias 'helm-system-packages-manager-help-message #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-helm-system-packages-manager-tags type-of signal wrong-type-argument helm-system-packages-manager 4] 5 (#$ . 25053)]) (byte-code "\300\301\302\303#\300\207" [function-put helm-system-packages-manager-help-message side-effect-free t] 4) #@92 compiler-macro for inlining `helm-system-packages-manager-keymap'. (fn CL-WHOLE-ARG CL-X) (defalias 'helm-system-packages-manager-keymap--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block helm-system-packages-manager-keymap (progn (or (helm-system-packages-manager-p cl-x) (signal 'wrong-type-argument (list 'helm-system-packages-manager cl-x))) (aref cl-x 5))) nil] 9 (#$ . 25500)]) (put 'helm-system-packages-manager-keymap 'compiler-macro 'helm-system-packages-manager-keymap--cmacro) #@80 Access slot "keymap" of `helm-system-packages-manager' struct CL-X. (fn CL-X) (defalias 'helm-system-packages-manager-keymap #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-helm-system-packages-manager-tags type-of signal wrong-type-argument helm-system-packages-manager 5] 5 (#$ . 26031)]) (byte-code "\300\301\302\303#\300\207" [function-put helm-system-packages-manager-keymap side-effect-free t] 4) #@97 compiler-macro for inlining `helm-system-packages-manager-transformer'. (fn CL-WHOLE-ARG CL-X) (defalias 'helm-system-packages-manager-transformer--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block helm-system-packages-manager-transformer (progn (or (helm-system-packages-manager-p cl-x) (signal 'wrong-type-argument (list 'helm-system-packages-manager cl-x))) (aref cl-x 6))) nil] 9 (#$ . 26460)]) (put 'helm-system-packages-manager-transformer 'compiler-macro 'helm-system-packages-manager-transformer--cmacro) #@85 Access slot "transformer" of `helm-system-packages-manager' struct CL-X. (fn CL-X) (defalias 'helm-system-packages-manager-transformer #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-helm-system-packages-manager-tags type-of signal wrong-type-argument helm-system-packages-manager 6] 5 (#$ . 27016)]) (byte-code "\300\301\302\303#\300\207" [function-put helm-system-packages-manager-transformer side-effect-free t] 4) #@93 compiler-macro for inlining `helm-system-packages-manager-actions'. (fn CL-WHOLE-ARG CL-X) (defalias 'helm-system-packages-manager-actions--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block helm-system-packages-manager-actions (progn (or (helm-system-packages-manager-p cl-x) (signal 'wrong-type-argument (list 'helm-system-packages-manager cl-x))) (aref cl-x 7))) nil] 9 (#$ . 27460)]) (put 'helm-system-packages-manager-actions 'compiler-macro 'helm-system-packages-manager-actions--cmacro) #@81 Access slot "actions" of `helm-system-packages-manager' struct CL-X. (fn CL-X) (defalias 'helm-system-packages-manager-actions #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-helm-system-packages-manager-tags type-of signal wrong-type-argument helm-system-packages-manager 7] 5 (#$ . 27996)]) (byte-code "\300\301\302\303#\300\207" [function-put helm-system-packages-manager-actions side-effect-free t] 4) #@173 compiler-macro for inlining `helm-system-packages-manager-create'. (fn CL-WHOLE &cl-quote &key NAME REFRESH-FUNCTION DEPENDENCIES HELP-MESSAGE KEYMAP TRANSFORMER ACTIONS) (defalias 'helm-system-packages-manager-create--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\211\203Y\211@\310>\203A\211AA\262\202.\311 >A@\203P\312\262\202.\313\314@\"\210\202.\210\315\316\317\312\f\312\f\f\f\f\f\f\f&\f\207" [plist-member :name :refresh-function :dependencies :help-message :keymap :transformer :actions (:name :refresh-function :dependencies :help-message :keymap :transformer :actions :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :refresh-function :dependencies :help-message :keymap :transformer :actions)" cl--defsubst-expand (name refresh-function dependencies help-message keymap transformer actions) (cl-block helm-system-packages-manager-create (record 'helm-system-packages-manager name refresh-function dependencies help-message keymap transformer actions))] 22 (#$ . 28429)]) (put 'helm-system-packages-manager-create 'compiler-macro 'helm-system-packages-manager-create--cmacro) #@151 Constructor for objects of type `helm-system-packages-manager'. (fn &key NAME REFRESH-FUNCTION DEPENDENCIES HELP-MESSAGE KEYMAP TRANSFORMER ACTIONS) (defalias 'helm-system-packages-manager-create #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\211\203Y\211@\310>\203A\211AA\262\202.\311 >A@\203P\312\262\202.\313\314@\"\210\202.\210\315\316&\207" [plist-member :name :refresh-function :dependencies :help-message :keymap :transformer :actions (:name :refresh-function :dependencies :help-message :keymap :transformer :actions :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :refresh-function :dependencies :help-message :keymap :transformer :actions)" record helm-system-packages-manager] 17 (#$ . 29641)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \207" [function-put helm-system-packages-manager-create side-effect-free t cl-struct-define helm-system-packages-manager "Package manager interface.\n\nDEPENDENCIES is a list of strings of external executables\nrequired by the package manager.\n\nHELP-MESSAGE, KEYMAP, TRANSFORMER and ACTIONS are as specified by\n`helm-build-in-buffer-source'." cl-structure-object record nil ((cl-tag-slot) (name) (refresh-function) (dependencies) (help-message) (keymap) (transformer) (actions)) cl-struct-helm-system-packages-manager-tags] 11) #@46 Build Helm source for MANAGER. (fn MANAGER) (defalias 'helm-system-packages-build-source #[257 "\302\303 \304\"\206 \305\306\307\310\311!\312\313!>\204#\314\315\316\nD\"\210\317H\320 \321\322\323\313!>\204=\314\315\316D\"\210 \324H\325\313!>\204S\314\315\316D\"\210\326H\327\330\331\313!>\204k\314\315\316D\"\210\332H&\207" [cl-struct-helm-system-packages-manager-tags helm-system-packages-candidate-limit plist-get helm-system-packages--cache-get :title "package manager" helm-make-source helm-source-in-buffer :init helm-system-packages--make-init :candidate-transformer type-of signal wrong-type-argument helm-system-packages-manager 6 :candidate-number-limit :display-to-real helm-system-packages-extract-name :keymap 5 :help-message 4 :persistent-help "Show package description" :action 7] 24 (#$ . 31075)]) #@175 Helm user interface for system packages. By default choose the package manager dedicated to this system, with a prefix arg allow choosing package manager (fn &optional ARG) (defalias 'helm-system-packages #[256 "\306\307!\203\310\311\312\313\"\"\202D\314\211\211\211:\203B@\262\211A\262\242\262\315\"\2051\211\262?\211\262\203BA\262\202\266\204\203S\315\316\"@\"\202T\211\204h\317\320 \321=\203c\322\202d\323\314\211$\210\203r\314\211\314\324\325\326P!!\210\327\325\326P!!\203\325\325\326P!J\330\331\332! >\204\233\333\334\335D\"\210\336H\"?\205\324\337\340\341!\342\343\344\332! >\204\274\333\334\335 D\"\210\345H\"\346\347\350/\205\322\351\352\353!\206\321\354!&\207\355\325\326\356Q!M\210\325\326P! \207" [default-directory system-type helm-system-packages--cache helm-system-packages--virtual-list helm-system-packages--cache-current cl-struct-helm-system-packages-manager-tags (("emerge" . "portage") ("dnf" . "dnf") ("dpkg" . "dpkg") ("pacman" . "pacman") ("xbps-query" . "xbps") ("brew" . "brew") ("guix" . "guix")) file-remote-p completing-read "Choose manager: " mapcar cdr nil executable-find rassoc cl--assertion-failed (if arg (executable-find (car (rassoc manager managers)) remote) manager) darwin "No supported package manager was found. Check your `exec-path'." "No supported package manager was found." require intern "helm-system-packages-" boundp apply helm-system-packages-missing-dependencies-p type-of signal wrong-type-argument helm-system-packages-manager 3 helm :sources helm-system-packages-build-source :buffer format "*helm %s*" 1 :truncate-lines t :input substring-no-properties thing-at-point symbol "" helm-system-packages-refresh "-refresh" helm-system-packages-use-symbol-at-point-p] 17 (#$ . 31931) "P"]) (provide 'helm-system-packages)