;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\303\304\305\306\307DD\310\311\301\312\313&\207" [require helm-system-packages seq custom-declare-variable helm-system-packages-dnf-actions funcall function #[0 "\300\301B\302\303B\304\305B\306\307B\310\311B\257\207" ["Show package(s)" helm-system-packages-dnf-info "Install" helm-system-packages-dnf-install "Uninstall" helm-system-packages-dnf-uninstall "Browse homepage URL" helm-system-packages-dnf-browse-url "Find files" helm-system-packages-dnf-find-files] 6] "Actions for Helm DNF." :group :type (alist :key-type string :value-type function)] 8) #@93 Convert "Key : value" to "- Key :: value". This is org format for description list items. (defalias 'helm-system-packages-dnf--package-attributes-to-org-description-list #[0 "eb\210\300\301\302\303#\205\304\305!\304\306!\307\310\311#\302\303#\266\202\207" [re-search-forward "^\\(\\<[^ ]*\\) +: \\(.*\\)$" nil t match-string-no-properties 1 2 replace-match format "- %s :: %s"] 7 (#$ . 681)]) #@68 Return a list of (NAME . DESC) describing PACKAGES. (fn PACKAGES) (defalias 'helm-system-packages-dnf--info #[257 "\300 \301\302\"\216\303\304\305\"r\211q\210\301\306\"\216\307\310\311\312\305\312\313 &\210eb\210\314 \210\315 \210eb\210\312\316\317\312\305#\203T\320\321!\322\323\224\300 \301\324\"\216\316\325!\210\323\224)\262\"BB\262\202-\211\237\262*\262)\207" [match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] generate-new-buffer " *temp*" t #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] apply process-file "dnf" nil "info" helm-system-packages-dnf--merge-descriptions helm-system-packages-dnf--package-attributes-to-org-description-list re-search-forward "^- Name :: \\(.*\\)$" match-string-no-properties 1 buffer-substring-no-properties 0 #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] "^$"] 11 (#$ . 1089)]) #@159 Print information about helm CANDIDATE. With prefix argument, insert the output at point. Otherwise display in `helm-system-packages-buffer'. (fn CANDIDATE) (defalias 'helm-system-packages-dnf-info #[257 "\301\302\303\203\fC\202\304 !BC!\207" [helm-in-persistent-action helm-system-packages-show-information uninstalled helm-system-packages-dnf--info helm-marked-candidates] 5 (#$ . 1990)]) #@36 Install marked candidates. (fn _) (defalias 'helm-system-packages-dnf-install #[257 "\300\301\302\"\207" [helm-system-packages-run-as-root "dnf" "install"] 4 (#$ . 2393)]) #@38 Uninstall marked candidates. (fn _) (defalias 'helm-system-packages-dnf-uninstall #[257 "\300\301\302\"\207" [helm-system-packages-run-as-root "dnf" "remove"] 4 (#$ . 2572)]) #@160 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-dnf-browse-url #[257 "\300\301 \302\303\"\216\304\305\306\"r\211q\210\302\307\"\216\310\311\312\313\306\313\314\315 &\210eb\210\313\316\317\313\306#\2038\211\320\321!C\244\262\202%\322\323\"\262*\262)\262!\207" [helm-system-packages-browse-url match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] generate-new-buffer " *temp*" t #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] apply process-file "dnf" nil "info" helm-marked-candidates re-search-forward "^URL *: \\(.*\\)$" match-string-no-properties 1 seq-uniq string=] 12 (#$ . 2755)]) #@64 Return a list of all files installed by PACKAGE. (fn PACKAGE) (defalias 'helm-system-packages-dnf--list-files #[257 "\300\301\"\210\302 \303\304\"\216\305\306\307\"r\211q\210\303\310\"\216\311\312\313\307\313\314\315 &\210eb\210\313\316\317\313\307#\203;\320\321!B\262\202)\211\237\262*\262)\207" [message "Collecting files of %s" match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] generate-new-buffer " *temp*" t #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] process-file "dnf" nil "repoquery" "-l" re-search-forward "^\\(/.*\\)$" match-string-no-properties 1] 11 (#$ . 3548)]) #@43 Find files for marked candidates. (fn _) (defalias 'helm-system-packages-dnf-find-files #[257 "\300\301\302\"\303 \211\203\211@\304\305!#\210A\266\202\202\210\306!\207" [make-hash-table :test equal helm-marked-candidates puthash helm-system-packages-dnf--list-files helm-system-packages-find-files] 8 (#$ . 4197)]) #@61 Remove every line of current package that is not a package. (defalias 'helm-system-packages-dnf--delete-non-package-lines #[0 "eb\210e\300\301!|\207" [line-beginning-position 2] 3 (#$ . 4528)]) #@73 Merge description of packages spanning several lines in current buffer. (defalias 'helm-system-packages-dnf--merge-descriptions #[0 "eb\210\300\301\302\303#\205\304\305!`|\210\202\207" [re-search-forward "^ *\\(...\\|\\):" nil t line-end-position 0] 4 (#$ . 4728)]) #@108 Format each package and description in current buffer. In particular, descriptions are vertically aligned. (defalias 'helm-system-packages-dnf--format-packages #[0 "eb\210\301 \302\303\"\216\304\305\306\307#\205+\310\311!\310\312!\313\314\315\316!\317Q#\306\307#\266\202\n)\207" [helm-system-packages-column-width match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] re-search-forward "^\\([^ ]*\\) : \\(.*\\)$" nil t match-string 1 2 replace-match format "%-" number-to-string "s %s"] 8 (#$ . 5005)]) #@50 Sort packages in current buffer by package name. (defalias 'helm-system-packages-dnf--sort-by-package-name #[0 "\300\301ed#\207" [sort-lines nil] 4 (#$ . 5549)]) #@56 List all packages in current buffer with descriptions. (defalias 'helm-system-packages-dnf--list-packages #[0 "\300\301\302\303\302\304\305\306&\210\307 \210\310 \210\311 \210\312 \207" [process-file "dnf" nil (t nil) "search" "--quiet" "*" helm-system-packages-dnf--delete-non-package-lines helm-system-packages-dnf--merge-descriptions helm-system-packages-dnf--format-packages helm-system-packages-dnf--sort-by-package-name] 8 (#$ . 5717)]) #@79 Remove all package descriptions in current buffer. Only package names remain. (defalias 'helm-system-packages-dnf--remove-descriptions #[0 "eb\210\300\301\302\303#\205\304\225\305 |\210\202\207" [re-search-forward "^[^ ]+" nil t 0 line-end-position] 4 (#$ . 6167)]) #@27 Refresh the package list. (defalias 'helm-system-packages-dnf-refresh #[0 "\300 \301\302\"\216\303\304\305\"r\211q\210\301\306\"\216\307 \210\310 \311 \210\312\310 \313\314$\262*\262)\207" [match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] generate-new-buffer " *temp*" t #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] helm-system-packages-dnf--list-packages buffer-string helm-system-packages-dnf--remove-descriptions helm-system-packages--cache-set nil "dnf"] 8 (#$ . 6443) nil]) (defvar helm-system-packages-dnf (byte-code "\301\302\303\304\305\306\211\211&\207" [helm-system-packages-dnf-actions record helm-system-packages-manager "dnf" helm-system-packages-dnf-refresh ("dnf") nil] 9)) (provide 'helm-system-packages-dnf)