From 08ba2769abb7a36817a725d30d64cfd36f5bcf32 Mon Sep 17 00:00:00 2001
From: Colin Okay <okay@toyful.space>
Date: Fri, 11 Mar 2022 08:35:55 -0600
Subject: separated app and lib modules, -osicat dep, +packages.lisp

---
 lib/prompt.lisp | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100644 lib/prompt.lisp

(limited to 'lib/prompt.lisp')

diff --git a/lib/prompt.lisp b/lib/prompt.lisp
new file mode 100644
index 0000000..6c847f1
--- /dev/null
+++ b/lib/prompt.lisp
@@ -0,0 +1,30 @@
+;;;; prompt.lisp -- a function using readlline to collect text from the user
+
+
+
+(in-package :oneliners.cli.prompt)
+
+(defun prompt (prompt
+               &key
+                 (expect (constantly t))
+                 retry-text
+                 (prefill ""))
+  ;; register a prefill hook
+  (rl:register-hook
+   :pre-input
+   (lambda ()
+     (rl:insert-text prefill)
+     (rl:redisplay)))
+  (unwind-protect 
+       (loop
+         with prompt-text = prompt
+         with should-retry-p = t
+         while should-retry-p
+         for line = (rl:readline :prompt prompt-text)
+         when (funcall expect line)
+           do (setf should-retry-p nil)
+         when retry-text
+           do (setf prompt-text retry-text)
+         finally (return line))
+    ;; unregisters the hook.
+    (rl:register-hook :pre-input nil)))
-- 
cgit v1.2.3