From 6bef031e250c4ee00d734c0a28f282d8b782602a Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Sat, 14 Sep 2019 01:55:16 -0400 Subject: [PATCH] Bind SPC b - to doom/toggle-narrow-buffer --- core/autoload/ui.el | 14 ++++++++++++++ modules/config/default/+evil-bindings.el | 2 +- 2 files changed, 15 insertions(+), 1 deletion(-) diff --git a/core/autoload/ui.el b/core/autoload/ui.el index 8bfb90e4b..060a49237 100644 --- a/core/autoload/ui.el +++ b/core/autoload/ui.el @@ -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)))) ((switch-to-buffer base-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))) diff --git a/modules/config/default/+evil-bindings.el b/modules/config/default/+evil-bindings.el index 72a093a8e..d3a4aa594 100644 --- a/modules/config/default/+evil-bindings.el +++ b/modules/config/default/+evil-bindings.el @@ -582,7 +582,7 @@ ;;; 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 "Next buffer" "]" #'next-buffer (:when (featurep! :ui workspaces)