     :href "javascriptIsDisabled"}
    "add"])
 
-(defn apps-div [current-path apps]
+(defn- apps-div [current-path apps]
   [:div {:name "apps-div"}
    [:h2 "Applications"]
    [:table

(ns com.okl.tokenmgr.views
  (:use [hiccup core page]
        [clojure.string :only (join)]
        [ring.util.codec :only (url-encode url-decode)]))

(defn- path->pretty-path [path]
  (str "/" path))

(defn make-link [path name]
  [:a {:href path} name])

(defn gen-header [title]
  [:head
   [:title title]
   [:script {:src

  (html5
   (gen-header (str my-name ":" app))
     [:body
      [:h1 (generate-breadcrumbs app)]
      (apps-div app apps)
      (tokens-div app tokens)]))
