Prompt for values

[guile-click.git] / click / util.scm

diff --git a/click/util.scm b/click/util.scm
index 65ad8627e12579b5a8d072638d0db43ed3b65e33..4fc80bad05526d47a2a0f8ed22dc02e7ef3d27fe 100644 (file)
--- a/click/util.scm
+++ b/click/util.scm
@@ -18,8 +18,10 @@
 
 
 (define-module (click util)
 
 
 (define-module (click util)

+  #:use-module (ice-9 readline)

   #:use-module (click constant)
   #:export (getopt-long-option-spec
   #:use-module (click constant)
   #:export (getopt-long-option-spec

+            option-default-value

             option-property
             program-name
             %program-name))
             option-property
             program-name
             %program-name))


@@ -42,3 +44,13 @@
     (if property
         (cadr property)
         default)))
     (if property
         (cadr property)
         default)))

+
+(define* (option-default-value option #:optional (no-prompt #f))
+  "Get default value for option, asking user if prompt property is set"
+  (let ((default (option-property option 'default)))
+    (if (not default)
+        (let ((prompt (option-property option 'prompt)))
+          (if prompt
+              (readline (format #f "~a: " prompt))
+              default))
+        default)))