 (ns beebster-clj.views
-  (:use hiccup.core hiccup.element hiccup.util hiccup.page hiccup.form beebster-clj.core))
+  (:use hiccup.core hiccup.element hiccup.util hiccup.page hiccup.form beebster-clj.core [clojure.java.shell :only [sh]]))
 
 (def categories
   '("popular" "highlights" "films" "nature"

      [:p (first title)]]
     [:div.infothumb
      [:img {:src (first thumb)}]]
     [:div.iplayerinfo
      [:p (first desc)]])))


(defn info-page
  [index]
  (let [[thumb desc title modes] (load-thumbandinfo-for-index index)]
    (html
     (base-template "Info")
     (header '(("/" "search") ("/about" "about")))
