emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Bind SPC b - to doom/toggle-narrow-buffer

Browse source
This commit is contained in:
Henrik Lissner 2019-09-14 01:55:16 -04:00
parent a736158dae
commit 6bef031e25
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 15 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

14
core/autoload/ui.el
View file

@ -220,3 +220,17 @@ If the current buffer is not an indirect buffer, it is `widen'ed."
(mapc #'kill-buffer (remove (current-buffer) buffers-to-kill)))) (mapc #'kill-buffer (remove (current-buffer) buffers-to-kill))))
((switch-to-buffer base-buffer) ((switch-to-buffer base-buffer)
(kill-buffer orig-buffer))))) (kill-buffer orig-buffer)))))
;;;###autoload
(defun doom/toggle-narrow-buffer (beg end)
"Narrow the buffer to BEG END. If narrowed, widen it."
(interactive
(list (or (bound-and-true-p evil-visual-beginning) (region-beginning))
(or (bound-and-true-p evil-visual-end) (region-end))
current-prefix-arg))
(if (buffer-narrowed-p)
(widen)
(unless (region-active-p)
(setq beg (line-beginning-position)
end (line-end-position)))
(marrow-to-region beg end)))

2
modules/config/default/+evil-bindings.el
View file

@ -582,7 +582,7 @@
;;; <leader> b --- buffer ;;; <leader> b --- buffer
(:prefix-map ("b" . "buffer") (:prefix-map ("b" . "buffer")
:desc "Toggle narrowing" "-" #'doom/clone-and-narrow-buffer :desc "Toggle narrowing" "-" #'doom/toggle-narrow-buffer
:desc "Previous buffer" "[" #'previous-buffer :desc "Previous buffer" "[" #'previous-buffer
:desc "Next buffer" "]" #'next-buffer :desc "Next buffer" "]" #'next-buffer
(:when (featurep! :ui workspaces) (:when (featurep! :ui workspaces)