From ec62e36ee31ffd6a0ee2370451448b8967f4d10a Mon Sep 17 00:00:00 2001 From: Thel Seraphim Date: Fri, 13 Mar 2015 19:34:43 -0700 Subject: include hiccup library and small functioning example, don't merge until it looks nice. --- src/pronouns/pages.clj | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'src') 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)] -- cgit