diff options
| author |  Tom Willemse | 2026-07-14 00:14:03 -0700 |
|---|---|---|
| committer | Tom Willemse | 2026-07-14 00:14:03 -0700 |
| commit | 0e7f844f4164e7234a6e88dd01f68fa2ccc8f410 (patch) | |
| tree | df49e62601d1243f2690956f883c62c6b4e0015d | |
| parent | 1d6fb807ee6fe7e628802a64134419765088efeb (diff) | |
| download | emacs-config-0e7f844f4164e7234a6e88dd01f68fa2ccc8f410.tar.gz emacs-config-0e7f844f4164e7234a6e88dd01f68fa2ccc8f410.zip | |
oni-scheme: Add support for hiding ‘use-modules’ imports
| -rw-r--r-- | oni-scheme.el | 8 |
1 files 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 <tom@ryuslash.org> ;; 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))) |