Update things

1 files changed, 24 insertions, 5 deletions

@@ -2,8 +2,12 @@
 
   (import scheme (chicken base)
           (chicken condition)
-          (only (chicken irregex) irregex-replace/all)
-          (chicken string))
+          (chicken file)
+          (chicken irregex)
+          (chicken process-context)
+          (chicken string)
+          (srfi 1)
+          utf8-srfi-13)
 
   (define-syntax define-public
     (syntax-rules ()
@@ -34,9 +38,6 @@
            ((list? (cdr kv))
             (apply alist-walk (cdr kv) (cdr keys)))))))
 
-  (define (string-join ss #!optional (sep " "))
-    (string-intersperse ss sep))
-
   (define (flush-lines-left lines)
     (irregex-replace/all '(: bol (* space))
                          (string-join lines) ""))
@@ -44,6 +45,24 @@
   (define (join-lines lines)
     (apply string-append lines))
 
+  (define (find-command command . dirs)
+    (define (find-command-in-dir dir)
+      (and (directory-exists? dir)
+           (find-files dir
+                       limit: 0
+                       test: `(: (* any) "/" ,command eos))))
+    (define path+
+      (append (string-split (get-environment-variable "PATH") ":") dirs))
+    (define found
+      (filter file-executable?
+              (apply append (filter-map find-command-in-dir path+))))
+    (if (pair? found) (car found) #f))
+
+  (define (ensure-newline str)
+    (if (string-suffix? "\n" str)
+        str
+        (string-append str "\n")))
+
   )