xkcd.clj

(ns xkcd-helper
  (:require [clojure.string :as s]
            [net.cgrand.enlive-html :as enl]))

(def base-url "https://xkcd.com/")
(def build-url #(str base-url % "/"))
(def fetch-url (comp enl/html-resource #(new java.net.URL %)))
(def fetch-url-on-num (comp fetch-url build-url))

(defn get-transcript [cont]
  (first (:content (first (enl/select cont [:#transcript])))))

(defn get-comic [cont]
  (:src (:attrs (second (:content (first (enl/select cont [:#comic])))))))

(defn xkcd [comic-num]
  (let [html (fetch-url-on-num comic-num)]
    ((juxt (comp #(str "https:" %) get-comic) (comp s/split-lines get-transcript)) html)))

(map xkcd [224 297])