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

refactor(lib): use doom-region-{beginning,end}

Browse source
This commit is contained in:
Henrik Lissner 2024-03-11 03:24:44 -04:00
parent 4be265ead7
commit 61327bf777
No known key found for this signature in database
GPG key ID: B60957CA074D39A3
1 changed files with 6 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lisp/lib/ui.el
View file

@ -198,12 +198,9 @@ narrowing doesn't affect other windows displaying the same buffer. Call
`doom/widen-indirectly-narrowed-buffer' to undo it (incrementally). `doom/widen-indirectly-narrowed-buffer' to undo it (incrementally).
Inspired from http://demonastery.org/2013/04/emacs-evil-narrow-region/" Inspired from http://demonastery.org/2013/04/emacs-evil-narrow-region/"
(interactive (interactive (if (region-active-p)
(list (or (bound-and-true-p evil-visual-beginning) (region-beginning)) (list (doom-region-beginning) (doom-region-end))
(or (bound-and-true-p evil-visual-end) (region-end)))) (list (bol) (eol))))
(unless (region-active-p)
(setq beg (line-beginning-position)
end (line-end-position)))
(deactivate-mark) (deactivate-mark)
(let ((orig-buffer (current-buffer))) (let ((orig-buffer (current-buffer)))
(with-current-buffer (switch-to-buffer (clone-indirect-buffer nil nil)) (with-current-buffer (switch-to-buffer (clone-indirect-buffer nil nil))
@ -242,12 +239,9 @@ If the current buffer is not an indirect buffer, it is `widen'ed."
;;;###autoload ;;;###autoload
(defun doom/toggle-narrow-buffer (beg end) (defun doom/toggle-narrow-buffer (beg end)
"Narrow the buffer to BEG END. If narrowed, widen it." "Narrow the buffer to BEG END. If narrowed, widen it."
(interactive (interactive (if (region-active-p)
(list (or (bound-and-true-p evil-visual-beginning) (region-beginning)) (list (doom-region-beginning) (doom-region-end))
(or (bound-and-true-p evil-visual-end) (region-end)))) (list (bol) (eol))))
(if (buffer-narrowed-p) (if (buffer-narrowed-p)
(widen) (widen)
(unless (region-active-p)
(setq beg (line-beginning-position)
end (line-end-position)))
(narrow-to-region beg end))) (narrow-to-region beg end)))