ba.bash.ka script to download SICP

get-sicp.clj

#!/usr/bin/env bb

(require '[babashka.curl :as curl])

(def sicp-url "https://mitpress.mit.edu/sites/default/files/sicp/full-text/book/")

(def pages (map #(str "book-Z-H-" % ".html" ) (rest (range 39))))

(def data (map #(vector (str sicp-url %) %) pages))

(defn get-url [url]
  (println "Downloading url:" url)
  (curl/get url))

(defn write-html [file html]
  (println "Writing file:" file)
  (spit file html))

(map
 (fn [[url file]]
   (write-html file (:body (get-url url))))
 data)