2 files changed, 21 insertions, 0 deletions
diff --git a/Doom/.doom.d/modules/private/narrow/README.org b/Doom/.doom.d/modules/private/narrow/README.org
new file mode 100644
index 0000000..c767cb8
--- /dev/null
+++ b/Doom/.doom.d/modules/private/narrow/README.org
@@ -0,0 +1,7 @@
+#+TITLE:   private/narrow
+#+DATE:    May 10, 2020
+
+* Description
+Minimal configuration for narrowing to function.
+* Prerequisites
+* Requirements
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))))