+
+
-
+
+
-
+
-
+
-
+
-
+
-
+
-
+
-
-
-
-
+
-
+
-
+
+
+
-
-
+
+
+
+
+
\ No newline at end of file
diff --git a/src/smeagol/extensions/photoswipe.clj b/src/smeagol/extensions/photoswipe.clj
index 1330cf4..d30375a 100644
--- a/src/smeagol/extensions/photoswipe.clj
+++ b/src/smeagol/extensions/photoswipe.clj
@@ -9,6 +9,8 @@
[instaparse.core :as insta]
[me.raynes.fs :as fs]
[noir.io :as io]
+ [selmer.parser :refer [render]]
+ [selmer.util :refer [without-escaping]]
[smeagol.configuration :refer [config]]
[smeagol.extensions.utils :refer :all]
[smeagol.util :refer [content-dir upload-dir]]
@@ -41,31 +43,11 @@
"Process a specification for a photoswipe gallery, using a JSON
specification based on that documented on the Photoswipe website."
[^String spec ^Integer index]
- (str
- "
-
\n"
+ (without-escaping
+ (render
(slurp
- (str (io/resource-path) "html-includes/photoswipe-boilerplate.html"))
- "
-
-
-
"))
+ (str (io/resource-path) "html-includes/photoswipe-boilerplate.html"))
+ {:spec spec :index index})))
(def simple-grammar
diff --git a/src/smeagol/repl.clj b/src/smeagol/repl.clj
index 58b3efb..d847e6a 100644
--- a/src/smeagol/repl.clj
+++ b/src/smeagol/repl.clj
@@ -45,7 +45,7 @@
(defn start-server
"used for starting the server in development mode from REPL"
[& [port]]
- (let [port (if port (Integer/parseInt port) 3000)]
+ (let [port (if port (Integer/parseInt (str port)) 3000)]
(reset! server
(serve (get-handler)
{:port port
@@ -58,3 +58,6 @@
(defn stop-server []
(.stop @server)
(reset! server nil))
+
+;;(start-server 4444)
+