Let's make it *any* submodule

So the new functions are named geiser-racket-*-submodules, and by
default all submodule forms are hidden.

Now that we have the helpers in geiser-edit, we could have a generic
command in geiser-mode to change the visibility of form at point.

2 files changed, 7 insertions, 3 deletions

diff --git a/NEWS b/NEWS
index 5f3b250..b3770fe 100644
--- a/NEWS
+++ b/NEWS
@@ -2,8 +2,8 @@
 
   New features:
 
-   - Racket: new commands geiser-racket-{show, hide, toggle}-tests,
-     for hiding test modules in code buffers.
+   - Racket: new commands geiser-racket-{show, hide, toggle}-submodules,
+     for folding submodule forms in code buffers.
    - Racket: interaction with submodules (entering them and evaluation
      within their scope).
    - New commands geiser-eval-buffer (C-c C-b) and
diff --git a/elisp/geiser-edit.el b/elisp/geiser-edit.el
index f75e303..d43cf9b 100644
--- a/elisp/geiser-edit.el
+++ b/elisp/geiser-edit.el
@@ -191,7 +191,7 @@ or following links in error buffers.")
   (let ((cloak (geiser-edit--cloak form)))
     (save-excursion
       (goto-char (point-min))
-      (while (re-search-forward (format "(%s\\b" (regexp-quote form)) nil t)
+      (while (re-search-forward (format "(%s\\b" form) nil t)
         (let* ((beg (match-beginning 0))
                (end (progn (ignore-errors (goto-char beg) (forward-sexp))
                            (point))))
@@ -204,6 +204,10 @@ or following links in error buffers.")
     (remove-overlays nil nil 'invisible cloak)
     (remove-from-invisibility-spec (cons cloak t))))
 
+(defun geiser-edit--show-all ()
+  (remove-overlays)
+  (setq buffer-invisibility-spec '(t)))
+
 (defun geiser-edit--toggle-visibility (form)
   (if (and (listp buffer-invisibility-spec)
            (assoc (geiser-edit--cloak form) buffer-invisibility-spec))