Embed guile for custom handlers and update UI

Adds support for writing custom handlers and sets the ui to be
properly centered and not move around while messages are added. Also
auto scrolls when the messages window gets too long.

1 files changed, 15 insertions, 0 deletions

diff --git a/scm/extant-input.scm b/scm/extant-input.scm
new file mode 100644
index 0000000..d50a7fe
--- /dev/null
+++ b/scm/extant-input.scm
@@ -0,0 +1,15 @@
+(define-module (extant input)
+  #:export (register-handler!))
+
+(define *handlers* '())
+
+(define (register-handler! proc)
+  (set! *handlers* (cons proc *handlers*)))
+
+(define (dispatch-input text)
+  (let loop ((handlers *handlers*))
+    (if (null? handlers)
+	`((text . "No handlers found!")
+	  (style . "error"))
+	(let ((result ((car handlers) text)))
+	  (or result (loop (cdr handlers)))))))