LZ

A random passage from the illiad

A random passage from the illiad

We've got the book in an asset file on the server. Let's use scittle to randomly choose a sturring quote.

(require '[reagent.core :as r]
         '[reagent.dom :as rdom]
	 '[clojure.string :as str])

(def passage-atom (r/atom ""))

(defn split-sentences [text]
 (->> (.split (js/String text) #"[.!?]")
      (map str/trim)
      (remove #(or 
                 (re-find #"[\d\[\]]" %)
                 (re-find #"\b[A-Z]{3,}\b" %)))))

(defn choose-quote [text]
  (->> text
       split-sentences
       rand-nth))
    
(defn fetch-text []
    (-> (js/fetch "assets/illiad.txt")
        (.then (fn [response] (.text response)))
        (.then (fn [text]
	         (->> text choose-quote (reset! passage-atom))))
        (.catch (fn [err] (js/console.error err)))))
	
(defn my-component []
  [:div
    [:button {:on-click #(fetch-text)} "tell me something heroic"]
    [:p {:style {:font-family "fantasy"
                 :font-size 30
                 :padding "2em"
                 :background-color "#c9986840"
                 :text-align "center"}}
        (choose-quote @passage-atom)]])

(rdom/render [my-component] (.getElementById js/document "app"))

LZ

Table of Contents

A random passage from the illiad