add meta tags needed for twitter preview card. this needs additional …

…cleanup #56

src/pronouns/pages.clj

@@ -116,6 +116,12 @@
 (defn footer-block []
   [:footer (usage-block) (contact-block)])
 
+;; <meta name="twitter:card" content="summary" />
+;; <meta name="twitter:site" content="@flickr" />
+;; <meta name="twitter:title" content="Small Island Developing States Photo Submission" />
+;; <meta name="twitter:description" content="View the album on Flickr." />
+;; <meta name="twitter:image" content="https://farm6.staticflickr.com/5510/14338202952_93595258ff_z.jpg" />
+
 (defn format-pronoun-examples
   [pronoun-declensions]
   (let [sub-objs (map #(s/join "/" (take 2 %)) pronoun-declensions)
@@ -127,6 +133,11 @@
        [:title title]
        [:meta {:name "viewport" :content "width=device-width"}]
        [:meta {:name "description" :content (u/strip-markup examples)}]
+       [:meta {:name "twitter:card" :content (u/strip-markup examples)}]
+       [:meta {:name "twitter:site" :content "@morganastra"}]
+       [:meta {:name "twitter:title" :content title}]
+       [:meta {:name "twitter:description" :content (u/strip-markup examples)}]
+       [:meta {:name "twitter:image" :content "https://pronoun.is/purple-flag64.png"}]
        [:link {:rel "stylesheet" :href "/pronouns.css"}]]
       [:body
        (header-block title)