;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\301\302!\210\301\303!\210\301\304!\210\301\305!\210\301\306!\210\301\307\310\311#\210\312\313\310\314\315\304%\210\316\317\320\321\322DD\323\315\313\324\325&\210\316\326\320\321\327DD\330\315\313\324\325&\210\316\331\320\321\332DD\333\315\313\324\325&\210\316\334\320\321\335DD\336\315\313\324\325&\210\316\337\320\321\340DD\341\315\313\324\325&\210\316\342\320\321\343DD\344\315\313\324\325&\210\316\345\320\321\346DD\347\315\313\324\350&\210\316\351\320\321\352DD\353\315\313\324\325&\210\316\354\320\321\355DD\356\315\313\324\325&\210\316\357\320\321\360DD\361\315\313\324\362&\210\316\363\320\321\364DD\365\315\313\324\366&\210\316\367\320\321\370DD\371\315\313\324\372&\210\316\373\320\321\374DD\375\315\313\324\362&\210\316\376\320\321\377DD\201@\315\313\324\201A&\210\316\201B\320\321\201CDD\201D\315\313\324\201E&\210\316\201F\320\321\201GDD\201H\315\313\324\201I&\210\316\201J\320\321\201KDD\201L\315\313\324\201M&\210\316\201N\320\321\201ODD\201P\315\313\324\201Q&\210\312\201R\310\201S\201T\201U\315\313\315\201V& \210\201W\201X\201Y\201Z\201[Y\205\202\201\\\201]\"B\201^\201Z\201[Y\205\230\201_\201`\"BD\201a\315\201R%\210\201W\201b\311\201Z\201[Y\205\274\201c\201d\"BC\201e\315\201R%\210\201W\201f\311\201Z\201[Y\205\340\201g\201h\"BC\201i\315\201R%\210\201W\201j\311\201Z\201[Y\205\201k\201l\"BC\201m\315\201R%\210\201W\201n\311\201Z\201[Y\205(\201o\201p\"BC\201q\315\201R%\207" [emacs-major-version require cl-lib format-spec helm helm-help helm-regexp wgrep-helm nil t custom-declare-group helm-grep "Grep related Applications and libraries for Helm." :group custom-declare-variable helm-grep-default-command funcall function #[0 "\300\207" [#1="grep --color=always -a -d skip %e -n%cH -e %p %f"] 1 #1#] "Default grep format command for `helm-do-grep-1'.\nWhere:\n'%e' format spec is for --exclude or --include grep options or\n ack-grep --type option. (Not mandatory)\n\n'%c' format spec is for case-fold-search,\n whether to use the -i option of grep. (Not mandatory)\n When you specify this spec, helm grep will use smartcase\n that is when a upcase character is found in pattern case will\n be respected and no '-i' option will be used, otherwise, when\n no upcase character is found in pattern always use '-i'.\n If you don't want this behavior, don't use this spec and\n specify or not the '-i' option.\n Note that with ack-grep this is not needed, just specify\n the '--smart-case' option.\n\n'%p' format spec is for pattern. (Mandatory)\n\n'%f' format spec is for filenames. (Mandatory)\n\nIf your grep version doesn't support the --exclude/include args\ndon't specify the '%e' format spec.\n\nHelm also support ack-grep and git-grep. The following is a\ndefault command example for ack-grep:\n\n(setq helm-grep-default-command \"ack-grep -Hn --color --smart-case --no-group %e %p %f\"\n helm-grep-default-recurse-command \"ack-grep -H --color --smart-case --no-group %e %p %f\")\n\nYou can ommit the %e spec if you don't want to be prompted for\ntypes.\n\nNOTE: Helm for ack-grep support ANSI sequences, so you can remove\nthe \"--no-color\" option safely (recommended).\nHowever you should specify --color to enable multi matches highlighting\nbecause ack disable it when output is piped.\n\nSame for grep you can use safely the option \"--color=always\" (default).\nYou can customize the color of matches using GREP_COLORS env var.\ne.g: (setenv \"GREP_COLORS\" \"ms=30;43:mc=30;43:sl=01;37:cx=:fn=35:ln=32:bn=32:se=36\")\n\nTo enable ANSI color in git-grep just add \"--color=always\".\nTo customize the ANSI color in git-grep, GREP_COLORS have no effect,\nyou will have to setup this in your .gitconfig:\n\n [color \"grep\"]\n match = black yellow\n\nWhere \"black\" is the foreground and \"yellow\" the background.\nSee the git documentation for more infos.\n\n`helm-grep-default-command' and\n`helm-grep-default-recurse-command' are independent, so you can\nenable `helm-grep-default-command' with ack-grep and\n`helm-grep-default-recurse-command' with grep if you want to be\nfaster on recursive grep.\n\nNOTE: Remote grepping is not available with ack-grep, and badly\n supported with grep because tramp handles badly repeated\n remote processes in a short delay (< to 5s)." :type string helm-grep-default-recurse-command #[0 "\300\207" [#2="grep --color=always -a -d recurse %e -n%cH -e %p %f"] 1 #2#] "Default recursive grep format command for `helm-do-grep-1'.\nSee `helm-grep-default-command' for format specs and infos about\nack-grep." helm-default-zgrep-command #[0 "\300\207" [#3="zgrep --color=always -a -n%cH -e %p %f"] 1 #3#] "Default command for Zgrep.\nSee `helm-grep-default-command' for infos on format specs.\nOption --color=always is supported and can be used safely to\nreplace the Helm internal match highlighting. See\n`helm-grep-default-command' for more infos." helm-pdfgrep-default-command #[0 "\300\207" [#4="pdfgrep --color always -niH %s %s"] 1 #4#] "Default command for pdfgrep.\nOption \"--color always\" is supported starting Helm version\n1.7.8. When used matches will be highlighted according to\nGREP_COLORS env var." helm-pdfgrep-default-recurse-command #[0 "\300\207" [#5="pdfgrep --color always -rniH %s %s"] 1 #5#] "Default recurse command for pdfgrep.\nOption \"--color always\" is supported starting Helm version\n1.7.8. When used matches will be highlighted according to\nGREP_COLORS env var." helm-pdfgrep-default-read-command #[0 "\300\207" [nil] 1] "Default command to read pdf files from pdfgrep.\nWhere '%f' format spec is filename and '%p' is page number.\nE.g. In Ubuntu you can set it to:\n\n \"evince --page-label=%p '%f'\"\n\nIf set to nil either `doc-view-mode' or `pdf-view-mode' will be\nused instead of an external command." helm-grep-max-length-history #[0 "\300\207" [100] 1] "Max number of elements to save in `helm-grep-history'." integer helm-zgrep-file-extension-regexp #[0 "\300\207" [#6=".*\\(\\.gz\\|\\.bz\\|\\.xz\\|\\.lzma\\)$"] 1 #6#] "Default file extensions zgrep will search in." helm-grep-preferred-ext #[0 "\300\207" [nil] 1] "This file extension will be preselected for grep." helm-grep-save-buffer-name-no-confirm #[0 "\300\207" [nil] 1] "When *hgrep* already exists, auto append suffix." boolean helm-grep-ignored-files #[0 "\301\302\303\304\305\"\"B\207" [completion-ignored-extensions ".#*" delq nil mapcar #[257 "\301\302\303\304#)\266\203?\205\305P\207" [inhibit-changing-match-data "/\\'" nil t string-match "*"] 8 "\n\n(fn S)"]] 6] "List of file names which `helm-grep' shall exclude." (repeat string) helm-grep-ignored-directories #[0 "\207" [helm-walk-ignore-directories] 1] "List of names of sub-directories which `helm-grep' shall not recurse into." (repeat string) helm-grep-truncate-lines #[0 "\300\207" [t] 1] "When nil the grep line that appears will not be truncated." helm-grep-file-path-style #[0 "\300\207" [basename] 1] "File path display style when grep results are displayed.\nPossible value are:\n basename: displays only the filename, none of the directory path\n absolute: displays absolute path\n relative: displays relative path from root grep directory." (choice (const :tag "Basename" basename) (const :tag "Absolute" absolute) (const :tag "Relative" relative)) helm-grep-actions #[0 "\300\301\302\303\304\305\306\307\310&\207" [helm-make-actions "Find File" helm-grep-action "Find file other frame" helm-grep-other-frame "Save results in grep buffer" helm-grep-save-results "Find file other window (C-u vertically)" helm-grep-other-window] 9] "Actions for helm grep." (alist :key-type string :value-type function) helm-grep-pipe-cmd-switches #[0 "\300\207" [nil] 1] "A list of additional parameters to pass to grep pipe command.\nThis will be used to pipe command for multiple pattern matching\nfor grep, zgrep ack-grep and git-grep backends.\nIf you add extra args for ack-grep, use ack-grep options, for\nothers (grep, zgrep and git-grep) use grep options.\nHere are the commands where you may want to add switches:\n\n grep --color=always\n ack-grep --smart-case --color\n\nYou probably don't need to use this unless you know what you are\ndoing." (repeat string) helm-grep-ag-pipe-cmd-switches #[0 "\300\207" [nil] 1] "A list of additional parameters to pass to grep-ag pipe command.\nUse parameters compatibles with the backend you are using\n(i.e. AG for AG, PT for PT or RG for RG)\n\nYou probably don't need to use this unless you know what you are\ndoing." (repeat string) helm-grep-input-idle-delay #[0 "\300\207" [0.1] 1] "Idle time before updating, specified in seconds.\nA lower value (default) means Helm will display the results\nfaster. Increasing it to a higher value (e.g. 0.6) prevents the\nbuffer from flickering when updating." float helm-grep-faces "Customize the appearance of helm-grep." :prefix "helm-" helm-faces custom-declare-face helm-grep-match ((background light)) append 27 (:extend t) (:foreground "#b00000") ((background dark)) (:extend t) (:foreground "gold1") "Face used to highlight grep matches.\nHave no effect when grep backend use \"--color=\"." helm-grep-file (:extend t) (:foreground "BlueViolet" :underline t) "Face used to highlight grep results filenames." helm-grep-lineno (:extend t) (:foreground "Darkorange1") "Face used to highlight grep number lines." helm-grep-finish (:extend t) (:foreground "Green") "Face used in mode line when grep is finish." helm-grep-cmd-line (:extend t) (:inherit font-lock-type-face) "Face used to highlight grep command line when no results."] 10) #@30 Keymap used in Grep sources. (defvar helm-grep-map (byte-code "\301 \302\"\210\303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\303\314\315#\210\303\316\317#\210\207" [helm-map make-sparse-keymap set-keymap-parent define-key [M-down] helm-goto-next-file [M-up] helm-goto-precedent-file "o" helm-grep-run-other-window-action "" helm-grep-run-other-frame-action "" helm-grep-run-save-buffer "" helm-delete-backward-no-update] 5) (#$ . 9793)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable helm-grep-use-ioccur-style-keys funcall function #[0 "\300\207" [t] 1] "Use Arrow keys to jump to occurences.\nNote that if you define this variable with `setq' your change\nwill have no effect, use customize instead." :group helm-grep :type boolean :set #[514 "L\210\211\203\301\302\303#\210\301\304\305#\207\301\306\307#\210\301\310\307#\207" [helm-grep-map define-key [right] helm-execute-persistent-action [left] helm-grep-run-default-action [right] nil [left]] 6 "\n\n(fn VAR VAL)"]] 10) #@25 Keymap used in pdfgrep. (defvar helm-pdfgrep-map (byte-code "\301 \302\"\210\303\304\305#\210\303\306\307#\210\303\310\311#\210\207" [helm-map make-sparse-keymap set-keymap-parent define-key [M-down] helm-goto-next-file [M-up] helm-goto-precedent-file "" helm-delete-backward-no-update] 5) (#$ . 10868)) (defvar helm-grep-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\210\301\316\307#\210\301\317\311#\210\301\320\313#\210\301\321\315#\210\207" [make-sparse-keymap define-key " " helm-grep-mode-jump "" helm-grep-mode-jump-other-window [C-down] helm-grep-mode-jump-other-window-forward [C-up] helm-grep-mode-jump-other-window-backward [M-down] helm-gm-next-file [M-up] helm-gm-precedent-file [134217838] [134217840] [134217806] [134217808]] 5)) (defvar helm-rzgrep-cache (make-hash-table :test 'equal)) (defvar helm-grep-default-function 'helm-grep-init) (defvar helm-zgrep-recurse-flag nil) (defvar helm-grep-history nil) (defvar helm-grep-ag-history nil) (defvar helm-grep-last-targets nil) (defvar helm-grep-include-files nil) (defvar helm-grep-in-recurse nil) (defvar helm-grep-use-zgrep nil) #@138 A function that should return a directory to expand candidate to. It is intended to use as a let-bound variable, DON'T set this globaly. (defvar helm-grep-default-directory-fn nil (#$ . 12068)) (defvar helm-pdfgrep-targets nil) (defvar helm-grep-last-cmd-line nil) (defvar helm-grep-split-line-regexp "^\\([[:lower:][:upper:]]?:?.*?\\):\\([0-9]+\\):\\(.*\\)") #@99 Prepare filenames and directories CANDIDATES for grep command line. (fn CANDIDATES IN-DIRECTORY) (defalias 'helm-grep-prepare-candidates #[514 "\203\n\303\304\305#\207\306\211:\203{@\262\307\310\311 \"\203$C\202q\312!\203:\n\2043\313 \203:\314!C\202q\312!\203N\315\316\314!!\317P\320\"\202q\321!\204[\310\322\"\203m\n\203m\314\323\324\323!!!!C\202q\315\320\"\"\262A\262\202 \325!\203\210\326\327\"\202\211\211\330\331\332#\262\310\311 \"\203\235\303\333\305#\207\303\304\305#\207" [helm-zgrep-recurse-flag helm-grep-default-command helm-grep-in-recurse mapconcat shell-quote-argument " " nil append string-match "^git" file-directory-p helm-grep-use-ack-p expand-file-name file-expand-wildcards file-name-as-directory "*" t file-exists-p "[*]" directory-file-name file-name-directory file-remote-p mapcar #[257 "\300\301\"\207" [file-remote-p localname] 4 "\n\n(fn X)"] helm-fast-remove-dups :test equal identity] 12 (#$ . 12434)]) #@33 (fn &optional RECURSIVE GREP) (defalias 'helm-grep-command #[512 "\203\202 \203\302!\202\211\205\303\304\"@\211\203(\211\305\230\203(\306\207\207" [helm-grep-default-recurse-command helm-grep-default-command symbol-name split-string " " "git" "git-grep"] 6 (#$ . 13419)]) #@19 (fn &key WHERE) (defalias 'helm-grep-use-ack-p #[128 "\300\301\"A@\211\2031\211@\302>\203\211AA\262\202\303>A@\203(\304\262\202\305\306@\"\210\202\210\307\310!\307 \311\312\"\205C\311\312\"\313\267\202b\205z\207\205z\207\205z\205z\211\205z\207\205i\314\230?\205z\203u\206z\205z\211\207" [plist-member :where (:where :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:where)" helm-grep-command t string-match "\\`ack" #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (default 73 recursive 79 strict 84)) "git-grep"] 8 (#$ . 13716)]) #@51 (fn SMARTCASE PIPE-SWITCHES &optional GREP-CMD) (defalias 'helm-grep--pipe-command-for-grep-command #[770 "\211\206\301 \211\302\235\203\303\304\203\305\202\306#\207\307\310\311\312#)\266\203\2053\211\303\313#\262\207" [inhibit-changing-match-data helm-grep-command ("git-grep" "zgrep" "grep") format "grep --color=always%s %s" " -i" "" "ack" nil t string-match "%s --smart-case --color %s"] 11 (#$ . 14365)]) #@43 (fn ONLY-FILES &optional INCLUDE ZGREP) (defalias 'helm-grep--prepare-cmd-line #[769 "\206\n\306 \206\n \307 \"\310 ?\205\311\312\n\313#\310 ?\205%\311\314 \313#\310 ?\205;\f\203:\2064\313Q\202;\310 \205E\206E\315\310 \203N\315\202e\316\317!\316\320\"\321#)\266\203)?\205e\322#\323P#\324!\320\"\311\325$\313#A\211\203\245\326\"\316\315:\203\240@\262\211\327\330\331!#P\262A\262\202\203\266\203\202\246\315\262\332#\333\316 ?\205\303\203\277\334 B\202\303\334\nB\335 \206\312\315B\336\331\n@!B\337B\340 B\257\"\"*\207" [helm-ff-default-directory default-directory helm-grep-ignored-files helm-grep-ignored-directories helm-grep-in-recurse case-fold-search helm-default-directory helm-grep-prepare-candidates helm-grep-use-ack-p mapconcat #[257 "\300\301!P\207" ["--exclude=" shell-quote-argument] 4 "\n\n(fn X)"] " " #[257 "\300\301!P\207" ["--exclude-dir=" shell-quote-argument] 4 "\n\n(fn X)"] "" nil "[[:upper:]]" t string-match "i" " %m" helm-mm-split-pattern identity helm-grep--pipe-command-for-grep-command format " | %s %s" shell-quote-argument format-spec delq 101 99 112 102 109 helm-pattern inhibit-changing-match-data helm-grep-default-command helm-grep-pipe-cmd-switches] 22 (#$ . 14803)]) #@89 Start an asynchronous grep process with CMD-LINE using ZGREP if non-nil. (fn CMD-LINE) (defalias 'helm-grep-init #[257 "\206\n\306 \206\n \307\310\"\211?\205\311  \312 \203#\313\2022\314\203/\315\316!\2021\315 !\317\320\321 \"\210\320\322\323\324\325\326#\327Q\"\210\330#\331\332!\333\334#\"\210,\207" [helm-ff-default-directory default-directory process-connection-type helm-tramp-verbose tramp-verbose helm-grep-use-zgrep helm-default-directory string-match "\\`zgrep" helm-grep-use-ack-p float-time "Zgrep" capitalize helm-grep-command t nil helm-log "Starting Grep process in directory `%s'" "Command line used was:\n\n%s" ">>> " propertize face helm-grep-cmd-line "\n\n" start-file-process-shell-command set-process-sentinel get-buffer-process make-closure #[514 "\306!\211\307U\203\310V\204\311\312 #\210\211\203Ir\313 q\210\314 )\203Ir\313 q\210\315\316\n\317\320#Pc\210\321\322\321\323\321\324\316\325\326\301E\327BBD\257\211)\207\330\230\204^\211\203\246r\313 q\210\314 )\204\246\331\332\301\333 \334 \300Z$\210\335 \210\336\337 !r\340\341\"\216\342@\343\"\210\321\322\321\344\321\324\316\325\345\301\334 \300Z\346BBBB\347BBD\257\350 \210\f\205\244 \205\244\351 !*\207\331\352\301\353\354\355##\207" [V0 V1 helm-grep-last-cmd-line mode-line-format helm-allow-mouse helm-selection-point process-exit-status 1 0 helm-process-deferred-sentinel-hook helm-default-directory helm-buffer-get helm-empty-buffer-p "* Exit with code 1, no result found, command line was:\n\n " propertize face helm-grep-cmd-line " " mode-line-buffer-identification (:eval (format "L%s" (helm-candidate-number-at-point))) :eval format "[%s process finished - (no results)] " ('face 'helm-grep-finish) "finished\n" helm-log "%s process finished with %s results in %fs" helm-get-candidate-number float-time helm-maybe-show-help-echo internal--before-with-selected-window helm-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord (:eval (format "L%s" (helm-candidate-number-at-point))) "[%s process finished in %.2fs - (%s results)] " ((helm-get-candidate-number)) ('face 'helm-grep-finish) force-mode-line-update helm--bind-mouse-for-selection "Error: %s %s" replace-regexp-in-string "\n" ""] 17 "\n\n(fn PROCESS EVENT)"] helm-grep-in-recurse non-essential helm-buffer] 11 (#$ . 16082)]) (defalias 'helm-grep-collect-candidates #[0 "\305 \n#\306\303!\210\211\f!\207" [helm-grep-last-targets helm-grep-include-files helm-grep-use-zgrep helm-grep-last-cmd-line helm-grep-default-function helm-grep--prepare-cmd-line make-local-variable] 4]) #@138 Define a default action for `helm-do-grep-1' on CANDIDATE. WHERE can be `other-window' or `other-frame'. (fn CANDIDATE &optional WHERE) (defalias 'helm-grep-action #[513 "\306!\307!\310A@!r \311=\203p\202\nq\210\312\313 \314\")\206$@\315 \206*\f!\211\2035\211P\2026\316\317\"\210\320\267\202\204\321\322!C\323\"\210\202\210\324!\210\202\210\325 \210\202\210 \203j\326@#\210\202\210\327@!\210\330\331!\203}\332!\210\202\210\333!\210\202\210\327!\210\334=\204\232\335=\204\232\336!\210\337\211:\203\330@\262\212\3401\303*\203\271\341\342 \323#\202\277\343\342 \323#0\202\306\337\262)\203\321\211\344\224C\244\262A\262\202\235\211\203\342\345\346\"b\210\266+\206\363 \311=\206\363,\347\230?\205,\350,-\"B\211-G.V\205\350\351-!@-\"\211-\207" [helm-input major-mode helm-buffer helm-ff-default-directory default-directory helm-pdfgrep-default-read-command helm-grep-split-line helm-mm-split-pattern string-to-number helm-grep-mode get-text-property point-at-bol helm-grep-fname file-remote-p helm-log "helm-grep-action fname: %s" #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (other-window 66 other-frame 77 grep 84 pdf 90)) helm-window-show-buffers find-file-noselect t find-file-other-frame helm-grep-save-results-1 helm-pdfgrep-action-1 find-file derived-mode-p pdf-view-mode pdf-view-goto-page doc-view-goto-page grep pdf helm-goto-line nil (invalid-regexp) helm-mm-migemo-forward point-at-eol re-search-forward 0 apply min "" delete last helm-migemo-mode helm-in-persistent-action helm-pattern helm-grep-history helm-grep-max-length-history] 16 (#$ . 18722)]) #@108 Persistent action for `helm-do-grep-1'. With a prefix arg record CANDIDATE in `mark-ring'. (fn CANDIDATE) (defalias 'helm-grep-persistent-action #[257 "\300!\210\301 \207" [helm-grep-action helm-highlight-current-line] 3 (#$ . 20411)]) #@64 Jump to result in other window from helm grep. (fn CANDIDATE) (defalias 'helm-grep-other-window #[257 "\300\301\"\207" [helm-grep-action other-window] 4 (#$ . 20655)]) #@63 Jump to result in other frame from helm grep. (fn CANDIDATE) (defalias 'helm-grep-other-frame #[257 "\300\301\"\207" [helm-grep-action other-frame] 4 (#$ . 20831)]) #@127 Go to next or precedent candidate file in helm grep/etags buffers. If N is positive go forward otherwise go backward. (fn N) (defalias 'helm-goto-next-or-prec-file #[257 "\302=\206\303=\206\304=\211\203\305 \306 {\202\307\310\311\"\312!\211@\313=\203.\314\202/\315\316\3172r ?\205qy\210\305 \306 {\262 \203L\320 \210\312!@\230\2044\302=\203d\321\305 \322\"\2034\211!\210\323\317\310\"\210\20240\210\324V\203\215m\203\215\325\326!\210\324y\210\211!\210\202\261\324W\203\261o\203\261\327\305 \322\"\211\203\250\211b\266\202\254\313y\266\211!\210?\205\274\330 \210\331\332!\207" [major-mode helm-allow-mouse helm-grep-mode helm-moccur-mode helm-occur-mode point-at-bol point-at-eol helm-get-selection nil t helm-grep-split-line 1 eobp bobp #[257 "\211\203\300\207\301 \207" [nil helm-mark-current-line] 2 "\n\n(fn ALLOW-MODE)"] break helm--mouse-reset-selection-help-echo get-text-property helm-grep-fname throw 0 re-search-backward "." next-single-property-change helm-follow-execute-persistent-action-maybe helm-log-run-hook helm-move-selection-after-hook] 10 (#$ . 21005)]) #@49 Go to previous file in Helm grep/etags buffers. (defalias 'helm-goto-precedent-file #[0 "\203\301\302 !r\303\304\"\216\305@\306\"\210\307\310!*\207\311\312!\207" [helm-alive-p internal--before-with-selected-window helm-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord helm-goto-next-or-prec-file -1 error "Running helm command outside of context"] 4 (#$ . 22139) nil]) (put 'helm-goto-precedent-file 'helm-only t) #@49 Go to previous file in Helm grep/etags buffers. (defalias 'helm-goto-next-file #[0 "\300\301 !r\302\303\"\216\304@\305\"\210\306\307!*\207" [internal--before-with-selected-window helm-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord helm-goto-next-or-prec-file 1] 4 (#$ . 22623) nil]) #@48 Run grep default action from `helm-do-grep-1'. (defalias 'helm-grep-run-default-action #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-grep-action error "Running helm command outside of context"] 2 (#$ . 22975) nil]) (put 'helm-grep-run-default-action 'helm-only t) #@58 Run grep goto other window action from `helm-do-grep-1'. (defalias 'helm-grep-run-other-window-action #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-grep-other-window error "Running helm command outside of context"] 2 (#$ . 23287) nil]) (put 'helm-grep-run-other-window-action 'helm-only t) #@57 Run grep goto other frame action from `helm-do-grep-1'. (defalias 'helm-grep-run-other-frame-action #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-grep-other-frame error "Running helm command outside of context"] 2 (#$ . 23625) nil]) (put 'helm-grep-run-other-frame-action 'helm-only t) #@53 Run grep save results action from `helm-do-grep-1'. (defalias 'helm-grep-run-save-buffer #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-grep-save-results error "Running helm command outside of context"] 2 (#$ . 23959) nil]) (put 'helm-grep-run-save-buffer 'helm-only t) #@18 (fn CANDIDATE) (defalias 'helm-grep-save-results #[257 "\300\301\"\207" [helm-grep-action grep] 4 (#$ . 24276)]) (defvar helm-grep-mode-use-pcre nil) #@53 Save Helm grep result in a `helm-grep-mode' buffer. (defalias 'helm-grep-save-results-1 #[0 "\306\307r\310 q\210)\311 \312\313\"\314\306!\203Y \203%\315\316\317\320!#\262\202V\321\322\306\"\262\323 \307:\203T@\262\230\203M\324\315\325\"!\204M\321\322\326\"\262A\262\202.\266\262r\327!q\210\n\206i\330 \206i \331\304!\210\332\333\"\334\211\335 6\336 \210\337\315\340#\261\210\212r7q\210eb\210\341y\210`d{)c\210)\212m\204\315\342\343 \344 \345\346\347`\350\"\351P\352BBBB#\210\353\354\355#\210\353\356\357#\210\353\360\361#\210\341y\210\202\234*\266\362 \210)\363!\210\364\365#\207" [helm-input-local helm-grep-save-buffer-name-no-confirm helm-ff-default-directory default-directory helm-grep-mode-use-pcre buffer-read-only "*hgrep*" nil helm-buffer-get helm-get-current-source assoc-default name get-buffer format "*hgrep|%s|-%s" format-time-string "%H-%M-%S*" helm-read-string "GrepBufferName: " helm-buffer-list y-or-n-p "Buffer `%s' already exists overwrite? " "*hgrep " get-buffer-create helm-default-directory make-local-variable helm-get-attr pcre t make-sparse-keymap erase-buffer "-*- mode: helm-grep -*-\n\n" "%s Results for `%s':\n\n" 1 add-text-properties point-at-bol point-at-eol keymap help-echo get-text-property helm-grep-fname "\nmouse-1: set point\nmouse-2: jump to selection" (mouse-face highlight) define-key [mouse-1] mouse-set-point [mouse-2] helm-grep-mode-mouse-jump [mouse-3] ignore helm-grep-mode pop-to-buffer message "Helm %s Results saved in `%s' buffer" inhibit-read-only helm-buffer] 17 (#$ . 24435)]) #@14 (fn EVENT) (defalias 'helm-grep-mode-mouse-jump #[257 "\301!\211@\262\302\301!!\303!r\304\305\"\216\306@\307\"\210\310=\205&b\210\311 *\207" [major-mode event-end posn-point internal--before-with-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord helm-grep-mode helm-grep-mode-jump] 7 (#$ . 26023) "e"]) (put 'helm-grep-mode-mouse-jump 'helm-only t) (defvar helm-grep-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [helm-grep-mode-hook variable-documentation put "Hook run after entering helm-grep mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp helm-grep-mode-map definition-name helm-grep-mode] 4) (defvar helm-grep-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [helm-grep-mode-abbrev-table helm-grep-mode-map variable-documentation put purecopy "Keymap for `helm-grep-mode'." boundp helm-grep-mode-syntax-table definition-name helm-grep-mode (lambda (#1=#:def-tmp-var) (defvar helm-grep-mode-syntax-table #1#)) make-syntax-table "Syntax table for `helm-grep-mode'." (lambda (#1#) (defvar helm-grep-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `helm-grep-mode'." derived-mode-parent special-mode] 5) #@275 Major mode to provide actions in helm grep saved buffer. Special commands: \{helm-grep-mode-map} In addition to any hooks its parent mode `special-mode' might have run, this mode runs the hook `helm-grep-mode-hook', as the final or penultimate step during initialization. (defalias 'helm-grep-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315 !\204'\316 \317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324 \325\"\204R =\204R\326 \325C#\210\327 !\210\330\f!\210 \306\331!\210r\332 q\210)\306\333!\210\334)\335\336!\207" [delay-mode-hooks major-mode mode-name helm-grep-mode-map helm-grep-mode-syntax-table helm-grep-mode-abbrev-table make-local-variable t special-mode helm-grep-mode "helm-grep" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table helm-grep-last-cmd-line helm-buffer-get revert-buffer-function helm-grep-mode--revert-buffer-function run-mode-hooks helm-grep-mode-hook local-abbrev-table] 5 (#$ . 27643) nil]) (put 'helm-grep-mode 'helm-only t) #@40 (fn &optional IGNORE-AUTO NOCONFIRM) (defalias 'helm-grep-mode--revert-buffer-function #[512 "eb\210\305\306\307#\203\310y\210\307`d|\210)\311\312!\210\313\n\306\307\314#)\266\203?\315\316\317\320\321!\n#\322\")\207" [helm-grep-split-line-regexp inhibit-read-only helm-grep-last-cmd-line inhibit-changing-match-data process-connection-type re-search-forward nil t 0 message "Reverting buffer..." "\\`git" string-match set-process-sentinel start-file-process-shell-command "hgrep" generate-new-buffer "*hgrep revert*" helm-grep-mode--sentinel] 9 (#$ . 28849)]) #@22 (fn PROCESS EVENT) (defalias 'helm-grep-mode--sentinel #[514 "\211\305\230\205qrpq\210\306\212r\307!q\210\310\311 \312\"\313 \210)\314\211\211:\203_@\262 \314\306\315#)\266\203\203>\316!\202?\262\315 \"\203U\317\320\f\"@\321#\312\261\210A\262\314\262\202\266*\322\323!\203m\323ed\"\210\324\325!)\207" [inhibit-read-only helm--ansi-color-regexp inhibit-changing-match-data helm-grep-split-line-regexp helm-grep-mode-use-pcre "finished\n" t process-buffer split-string buffer-string "\n" kill-buffer nil string-match helm--ansi-color-apply propertize helm-grep-filter-one-by-one helm-realvalue fboundp wgrep-cleanup-overlays message "Reverting buffer done"] 13 (#$ . 29426)]) (defalias 'helm-gm-next-file #[0 "\300\301!\207" [helm-goto-next-or-prec-file 1] 2 nil nil]) (defalias 'helm-gm-precedent-file #[0 "\300\301!\207" [helm-goto-next-or-prec-file -1] 2 nil nil]) (defalias 'helm-grep-mode-jump #[0 "\300\301 \302 {!\210\303 \207" [helm-grep-action point-at-bol point-at-eol helm-match-line-cleanup-pulse] 3 nil nil]) #@12 (fn ARG) (defalias 'helm-grep-mode-jump-other-window-1 #[257 "\3011.\302=\204\303=\203\211y\210\304 r\305\306\"\216\307\310 \311 {\312\"\210\313 \210\314 *\2620\207\210\315\207" [last-command (error) helm-grep-mode-jump-other-window-forward helm-grep-mode-jump-other-window-backward internal--before-save-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-save-selected-window] 2] helm-grep-action point-at-bol point-at-eol other-window helm-match-line-cleanup-pulse recenter nil] 5 (#$ . 30483)]) #@12 (fn ARG) (defalias 'helm-grep-mode-jump-other-window-forward #[257 "\300!\207" [helm-grep-mode-jump-other-window-1] 3 (#$ . 31016) "p"]) #@12 (fn ARG) (defalias 'helm-grep-mode-jump-other-window-backward #[257 "\300[!\207" [helm-grep-mode-jump-other-window-1] 3 (#$ . 31162) "p"]) (defalias 'helm-grep-mode-jump-other-window #[0 "\300 \301 {\3021\303\304\"\210\305 0\207\210\306\207" [point-at-bol point-at-eol (error) helm-grep-action other-window helm-match-line-cleanup-pulse nil] 4 nil nil]) #@40 Return a list of known ack-grep types. (defalias 'helm-grep-hack-types #[0 "\300\301\302\"r\211q\210\303\304\"\216\305\306\302!\307\302\307\310%\210eb\210\307\311\312\307\302#\203L\313\314!\315\313\316!\317R\313\314!BB\262\320\313\314!\315\313\316!\317\260\320\313\314!PBB\262\202\211\237\262*\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] call-process helm-grep-command nil "--help-types" re-search-forward "^ *--\\(\\[no\\]\\)\\([^. ]+\\) *\\(.*\\)" match-string 2 " [" 3 "]" "no"] 7 (#$ . 31528)]) #@26 (fn CANDIDATES SOURCE) (defalias 'helm-grep-ack-types-transformer #[514 "\301\211:\203(@\262;\203\302\"B\262\202!B\262A\262\202\211\237\207" [helm-grep-ack-types-cache nil rassoc] 8 (#$ . 32117)]) (defvar helm-grep-ack-types-cache nil) #@53 Select types for the '--type' argument of ack-grep. (defalias 'helm-grep-read-ack-type #[0 "\301\302!\210\301\303!\210\304 \305\306\307\310\311\312\313\312\314\315\316\317&\f\320\321\322#\207" [helm-grep-ack-types-cache require helm-mode helm-adaptive helm-grep-hack-types helm-comp-read "Types: " :name "*Ack-grep types*" :marked-candidates t :must-match :fc-transformer (helm-adaptive-sort helm-grep-ack-types-transformer) :buffer "*helm ack-types*" mapconcat #[257 "\300P\207" ["--type="] 3 "\n\n(fn TYPE)"] " "] 13 (#$ . 32381)]) #@156 Try to guess file extensions in FILES list when using grep recurse. These extensions will be added to command line with --include arg of grep. (fn FILES) (defalias 'helm-grep-guess-extensions #[257 "\303D\304@!\203\305@\306 #\202\211\306\211\211\211\211:\203l@\262\307\310\"\262\2057\311\230?\2057\303P\262\203b\203G\235\204b\203R\235\204b\203\\\n\235\204bC\244\262A\262\306\262\202\312\306\313\n\"\"\207" [helm-grep-preferred-ext directory-files-no-dot-files-regexp helm-grep-ignored-files "*" file-directory-p directory-files nil file-name-extension dot "" delq append] 14 (#$ . 32926)]) #@89 Try to return a list of file extensions to pass to '--include' arg of grep. (fn FILES) (defalias 'helm-grep-get-file-extensions #[257 "\300\301!\210\302\303\304\"!\305\306\307\310\311\312\313\314\315\316&\n\211<\205=\211\317\211:\2039@\262\320\321\322\"!\244\262A\262\202\211\237\266\203\207" [require helm-adaptive helm-grep-guess-extensions mapcar expand-file-name helm-comp-read "Search Only in: " :marked-candidates t :fc-transformer helm-adaptive-sort :buffer "*helm grep exts*" :name "*helm grep extensions*" nil reverse split-string-and-unquote " "] 13 (#$ . 33570)]) #@58 Hook that runs before initialization of the Helm buffer. (defvar helm-grep-before-init-hook nil (#$ . 34166)) #@57 Hook that runs after initialization of the Helm buffer. (defvar helm-grep-after-init-hook nil (#$ . 34282)) (byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias helm-grep-class-p eieio-make-class-predicate helm-grep-class helm-grep-class--eieio-childp eieio-make-child-predicate helm-grep-class-child-p make-obsolete "use (cl-typep ... \\='helm-grep-class) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (helm-source-async) ((candidates-process :initform 'helm-grep-collect-candidates) (filtered-candidate-transformer :initform #'helm-grep-fc-transformer) (keymap :initform helm-grep-map) (pcre :initarg :pcre :initform nil :documentation " Backend is using pcre regexp engine when non-nil.") (nohighlight :initform t) (nomark :initform t) (backend :initarg :backend :initform nil :documentation " The grep backend that will be used.\n It is actually used only as an internal flag\n and doesn't set the backend by itself.\n You probably don't want to modify this.") (candidate-number-limit :initform 9999) (help-message :initform 'helm-grep-help-message) (history :initform 'helm-grep-history) (action :initform 'helm-grep-actions) (persistent-action :initform 'helm-grep-persistent-action) (persistent-help :initform "Jump to line (`C-u' Record in mark ring)") (requires-pattern :initform 2) (before-init-hook :initform 'helm-grep-before-init-hook) (after-init-hook :initform 'helm-grep-after-init-hook) (group :initform 'helm-grep)) nil] 6) #@72 Create a new object of class type `helm-grep-class'. (fn &rest SLOTS) (defalias 'helm-grep-class #[128 "\300\301\302#\207" [apply make-instance helm-grep-class] 5 (#$ . 35867)]) (byte-code "\300\301\302\303#\300\207" [function-put helm-grep-class compiler-macro helm-grep-class--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (defalias 'helm-grep-class--anon-cmacro #[385 "\211@;\204\207\300\301\302@@#@\303@DABB\"\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 36170)]) (defvar helm-source-grep nil) (cl-generic-define-method 'helm--setup-source nil '((source helm-grep-class)) t #[514 " \210\205\303\304\"\305=\203 \202\n\211\205%\306\307\310\307\"#\262\207" [helm-follow-mode-persistent helm-source-grep-git helm-source-grep slot-value backend git eieio-oset follow assoc-default] 10 "\n\n(fn CL--CNM SOURCE)"]) #@1036 Launch helm using backend BACKEND on a list of TARGETS files. When RECURSE is given and BACKEND is 'grep' use -r option of BACKEND and prompt user for EXTS to set the --include args of BACKEND. Interactively you can give more than one arg separated by space at prompt. E.g.: $Pattern: *.el *.py *.tex From Lisp use the EXTS argument as a list of extensions as above. If you are using ack-grep, you will be prompted for --type instead and EXTS will be ignored. If prompt is empty `helm-grep-ignored-files' are added to --exclude. Argument DEFAULT-INPUT is use as `default' arg of `helm' and INPUT is used as `input' arg of `helm'. See `helm' docstring. Arg BACKEND when non-nil specifies which backend to use. It is used actually to specify 'zgrep' or 'git'. When BACKEND 'zgrep' is used don't prompt for a choice in recurse, and ignore EXTS, search being made recursively on files matching `helm-zgrep-file-extension-regexp' only. (fn TARGETS &optional RECURSE BACKEND EXTS DEFAULT-INPUT INPUT (SOURCE \='helm-source-grep)) (defalias 'helm-do-grep-1 #[1665 "\211\203 \211A\262\242\202\306\203\307\310\311\312G\\D\"\210\313\314\315\316\"\205<\317=?\205<\211?\205<\206<\320 !\211\205S\321\322G\323V\203P\324\325\"\202Q\326#\211?\205r\317=?\205r \205r\205r\327\330 \"\205r\331 \332\333\f\f\"!\n\334\267\202\211\n\202\223 \202\223 \203\222\f\202\223 \335 !\203\235\336 !\2108\204\246&8\337\340\205\261 \317=\341\342 \206\274\343\344\317=\301\f\3459\3468&\210\347\350\351\352\353\313\354:\327#)\266\203&L\210\355\356\357\360\361\333\"\"\362\363\364;\365\366\367<&)\207" [non-essential helm-grep-default-command helm-default-zgrep-command helm-grep-git-grep-command helm-grep-default-recurse-command helm-action-buffer helm-source-grep signal wrong-number-of-arguments helm-do-grep-1 7 nil helm-grep-use-ack-p :where recursive zgrep helm-grep-get-file-extensions mapconcat #[257 "\300\301!P\207" ["--include=" shell-quote-argument] 4 "\n\n(fn X)"] 1 remove "*" " " string-match "%e" helm-grep-read-ack-type capitalize helm-grep-command #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (zgrep 129 git 133)) get-buffer kill-buffer helm-set-local-variable helm-zgrep-recurse-flag helm-grep-last-targets helm-grep-include-files helm-grep-in-recurse helm-grep-use-zgrep helm-input-idle-delay default-directory helm-make-source helm-grep-class :backend :pcre "\\`ack" t helm :sources :buffer format "*helm %s*" :default :input :keymap :history helm-grep-history :truncate-lines helm-ff-default-directory helm-grep-input-idle-delay inhibit-changing-match-data helm-grep-map helm-grep-truncate-lines] 31 (#$ . 36765)]) #@24 (fn FLIST RECURSIVE) (defalias 'helm-ff-zgrep-1 #[514 "\304\216\206 \203#\305\n\"\206$\306\307\310\311\312\313\314 &\n#\202$\315\316#\266\202)\207" [helm-ff-default-directory default-directory helm-rzgrep-cache helm-zgrep-file-extension-regexp #[0 "\301\211\207" [helm-zgrep-recurse-flag nil] 2] gethash puthash helm-walk-directory :directories nil :path full :match helm-do-grep-1 zgrep] 13 (#$ . 39516)]) #@38 Split a grep output line. (fn LINE) (defalias 'helm-grep-split-line #[257 "\301\"\205\"\302\303\304X\203\305\"B\262T\262\202 \211\237\266\202\207" [helm-grep-split-line-regexp string-match 1 nil 3 match-string] 6 (#$ . 39946)]) #@37 (fn CANDIDATE &optional DIR PCRE) (defalias 'helm-grep--filter-candidate-1 #[769 "\206\n\205\n \304\305\306#)\266\203\211\203!\307!\202\"\310!\203=\211\203=\311@\312\313\"\2069\"\202?\211\242A@\3148 \315\267\202j\205s\316!\202s\202s\205s\205s\317\"\202s\320\321 \322#\205s\304\211\203\251\203\251\203\251\323\324\325\326\327 !\330\n&\331\323\324\332#\331\n\203\235\202\243\333\"\260B\207\334\207" [helm-grep-default-directory-fn helm--ansi-color-regexp inhibit-changing-match-data helm-grep-file-path-style nil t string-match helm--ansi-color-apply helm-grep-split-line expand-file-name file-remote-p localname 2 #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (basename 75 absolute 85 relative 89)) file-name-nondirectory file-relative-name error "cl-ecase failed: %s, %s" (basename absolute relative) propertize face helm-grep-file help-echo abbreviate-file-name helm-grep-fname ":" helm-grep-lineno helm-grep-highlight-match ""] 19 (#$ . 40194)]) #@95 `filter-one-by-one' transformer function for `helm-do-grep-1'. (fn CANDIDATE &optional PCRE) (defalias 'helm-grep-filter-one-by-one #[513 "\206\301:\203\202;\205\302\303#)\207" [helm-grep-default-directory-fn #[0 "\206 \303=\204\304 \206\n\207" [helm-ff-default-directory major-mode default-directory helm-grep-mode helm-default-directory] 2] helm-grep--filter-candidate-1 nil] 6 (#$ . 41254)]) #@26 (fn CANDIDATES SOURCE) (defalias 'helm-grep-fc-transformer #[514 "\206\301\302\303\"\304\211:\203(@\262\305\304#B\262A\262\202\211\237\266\203)\207" [helm-grep-default-directory-fn #[0 "\206 \303=\204\304 \206\n\207" [helm-ff-default-directory major-mode default-directory helm-grep-mode helm-default-directory] 2] helm-get-attr pcre nil helm-grep--filter-candidate-1] 11 (#$ . 41678)]) #@90 Highlight in string STR all occurences matching `helm-pattern'. (fn STR &optional PCRE) (defalias 'helm-grep-highlight-match #[513 "\303\211\3041\240\305\306\307\"r\211q\210\310\311\"\216\312\313\303#c\210eb\210\314!\303\211:\203S@\262\315\316\"\211\204K \205;\317\n\"\211\203D\211A\202E\262B\262\210A\262\202\"\211\237\266\203\303:\203\227@\262\320\203m\321!\202n\303\307#\203\215\322\225\211\262\322\224\211\262Z\322V\203\215\323\324#\210\202aeb\210A\262\202X\266\325 *\2620\207\210\303\207" [helm-input helm-migemo-mode helm-mm--previous-migemo-info nil (debug error) generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] propertize read-only helm-mm-split-pattern string-match "\\`!" assoc re-search-forward helm--translate-pcre-to-elisp 0 helm-add-face-text-properties helm-grep-match buffer-string] 12 (#$ . 42100)]) #@391 Run grep on all file buffers or CANDIDATE if it is a file buffer. If one of selected buffers is not a file buffer, it is ignored and grep will run on all others file-buffers. If only one candidate is selected and it is not a file buffer, switch to this buffer and run `helm-occur'. If a prefix arg is given run grep on all buffers ignoring non-file buffers. (fn CANDIDATE &optional ZGREP) (defalias 'helm-grep-buffers-1 #[513 "\206 \n\203\306\n!\203 \202\n\211\203\307 \202 \310 \311 \312\211\211\211:\203R@\262\313\314!!\262\203H\306!\204H\315!B\262A\262\312\262\202'\237\266\205\211\203l\203f\316\312\317#\202\207\316!\202\207\320!\210\314\f!\203{\321\f!\210\322 \210 \323=\205\207\324!)\207" [current-prefix-arg helm-current-prefix-arg helm-ff-default-directory default-directory helm-action-buffer helm-exit-status file-remote-p buffer-list helm-marked-candidates current-window-configuration nil buffer-file-name get-buffer expand-file-name helm-do-grep-1 zgrep switch-to-buffer kill-buffer helm-occur 1 set-window-configuration] 13 (#$ . 43032)]) #@41 Action to grep buffers. (fn CANDIDATE) (defalias 'helm-grep-buffers #[257 "\300!\207" [helm-grep-buffers-1] 3 (#$ . 44136)]) #@42 Action to zgrep buffers. (fn CANDIDATE) (defalias 'helm-zgrep-buffers #[257 "\300\301\"\207" [helm-grep-buffers-1 zgrep] 4 (#$ . 44269)]) (defvar helm-pdfgrep-default-function 'helm-pdfgrep-init) #@94 Start an asynchronous pdfgrep process in ONLY-FILES list. (fn ONLY-FILES &optional RECURSE) (defalias 'helm-pdfgrep-init #[513 "\206 \306\307 !\203\310\311\"\202 \"\312\203 \n\202! \f#\313\314\315 \"\210\314\316\317\320\321\322#\323Q\"\210\324\325#\326\313!\210\327\330!\331\"\210*\207" [helm-ff-default-directory default-directory helm-pdfgrep-default-recurse-command helm-pdfgrep-default-command helm-pattern process-connection-type helm-grep-prepare-candidates file-remote-p mapcar #[257 "\300\301\"\207" [file-remote-p localname] 4 "\n\n(fn X)"] format nil helm-log "Starting Pdf Grep process in directory `%s'" "Command line used was:\n\n%s" ">>> " propertize face helm-grep-cmd-line "\n\n" start-file-process-shell-command "pdfgrep" message set-process-sentinel get-buffer-process #[514 "\211\303\230\203$\304\305 !r\306\307\"\216\310@\311\"\210\312\313 \210 \205\"\314\n!*\207\315\316\317\320\321#\"\207" [mode-line-format helm-allow-mouse helm-selection-point "finished\n" internal--before-with-selected-window helm-window make-closure #[0 "\301\300!\207" [V0 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 "[Pdfgrep Process Finish - %s result(s)] " (max (1- (count-lines (point-min) (point-max))) 0)) 'face 'helm-grep-finish))) force-mode-line-update helm--bind-mouse-for-selection helm-log "Error: Pdf grep %s" replace-regexp-in-string "\n" ""] 8 "\n\n(fn PROCESS EVENT)"] helm-buffer] 11 (#$ . 44473)]) #@72 Launch pdfgrep with a list of ONLY files. (fn ONLY &optional RECURSE) (defalias 'helm-do-pdfgrep-1 #[513 "\304\305!\204\n\306\307!\210\310\311 !\203\312 !\210\313\314\315\316\317\320\321\322\323\324\n\"\325\326\327\326\330\331\332\333\334\335\336 \337\340\341\342\343\344\345\346&\347\350\334\335&)\207" [helm-grep-in-recurse helm-action-buffer helm-pdfgrep-targets helm-pdfgrep-map executable-find "pdfgrep" error "Error: No such program `pdfgrep'." nil get-buffer kill-buffer helm :sources helm-make-source "PdfGrep" helm-source-async :init #[0 "\206 \211\207" [helm-ff-default-directory default-directory] 2] :candidates-process make-closure #[0 " \n\300\"\207" [V0 helm-pdfgrep-default-function helm-pdfgrep-targets] 3] :nohighlight t :nomark :filter-one-by-one helm-grep-filter-one-by-one :candidate-number-limit 9999 :history helm-grep-history :keymap :help-message helm-pdfgrep-help-message :action helm-pdfgrep-action :persistent-help "Jump to PDF Page" :requires-pattern 2 :buffer "*helm pdfgrep*"] 31 (#$ . 46067)]) #@18 (fn CANDIDATE) (defalias 'helm-pdfgrep-action #[257 "\300\301\"\207" [helm-grep-action pdf] 4 (#$ . 47113)]) #@27 (fn SPLIT PAGENO FNAME) (defalias 'helm-pdfgrep-action-1 #[771 "\301 r\302\303\"\216\304\305\306\307\310B\311 BD\"#*\207" [helm-pdfgrep-default-read-command internal--before-save-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-save-selected-window] 2] start-file-process-shell-command "pdf-reader" nil format-spec 102 112] 12 (#$ . 47231)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable helm-grep-ag-command funcall function #[0 "\300\207" [#1="ag --line-numbers -S --color --nogroup %s %s %s"] 1 #1#] "The default command for AG, PT or RG.\n\nTakes three format specs, the first for type(s), the second for\npattern and the third for directory.\n\nYou can use safely \"--color\" (used by default) with AG RG and\nPT.\n\nNOTE: Usage of \"--color=never\" is discouraged as it uses Elisp\nto colorize matched items which is slower than using the native\ncolorization of backend, however it is still supported.\n\nFor ripgrep here is the command line to use:\n\n rg --color=always --smart-case --no-heading --line-number %s %s %s\n\nAnd to customize colors (always for ripgrep) use something like this:\n\n rg --color=always --colors 'match:bg:yellow' --colors 'match:fg:black'\n--smart-case --no-heading --line-number %s %s %s\n\nThis will change color for matched items from foreground red (the\ndefault) to a yellow background with a black foreground. Note\nthat your color settings for RG will not work properly with\nmultiples pattern if you have configured colors in rg config file\ninstead of command line. For more enhanced settings of ansi\ncolors see https://github.com/emacs-helm/helm/issues/2313\n\nYou must use an output format that fit with helm grep, that is:\n\n \"filename:line-number:string\"\n\nThe option \"--nogroup\" allow this.\nThe option \"--line-numbers\" is also mandatory except with\nPT (not supported).\nFor RG the options \"--no-heading\" and \"--line-number\" are the\nones to use.\n\nWhen modifying the default colors of matches with e.g.\n\"--color-match\" option of AG or \"--colors\" option of ripgrep\nyou may want to modify as well `helm-grep-ag-pipe-cmd-switches'\nto have all matches colorized with the same color in multi\nmatch.\n\nOf course you can use several other options, see the man page of the\nbackend you are using." :group helm-grep :type string] 8) (defalias 'helm-grep--ag-command #[0 "\301\302\303!\"@\207" [helm-grep-ag-command helm-remove-if-match "\\`[A-Z]*=" split-string] 4]) #@155 Returns a list of AG types if available with AG version. See AG option "--list-file-types" Ripgrep (rg) types are also supported if this backend is used. (defalias 'helm-grep-ag-get-types #[0 "\300\301\302\"r\211q\210\303\304\"\216\305 \211\306\230\211\203\307\202\310\203#\311\202$\312\313\314\302\314\2032\315\2023\316%\317=\205_eb\210\314\211\211\320\314\302#\203[\321\322!\262PBB\262\314\262\202?\237\266\203\266\204*\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] helm-grep--ag-command "rg" "^\\(.*\\):" "^ *\\(--[a-z]*\\)" "-t " "" call-process nil "--type-list" "--list-file-types" 0 re-search-forward match-string 1] 12 (#$ . 49751)]) #@208 Prepare AG command line to search PATTERN in DIRECTORY. When TYPE is specified it is one of what `helm-grep-ag-get-types' returns if available with current AG version. (fn PATTERN DIRECTORY &optional TYPE) (defalias 'helm-grep-ag-prepare-cmd-line #[770 "\302\303\"\304\305\306#\307\310 \211\232\204#<\203\211\235\204#\303=\2030\311\312\306P#\266\202\202M\211\211\313\232\205I\311\314\315\316 \"\205D\317\320 \"\306P#\262\266\202\311 \304\305\306#\321@!\321 !$A\211\203\212\322\323:\203\206@\262\211\311\324 \321!#P\262A\262\202i\266\202P\207\207" [helm-grep-ag-pipe-cmd-switches helm-grep-ag-command helm-mm-split-pattern t mapconcat identity " " ("ag" "pt") helm-grep--ag-command format "%s -S --color%s" "rg" "rg -N -S --color=%s%s" string-match "--color=\\([a-z]+\\) " match-string 1 shell-quote-argument nil "" " | %s %s"] 18 (#$ . 50497)]) #@103 Start AG process in DIRECTORY maybe searching only files of type TYPE. (fn DIRECTORY &optional TYPE) (defalias 'helm-grep-ag-init #[513 "\206\n\305 \206\n \306\n\307\310\"\206#\311 \312 \313\303!\210\314\315#\210\314\316\317\320Q\"\210\321\f#\322\323\f!\324\325#\"\210)\207" [helm-ff-default-directory default-directory helm-pattern helm-grep-last-cmd-line helm-buffer helm-default-directory helm-grep-ag-prepare-cmd-line file-remote-p localname float-time helm-grep--ag-command make-local-variable helm-log "Starting %s process in directory `%s'" "Command line used was:\n\n%s" ">>> " "\n\n" start-file-process-shell-command set-process-sentinel get-buffer-process make-closure #[514 "\306!\211\307U\211\203.r\310 q\210\311\312\n\313\314#Pc\210\315\316\315\317\315\320\312\321\322\301\226E\323BBD\257\211)\207\324\230\203y\325\326\301\327 \330 \300Z$\210\331 \210\332\333 !r\334\335\"\216\336@\337\"\210\315\316\315\340\315\320\312\321\341\301\226\330 \300Z\342BBBB\343BBD\257\344 \210\f\205w\345 !*\207\325\346\301\347\350\351##\207" [V0 V1 helm-grep-last-cmd-line mode-line-format helm-allow-mouse helm-selection-point process-exit-status 1 helm-buffer-get "* Exit with code 1, no result found, command line was:\n\n " propertize face helm-grep-cmd-line " " mode-line-buffer-identification (:eval (format "L%s" (helm-candidate-number-at-point))) :eval format "[%s process finished - (no results)] " ('face 'helm-grep-finish) "finished\n" helm-log "%s process finished with %s results in %fs" helm-get-candidate-number float-time helm-maybe-show-help-echo internal--before-with-selected-window helm-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord (:eval (format "L%s" (helm-candidate-number-at-point))) "[%s process finished in %.2fs - (%s results)] " ((helm-get-candidate-number)) ('face 'helm-grep-finish) force-mode-line-update helm--bind-mouse-for-selection "Error: %s %s" replace-regexp-in-string "\n" ""] 17 "\n\n(fn PROCESS EVENT)"]] 13 (#$ . 51391)]) (byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias helm-grep-ag-class-p eieio-make-class-predicate helm-grep-ag-class helm-grep-ag-class--eieio-childp eieio-make-child-predicate helm-grep-ag-class-child-p make-obsolete "use (cl-typep ... \\='helm-grep-ag-class) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (helm-source-async) ((nohighlight :initform t) (pcre :initarg :pcre :initform t :documentation " Backend is using pcre regexp engine when non--nil.") (keymap :initform helm-grep-map) (history :initform 'helm-grep-ag-history) (help-message :initform 'helm-grep-help-message) (filtered-candidate-transformer :initform #'helm-grep-fc-transformer) (persistent-action :initform 'helm-grep-persistent-action) (persistent-help :initform "Jump to line (`C-u' Record in mark ring)") (candidate-number-limit :initform 99999) (requires-pattern :initform 2) (nomark :initform t) (action :initform 'helm-grep-actions) (group :initform 'helm-grep)) nil] 6) #@75 Create a new object of class type `helm-grep-ag-class'. (fn &rest SLOTS) (defalias 'helm-grep-ag-class #[128 "\300\301\302#\207" [apply make-instance helm-grep-ag-class] 5 (#$ . 54540)]) (byte-code "\300\301\302\303#\300\207" [function-put helm-grep-ag-class compiler-macro helm-grep-ag-class--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (defalias 'helm-grep-ag-class--anon-cmacro #[385 "\211@;\204\207\300\301\302@@#@\303@DABB\"\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 54858)]) (defvar helm-source-grep-ag nil) (cl-generic-define-method 'helm--setup-source nil '((source helm-grep-ag-class)) t #[514 " \210\205 \205\302\303 \"\211\205\304\303#\262\207" [helm-follow-mode-persistent helm-source-grep-ag assoc-default follow eieio-oset] 8 "\n\n(fn CL--CNM SOURCE)"]) #@98 Start helm ag in DIRECTORY maybe searching in files of type TYPE. (fn DIRECTORY &optional TYPE) (defalias 'helm-grep-ag-1 #[513 "\304\305 \226\306\307\310\311\"\312\310\313  #&\314\315 \"\210\316\317\300\320\n\321\322\323 \324\325\326\305 \"&\n\207" [helm-source-grep-ag helm-grep-input-idle-delay helm-grep-map helm-grep-truncate-lines helm-make-source helm-grep--ag-command helm-grep-ag-class :header-name make-closure #[257 "\301\302\303\300!#\207" [V0 format "%s [%s]" abbreviate-file-name] 6 "\n\n(fn NAME)"] :candidates-process #[0 "\302\300\301\"\207" [V0 V1 helm-grep-ag-init] 3] helm-set-local-variable helm-input-idle-delay helm :sources :keymap :history helm-grep-ag-history :truncate-lines :buffer format "*helm %s*"] 15 (#$ . 55394)]) #@115 Start grep AG in DIRECTORY. When WITH-TYPES is non-nil provide completion on AG types. (fn DIRECTORY WITH-TYPES) (defalias 'helm-grep-ag #[514 "\300\301!\210\302\205\f\303 \211\205\304\305\306\307\310\307\311\312\313\314&\n\262\"\207" [require helm-adaptive helm-grep-ag-1 helm-grep-ag-get-types helm-comp-read "Ag type: " :must-match t :marked-candidates :fc-transformer helm-adaptive-sort :buffer "*helm ag types*"] 16 (#$ . 56157)]) (defvar helm-source-grep-git nil) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable helm-grep-git-grep-command funcall function #[0 "\300\207" [#1="git --no-pager grep -n%cH --color=always --full-name -e %p -- %f"] 1 #1#] "The git grep default command line.\nThe option \"--color=always\" can be used safely.\nThe color of matched items can be customized in your .gitconfig\nSee `helm-grep-default-command' for more infos.\n\nThe \"--exclude-standard\" and \"--no-index\" switches allow\nskipping unwanted files specified in ~/.gitignore_global and\nsearching files not already staged (not enabled by default).\n\nYou have also to enable this in global \".gitconfig\" with\n \"git config --global core.excludesfile ~/.gitignore_global\"." :group helm-grep :type string] 8) #@347 Run git-grep on DIRECTORY. If DIRECTORY is not inside or part of a git repo exit with error. If optional arg ALL is non-nil grep the whole repo otherwise start at DIRECTORY. Arg DEFAULT is what you will have with `next-history-element', arg INPUT is what you will have by default at prompt on startup. (fn DIRECTORY &optional ALL DEFAULT INPUT) (defalias 'helm-grep-git-1 #[1025 "\303\304!\210\305\306\307\"\211 \211\204\310\302\311\305\211$\210\312\203\"\313\202&\314!C\305\315\305\316&+\207" [helm-grep-default-recurse-command helm-grep-default-directory-fn helm-ff-default-directory require vc nil make-closure #[0 "\301\300\302\"\207" [V0 vc-find-root ".git"] 3] cl--assertion-failed "Not inside a Git repository" helm-do-grep-1 ("") expand-file-name git helm-source-grep-git] 13 (#$ . 57421)]) #@144 Preconfigured `helm' for grepping with AG in `default-directory'. With prefix arg prompt for type if available with your AG version. (fn ARG) (defalias 'helm-do-grep-ag #[257 "\301\302!\210\303\304!\"\207" [default-directory require helm-files helm-grep-ag expand-file-name] 4 (#$ . 58243) "P"]) #@123 Preconfigured `helm' for git-grepping `default-directory'. With a prefix arg ARG git-grep the whole repository. (fn ARG) (defalias 'helm-grep-do-git-grep #[257 "\301\302!\210\303\"\207" [default-directory require helm-files helm-grep-git-1] 4 (#$ . 58549) "P"]) (provide 'helm-grep)