zo/pronoun.fyi
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

make the footer sections 0.8em

Browse Source
This commit is contained in:
Morgan Astra 2016-09-21 23:58:16 -07:00
parent 02426e681b
commit 9a5a309ea5
2 changed files with 16 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
resources/pronouns.css
View File

@ -1,12 +1,17 @@
body { body {
font-family: Futura, sans-serif; font-family: Futura, sans-serif;
background-color: #F6CEFC; background-color: #F6CEFC;
}
footer {
font-size: 0.8em;
} }
.section { .section {
margin: 8px; margin: 8px;
padding: 4px 6px 4px 6px; padding: 4px 6px 4px 6px;
border: 4px solid #eeeeee; border: 4px solid #EEEEEE;
border-radius: 7px;
} }
.examples { .examples {

12
src/pronouns/pages.clj
View File

@ -86,7 +86,7 @@
(defn contact-block [] (defn contact-block []
(let [twitter-name (fn [handle] (href (str "https://www.twitter.com/" handle) (let [twitter-name (fn [handle] (href (str "https://www.twitter.com/" handle)
(str "@" handle)))] (str "@" handle)))]
[:footer {:class "section contact"} [:div {:class "section contact"}
[:p "Written by " [:p "Written by "
(twitter-name "morganastra") (twitter-name "morganastra")
", whose " ", whose "
@ -97,6 +97,8 @@
(href "https://github.com/witch-house/pronoun.is" "github")] (href "https://github.com/witch-house/pronoun.is" "github")]
[:p "<3"]])) [:p "<3"]]))
(defn footer-block []
[:footer (about-block) (contact-block)])
(defn format-pronoun-examples (defn format-pronoun-examples
[pronoun-declensions] [pronoun-declensions]
@ -110,8 +112,7 @@
[:body [:body
(title-block title) (title-block title)
(map #(apply examples-block %) pronoun-declensions) (map #(apply examples-block %) pronoun-declensions)
(about-block) (footer-block)]])))
(contact-block)]])))
(defn lookup-pronouns [pronouns-string] (defn lookup-pronouns [pronouns-string]
(let [inputs (s/split pronouns-string #"/") (let [inputs (s/split pronouns-string #"/")
@ -141,7 +142,7 @@
[:p "pronoun.is is a website for personal pronoun usage examples"] [:p "pronoun.is is a website for personal pronoun usage examples"]
[:p "here are some pronouns the site knows about:"] [:p "here are some pronouns the site knows about:"]
[:ul links]]] [:ul links]]]
(contact-block)]))) (footer-block)])))
(defn not-found [] (defn not-found []
(let [title "Pronoun Island: English Language Examples"] (let [title "Pronoun Island: English Language Examples"]
@ -156,8 +157,7 @@
[:div {:class "section examples"} [:div {:class "section examples"}
[:p [:h2 (str "We couldn't find those pronouns in our database." [:p [:h2 (str "We couldn't find those pronouns in our database."
"If you think we should have them, please reach out!")]]] "If you think we should have them, please reach out!")]]]
(about-block) (footer-block)]])))
(contact-block)]])))
(defn pronouns [params] (defn pronouns [params]
(let [path (params :*) (let [path (params :*)