diff options
Diffstat (limited to 'src/pronouns/pages.clj')
| -rw-r--r-- | src/pronouns/pages.clj | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/src/pronouns/pages.clj b/src/pronouns/pages.clj index f1f8b67..16c92b4 100644 --- a/src/pronouns/pages.clj +++ b/src/pronouns/pages.clj @@ -1,16 +1,23 @@ (ns pronouns.pages (:require [clojure.string :as s] - [pronouns.util :as u])) + [pronouns.util :as u] + [hiccup.core :refer :all])) + +(defn subject-example + [subject] + [:span#blah [:b subject] " went to the park."]) (defn format-pronoun-examples [subject object possessive-determiner possessive-pronoun reflexive] (s/join "\n" [(str subject " went to the park") + (html (subject-example subject)) (str "I went with " object) (str subject " brought " possessive-determiner " frisbee") (str "at least I think it was " possessive-pronoun) (str subject " threw it to " reflexive)])) + (defn parse-pronouns-with-lookup [pronouns-string pronouns-table] (let [inputs (s/split pronouns-string #"/") n (count inputs)] |