From aab5bfd074e57d06a79e39d7c7c4760e1f385a06 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Mon, 17 Oct 2022 21:41:28 -0500
Subject: Bankruptcy 9

---
 lisp/+hideshow.el | 44 --------------------------------------------
 1 file changed, 44 deletions(-)
 delete mode 100644 lisp/+hideshow.el

(limited to 'lisp/+hideshow.el')

diff --git a/lisp/+hideshow.el b/lisp/+hideshow.el
deleted file mode 100644
index e60efb8..0000000
--- a/lisp/+hideshow.el
+++ /dev/null
@@ -1,44 +0,0 @@
-;;; +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