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

(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

    :href "javascriptIsDisabled"}
   "add"])

(defn- apps-div [current-path apps]
  [:div {:name "apps-div"}
   [:h2 "Applications"]
   [:table
