52 lines
3.7 KiB
Plaintext
52 lines
3.7 KiB
Plaintext
|
;ELC
|
|||
|
|
;;; Compiled
|
|||
|
|
;;; in Emacs version 26.1
|
|||
|
|
;;; with all optimizations.
|
|||
|
|
|
|||
|
|
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
|
|||
|
|
|
|||
|
|
;;; This file does not contain utf-8 non-ASCII characters,
|
|||
|
|
;;; and so can be loaded in Emacs versions earlier than 23.
|
|||
|
|
|
|||
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|||
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|||
|
|
|
|||
|
|
|
|||
|
|
(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311\302%\207" [require cl-lib helm helm-help helm-utils custom-declare-group helm-regexp nil "Regexp related Applications and libraries for Helm." :group] 6)
|
|||
|
|
(defvar helm-build-regexp-history nil)
|
|||
|
|
#@199 Query replace regexp from `helm-regexp'.
|
|||
|
|
With a prefix arg replace only matches surrounded by word boundaries,
|
|||
|
|
i.e Don't replace inside a word, regexp is surrounded with \bregexp\b.
|
|||
|
|
|
|||
|
|
(fn CANDIDATE)
|
|||
|
|
(defalias 'helm-query-replace-regexp #[257 "\301\302\303!\"\207" [helm-input apply query-replace-regexp helm-query-replace-args] 6 (#$ . 687)])
|
|||
|
|
#@62 Kill regexp in a format usable in lisp code.
|
|||
|
|
|
|||
|
|
(fn CANDIDATE)
|
|||
|
|
(defalias 'helm-kill-regexp-as-sexp #[257 "\301\302!!\207" [helm-input helm-regexp-kill-new prin1-to-string] 4 (#$ . 1037)])
|
|||
|
|
#@57 Kill regexp as it is in `helm-pattern'.
|
|||
|
|
|
|||
|
|
(fn CANDIDATE)
|
|||
|
|
(defalias 'helm-kill-regexp #[257 "\301!\207" [helm-input helm-regexp-kill-new] 3 (#$ . 1230)])
|
|||
|
|
#@82 create arguments of `query-replace-regexp' action in `helm-regexp'.
|
|||
|
|
|
|||
|
|
(fn REGEXP)
|
|||
|
|
(defalias 'helm-query-replace-args #[257 "\301 \302\303\304\203 \305\202 \306\203 \307\202 \306#\310#\205$ \311 \205* \312 \257\207" [helm-current-prefix-arg helm-region-active-p query-replace-read-to format "Query replace %sregexp %s" "word " "" "in region " t region-beginning region-end] 9 (#$ . 1389)])
|
|||
|
|
(defvar helm-source-regexp (helm-make-source "Regexp Builder" 'helm-source-in-buffer :init #[0 "\301\302\303\304!r\211q\210\305\306\307\310\311!\312\"\313$\216\314!\210\315 *\262\"\207" [helm-current-buffer helm-init-candidates-in-buffer global generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-buffer-substring buffer-string] 9] :get-line 'helm-regexp-get-line :persistent-action 'helm-regexp-persistent-action :persistent-help "Show this line" :multiline t :multimatch nil :requires-pattern 2 :group 'helm-regexp :mode-line "Press TAB to select action." :action '(("Kill Regexp as sexp" . helm-kill-regexp-as-sexp) ("Query Replace Regexp (C-u Not inside word.)" . helm-query-replace-regexp) ("Kill Regexp" . helm-kill-regexp))))
|
|||
|
|
#@12
|
|||
|
|
|
|||
|
|
(fn S E)
|
|||
|
|
(defalias 'helm-regexp-get-line #[514 "\300 {\301\302\303\304!S#\305G\306\245S\307X\203< \310!\211\2034 \302\311\312\313\314\"\302\315 \"$P\262\210T\262\202 P\266\204\316#\207" [match-data propertize format "%5d: %s" line-number-at-pos 0 2 "" match-string "\n%s%s'%s'" make-string 10 32 "Group %d: " helm-realvalue] 17 (#$ . 2608)])
|
|||
|
|
#@11
|
|||
|
|
|
|||
|
|
(fn PT)
|
|||
|
|
(defalias 'helm-regexp-persistent-action #[257 "\300!\210\301 \207" [helm-goto-char helm-highlight-current-line] 3 (#$ . 2978)])
|
|||
|
|
#@14
|
|||
|
|
|
|||
|
|
(fn INPUT)
|
|||
|
|
(defalias 'helm-regexp-kill-new #[257 "\300\301!!\210\302\303\"\207" [kill-new substring-no-properties message "Killed: %s"] 4 (#$ . 3124)])
|
|||
|
|
#@105 Preconfigured helm to build regexps.
|
|||
|
|
`query-replace-regexp' can be run from there against found regexp.
|
|||
|
|
(defalias 'helm-regexp #[0 "\214\301 \203 \302p!\204 \303 \304 }\210\305\306\307\310\311\312\313\314&)\207" [helm-source-regexp helm-region-active-p helm-current-buffer-narrowed-p region-beginning region-end helm :sources :buffer "*helm regexp*" :prompt "Regexp: " :history helm-build-regexp-history] 9 (#$ . 3287) nil])
|
|||
|
|
(provide 'helm-regexp)
|