From f4ad02ef8102f9955583609daaf98753a747db01 Mon Sep 17 00:00:00 2001 From: dx Date: Sun, 10 May 2020 18:01:37 +0100 Subject: +narrowing module, from narrowing handler in config.org --- Doom/.doom.d/modules/private/narrow/config.el | 14 ++++++++++++++ 1 file changed, 14 insertions(+) create mode 100644 Doom/.doom.d/modules/private/narrow/config.el (limited to 'Doom/.doom.d/modules/private/narrow/config.el') diff --git a/Doom/.doom.d/modules/private/narrow/config.el b/Doom/.doom.d/modules/private/narrow/config.el new file mode 100644 index 0000000..9afd513 --- /dev/null +++ b/Doom/.doom.d/modules/private/narrow/config.el @@ -0,0 +1,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)))) -- cgit v1.2.3-13-gbd6f