kimendisch/pronomen.lol
0
0
Fork 0
Code Issues Pull Requests Projects Activity

some formatting cleanup in pages.clj

Browse Source
This commit is contained in:
Morgan 2015-07-04 01:20:49 +00:00
parent 8839c2f9c7
commit 9ee90b036f
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/pronouns/pages.clj
View File

@ -8,8 +8,7 @@
[:b pronoun]) [:b pronoun])
(defn render-sentence [& content] (defn render-sentence [& content]
[:p [:span.sentence content]] [:p [:span.sentence content]])
)
(defn subject-example (defn subject-example
[subject] [subject]
@ -21,7 +20,10 @@
(defn posessive-determiner-example (defn posessive-determiner-example
[subject possessive-determiner] [subject possessive-determiner]
(render-sentence (wrap-pronoun (s/capitalize subject)) " brought " (wrap-pronoun possessive-determiner) " frisbee.")) (render-sentence (wrap-pronoun (s/capitalize subject))
" brought "
(wrap-pronoun possessive-determiner)
" frisbee."))
(defn possessive-pronoun-example (defn possessive-pronoun-example
[possessive-pronoun] [possessive-pronoun]
@ -29,7 +31,10 @@
(defn reflexive-example (defn reflexive-example
[subject reflexive] [subject reflexive]
(render-sentence (wrap-pronoun (s/capitalize subject)) " threw the frisbee to " (wrap-pronoun reflexive) ".")) (render-sentence (wrap-pronoun (s/capitalize subject))
" threw the frisbee to "
(wrap-pronoun reflexive)
"."))
(defn title-block [title] (defn title-block [title]
[:div {:class "title"} [:div {:class "title"}