;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\302%\210\311\312\313\314\315DD\316\310\305\317\320&\210\311\321\313\314\322DD\323\310\305\317\324&\207" [require cl-lib helm helm-help custom-declare-group helm-man nil "Man and Woman applications for Helm." :group custom-declare-variable helm-man-or-woman-function funcall function #[0 "\300\207" [Man-getpage-in-background] 1] "Default command to display a man page." :type (radio :tag "Preferred command to display a man page" (const :tag "Man" Man-getpage-in-background) (const :tag "Woman" woman)) helm-man-format-switches #[0 "\301>\203\302\207\303\207" [system-type (darwin macos) "%s" "-l %s"] 2] "Arguments to pass to the `manual-entry' function.\nArguments are passed to `manual-entry' with `format.'" string] 8) #@94 All man pages on system. Will be calculated the first time you invoke Helm with this source. (defvar helm-man--pages nil (#$ . 887)) #@78 Default action for jumping to a woman or man page from Helm. (fn CANDIDATE) (defalias 'helm-man-default-action #[257 "\302\303\304!\"\3051B\211A\203\306\307\310\311$\202\211@\312=\203)\313\314 \"!\202>\31514\316!0\202>\210\317 \210\313\314 \"!\2620\207\210\317 \210\312!\207" [helm-man-or-woman-function helm-man-format-switches mapcar car woman-file-name-all-completions (error) helm-comp-read "ManFile: " :must-match t Man-getpage-in-background manual-entry format (error) woman-find-file kill-buffer] 7 (#$ . 1026)]) (defalias 'helm-man--init #[0 "\305\306!\210\305\307!\210\204\310 \n\"\304 !\311\312\f\"\313\314\"\207" [helm-man--pages woman-manpath woman-path woman-expanded-directory-path woman-topic-all-completions require woman helm-utils woman-expand-directory-path mapcar car helm-init-candidates-in-buffer global] 3]) (defvar helm-source-man-pages (helm-make-source "Manual Pages" 'helm-source-in-buffer :init 'helm-man--init :persistent-action 'ignore :filtered-candidate-transformer #[514 "\300\301\"\207" [sort helm-generic-sort-fn] 5 "\n\n(fn CANDIDATES SOURCE)"] :action '(("Display Man page" . helm-man-default-action)) :group 'helm-man)) #@99 Preconfigured `helm' for Man and Woman pages. With a prefix arg reinitialize the cache. (fn ARG) (defalias 'helm-man-woman #[257 "\211\203\301\302\303\304\305\306$\207" [helm-man--pages nil helm :sources helm-source-man-pages :buffer "*helm man woman*"] 6 (#$ . 2216) "P"]) (provide 'helm-man)