open.cljs

#!/opt/homebrew/bin/planck
(require '[planck.core :refer [*in* slurp]])
(require '[planck.shell :refer [sh]])

(defn round-nth [s i]
  (nth s (mod i (count s))))

(let [to-open
      (as-> *in* $
            (slurp $)
            (.trim $)
            (.split $ "\n")
            (map #(-> % (.split ":") first) $))]
  (if-let [index (first *command-line-args*)]
    (sh "open" (round-nth to-open (js/Number index)))
    (let [to-open (distinct to-open)]
      (if (<= (count to-open) 100)
        (doseq [path to-open]
          (sh "open" path))
        (println (count to-open) "files!  Not opening.")))))