Merge branch 'feature/30' into develop

project.clj

@@ -1,19 +1,20 @@
-(defproject smeagol "0.99.8"
+(defproject smeagol "0.99.9-SNAPSHOT"
   :description "A simple Git-backed Wiki inspired by Gollum"
   :url "https://github.com/simon-brooke/smeagol"
   :license {:name "GNU General Public License,version 2.0 or (at your option) any later version"
             :url "https://www.gnu.org/licenses/old-licenses/gpl-2.0.en.html"}
-  :dependencies [[clj-jgit "0.8.9"]
+  :dependencies [[clj-jgit "0.8.10"]
                  [clj-yaml "0.4.0"]
                  [com.cemerick/url "0.1.1"]
                  [com.fzakaria/slf4j-timbre "0.3.7"]
-                 [com.taoensso/encore "2.91.1"]
+                 [com.taoensso/encore "2.92.0"]
                  [com.cemerick/url "0.1.1"]
                  [com.taoensso/timbre "4.10.0"]
                  [com.fzakaria/slf4j-timbre "0.3.7"]
                  [com.taoensso/tower "3.0.2" :exclusions [com.taoensso/encore]]
                  [crypto-password "0.2.0"]
                  [environ "1.1.0"]
+                 [hiccup "1.0.5"]
                  [im.chit/cronj "1.4.4"]
                  [lib-noir "0.9.9" :exclusions [org.clojure/tools.reader]]
                  [markdown-clj "0.9.99" :exclusions [com.keminglabs/cljx]]

resources/public/content/Deploying Smeagol.md

@@ -3,25 +3,33 @@ To deploy Smeagol as a stand-alone application, either download the jar file for
 
     lein bower install
     lein ring uberjar
-		
-This will create a jar file in the `target` directory, named `smeagol-`*VERSION*`-standalone.jar`. 
 
-Smeagol cannot access either its configuration or its content from the jar file. Consequently you should set up three environment variables:
+This will create a jar file in the `target` directory, named `smeagol-`*VERSION*`-standalone.jar`.
 
-1. **SMEAGOL_CONFIG** should be the full or relative pathname of a Smeagol [[Configuration]] file;
+Smeagol cannot access either its configuration or its content from the jar file, as otherwise they would not be editable. Consequently you should set up three environment variables:
-2. **SMEAGOL\_CONTENT\_DIR** should be the full or relative pathname of the directory from which Smeagol should serve content (which may initially be empty, but must be writable by the process which runs Smeagol)'
+
-3. **SMEAGOL_PASSWD** should be the full or relative pathname of a Smeagol Passwd file - see [[Security and authentication]]. This file must contain an entry for at least your initial user, and, if you want to administer users through the user interface, must be writable by the process which runs Smeagol);
+1. `SMEAGOL_CONFIG` should be the full or relative pathname of a Smeagol [[Configuration]] file;
+2. `SMEAGOL_CONTENT_DIR` should be the full or relative pathname of the directory from which Smeagol should serve content (which may initially be empty, but must be writable by the process which runs Smeagol)'
+3. `SMEAGOL_PASSWD` should be the full or relative pathname of a Smeagol Passwd file - see [[Security and authentication]]. This file must contain an entry for at least your initial user, and, if you want to administer users through the user interface, must be writable by the process which runs Smeagol.
+
+**NOTE** that `SMEAGOL_CONTENT_DIR` must contain at least the following files:
+
+1. `_edit-side-bar.md` - the side-bar that should be displayed when editing pages;
+2. `_header.md` - the header to be displayed on all pages;
+3. `_side-bar.md` - the side-bar that should be displayed when not editing pages.
+
+Standard versions of these files can be found in the [source repository](https://github.com/journeyman-cc/smeagol/tree/master/resources/public/content). All these files should be in markdown format - see [[Extensible Markup]].
 
 You can run the jar file with:
 
     java -jar smeagol-VERSION-standalone.jar
-		
+
 ## Deploying within a servlet container
 To deploy Smeagol within a servlet container, either download the jar file for the release you want to deploy, or clone the source and compile it with:
 
     lein bower install
     lein ring uberwar
-		
+
 This will create a war file in the `target` directory, named `smeagol-`*VERSION*`-standalone.war`.  Deploy this to your servlet container in the normal way; details will depend on your container. Instructions for Tomcat are [here](https://tomcat.apache.org/tomcat-8.0-doc/deployer-howto.html).
 
 The problem with this is that unless the environment variables (see above) were already set up in the environment of the servlet container at the time when the servlet container were launched, Smeagol will run with its built-in defaults. This will run perfectly satisfactorily provided your servlet container is configured to unpack war files, which most are.

resources/public/content/Developing Smeagol.md

@@ -9,11 +9,11 @@ To start a web server for the application during development, run:
 
     lein bower install
     lein ring server
-		
+
 This should start a development server, and open a new window or tab in your default browser with the default page of the wiki loaded into it.
 
 ## Editing
-I generally use [LightTable]() as my `Clojure` editor, but it doesn't really matter what you use; if you run Smeagol as described above, then all changes you make in the code (and save) will instantly be applied to the running system. This makes for a productive development environment.
+I generally use [LightTable](http://lighttable.com/) as my `Clojure` editor, but it doesn't really matter what you use; if you run Smeagol as described above, then all changes you make in the code (and save) will instantly be applied to the running system. This makes for a productive development environment.
 
 ## Documentation
 It is my intention that the code should be sufficiently well documented to be easy to understand. Documentation may be generated from the code by running

resources/public/content/Extensible Markup.md

@@ -1,3 +1,5 @@
+The basic format of Smeagol pages is [Markdown](https://daringfireball.net/projects/markdown/); documentation on how to format them is [here](https://daringfireball.net/projects/markdown/syntax). Note that there are a number of slightly different variants of Markdown; the version used by Smeagol does not currently allow tables.
+
 A system of pluggable, extensible formatters is supported. In normal markdown, code blocks may be delimited by three backticks at start and end, and often the syntax of the code can be indicated by a token immediately following the opening three backticks. This has been extended to allow custom formatters to be provided for such code blocks. Two example formatters are provided:
 
 ## The Vega formatter

src/smeagol/authenticate.clj

@@ -128,7 +128,7 @@
   "Return the map of features of this user, if any."
   [username]
   (if
-    (and username (> (count (str username)) 0))
+    (and username (pos? (count (str username))))
     ((keyword username) (get-users))))
 
 
@@ -138,7 +138,7 @@
   (timbre/info  "Trying to add user " username)
   (cond
     (not (string? username)) (throw (Exception. "Username must be a string."))
-    (= (count username) 0) (throw (Exception. "Username cannot be zero length"))
+    (zero? (count username)) (throw (Exception. "Username cannot be zero length"))
     true (let [users (get-users)
                user ((keyword username) users)
                password (if
@@ -146,7 +146,7 @@
                           (password/encrypt newpass))
                details {:email email
                         :admin (if
-                                 (and (string? admin) (> (count admin) 0))
+                                 (and (string? admin) (pos? (count admin)))
                                  true
                                  false)}
                ;; if we have a valid password we want to include it in the details to update.

src/smeagol/configuration.clj

@@ -46,4 +46,7 @@
 
 (def config
   "The actual configuration, as a map."
-  (read-string (slurp config-file-path)))
+  (try
+    (read-string (slurp config-file-path))
+    (catch Exception any
+      (throw (Exception. "Could not load configuration" any)))))

src/smeagol/diff2html.clj

@@ -47,16 +47,6 @@
 (defn diff2html
   "Convert this string, assumed to be in diff format, to HTML."
   [^String diff-text]
-  (apply str
+  (clojure.string/join (flatten (list "<div class='change'>" (join "\n" (remove nil? (map mung-line (drop 5 (split-lines diff-text))))) "</div>"))))
-         (flatten
-           (list "<div class='change'>"
-                 (join "\n"
-                       (remove nil?
-                               (map mung-line
-                                    ;; The first five lines are boilerplate, and
-                                    ;; uninteresting for now
-                                    (drop 5
-                                          (split-lines diff-text)))))
-                 "</div>"))))
 
 

src/smeagol/formatting.clj

@@ -115,7 +115,7 @@
   corresponding inclusion should be inserted."
   [index result fragment fragments processed]
   (process-text
-    (+ index 1)
+    (inc index)
     result
     fragments
     (cons fragment processed)))
@@ -133,18 +133,8 @@
   (let
     [kw (keyword (str "inclusion-" index))]
     (process-text
-      (+ index 1)
+      (inc index)
-      (assoc
+      (assoc-in result [:inclusions kw] (apply formatter (list (subs fragment (count token)) index)))
-        result
-        :inclusions
-        (assoc
-          (:inclusions result)
-          kw
-          (apply
-            formatter
-            (list
-              (subs fragment (count token))
-              index))))
       (rest fragments)
       (cons kw processed))))
 

src/smeagol/handler.clj

@@ -1,7 +1,8 @@
 (ns ^{:doc "Set up, configure, and clean up after the wiki server."
       :author "Simon Brooke"}
   smeagol.handler
-  (:require [compojure.core :refer [defroutes]]
+  (:require [clojure.java.io :as cjio]
+            [compojure.core :refer [defroutes]]
             [compojure.route :as route]
             [cronj.core :as cronj]
             [environ.core :refer [env]]
@@ -46,23 +47,6 @@
   (route/resources "/")
   (route/not-found "Not Found"))
 
-(defn init
-  "init will be called once when
-   app is deployed as a servlet on
-   an app server such as Tomcat
-   put any initialization code here"
-  []
-  (timbre/merge-config!
-    {:appenders
-     {:rotor (rotor/rotor-appender
-               {:path "smeagol.log"
-                :max-size (* 512 1024)
-                :backlog 10})}})
-  (if (env :dev) (parser/cache-off!))
-  ;;start the expired session cleanup job
-  (cronj/start! session-manager/cleanup-job)
-  (timbre/info "\n-=[ smeagol started successfully"
-               (when (env :dev) "using the development profile") "]=-"))
 
 (defn destroy
   "destroy will be called when your application
@@ -72,28 +56,53 @@
   (cronj/shutdown! session-manager/cleanup-job)
   (timbre/info "shutdown complete!"))
 
+
+(defn init
+  "init will be called once when
+  app is deployed as a servlet on
+  an app server such as Tomcat
+  put any initialization code here"
+  []
+  (try
+    (timbre/merge-config!
+      {:appenders
+       {:rotor (rotor/rotor-appender
+                 {:path "smeagol.log"
+                  :max-size (* 512 1024)
+                  :backlog 10})}})
+    (cronj/start! session-manager/cleanup-job)
+    (if (env :dev) (parser/cache-off!))
+    ;;start the expired session cleanup job
+    (timbre/info "\n-=[ smeagol started successfully"
+                 (when (env :dev) "using the development profile") "]=-")
+    (catch Exception any
+      (timbre/error "Failure during startup" any)
+      (destroy))))
+
 ;; timeout sessions after 30 minutes
 (def session-defaults
   {:timeout (* 60 30)
    :timeout-response (redirect "/")})
 
-(defn- mk-defaults
+
-       "set to true to enable XSS protection"
+(defn- make-defaults
-       [xss-protection?]
+  "set to true to enable XSS protection"
-       (-> site-defaults
+  [xss-protection?]
-           (update-in [:session] merge session-defaults)
+  (-> site-defaults
-           (assoc-in [:security :anti-forgery] xss-protection?)))
+      (update-in [:session] merge session-defaults)
+      (assoc-in [:security :anti-forgery] xss-protection?)))
+
 
 (def app (app-handler
-           ;; add your application routes here
+    ;; add your application routes here
-           [wiki-routes base-routes]
+    [wiki-routes base-routes]
-           ;; add custom middleware here
+    ;; add custom middleware here
-           :middleware (load-middleware)
+    :middleware (load-middleware)
-           :ring-defaults (mk-defaults false)
+    :ring-defaults (make-defaults true)
-           ;; add access rules here
+    ;; add access rules here
-           :access-rules [{:redirect "/auth"
+    :access-rules [{:redirect "/auth"
-                :rule user-access}]
+                    :rule user-access}]
-           ;; serialize/deserialize the following data formats
+    ;; serialize/deserialize the following data formats
-           ;; available formats:
+    ;; available formats:
-           ;; :json :json-kw :yaml :yaml-kw :edn :yaml-in-html
+    ;; :json :json-kw :yaml :yaml-kw :edn :yaml-in-html
-           :formats [:json-kw :edn :transit-json]))
+    :formats [:json-kw :edn :transit-json]))

src/smeagol/history.clj

@@ -41,11 +41,7 @@
   [^String log-entry ^String file-path]
   (timbre/info (format "searching '%s' for '%s'" log-entry file-path))
   (cond
-    (not
+    (seq (filter (fn* [p1__341301#] (= (first p1__341301#) file-path)) (:changed_files log-entry)))
-      (empty?
-        (filter
-          #(= (first %) file-path)
-      (:changed_files log-entry))))
     log-entry))
 
 
@@ -88,7 +84,7 @@
     (try
       (.reset result reader (.getId tree))
       (finally
-        (.release reader)
+        (.close reader)
         (.dispose walk)))
     result))
 
@@ -121,7 +117,7 @@
                  new-parse)
                (PathFilter/create file-path))
              out))))
-     (.toString out))))
+     (str out))))
 
 
 (defn fetch-version
@@ -144,4 +140,4 @@
       (throw (IllegalStateException.
                (str "Did not find expected file '" file-path "'"))))
     (.copyTo (.open repo (.getObjectId tw 0)) out)
-    (.toString out)))
+    (str out)))

src/smeagol/layout.clj

@@ -2,12 +2,16 @@
 (ns ^{:doc "Render a page as HTML."
       :author "Simon Brooke"}
   smeagol.layout
-  (:require [clojure.string :as s]
+  (:require [clojure.java.io :as cjio]
+            [clojure.string :as s]
             [compojure.response :refer [Renderable]]
             [environ.core :refer [env]]
+            [hiccup.core :refer [html]]
             [ring.util.anti-forgery :refer [anti-forgery-field]]
             [ring.util.response :refer [content-type response]]
             [selmer.parser :as parser]
+            [smeagol.configuration :refer [config]]
+            [smeagol.sanity :refer :all]
             [smeagol.util :as util]
             [taoensso.timbre :as timbre]))
 
@@ -51,23 +55,30 @@
 (deftype RenderableTemplate [template params]
   Renderable
   (render [this request]
-    (content-type
+          (try
-      (->> (assoc params
+            (content-type
-                  (keyword (s/replace template #".html" "-selected")) "active"
+              (->> (assoc params
-                  :i18n (util/get-messages request)
+                     (keyword (s/replace template #".html" "-selected")) "active"
-                  :dev (env :dev)
+                     :i18n (util/get-messages request)
-                  :servlet-context
+                     :dev (env :dev)
-                  (if-let [context (:servlet-context request)]
+                     :servlet-context
-                    ;; If we're not inside a serlvet environment (for
+                     (if-let [context (:servlet-context request)]
-                    ;; example when using mock requests), then
+                       ;; If we're not inside a serlvet environment (for
-                    ;; .getContextPath might not exist
+                       ;; example when using mock requests), then
-                    (try (.getContextPath context)
+                       ;; .getContextPath might not exist
+                       (try (.getContextPath context)
                          (catch IllegalArgumentException _ context))))
-        (parser/render-file (str template-path template))
+                   (parser/render-file (str template-path template))
-        response)
+                   response)
-      "text/html; charset=utf-8")))
+              "text/html; charset=utf-8")
+            (catch Exception any
+              (show-sanity-check-error any)))))
 
 
-(defn render [template & [params]]
+(defn render
-  (RenderableTemplate. template params))
+  [template & [params]]
+  (try
+    (RenderableTemplate. template params)
+    (catch Exception any
+      (show-sanity-check-error any))))
 

src/smeagol/middleware.clj

@@ -40,13 +40,11 @@
 
 (def development-middleware
   [wrap-error-page
-   wrap-exceptions
+   wrap-exceptions])
-   wrap-anti-forgery])
 
 
 (def production-middleware
-  [#(wrap-internal-error % :log (fn [e] (timbre/error e)))
+  [#(wrap-internal-error % :log (fn [e] (timbre/error e)))])
-   wrap-anti-forgery])
 
 
 (defn load-middleware []

src/smeagol/routes/wiki.clj

@@ -17,6 +17,7 @@
             [smeagol.history :as hist]
             [smeagol.layout :as layout]
             [smeagol.routes.admin :as admin]
+            [smeagol.sanity :refer [show-sanity-check-error]]
             [smeagol.util :as util]
             [smeagol.uploads :as ul]
             [taoensso.timbre :as timbre]))
@@ -83,25 +84,29 @@
   ([request]
    (edit-page request (util/get-message :default-page-title request) ".md" "edit.html" "_edit-side-bar.md"))
   ([request default suffix template side-bar]
-   (let [params (keywordize-keys (:params request))
+   (or
-         src-text (:src params)
+     (show-sanity-check-error)
-         page (or (:page params) default)
+     (let [params (keywordize-keys (:params request))
-         file-name (str page suffix)
+           src-text (:src params)
-         file-path (cjio/file util/content-dir file-name)
+           page (or (:page params) default)
-         exists? (.exists (cjio/as-file file-path))
+           file-name (str page suffix)
-         user (session/get :user)]
+           file-path (cjio/file util/content-dir file-name)
-     (if (not exists?)
+           exists? (.exists (cjio/as-file file-path))
-       (timbre/info (format "File '%s' not found; creating a new file" file-path))
+           user (session/get :user)]
-       (timbre/info (format "Opening '%s' for editing" file-path)))
+       (if-not
-     (cond src-text (process-source params suffix request)
+         exists?
-           true
+         (timbre/info
-           (layout/render template
+           (format "File '%s' not found; creating a new file" file-path))
-                          (merge (util/standard-params request)
+         (timbre/info (format "Opening '%s' for editing" file-path)))
-                                 {:title (str (util/get-message :edit-title-prefix request) " " page)
+       (cond src-text (process-source params suffix request)
-                                  :page page
+             true
-                                  :side-bar (md->html (slurp (cjio/file util/content-dir side-bar)))
+             (layout/render template
-                                  :content (if exists? (slurp file-path) "")
+                            (merge (util/standard-params request)
-                                  :exists exists?}))))))
+                                   {:title (str (util/get-message :edit-title-prefix request) " " page)
+                                    :page page
+                                    :side-bar (md->html (slurp (cjio/file util/content-dir side-bar)))
+                                    :content (if exists? (slurp file-path) "")
+                                    :exists exists?})))))))
 
 
 (defn edit-css-page
@@ -113,21 +118,23 @@
 (defn wiki-page
   "Render the markdown page specified in this `request`, if any. If none found, redirect to edit-page"
   [request]
-  (let [params (keywordize-keys (:params request))
+  (or
-        page (or (:page params) (util/get-message :default-page-title "Introduction" request))
+    (show-sanity-check-error)
-        file-name (str page ".md")
+    (let [params (keywordize-keys (:params request))
-        file-path (cjio/file util/content-dir file-name)
+          page (or (:page params) (util/get-message :default-page-title "Introduction" request))
-        exists? (.exists (clojure.java.io/as-file file-path))]
+          file-name (str page ".md")
-    (cond exists?
+          file-path (cjio/file util/content-dir file-name)
-          (do
+          exists? (.exists (clojure.java.io/as-file file-path))]
-            (timbre/info (format "Showing page '%s' from file '%s'" page file-path))
+      (cond exists?
-            (layout/render "wiki.html"
+            (do
-                           (merge (util/standard-params request)
+              (timbre/info (format "Showing page '%s' from file '%s'" page file-path))
-                                  {:title page
+              (layout/render "wiki.html"
-                                   :page page
+                             (merge (util/standard-params request)
-                                   :content (md->html (slurp file-path))
+                                    {:title page
-                                   :editable true})))
+                                     :page page
-          true (response/redirect (str "/edit?page=" page)))))
+                                     :content (md->html (slurp file-path))
+                                     :editable true})))
+            true (response/redirect (str "/edit?page=" page))))))
 
 
 (defn history-page
@@ -179,7 +186,7 @@
     (timbre/info (format "Showing version '%s' of page '%s'" version page))
     (layout/render "wiki.html"
                    (merge (util/standard-params request)
-                          {:title (str (util/get-message :vers-col-hdr request) " " version " of " page)
+                          {:title (str (util/get-message :vers-col-hdr request) " " version " " (util/get-message :of request) " "  page)
                            :page page
                            :content (md->html content)}))))
 
@@ -194,35 +201,48 @@
     (timbre/info (format "Showing diff between version '%s' of page '%s' and current" version page))
     (layout/render "wiki.html"
                    (merge (util/standard-params request)
-                          {:title (str (util/get-message :diff-title-prefix request)" " version " of " page)
+                          {:title
+                           (str
+                             (util/get-message :diff-title-prefix request)
+                             " "
+                             version
+                             " "
+                             (util/get-message :of request)
+                             " "
+                             page)
                            :page page
-                           :content (d2h/diff2html (hist/diff util/content-dir file-name version))}))))
+                           :content (d2h/diff2html
+                                      (hist/diff util/content-dir file-name version))}))))
 
 
 (defn auth-page
   "Render the auth page"
   [request]
-  (let [params (keywordize-keys (:form-params request))
+  (or
-        username (:username params)
+    (show-sanity-check-error)
-        password (:password params)
+    (let [params (keywordize-keys (:form-params request))
-        action (:action params)
+          username (:username params)
-        user (session/get :user)
+          password (:password params)
-        redirect-to (or (:redirect-to params) "/wiki")]
+          action (:action params)
-    (cond
+          user (session/get :user)
-     (= action (util/get-message :logout-label request))
+          redirect-to (or (:redirect-to params) "/wiki")]
-     (do
+      (cond
-       (timbre/info (str "User " user " logging out"))
+        (= action (util/get-message :logout-label request))
-       (session/remove! :user)
+        (do
-       (response/redirect redirect-to))
+          (timbre/info (str "User " user " logging out"))
-     (and username password (auth/authenticate username password))
+          (session/remove! :user)
-     (do
+          (response/redirect redirect-to))
-       (session/put! :user username)
+        (and username password (auth/authenticate username password))
-       (response/redirect redirect-to))
+        (do
-     true
+          (session/put! :user username)
-     (layout/render "auth.html"
+          (response/redirect redirect-to))
-                   (merge (util/standard-params request)
+        true
-                    {:title (if user (str (util/get-message :logout-link request) " " user) (util/get-message :login-link request))
+        (layout/render "auth.html"
-                     :redirect-to ((:headers request) "referer")})))))
+                       (merge (util/standard-params request)
+                              {:title (if user
+                                        (str (util/get-message :logout-link request) " " user)
+                                        (util/get-message :login-link request))
+                               :redirect-to ((:headers request) "referer")}))))))
 
 
 (defn passwd-page

src/smeagol/sanity.clj

@@ -0,0 +1,112 @@
+(ns ^{:doc "Functions related to sanity checks and error reporting in conditions where the environment may not be sane."
+      :author "Simon Brooke"}
+  smeagol.sanity
+  (:require [clojure.java.io :as cjio]
+            [hiccup.core :refer [html]]
+            [smeagol.configuration :refer [config]]
+            [smeagol.util :as util]
+            [taoensso.timbre :as timbre]))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; Smeagol: a very simple Wiki engine.
+;;;;
+;;;; This program is free software; you can redistribute it and/or
+;;;; modify it under the terms of the GNU General Public License
+;;;; as published by the Free Software Foundation; either version 2
+;;;; of the License, or (at your option) any later version.
+;;;;
+;;;; This program is distributed in the hope that it will be useful,
+;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;;; GNU General Public License for more details.
+;;;;
+;;;; You should have received a copy of the GNU General Public License
+;;;; along with this program; if not, write to the Free Software
+;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301,
+;;;; USA.
+;;;;
+;;;; Copyright (C) 2014 Simon Brooke
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(defn check-content-dir
+  "Check that the content directory exists and is populated. Throw exception
+  if not."
+  []
+  (try
+    (let [directory (cjio/as-file util/content-dir)]
+      (if
+        (.isDirectory directory)
+        true
+        (throw (Exception. (str "Content directory '" util/content-dir "' is not a directory"))))
+      (if
+        (.canWrite directory)
+        true
+        (throw (Exception. (str "Content directory '" util/content-dir "' is not writable")))))
+    (catch Exception any
+      (throw (Exception. (str "Content directory '" util/content-dir "' does not exist") any))))
+  (try
+    (doall
+      (map
+        #(let
+           [path (cjio/file util/content-dir %)]
+           (timbre/info "Checking the existence of " path)
+           (slurp path))
+        ["_side-bar.md" "_edit-side-bar.md" "_header.md"]))
+    (timbre/info "Content directory '" util/content-dir "' check completed.")
+    (catch Exception any
+      (throw (Exception. (str "Content directory '" util/content-dir "' is not initialised") any)))))
+
+
+(defn- raw-sanity-check-installation
+  "Actually do the sanity check."
+  []
+  (timbre/info "Running sanity check")
+  (check-content-dir)
+  (config :test)
+  (timbre/info "Sanity check completed"))
+
+
+;;; We memoise the sanity check so that although it is called for every wiki
+;;; page, it is only actually evaluated once.
+(def sanity-check-installation (memoize raw-sanity-check-installation))
+
+
+(defn- get-causes
+  "Get the causes of this `error`, if it is an Exception."
+  [error]
+  (if
+    (instance? Exception error)
+    (cons error (get-causes (.getCause error)))
+    '()))
+
+
+(defn show-sanity-check-error
+  "Generate an error page in a way which should work even when everything else is broken.
+  If no argument is passed, run the sanity check and if it fails return page contents;
+  if `error` is passed, just return page content describing the error."
+  ([error]
+   (html
+     [:html
+      [:head
+       [:title "Smeagol is not initialised correctly"]
+       [:link {:href "/content/stylesheet.css" :rel "stylesheet"}]]
+      [:body
+       [:header
+        [:h1 "Smeagol is not initialised correctly"]]
+       [:div {:id "error"}
+        [:p {:class "error"} (.getMessage error)]]
+       [:p "There was a problem launching Smeagol probably because of misconfiguration:"]
+       (apply
+         vector
+         (cons :ol
+               (map #(vector :li (.getMessage %))
+                    (get-causes error))))
+       [:p "For more information please see documentation "
+        [:a {:href "https://github.com/journeyman-cc/smeagol/blob/develop/resources/public/content/Deploying%20Smeagol.md"} "here"]]]]))
+  ([]
+   (try
+     (sanity-check-installation)
+     nil
+     (catch Exception any (show-sanity-check-error any)))))

src/smeagol/util.clj

@@ -51,18 +51,16 @@
      :version (System/getProperty "smeagol.version")}))
 
 
-(defn raw-get-messages
+(defn- raw-get-messages
   "Return the most acceptable messages collection we have given the
   `Accept-Language` header in this `request`."
   [request]
   (merge
     (i18n/get-messages
       ((:headers request) "accept-language")
-;;      (cjio/file (io/resource-path) "i18n")
       "i18n"
       "en-GB")
-    config)
+    config))
-  )
 
 
 (def get-messages (memoize raw-get-messages))