From 8515985057183aa49973fbc6ced7c37c779b2123 Mon Sep 17 00:00:00 2001
From: Case Duckworth <acdw@acdw.net>
Date: Tue, 28 Dec 2021 18:20:24 -0600
Subject: [PATCH] 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-<tab>" #'+hs-cycle
+           "C-S-<tab>" #'+hs-global-cycle
+           ;; but y tho
+           "C-S-<iso-lefttab>" #'+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