Add g-/g= keys for buffer narrowing/widening

This commit is contained in:
Henrik Lissner 2018-10-03 11:14:08 -04:00
parent f20cfd21c2
commit fe425c005e
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
3 changed files with 6 additions and 3 deletions

View file

@ -238,8 +238,9 @@ clone the buffer and hard-narrow the selection. If mark isn't active, then widen
the buffer (if narrowed). the buffer (if narrowed).
Inspired from http://demonastery.org/2013/04/emacs-evil-narrow-region/" Inspired from http://demonastery.org/2013/04/emacs-evil-narrow-region/"
(interactive "r") (interactive "rP")
(cond ((region-active-p) (cond ((or (region-active-p)
(and beg end))
(deactivate-mark) (deactivate-mark)
(when clone-p (when clone-p
(let ((old-buf (current-buffer))) (let ((old-buf (current-buffer)))

View file

@ -97,6 +97,8 @@
:n "gr" #'+eval:region :n "gr" #'+eval:region
:n "gR" #'+eval/buffer :n "gR" #'+eval/buffer
:v "gR" #'+eval:replace-region :v "gR" #'+eval:replace-region
:nv "g-" #'+evil:narrow-buffer
:n "g=" #'widen
:v "@" #'+evil:apply-macro :v "@" #'+evil:apply-macro
:n "g@" #'+evil:apply-macro :n "g@" #'+evil:apply-macro
;; repeat in visual mode (FIXME buggy) ;; repeat in visual mode (FIXME buggy)

View file

@ -149,7 +149,7 @@ integration."
(doom/retab beg end)) (doom/retab beg end))
;;;###autoload (autoload '+evil:narrow-buffer "feature/evil/autoload/evil" nil t) ;;;###autoload (autoload '+evil:narrow-buffer "feature/evil/autoload/evil" nil t)
(evil-define-command +evil:narrow-buffer (beg end &optional bang) (evil-define-operator +evil:narrow-buffer (beg end &optional bang)
"Wrapper around `doom/clone-and-narrow-buffer'." "Wrapper around `doom/clone-and-narrow-buffer'."
:move-point nil :move-point nil
(interactive "<r><!>") (interactive "<r><!>")