   (not (text-delimiters char)))
 (defn not-word-delim? [char]
   (not (word-delimiters char)))
-  
+
 (defn seed-from-sentence
   "Takes a string and maps it to an integer by summing the unicode character
   codes of the characters in the string."

          num-words (count (break-text not-word-delim? sentence))]
      (markov/generate-text key num-words chain))))

(defn gen-from-text
  "Generates a text from a text block (presumably of sentences)."
  [text chain]
  (->> text
       (break-text not-text-delim?)
       (map #(gen-from-sentence % chain))
       (interpose \space)
       (apply str)))
(ns wysitutwyg.textgen
  (:require [wysitutwyg.markov :as markov]))

(def cache (atom {}))
  
(def text-delimiters #{\. \! \?})
(def word-delimiters #{\space})

