61 lines
2.2 KiB
EmacsLisp
61 lines
2.2 KiB
EmacsLisp
(use-package re-builder
|
|
:defer t
|
|
:config
|
|
(progn
|
|
(bind 'normal reb-mode-map
|
|
[escape] 'reb-quit
|
|
(kbd "C-g") 'reb-quit
|
|
[backtab] 'reb-change-syntax)
|
|
|
|
(defun my--reb-cleanup ()
|
|
(replace-regexp "^[ \n]*" "" nil (point-min) (point-max))
|
|
(text-scale-set 1.5)
|
|
(goto-char 2))
|
|
(add-hook 'reb-mode-hook 'my--reb-cleanup)
|
|
|
|
(after "evil"
|
|
(evil-set-initial-state 'reb-mode 'insert)
|
|
(evil-ex-define-cmd "re[gex]" 'my:regex)
|
|
;; Either a) converts selected (or entered-in) pcre regex into elisp
|
|
;; regex, OR b) opens up re-builder.
|
|
(evil-define-operator my:regex (beg end type &optional regexstr bang)
|
|
:move-point nil
|
|
:type inclusive
|
|
:repeat nil
|
|
(interactive "<R><a><!>")
|
|
(if (reb-mode-buffer-p)
|
|
(if regexstr
|
|
(let ((regexstr (s-trim (buffer-string))))
|
|
(if bang
|
|
(rxt-explain-pcre regexstr)
|
|
(rxt-pcre-to-elisp (s-trim (buffer-string)))))
|
|
(erase-buffer)
|
|
(insert (concat "/" regexstr "/")))
|
|
(cond ((and beg end (/= beg (1- end))) ; Convert selection from pcre regex to elisp
|
|
(let ((regexstr (buffer-substring-no-properties beg end)))
|
|
(if bang
|
|
(rxt-explain-pcre (concat "/" regexstr "/"))
|
|
(delete-region beg end)
|
|
(insert (rxt-pcre-to-elisp regexstr)))))
|
|
(regexstr ; Convert input regex into elisp regex
|
|
(let ((newregex (rxt-pcre-to-elisp regexstr)))
|
|
(when bang
|
|
(setq newregex (s-replace "\\" "\\\\" newregex)))
|
|
(kill-new newregex)
|
|
(message "Copied regex to kill ring: %s" newregex)))
|
|
(t
|
|
(re-builder))))))))
|
|
|
|
(use-package pcre2el
|
|
:config
|
|
(progn
|
|
(bind 'normal rxt-help-mode-map [escape] 'kill-buffer-and-window)
|
|
|
|
(after "re-builder" (setq reb-re-syntax 'pcre))
|
|
(after "popwin"
|
|
(push '("* Regexp Explain *" :position top :height 0.35) popwin:special-display-config))))
|
|
|
|
|
|
(provide 'init-regex)
|
|
;;; init-regex.el ends here
|