2 files changed, 43 insertions, 38 deletions
diff --git a/scripts/utils.clj b/scripts/utils.clj
new file mode 100755
index 0000000..ab1cf70
--- /dev/null
+++ b/scripts/utils.clj
@@ -0,0 +1,43 @@
+#!/usr/bin/env bb
+
+(require '[clojure.java.io :as io])
+
+(defn dirname [path] (.getParent (io/file path)))
+
+(defn dir-has-file? [dir filenames]
+  (some
+   (fn [file] (.exists (io/file (str dir "/" file))))
+   filenames))
+
+(defn find-closest [dir filenames]
+  (cond
+    (= dir "/") nil
+    (= dir ".") nil
+    (= dir "") nil
+    (dir-has-file? dir filenames) dir
+    :else (find-closest (dirname dir) filenames)))
+
+(defn normalize-dir-path [dir]
+  (.getAbsolutePath (io/file (if (empty? dir) "." dir))))
+
+(defn cmd-find-closest [[dir & filenames]]
+  (let [init-dir (normalize-dir-path dir)]
+    (when-let [found-dir (find-closest init-dir filenames)]
+      (println found-dir))))
+
+(defn cmd-find-closest-or-dir [[dir & filenames]]
+  (let [init-dir (normalize-dir-path dir)]
+    (if-let [found-dir (find-closest init-dir filenames)]
+      (println found-dir)
+      (println init-dir))))
+
+(def commands
+  {"find-closest" cmd-find-closest
+   "find-closest-or-dir" cmd-find-closest-or-dir})
+
+(let [[cmd & args] *command-line-args*]
+  (if-let [command-fn (commands cmd)]
+    (command-fn args)
+    (binding [*out* *err*]
+      (println (str "invalid command: " (or cmd "")))
+      (println (str "Valid commands: " (keys commands))))))
diff --git a/scripts/utils.sh b/scripts/utils.sh
deleted file mode 100755
index 4c652c1..0000000
--- a/scripts/utils.sh
+++ /dev/null
@@ -1,38 +0,0 @@
-#!/usr/bin/env sh
-
-set -e -o pipefail
-
-dir_has_file() {
-  dir="$1"; shift;
-  for arg in ${@}; do
-    if [ -e "$dir/$arg" ]; then
-      return 0;
-    fi
-  done
-  return 1;
-}
-
-find_closest() {
-  init_dir="${1:-"$PWD"}"; shift;
-  dir="$init_dir";
-  while [ "$dir" != "" ] && [ "$dir" != "." ]; do
-    if [ "$dir" == "/" ]; then
-      dir="$init_dir"
-      break;
-    fi
-    if dir_has_file "$dir" "$@"; then
-      break;
-    fi
-    dir=$(dirname "$dir");
-  done
-  if [ -f "$dir" ]; then
-    dirname "$dir";
-  else
-    echo "$dir";
-  fi
-}
-
-cmd="$1"; shift;
-case "$cmd" in
-  find_closest) find_closest "$@" ;;
-esac