From e5e6afdcc96fc067fdac2cbe86250f0637e201c3 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Thu, 24 Nov 2011 12:48:12 +0100
Subject: Wiki: Implement a page revision list.

---
 src/mulk/benki/wiki.clj | 72 +++++++++++++++++++++++++++++++++++++------------
 1 file changed, 55 insertions(+), 17 deletions(-)

diff --git a/src/mulk/benki/wiki.clj b/src/mulk/benki/wiki.clj
index 572a30e..ce9a803 100644
--- a/src/mulk/benki/wiki.clj
+++ b/src/mulk/benki/wiki.clj
@@ -19,27 +19,65 @@
 
 
 (defpage "/wiki" []
-  (response/redirect (resolve-uri "/wiki/Home")))
+  ;; NB. response/redirect calls options/resolve-uri.
+  (response/redirect "/wiki/Home"))
 
 (defpage "/wiki/:title" {title :title, revision-id :revision}
-  (let [revisions (-> page_revisions
-                      (select (where (=* :title title)))
-                      (select (where (if revision-id
-                                       (=* :id revision-id)
-                                       (=* 0 0))))
-                      (sort [:date#desc]))
-        revision  (with-dbt (first @revisions))]
+  (let [revisions-with-title (-> page_revisions
+                                 (select (where (=* :title title)))
+                                 (sort [:date#desc]))
+        revision             (if revision-id
+                               (with-dbt (first @(select page_revisions
+                                                         (where (=* :id (Integer/parseInt revision-id))))))
+                               (with-dbt (first @revisions-with-title)))]
+    ;; FIXME: Insert WikiLinks.
     (layout (fmt nil "~A — Benki~@[/~A~] " title revision-id)
-      (if revision
-        [:div#wiki-page-content (:content revision)]
-        [:div#wiki-page-content [:p "This page does not exist yet."]])
-      [:hr]
-      [:div#wiki-page-footer {:style "text-align: right"}
-       [:a {:href (link :wiki title :revisions)} "Page revisions"
-        ]])))
+            (if revision
+              [:div#wiki-page-content (:content revision)]
+              [:div#wiki-page-content [:p "This page does not exist yet."]])
+            [:hr]
+            [:div#wiki-page-footer {:style "text-align: right"}
+             [:a {:href (link :wiki title "/revisions")} "Page revisions"
+              ]])))
+
+(defpage "/wiki/:title/revisions" {title :title}
+  (let [;; page      (-> page_revisions
+        ;;               (select (where (=* :title "abc")))
+        ;;               (project [:page])
+        ;;               (join pages (where (=* :id :page)))
+        ;;               (sort [:date#desc])
+        ;;               (project [:id])
+        ;;               (limit 1))
+        ;; revisions (-> page
+        ;;               (rename {:id :page_id})
+        ;;               (join page_revisions (where (=* :page_id :id))))
+        revisions (with-dbt
+                    (query "SELECT r.*
+                              FROM wiki_page_revisions r
+                              JOIN (SELECT * FROM wiki_page_revisions
+                                            WHERE title = ?
+                                            ORDER BY date DESC
+                                            LIMIT 1) pr
+                                ON (pr.page = r.page)
+                             ORDER BY date DESC"
+                         "Home"))]
+    (with-dbt
+      (layout (fmt nil "Revision list — ~A — Benki" title)
+        [:table {:style ""}
+         [:thead
+          [:th "Date"]
+          [:th "Title"]]
+         [:tbody
+          (for [rev revisions]
+            [:tr
+             [:td [:a {:href (link :wiki
+                                   (:title rev)
+                                   (fmt nil "?revision=~a" (:id rev)))}
+                   (:date rev)]]
+             [:td (:title rev)]])]]))))
 
 (defn insert-empty-page []
-  (sql/with-query-results results ["insert into wiki_pages default values returning *"]
+  (sql/with-query-results results ["INSERT INTO wiki_pages DEFAULT VALUES RETURNING *"]
     (first (into () results))))
 
 (defpage [:post "/wiki/:title"] {title :title, content :content}
@@ -49,7 +87,7 @@
                         (sort [:date#desc]))
           revision  (first @revisions)
           page      (:page revision)]
-      (println "For page: " title " (id " page ");  got content: " content)
+      ;; FIXME: Strip auto-generated WikiLinks from input.
       (if-let [user (Integer. (session/get :user))]
         (let [page-id (if page page (:id (insert-empty-page)))]
           (sql/insert-values
-- 
cgit v1.2.3