summaryrefslogtreecommitdiff
path: root/starling/minibuffer.scm
diff options
context:
space:
mode:
Diffstat (limited to 'starling/minibuffer.scm')
-rw-r--r--starling/minibuffer.scm4
1 files changed, 4 insertions, 0 deletions
diff --git a/starling/minibuffer.scm b/starling/minibuffer.scm
index 2515604..9488530 100644
--- a/starling/minibuffer.scm
+++ b/starling/minibuffer.scm
@@ -35,6 +35,7 @@
#:use-module (starling scene)
#:export (<minibuffer>
add-minibuffer-command
+ define-minibuffer-command
open-minibuffer))
(define-class <minibuffer> (<scene-2d>)
@@ -49,6 +50,9 @@
(define-method (add-minibuffer-command name thunk)
(hash-set! (minibuffer-commands) name thunk))
+(define-syntax-rule (define-minibuffer-command name body ...)
+ (add-minibuffer-command (symbol->string 'name) (lambda () body ...)))
+
(define-method (open-minibuffer minibuffer)
(set! (overlay-scene minibuffer) (current-scene (scene-mux minibuffer)))
(push-scene (scene-mux minibuffer) minibuffer))