From 0e7f844f4164e7234a6e88dd01f68fa2ccc8f410 Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Tue, 14 Jul 2026 00:14:03 -0700 Subject: oni-scheme: Add support for hiding ‘use-modules’ imports --- oni-scheme.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/oni-scheme.el b/oni-scheme.el index baf71d9..11175e5 100644 --- a/oni-scheme.el +++ b/oni-scheme.el @@ -4,7 +4,7 @@ ;; Author: Tom Willemse ;; Keywords: local -;; Version: 2026.0714.000130 +;; Version: 2026.0714.001225 ;; Package-Requires: (oni-company oni-paredit rainbow-delimiters geiser geiser-guile) ;; This program is free software; you can redistribute it and/or modify @@ -66,8 +66,10 @@ (save-excursion (let (start end) (goto-char (point-min)) - (when (search-forward "(define-module" nil t) - (forward-char -14) + (when (re-search-forward (rx "(" (or "define-module" + "use-modules")) + nil t) + (forward-char (- (length (match-string 0)))) (setq start (line-end-position)) (forward-sexp) (setq end (1- (point))) -- cgit v1.3-2-g0d8e