;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\302\303\304\305\306DD\307\310\301\311\312&\207" [require helm-system-packages custom-declare-variable helm-system-packages-dpkg-confirm-p funcall function #[0 "\300\207" [t] 1] "By default readline interface is used to prompt questions.\nIf this variable is nil, then the default answers will be used\nfor all questions (noninteractive mode of dpkg)." :group :type bool] 8) (defvar helm-system-packages-dpkg-help-message "* Helm dpkg\n\nRequirements:\n\n** Commands\n\\\n\\[helm-system-packages-dpkg-toggle-explicit] Toggle display of explicitly installed packages.\n\\[helm-system-packages-dpkg-toggle-uninstalled] Toggle display of non-installed.\n\\[helm-system-packages-dpkg-toggle-dependencies] Toggle display of dependencies.\n\\[helm-system-packages-dpkg-toggle-residuals] Toggle display of package with residual configuration files.\n\\[helm-system-packages-toggle-descriptions] Toggle display of package descriptions.") (defvar helm-system-packages-dpkg-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\207" [helm-map make-sparse-keymap set-keymap-parent define-key [134217801] helm-system-packages-dpkg-toggle-explicit [134217806] helm-system-packages-dpkg-toggle-uninstalled [134217796] helm-system-packages-dpkg-toggle-dependencies [134217810] helm-system-packages-dpkg-toggle-residuals "" helm-system-packages-toggle-descriptions] 5)) (defvar helm-system-packages-dpkg--show-uninstalled-p t) (defvar helm-system-packages-dpkg--show-explicit-p t) (defvar helm-system-packages-dpkg--show-dependencies-p t) (defvar helm-system-packages-dpkg--show-residuals-p t) (defalias 'helm-system-packages-dpkg-toggle-explicit #[0 "\203\n ?\302 \207\303\304!\207" [helm-alive-p helm-system-packages-dpkg--show-explicit-p helm-update error "Running helm command outside of context"] 2 nil nil]) (put 'helm-system-packages-dpkg-toggle-explicit 'helm-only t) (defalias 'helm-system-packages-dpkg-toggle-uninstalled #[0 "\203\n ?\302 \207\303\304!\207" [helm-alive-p helm-system-packages-dpkg--show-uninstalled-p helm-update error "Running helm command outside of context"] 2 nil nil]) (put 'helm-system-packages-dpkg-toggle-uninstalled 'helm-only t) (defalias 'helm-system-packages-dpkg-toggle-dependencies #[0 "\203\n ?\302 \207\303\304!\207" [helm-alive-p helm-system-packages-dpkg--show-dependencies-p helm-update error "Running helm command outside of context"] 2 nil nil]) (put 'helm-system-packages-dpkg-toggle-dependencies 'helm-only t) (defalias 'helm-system-packages-dpkg-toggle-residuals #[0 "\203\n ?\302 \207\303\304!\207" [helm-alive-p helm-system-packages-dpkg--show-residuals-p helm-update error "Running helm command outside of context"] 2 nil nil]) (put 'helm-system-packages-dpkg-toggle-residuals 'helm-only t) #@17 (fn PACKAGES) (defalias 'helm-system-packages-dpkg-transformer #[257 "\304\305!\211\211\203W\211@\306\307!\310\311 \312\"\"A\211\204'\203OB\262\210\202P \2031\313>\204E\n\203;\314>\204E \203O\315>\203O\316\317@#B\262\210A\266\202\202\207" [helm-system-packages-dpkg--show-uninstalled-p helm-system-packages-dpkg--show-explicit-p helm-system-packages-dpkg--show-dependencies-p helm-system-packages-dpkg--show-residuals-p nil reverse assoc helm-system-packages-extract-name plist-get helm-system-packages--cache-get :display helm-system-packages-explicit helm-system-packages-dependencies helm-system-packages-residuals propertize face] 10 (#$ . 2962)]) #@37 List explicitly installed packages. (defalias 'helm-system-packages-dpkg-list-explicit #[0 "\300\301\302\303\"r\211q\210\304\305\"\216\306\307\310\303\310\311%\210\312 *\262!\207" [split-string generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] process-file "apt-mark" nil "showmanual" buffer-string] 8 (#$ . 3649)]) #@42 List packages installed as a dependency. (defalias 'helm-system-packages-dpkg-list-dependencies #[0 "\300\301\302\303\"r\211q\210\304\305\"\216\306\307\310\303\310\311%\210\312 *\262!\207" [split-string generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] process-file "apt-mark" nil "showauto" buffer-string] 8 (#$ . 4035)]) #@51 List packages with left-over configuration files. (defalias 'helm-system-packages-dpkg-list-residuals #[0 "\300\301\302\303\304\"r\211q\210\305\306\"\216\307\310\300\304\300\311%\210\312 *\262\313\"\211\203=\211@\301!\211A@\314\230\2035\211@B\262\210A\266\202\202\207" [nil split-string generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] process-file "dpkg" "--get-selections" buffer-string "\n" "deinstall"] 9 (#$ . 4428)]) #@26 Cache all package names. (defalias 'helm-system-packages-dpkg-cache-names #[0 "\300\301\302\"r\211q\210\303\304\"\216\305\306\307\302\307\310%\210\311 *\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] process-file "apt-cache" nil "pkgnames" buffer-string] 7 (#$ . 4931)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable helm-system-packages-dpkg-column-width funcall function #[0 "\300\207" [40] 1] "Column at which descriptions are aligned, excluding a double-space gap." :group helm-system-packages :type interger] 8) #@44 Cache all package names with descriptions. (defalias 'helm-system-packages-dpkg-cache-descriptions #[0 "\301\302\303\"r\211q\210\304\305\"\216\306\307\310\311\310\312\313&\210eb\210\314\315\310\303#\203B\316\317!\210\320u\210`\321 Z\211W\203;\322Z\323\"c\210\210\310y\210\202\324 *\207" [helm-system-packages-dpkg-column-width generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] process-file "apt-cache" nil (t nil) "search" "." search-forward " " delete-char 1 -1 line-beginning-position make-string 32 buffer-string] 8 (#$ . 5567)]) #@27 Refresh the package list. (defalias 'helm-system-packages-dpkg-refresh #[0 "\300 \301 \302 \303\211\203\211@\211\304BB\262A\266\202\202\210\211\2032\211@\211\305BB\262A\266\202\202\210\211\203H\211@\211\306BB\262A\266\202\2024\210\307\310 \311 \312$\207" [helm-system-packages-dpkg-list-explicit helm-system-packages-dpkg-list-dependencies helm-system-packages-dpkg-list-residuals nil (helm-system-packages-explicit) (helm-system-packages-dependencies) (helm-system-packages-residuals) helm-system-packages--cache-set helm-system-packages-dpkg-cache-names helm-system-packages-dpkg-cache-descriptions "dpkg"] 9 (#$ . 6177) nil]) #@166 Print information about the selected packages. With prefix argument, insert the output at point. Otherwise display in `helm-system-packages-buffer'. (fn CANDIDATE) (defalias 'helm-system-packages-dpkg-info #[257 "\301\302\303\304\203 C\202\305 \"BC!\207" [helm-in-persistent-action helm-system-packages-show-information uninstalled mapcar #[257 "\211\300\301\302\303$B\207" [helm-system-packages-call "apt-cache" nil "show"] 7 "\n\n(fn PKG)"] helm-marked-candidates] 6 (#$ . 6835)]) #@161 Print homepage URLs of `helm-marked-candidates'. With prefix argument, insert the output at point. Otherwise display in `helm-system-packages-buffer'. (fn _) (defalias 'helm-system-packages-dpkg-browse-url #[257 "\300\301\302 \303#\304\305\306\307#\211\203(\211@\310\311\"\203!\312\313\"B\262A\266\202\202\f\210\314!\207" [helm-system-packages-call "apt-cache" helm-marked-candidates "show" nil split-string "\n" t string-match "^Homepage: \\(.*\\)" match-string 1 helm-system-packages-browse-url] 8 (#$ . 7332)]) #@43 Find files for marked candidates. (fn _) (defalias 'helm-system-packages-dpkg-find-files #[257 "\300\301\302\303\"\304 \211\203:\211@\305\306\307\310\311$\312\313#\211\2032\211@\314\315\"B#\266A\266\202\202\210A\266\202\202\262\262!\207" [helm-system-packages-find-files make-hash-table :test equal helm-marked-candidates split-string helm-system-packages-call "dpkg" nil "--listfiles" "\n" t puthash gethash] 15 (#$ . 7864)]) #@163 List candidate dependencies for `helm-system-packages-show-packages'. If REVERSE is non-nil, list reverse dependencies instead. (fn CANDIDATE &optional REVERSE) (defalias 'helm-system-packages-dpkg-show-dependencies #[513 "\211\203\300\202 \301\203\302\202\303\304\305\306\307 \310#Q\311\312\313\314\307 #BC\"\207" ["rdepends" "depends" "Reverse dependencies" "Dependencies" " of " mapconcat identity helm-marked-candidates " " helm-system-packages-show-packages uninstalled helm-system-packages-call "apt-cache"] 10 (#$ . 8319)]) #@19 (fn &rest ARGS) (defalias 'helm-system-packages-make-apt-get-command #[128 "\301\302\"\203\303B\211\262\207\304B\211\262\207" [helm-system-packages-dpkg-confirm-p append ("apt-get" "--quiet") "DEBIAN_FRONTEND=readline" "DEBIAN_FRONTEND=noninteractive"] 4 (#$ . 8868)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable helm-system-packages-dpkg-actions funcall function #[0 "\300\207" [(("Show package(s)" . helm-system-packages-dpkg-info) ("Install (`C-u' to reinstall)" lambda (_) (apply 'helm-system-packages-run-as-root (helm-system-packages-make-apt-get-command "install" (when helm-current-prefix-arg "--reinstall")))) ("Uninstall (`C-u' to include dependencies)" lambda (_) (apply 'helm-system-packages-run-as-root-over-installed (helm-system-packages-make-apt-get-command "remove" (when helm-current-prefix-arg "--auto-remove")))) ("Browse homepage URL" . helm-system-packages-dpkg-browse-url) ("Find files" . helm-system-packages-dpkg-find-files) ("Show dependencies" . helm-system-packages-dpkg-show-dependencies) ("Show reverse dependencies" lambda (_) (helm-system-packages-dpkg-show-dependencies _ 'reverse)) ("Uninstall/Purge (`C-u' to include dependencies)" lambda (_) (apply 'helm-system-packages-run-as-root-over-installed (helm-system-packages-make-apt-get-command "purge" (when helm-current-prefix-arg "--auto-remove")))))] 1] "Actions for Helm dpkg." :group helm-system-packages :type (alist :key-type string :value-type function)] 8) #@28 Build Helm source for dpkg (defalias 'helm-system-packages-dpkg-build-source #[0 "\303\304 \305\"\206 \306\307\310\311\312\313\314\315\316\317\320 \321\322\323\324\325\n&\207" [helm-system-packages-candidate-limit helm-system-packages-dpkg-map helm-system-packages-dpkg-actions plist-get helm-system-packages--cache-get :title "package manager" helm-make-source helm-source-in-buffer :init helm-system-packages-init :candidate-transformer helm-system-packages-dpkg-transformer :candidate-number-limit :display-to-real helm-system-packages-extract-name :keymap :help-message helm-system-packages-dpkg-help-message :persistent-help "Show package description" :action] 20 (#$ . 10376)]) #@32 Preconfigured `helm' for dpkg. (defalias 'helm-system-packages-dpkg #[0 "\301\302\303\304#?\205!\305\306\307 \310\311\312\313\314\205\315\316\317!\206\320!&\207" [helm-system-packages-use-symbol-at-point-p helm-system-packages-missing-dependencies-p "apt-get" "apt-cache" "apt-mark" helm :sources helm-system-packages-dpkg-build-source :buffer "*helm dpkg*" :truncate-lines t :input substring-no-properties thing-at-point symbol ""] 11 (#$ . 11070)]) (provide 'helm-system-packages-dpkg)