From 79d3a9a2f332f71711734ee5dd1b7fb2c45ca797 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-racket.el | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) (limited to 'elisp/geiser-racket.el') diff --git a/elisp/geiser-racket.el b/elisp/geiser-racket.el index 4fbc017..9e00c4d 100644 --- a/elisp/geiser-racket.el +++ b/elisp/geiser-racket.el @@ -370,6 +370,27 @@ using start-geiser, a procedure in the geiser/server module." (setq geiser-image-cache-dir (geiser-eval--send/result '(:eval (image-cache) geiser/user))))) + +;;; Additional commands + +(defconst geiser-racket--test-module "module+ test") + +(defun geiser-racket-toggle-tests () + "Toggle visibility of test module fragments of the form (module+ test). + +When hidden, the test module forms are shown as an ellipsis." + (interactive) + (geiser-edit--toggle-visibility geiser-racket--test-module)) + +(defun geiser-racket-show-tests () + "Unconditionally shows all test modules." + (interactive) + (geiser-edit--show geiser-racket--test-module)) + +(defun geiser-racket-hide-tests () + "Unconditionally hides all visible test modules." + (interactive) + (geiser-edit--hide geiser-racket--test-module)) ;;; Implementation definition: -- cgit v1.2.3