stuff.clj

(ns horse-ebooks.core
  (:require [clojure.java.io :refer :all]
            [clojure.string :as s]))

(defn foo
  "I don't do a whole lot."
  [x]
  (println x "Hello, World!"))

(defn line-is-not-valid [a-line]
  (<
   (count a-line)
   200))

(defn tweetify [a-line]
  (->
   a-line
   (s/replace #"[^A-Za-z0-9 ]" " ")
   (s/replace #"\s(lt|small|gt|lt|br|gt|lang|en|quot)\s" " ")
   (s/replace #" +" " ")
   (s/trim)))

(defn cut-at-word [line]
  (apply str (take 140 line)))

(defn read-tweet []
  (with-open [our-file (reader "/tmp/foo")]
    (->>
     (line-seq our-file)
     (drop (rand-int 100000))
     (drop-while line-is-not-valid)
     (first)
     (tweetify)
     (cut-at-word))))