;ELC ;;; Compiled ;;; in Emacs version 24.5.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\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 "\n\n(fn)"] "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 "\300\207" ["-l %s"] 1 "-l %s\n\n(fn)"] "Arguments to pass to the `manual-entry' function.\nArguments are passed to `manual-entry' with `format.'\nDefault use \"-l\" which may not be supported on old man versions,\nin this case use \"%s\" as value to pass only the filename as argument.\nSee Issue #1035" 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 (#$ . 1343)) #@78 Default action for jumping to a woman or man page from helm. (fn CANDIDATE) (defalias 'helm-man-default-action #[257 "\300\301\302!\"\303\304\305\306\307\310\311\"\312\"\313\314%D\315\304\305\316\317\310\311\n!\320\"\321\322%\303EDC\217\207" [mapcar car woman-file-name-all-completions #1=#:err funcall make-byte-code 0 "\301G\304V\203 \305\306\301\307\310$\n\311=\203\312\313 \"!\202\314!\207\n\300!\207" vconcat vector [helm-man-or-woman-function helm-man-format-switches 1 helm-comp-read "ManFile: " :must-match t Man-getpage-in-background manual-entry format woman-find-file] 5 "\n\n(fn)" error 257 "\301 \210\302\300!\207" [kill-buffer Man-getpage-in-background] 3 "\n\n(fn IGNORED)"] 12 (#$ . 1483)]) (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 "\n\n(fn)"]) (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)))) #@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 (#$ . 2850) "P"]) (provide 'helm-man)