blob: 9afd5132b92bb3fd6d0a2d5980eca252bf2fc9fc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
;;; 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))))
|
