         tiedoston-nimi (-> file
                            (URLDecoder/decode)
                            (fix-file-name))]
+
     (page (str kiinteistön-nimi " / " tiedoston-nimi)
 
           [:div

          [:h1 kiinteistön-nimi]

          [:div {:style "margin-top: 20px; margin-bottom: 20px"}
             (like-button (str site-url "/" folder))]
          
          (file-table folder)

          [:h2 {:class "comments-header"} "Kommentit"]
          (disqus folder kiinteistön-nimi))))

(defn app []
  (compojure/routes (compojure/GET "/" [] (page "Vantaan kaupungin kiinteistöjen kuntotiedot"
                                                ""
                                                [:div {:class "jumbotron"}
                                                 "Tällä sivustolla voit ladata ja kommentoida Vantaan kaupungin valtuutetuille helmikuussa 2014 luovuttamia kiinteistöjen kuntotietoja."
                                                 [:div {:style "margin-top: 20px"}
                                                  (like-button site-url)]]
                                                [:h2 "Koulut"]
                                                (kiinteistö-table :koulu)
                                                [:h2 "Päiväkodit"]
                                                (kiinteistö-table :päiväkoti)
                                                [:h2 "Muut"]
                                                (kiinteistö-table nil)))
                    
                    (compojure/GET ["/get/:folder/:file" :folder #"[^/]+" :file #"[^/]+"]  [folder file]
                                   (response/file-response (str files-directory "/" (URLDecoder/decode folder) "/" (URLDecoder/decode file))))

(defn like-button [url]
  (str "<div class=\"fb-like\" data-href=\"" url "\" data-layout=\"standard\" data-action=\"like\" data-show-faces=\"true\" data-share=\"true\"></div>" ))


(defn path-to-disqus-id [path]
  (-> path
      (string/replace "," "%2C")
      URLDecoder/decode
      URLEncoder/encode))

(defn disqus [path title]
  (println "showing" (path-to-disqus-id path))
  
  (str "<div id=\"disqus_thread\"></div>
  <script type=\"text/javascript\">
  /* * * CONFIGURATION VARIABLES * * */
  var disqus_shortname = 'kuntotiedot';
  var disqus_identifier = '" (path-to-disqus-id path) "';
  var disqus_title = '" title "';
  var disqus_url = '" site-url "/" path "';
  /* * * DON'T EDIT BELOW THIS LINE * * */
