                         [:p
                          [:img {:style "max-width: 335px;" :src (format "%s/images/%s/%s" config/app-base-url image-folder image-name)}]]])]
                     [:h3 {:style "color: #B74C11;"} "Sloths of the day"]
-                    [:p "Not had enough of your furry funnies? Here are our top sloths"]
+                    [:p (animal-specific :more-header animal)]
                     [:br]
-                    (for [[cat-caption image-name] cats-of-the-day]
+                    (for [[animal-caption image-name] cats-of-the-day]
                       [:span
                        [:p
                         [:img {:style "max-width: 335px;" :src (format "%s/images/%s/%s" config/app-base-url image-folder image-name)}]]
-                       [:p cat-caption]])
-                    [:h3 "Thats all for sloth facts today but stay tuned for more exciting facts about your favourite tree lovers!"]
+                       [:p animal-caption]])
+                    [:h3 (animal-specific :goodbye animal)]
                     [:img {:src (format "%s/images/dance.gif" config/app-base-url)}]]]]]]))

                 [:div.whole {:style "width:100%; margin:auto;"}
                  [:div.container {:style "font-family: Tahoma, Arial, Geneva; sans-serif; font-size: 12px; color: #333;"}
                   [:div.content {:style "margin: auto;"}
                    [:h1 {:style "color: #B74C11;"} "Sloth Facts!"]
                    [:h2 (or title "Stationary Strange Stats Starring Slow Stationary Strangers!")]
                    [:h3 {:style "color: #B74C11;"} (format "Aloha %s! Here are your daily sloth facts!" recipient-name)]
                    [:p "We are your daily source of all things sloth. We have an exciting programme for you today, so stick around, it's time to learn us some sloths!"]
                    [:div.image {:style "width: auto;"}
                     [:img {:style "max-width: 400px" :src (format "%s/images/header.jpg" config/app-base-url )}]]
                    [:br]
                    [:ul {:style "color: #B74C11;"}
                     [:p {:style "font-size: 2em;"}]

   [hiccup.core                :as hiccup]
   [hiccup.page                :as page]))

(defn animal-specific
  [part animal]
  (let [animal (or animal :cat)]
    {:name   {:sloth "sloth"
              :cat "cat"
              :mole-rate "naked mole-rat"}
     :header {:sloth "Sloth Facts!"
              :cat   "Cat Facts!"
              :mole-rat "Naked Mole-Rat Facts!"}
     :title  {:sloth "Stationary Strange Stats Starring Slow Stationary Strangers!"
              :cat "Fascinating Facts Featuring Furry Feline Friends"
              :mole-rat "Natty Noteworthy News Notarising Naughty Nude Nitwits"}
     :more-header {:sloth "Not had enough of your furry funnies? Here are our top sloths"
                   :cat "Not had enough of your purring pals to leave you catisfied? Here are our top cats for your purr-usal!"}
     :goodbye     {:sloth "That's all for sloth facts today but stay tuned for more exciting facts about your favourite tree lovers!"
                   :cat "That's all for cat facts today but stay tuned for more exciting facts about your favourite tuna lovers!"
                   :mole-rat "That's all for naked mole-rat facts today, but stay tuned for more exciting facts about your favourite birthday-suited buddies!"}
     }))

(defn render
  [{:keys [title recipient-name image-folder header facts animals-of-the-day animal]}]
  (hiccup/html (page/doctype :html5)
               [:html
                [:head
