From c020b4228dec6b2e6489f58ee169aeb870a3da00 Mon Sep 17 00:00:00 2001 From: Shav Kinderlehrer Date: Fri, 8 May 2026 19:17:47 -0400 Subject: Add pretty border and implement lock Improves some of the scheme logic and adds a lock file so that people don't open a million instances of extant on accident. --- scm/extant-input.scm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'scm/extant-input.scm') diff --git a/scm/extant-input.scm b/scm/extant-input.scm index d50a7fe..b06aea6 100644 --- a/scm/extant-input.scm +++ b/scm/extant-input.scm @@ -9,7 +9,9 @@ (define (dispatch-input text) (let loop ((handlers *handlers*)) (if (null? handlers) - `((text . "No handlers found!") - (style . "error")) + '((text . "I could not find a suitable handler for this message.") + (style . error)) (let ((result ((car handlers) text))) - (or result (loop (cdr handlers))))))) + (if (null? result) + (loop (cdr handlers)) + result))))) -- cgit v1.2.3