From 8515985057183aa49973fbc6ced7c37c779b2123 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Tue, 28 Dec 2021 18:20:24 -0600 Subject: Setup hideshow.el --- init.el | 9 +++++++++ lisp/+hideshow.el | 44 ++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 53 insertions(+) create mode 100644 lisp/+hideshow.el diff --git a/init.el b/init.el index cc663e4..961e90a 100644 --- a/init.el +++ b/init.el @@ -247,6 +247,15 @@ "M-n" nil "M-p" nil)) +(setup hideshow + (:also-load +hideshow) + (:with-mode hs-minor-mode + (:hook-into prog-mode) + (:bind "C-" #'+hs-cycle + "C-S-" #'+hs-global-cycle + ;; but y tho + "C-S-" #'+hs-global-cycle))) + (setup ibuffer (:also-load ibuf-ext) (:option ibuffer-expert t diff --git a/lisp/+hideshow.el b/lisp/+hideshow.el new file mode 100644 index 0000000..e60efb8 --- /dev/null +++ b/lisp/+hideshow.el @@ -0,0 +1,44 @@ +;;; +hideshow.el -*- lexical-binding: t; -*- + +;;; Commentary: + +;; initiated by https://karthinks.com/software/simple-folding-with-hideshow/ + +;;; Code: + +(defun +hs-cycle (&optional level) + (interactive "p") + (let (message-log-max + (inhibit-message t)) + (if (= level 1) + (pcase last-command + ('+hs-cycle + (hs-hide-level 1) + (setq this-command 'hs-cycle-children)) + ('hs-cycle-children + ;; TODO: Fix this case. `hs-show-block' needs to be + ;; called twice to open all folds of the parent + ;; block. + (save-excursion (hs-show-block)) + (hs-show-block) + (setq this-command 'hs-cycle-subtree)) + ('hs-cycle-subtree + (hs-hide-block)) + (_ + (if (not (hs-already-hidden-p)) + (hs-hide-block) + (hs-hide-level 1) + (setq this-command 'hs-cycle-children)))) + (hs-hide-level level) + (setq this-command 'hs-hide-level)))) + +(defun +hs-global-cycle () + (interactive) + (pcase last-command + ('+hs-global-cycle + (save-excursion (hs-show-all)) + (setq this-command 'hs-global-show)) + (_ (hs-hide-all)))) + +(provide '+hideshow) +;;; +hideshow.el ends here -- cgit 1.4.1-21-gabe81