| 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\303\304\305\306\307DD\310\311\301\312\313&\210\303\314\305\306\315DD\316\311\301\312\313&\207" [require helm-files helm-external custom-declare-variable helm-findutils-skip-boring-files funcall function #[0 "\300\207" [t] 1] "Ignore boring files in find command results." :group :type boolean helm-findutils-search-full-path #[0 "\300\207" [nil] 1] "Search in full path with shell command find when non--nil.\nI.e use the -path/ipath arguments of find instead of -name/iname."] 8) | |
| 16 | (defvar helm-find-map (byte-code "\301 \302\"\210\303\304\305#\210\211\207" [helm-generic-files-map make-sparse-keymap set-keymap-parent define-key "" helm-delete-backward-no-update] 5)) | |
| 17 | (defvar helm-source-findutils (helm-make-source "Find" 'helm-source-async :header-name #[257 "\211\300\301 \302R\207" [" in [" helm-default-directory "]"] 5 "\n\n(fn NAME)"] :candidates-process 'helm-find-shell-command-fn :filtered-candidate-transformer 'helm-findutils-transformer :action-transformer 'helm-transform-file-load-el :persistent-action 'helm-ff-kill-or-find-buffer-fname :action 'helm-type-file-actions :help-message 'helm-generic-file-help-message :keymap helm-find-map :candidate-number-limit 9999 :requires-pattern 3)) | |
| 18 | #@26 | |
| 19 | ||
| 20 | (fn CANDIDATES SOURCE) | |
| 21 | (defalias 'helm-findutils-transformer #[514 "\303\304 \303\211\211\211\211:\203v @\262\305\306!\211\203# \211P\202% \262!\262\307!@\262\n\203B \310\311\"\204B \312!\202C \262\313=\203U \314\315\316#B\202k ;\203d \314\315\317#B\202k \314\315\320#BB\262A\262\202 \211\237\266\206*\207" [default-directory non-essential helm-ff-transformer-show-only-basename nil helm-default-directory expand-file-name file-remote-p file-attributes string-match "[.]\\{1,2\\}$" helm-basename t propertize face helm-ff-directory helm-ff-symlink helm-ff-file] 12 (#$ . 1657)]) | |
| 22 | (defalias 'helm-find--build-cmd-line #[0 "\305\306!\210\307\310\"\206\f \311 \312\"\313@!\311@!A\205$ A@\314PC\315\n\205[ \315\211:\203W @\262\316\317\"\203I \320\321\315\322$B\262\202P \323PB\262A\262\202, \211\237\266\203\f\203c \324\202d \325\203m \211@\202p \211A@\306\205{ \326\327BD\205\205 \330\327BD\331\332\333\334\335\336\337\340 !\341\"\342\343%\f\"\n\"B#)\207" [default-directory helm-pattern helm-findutils-skip-boring-files completion-ignored-extensions helm-findutils-search-full-path require find-cmd file-remote-p localname split-string "\\(\\`\\| +\\)\\* +" helm-set-case-fold-search " " nil string-match "/$" replace-match "" t "*" (ipath path) (iname name) prune name not and append mapcar make-byte-code 257 "\300\301\301QD\207" vconcat vector ["*"] 5 "\n\n(fn PATTERN)"] 20]) | |
| 23 | #@114 Asynchronously fetch candidates for `helm-find'. | |
| 24 | Additional find options can be specified after a "*" | |
| 25 | separator. | |
| 26 | (defalias 'helm-find-shell-command-fn #[0 "\303\211\304 \305\306\n#\307\310\"\210\211\311\312\"\210*\207" [process-connection-type non-essential helm-buffer nil helm-find--build-cmd-line start-file-process-shell-command "hfind" helm-log "Find command:\n%s" set-process-sentinel #[514 "\301\302 #\210\211\303\230\203* \304\305 !r\306\307\310\311\312!\313\"\314$\216\315@\316\"\210\317\320 *\207\321\322\323\324\325#\"\207" [mode-line-format helm-process-deferred-sentinel-hook helm-default-directory "finished\n" internal--before-with-selected-window helm-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord (" " mode-line-buffer-identification " " (:eval (format "L%s" (helm-candidate-number-at-point))) " " (:eval (propertize (format "[Find process finished - (%s results)]" (max (1- (count-lines (point-min) (point-max))) 0)) 'face 'helm-locate-finish))) force-mode-line-update helm-log "Error: Find %s" replace-regexp-in-string "\n" ""] 9 "\n\n(fn PROCESS EVENT)"]] 7 (#$ . 3107)]) | |
| 27 | #@12 | |
| 28 | ||
| 29 | (fn DIR) | |
| 30 | (defalias 'helm-find-1 #[257 "\302!\303\304\305\306\307\310\311\312 &)\207" [default-directory helm-file-name-case-fold-search file-name-as-directory helm :sources helm-source-findutils :buffer "*helm find*" :ff-transformer-show-only-basename nil :case-fold-search] 10 (#$ . 4289)]) | |
| 31 | #@679 Preconfigured `helm' for the find shell command. | |
| 32 | ||
| 33 | Recursively find files whose names are matched by all specified | |
| 34 | globbing PATTERNs under the current directory using the external | |
| 35 | program specified in `find-program' (usually "find"). Every | |
| 36 | input PATTERN is silently wrapped into two stars: *PATTERN*. | |
| 37 | ||
| 38 | With prefix argument, prompt for a directory to search. | |
| 39 | ||
| 40 | When user option `helm-findutils-search-full-path' is non-nil, | |
| 41 | match against complete paths, otherwise, against file names | |
| 42 | without directory part. | |
| 43 | ||
| 44 | The (possibly empty) list of globbing PATTERNs can be followed by | |
| 45 | the separator "*" plus any number of additional arguments that | |
| 46 | are passed to "find" literally. | |
| 47 | ||
| 48 | (fn ARG) | |
| 49 | (defalias 'helm-find #[257 "\211\203\f \301\302\303!!\202 \304!\207" [default-directory file-name-as-directory read-directory-name "DefaultDirectory: " helm-find-1] 4 (#$ . 4593) "P"]) | |
| 50 | (provide 'helm-find) | |
