15 lines
510 B
EmacsLisp
15 lines
510 B
EmacsLisp
;;; private/narrow/config.el -*- lexical-binding: t; -*-
|
|
|
|
(defvar +narrow/narrow-state 't "To narrow or not to narrow. Flips between t and nil")
|
|
|
|
(defun +narrow/toggle-narrow-state ()
|
|
"Toggle the state of +narrow/narrow-state between 't and 'nil"
|
|
(if (= +narrow/narrow-state 't)
|
|
(setq +narrow/narrow-state nil)
|
|
(setq +narrow/narrow-state 't)))
|
|
|
|
(defun +narrow/toggle-narrow ()
|
|
(interactive)
|
|
(cond ((+narrow/narrow-state) (narrow-to-defun) (+narrow/toggle-narrow-state))
|
|
(t (widen))))
|