| commit | author | age | ||
| 5cb5f7 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (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\302\"\203 \303\207\304\207" [system-type memql (darwin macos) "%s" "-l %s"] 3] "Arguments to pass to the `manual-entry' function.\nArguments are passed to `manual-entry' with `format.'" string] 8) | |
| 16 | #@94 All man pages on system. | |
| 17 | Will be calculated the first time you invoke helm with this | |
| 18 | source. | |
| 19 | (defvar helm-man--pages nil (#$ . 1219)) | |
| 20 | #@78 Default action for jumping to a woman or man page from helm. | |
| 21 | ||
| 22 | (fn CANDIDATE) | |
| 23 | (defalias 'helm-man-default-action #[257 "\302\303\304!\"\3051D \211A\203 \306\307\310\311$\202 \211@\312=\203) \313\314 \"!\202> \31514 \316!0\202> \210\317 \210\313\314 \"!\2620\202K \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 (#$ . 1359)]) | |
| 24 | (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]) | |
| 25 | (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)) | |
| 26 | #@99 Preconfigured `helm' for Man and Woman pages. | |
| 27 | With a prefix arg reinitialize the cache. | |
| 28 | ||
| 29 | (fn ARG) | |
| 30 | (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 (#$ . 2551) "P"]) | |
| 31 | (provide 'helm-man) | |
