examples/utils.clj javascripts/clojure.js javascripts/code-highlighter.js stylesheets/code-highlighter.css @@ -1,5 +1,5 @@ (ns examples.snippet-server - (:use [compojure html http jetty] + (:use [compojure html http jetty file-utils] examples.snippet)) (reset-snippets) @@ -7,7 +7,7 @@ (defn show-snippet [id] (let [snippet (select-snippet id)] (html - [:div {:class "body"} (:body snippet)] + [:div [:pre [:code {:class "clojure"} (:body snippet)]]] [:div {:class "date"} (:created_at snippet)]))) (defservlet snippet-servlet @@ -18,11 +18,22 @@ (html (form-to [POST "/"] (text-area {:rows 20} "body") - [:br] - (submit-button "Save")))) + [:br] + (submit-button "Save")))) (GET "/:id" - (show-snippet (route :id))) + (html + [:head + (include-js "/javascripts/code-highlighter.js" "/javascripts/clojure.js") + (include-css "/stylesheets/code-highlighter.css")] + [:body + (show-snippet (route :id))])) + + (GET "/javascripts/:name.js" + (file (str "javascripts/" (route :name) ".js"))) + + (GET "/stylesheets/:name.css" + (file (str "stylesheets/" (route :name) ".css"))) (POST "/" (if-let [id (insert-snippet params)] examples/snippet_server.clj @@ -1,2 +1,2 @@ -(use 'book.utils) +(use 'examples.utils) user.clj book/utils.clj 83f1cc0c744e6dd6fed9d38574a5c0ea4c0d15a6 Stuart Halloway stu@thinkrelevance.com http://github.com/stuarthalloway/programming-clojure/commit/87d9170bb607dcc0d336ce3fe5cb40c26f59122a 87d9170bb607dcc0d336ce3fe5cb40c26f59122a 2008-12-30T10:18:23-08:00 2008-12-30T10:18:23-08:00 added code highlighting refactored book -> examples f770655fc746366329a5993d461aecc6ac60f485 Stuart Halloway stu@thinkrelevance.com