+narrowing module, from narrowing handler in config.org
This commit is contained in:
7
Doom/.doom.d/modules/private/narrow/README.org
Normal file
7
Doom/.doom.d/modules/private/narrow/README.org
Normal file
@@ -0,0 +1,7 @@
|
||||
#+TITLE: private/narrow
|
||||
#+DATE: May 10, 2020
|
||||
|
||||
* Description
|
||||
Minimal configuration for narrowing to function.
|
||||
* Prerequisites
|
||||
* Requirements
|
||||
14
Doom/.doom.d/modules/private/narrow/config.el
Normal file
14
Doom/.doom.d/modules/private/narrow/config.el
Normal file
@@ -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))))
|
||||
Reference in New Issue
Block a user