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

(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




(defn- delete-link [path]
  [:a
   {:onclick
    (str "var delconf = confirm ('Do you really want to delete " (url-decode path)" ?');
