;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&\210\303\314\305\306\315DD\316\311\301\312\313&\210\303\317\305\306\320DD\321\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\n-name/iname." helm-find-noerrors #[0 "\300\207" [nil] 1] "Prevent showing error messages in helm buffer when non nil."] 8) (defvar helm-find-map (byte-code "\301 \302\"\210\303\304\305#\210\207" [helm-generic-files-map make-sparse-keymap set-keymap-parent define-key "" helm-delete-backward-no-update] 5)) (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)) #@26 (fn CANDIDATES SOURCE) (defalias 'helm-findutils-transformer #[514 "\303\304 \303\211\211\211\211\211:\203}@\262\305\306!\211\203&\211P\202(\262!\262\307!@\262\n\203E\310\311\"\204E\312!\202F\262\313=\203X\314\315\316#B\202n;\203g\314\315\317#B\202n\314\315\320#BB\262A\262\303\262\202\f\237\266\207*\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] 13 (#$ . 1486)]) (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\"\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-closure #[257 "\300\301\301QD\207" [V0 "*"] 5 "\n\n(fn PATTERN)"]] 17]) #@114 Asynchronously fetch candidates for `helm-find'. Additional find options can be specified after a "*" separator. (defalias 'helm-find-shell-command-fn #[0 "\304\211\305 \n\203\306\202\307P\310\311 #\312\313\"\210\211\314\315\"\210*\207" [process-connection-type non-essential helm-find-noerrors helm-buffer nil helm-find--build-cmd-line "2> /dev/null" #1="" start-file-process-shell-command "hfind" helm-log "Find command:\n%s" set-process-sentinel #[514 "\300\301 #\210\211\302\230\203\303\304!\207\305\306\307\310\311#\"\207" [helm-process-deferred-sentinel-hook helm-default-directory "finished\n" helm-locate-update-mode-line "Find" helm-log "Error: Find %s" replace-regexp-in-string "\n" #1#] 8 "\n\n(fn PROCESS EVENT)"]] 7 (#$ . 2913)]) #@12 (fn DIR) (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 (#$ . 3676)]) #@679 Preconfigured `helm' for the find shell command. Recursively find files whose names are matched by all specified globbing PATTERNs under the current directory using the external program specified in `find-program' (usually "find"). Every input PATTERN is silently wrapped into two stars: *PATTERN*. With prefix argument, prompt for a directory to search. When user option `helm-findutils-search-full-path' is non-nil, match against complete paths, otherwise, against file names without directory part. The (possibly empty) list of globbing PATTERNs can be followed by the separator "*" plus any number of additional arguments that are passed to "find" literally. (fn ARG) (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 (#$ . 3980) "P"]) (provide 'helm-find)