+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))))
|
||||||
@@ -460,21 +460,6 @@ General keymap
|
|||||||
:desc "Swap windows" "S" #'ace-swap-window) ; allows me to switch windows more efficiently than before, better than just motions
|
:desc "Swap windows" "S" #'ace-swap-window) ; allows me to switch windows more efficiently than before, better than just motions
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
** Code
|
** Code
|
||||||
*** Narrow handlers
|
|
||||||
- Toggles narrow to function by checking a variable
|
|
||||||
#+BEGIN_SRC elisp
|
|
||||||
(defvar dx:narrow/narrow-state 't "To narrow or not to narrow")
|
|
||||||
(defun dx:narrow/toggle-narrow-state ()
|
|
||||||
"Toggle the state of dx:narrow/narrow-state between 't and 'nil"
|
|
||||||
(if (= dx:narrow/narrow-state 't)
|
|
||||||
(setq dx:narrow/narrow-state nil)
|
|
||||||
(setq dx:narrow/narrow-state 't)))
|
|
||||||
|
|
||||||
(defun dx:narrow/toggle-narrow ()
|
|
||||||
(interactive)
|
|
||||||
(cond ((dx:narrow/narrow-state) (narrow-to-defun))
|
|
||||||
(t (widen))))
|
|
||||||
#+END_SRC
|
|
||||||
*** Keybinds
|
*** Keybinds
|
||||||
- Some keybinds for the code prefix which help me with coding or working with
|
- Some keybinds for the code prefix which help me with coding or working with
|
||||||
code, particularly LSP
|
code, particularly LSP
|
||||||
@@ -484,7 +469,7 @@ General keymap
|
|||||||
:prefix ("c" . "code") ; Code
|
:prefix ("c" . "code") ; Code
|
||||||
:desc "Compile via make" "C" #'+make/run
|
:desc "Compile via make" "C" #'+make/run
|
||||||
:desc "Undo tree" "u" #'undo-tree-visualize
|
:desc "Undo tree" "u" #'undo-tree-visualize
|
||||||
:desc "Narrow to function" "n" #'dx:narrow/toggle-narrow
|
:desc "Narrow to function" "n" #'+narrow/toggle-narrow
|
||||||
(:after format-all
|
(:after format-all
|
||||||
:desc "Format code" "=" #'format-all-buffer)
|
:desc "Format code" "=" #'format-all-buffer)
|
||||||
(:after lsp
|
(:after lsp
|
||||||
|
|||||||
Reference in New Issue
Block a user