30 lines
808 B
EmacsLisp
30 lines
808 B
EmacsLisp
(provide 'init-regex)
|
|
|
|
(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]" '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))))
|