;ELC ;;; Compiled ;;; in Emacs version 29.3 ;;; with all optimizations. (require 'wgrep)#@189 Regular expression for the start of results for a file in grouped results. "Grouped results" are what you get from rg.el when `rg-group-result' is true or when you call rg with --heading. (defvar wgrep-rg-grouped-result-file-regexp "^File:[[:space:]]+\\(.*\\)$" (#$ . 101))#@154 Regular expression for an ungrouped result. You get "ungrouped results" when `rg-group-result' is false or when you manage to call rg with --no-heading. (defvar wgrep-rg-ungrouped-result-regexp "^\\(.+?\\)\\(?:-\\|:\\)\\([1-9][0-9]*\\)\\(?:-\\|:\\)\\(?:[1-9][0-9]*:\\)*" (#$ . 381))#@139 Add wgrep related text properties for header and footer. This is needed in order for wgrep to ignore thos areas when parsing the content. (defalias 'wgrep-rg-prepare-header/footer #[0 "\212eb\210\302 Q\303\304\305#\204\306ed\307#\210\2026\212\310 \210\311\312\305\"\262\203+\313\2022\306e`\314#\210\304)\204db\210\315\316\304\305#\210\317y\320U\205K\306`d\321#)\207" [wgrep-rg-grouped-result-file-regexp wgrep-rg-ungrouped-result-regexp "\\|" re-search-forward nil t add-text-properties (read-only t wgrep-header t) beginning-of-line "rg started.*" looking-at continue (read-only t wgrep-header t) re-search-backward "^rg finished .*$" -1 0 (read-only t wgrep-footer t)] 5 (#$ . 670)])#@171 Parse the rg results for wgrep usage. This makes non content of the buffer readonly and marks specific areas with wgrep text properties to allow for wgrep to do its job. (defalias 'wgrep-rg-parse-command-results #[0 "o\204\302\303!\210\212\304\305\306#\203u\307\310\224\310\225\311#\210\312\313!\307\313\224\313\225\314!D#\210\313y\310U\203q\315\316\306\"\262\204q\316\317 !\204M\316\320 !\204M\316\321!\203`\307\310\224\310\225\322\323\324\325\313!!F#\210\202(\316\326!\203(\307\310\224\310\225\327#\210\202(\210\202 o\205\307\305\304 \330P\305\306#\205\305\331\224\203\224\307\310\224\310\225\332#\210\202z\312\313!\324\325\333!!\232\204\264\314!\307\313\224\313\225D#\266\262\307\310\224\310\225\322\323F#\266\202z\262)\207" [wgrep-rg-grouped-result-file-regexp wgrep-rg-ungrouped-result-regexp error "Expected to be called with point at beginning of buffer" re-search-forward nil t add-text-properties 0 (wgrep-ignore t) match-string-no-properties 1 wgrep-construct-filename-property "^$" looking-at rg-file-line-column-pattern-group rg-file-line-pattern-group "^ *\\([1-9][0-9]*\\)-" wgrep-line-filename wgrep-line-number string-to-number match-string "^--$" (wgrep-ignore t) "\\|\\(^--$\\)" 3 (wgrep-ignore t) 2] 10 (#$ . 1374)])#@25 Setup wgrep rg support. (defalias 'wgrep-rg-setup #[0 "\302\300!\210\303\302\301!\210\304\305 \207" [wgrep-header&footer-parser wgrep-results-parser make-local-variable wgrep-rg-prepare-header/footer wgrep-rg-parse-command-results wgrep-setup-internal] 2 (#$ . 2653)])#@48 Print warning message if old ag setup is used. (defalias 'wgrep-rg-warn-ag-setup #[0 "\301>\205 \302\303!\207" [rg-mode-hook wgrep-ag-setup message "Warning: wgrep-ag is no longer supported by this package. Please remove wgrep-ag-setup from rg-mode-hook."] 2 (#$ . 2929)]) (add-hook 'rg-mode-hook 'wgrep-rg-setup)#@39 Allow for unloading wgrep rg support. (defalias 'wgrep-rg-unload-function #[0 "\300\301\302\"\207" [remove-hook rg-mode-hook wgrep-rg-setup] 3 (#$ . 3250)]) (provide 'wgrep-rg)