gistfile1.lisp

(ns carneades.web.views
  (:use [hiccup core page-helpers form-helpers]))

(defn include-all-js []
  (html
   (map include-js ["/js/jquery-1.6.2.js"
                    "/js/jquery-ui-1.8.14.custom.min.js"
                    "/js/jquery.svg.js"
                    "/js/jquery.svgdom.js"
                    "/js/jquery.svganim.js"
                    "/js/jquery.mousewheel.js"
                    "/js/jquery.event.drag-2.0.js"
                    "/js/main.js"])))

(defn index-page []
  (html5
   (map include-css ["css/custom-theme/jquery-ui-1.8.14.custom.css"
                     "/css/screen.css"
                     ;; "/css/jquery.svg.css"
                     ])
   (include-all-js)
    [:head
      [:title "LKIF Argument Mapping Testbed"]]
    [:body
     [:div {:id "container"}
      [:div {:id "header" :class "ui-widget-header ui-corner-top"}
       [:h1 "LKIF Argument Mapping Testbed"]]
      [:div {:id "filechooser"}
       [:form {:action "/files" :method "POST" :enctype "multipart/form-data" :target "lkif-source"}
        "Choose LKIF to upload:"
        (file-upload "lkif-file")
        [:button  {:class "start" :type "submit"} "Upload"]]]
      [:div {:id "tabs"}
       (unordered-list [[:a {:href "#tabs-1"} "Graph"]
                        [:a {:href "#tabs-2"} "Source"]])
       [:div {:id "tabs-1"}
        [:div {:id "wrapper"}
         [:div {:id "graphbox" :class "ui-corner-left ui-corner-right"}]]
        [:div {:id "toolbar"}]]
       [:div {:id "tabs-2"}
        [:div {:id "extra"}
         [:iframe {:id "lkif-source" :src "#" :onload "loadSVG__()"}]]]]
      [:div {:id "footer" :class "ui-widget-header ui-corner-bottom"}
       [:p "Fraunhofer FOKUS"]]
      [:div {:id "debug"}]]]))

(defn view-file
  [session]
  (str session))

(defn view-session
  [session]
  (str session))