fix links and content for clojure.core// (divide function); closes #2

jkk · Jul 5, 2010 · 9c121ba · 9c121ba
1 parent 3dc2583
commit 9c121ba
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/src/clj_wiki/core.clj b/src/clj_wiki/core.clj
@@ -53,7 +53,7 @@
   query params."
   (let [[parts [params]] (split-with string? parts+params)]
     (str "/"
-         (join "/" (map url-encode (mapcat #(.split % "/") parts)))
+         (join "/" (map url-encode (mapcat #(.split % "/" -1) parts)))
          (when-not (empty? params)
            (str "?" (map->query-string params))))))
 
@@ -62,7 +62,7 @@
 
 (defn fn-page? [page-name]
   (and (not (talk-page? page-name))
-       (<= 2 (count (.split page-name "/")))))
+       (<= 2 (count (.split page-name "/" -1)))))
 
 (defn now []
   (.getTime (java.util.Date.)))
@@ -252,7 +252,8 @@
 (defn render-wiki-page [page-name req]
   (let [revision ((:query-params req) "revision")
         page (get-wiki-page page-name revision)
-        var (try (resolve (symbol page-name))
+        [ns-name fn-name] (.split page-name "/" 2)
+        var (try (resolve (symbol ns-name fn-name))
                  (catch Exception _ nil))]
     (render-page
      req