From f417431b8b72fbc6e98c1310b99cba50882b13d2 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Sun, 25 Aug 2013 06:22:05 +0200 Subject: Racket: new commands to show and hide test submodules The new commands, being racket-specific, are called geiser-racket-{show,hide,toggle}-tests, and have no default binding in geiser-mode (since they don't have any meaning in Guile). The implementation is based on more generic functions in geiser-edit that allow hiding of any top-level form, given its name, so we will probably find new forms to hide in the future. Hiding is limited to top-level forms, which i think is fine for the only use case we have in mind right now. --- elisp/geiser-edit.el | 28 ++++++++++++++++++++++++++++ 1 file changed, 28 insertions(+) (limited to 'elisp/geiser-edit.el') diff --git a/elisp/geiser-edit.el b/elisp/geiser-edit.el index 5d5cd1b..f75e303 100644 --- a/elisp/geiser-edit.el +++ b/elisp/geiser-edit.el @@ -181,6 +181,34 @@ or following links in error buffers.") (goto-char p) (error "No %s error" msg)))) + +;;; Visibility +(defun geiser-edit--cloak (form) + (intern (format "geiser-edit-cloak-%s" form))) + +(defun geiser-edit--hide (form) + (geiser-edit--show form) + (let ((cloak (geiser-edit--cloak form))) + (save-excursion + (goto-char (point-min)) + (while (re-search-forward (format "(%s\\b" (regexp-quote form)) nil t) + (let* ((beg (match-beginning 0)) + (end (progn (ignore-errors (goto-char beg) (forward-sexp)) + (point)))) + (when (> end beg) + (overlay-put (make-overlay beg end) 'invisible cloak))))) + (add-to-invisibility-spec (cons cloak t)))) + +(defun geiser-edit--show (form) + (let ((cloak (geiser-edit--cloak form))) + (remove-overlays nil nil 'invisible cloak) + (remove-from-invisibility-spec (cons cloak t)))) + +(defun geiser-edit--toggle-visibility (form) + (if (and (listp buffer-invisibility-spec) + (assoc (geiser-edit--cloak form) buffer-invisibility-spec)) + (geiser-edit--show form) + (geiser-edit--hide form))) ;;; Commands: -- cgit v1.2.3