Get Advent of Code input in babashka.

get-input.clj

#!/bin/env bb
(require '[babashka.fs :as fs])
(require '[babashka.curl :as curl])

(defn get-day-component []
  (let [components (fs/components (fs/cwd))]
    (-> (filter #(str/starts-with? % "day") components)
        first)))

(defn get-day-number [day-name]
  (-> (str/replace day-name "day" "")
      Integer/parseInt))

(defn build-url [day]
  (format "https://adventofcode.com/2022/day/%s/input" day))

(defn get-day-url []
  (let [day-name (get-day-component)]
    (when day-name
      (build-url (get-day-number day-name)))))

(def cookie-value (edn/read (java.io.PushbackReader. (io/reader (fs/file (fs/parent *file*) "aoc-cookie")))))

(defn fetch-input []
  (let [url (get-day-url)]
    (when url
      (curl/get url {:raw-args ["-b" (format "session=%s" cookie-value)]}))))

(defn output-file []
  (loop [comp (fs/components (fs/cwd))]
    (if (str/starts-with? (last comp) "day")
      (str (fs/file "/" (apply fs/file comp) "input.txt"))
      (recur (butlast comp)))))

(let [out (output-file)]
  (and (not (fs/exists? out))
       (spit (io/writer out) (:body (fetch-input)))))