[jenkinscat-docs] master: Added common module used by various renderers. (52dd06e)

[immanetize at fedoraproject.org]

Repository : http://git.fedorahosted.org/cgit/jenkinscat-docs.git

On branch  : master

>---------------------------------------------------------------

commit 52dd06eecec56df3720346a1f171fef3ef0265d6
Author: Pavel Tisnovsky <ptisnovs at redhat.com>
Date:   Tue Dec 9 13:49:48 2014 +0100

    Added common module used by various renderers.


>---------------------------------------------------------------

 ChangeLog                                          |    5 ++++
 .../{books.clj => renderers/page_header.clj}       |   23 +++++++++++++-------
 2 files changed, 20 insertions(+), 8 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 9f77b45..0b56904 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2014-12-09  Pavel Tisnovsky  <ptisnovs at redhat.com>
 
+	* src/jenkinscat/renderers/page_header.clj:
+	Added common module used by various renderers.
+
+2014-12-09  Pavel Tisnovsky  <ptisnovs at redhat.com>
+
 	* src/jenkinscat/renderers/statistics_page.clj:
 	Added 3rd renderer: the one for statistic page.
 
diff --git a/src/jenkinscat/books.clj b/src/jenkinscat/renderers/page_header.clj
similarity index 73%
copy from src/jenkinscat/books.clj
copy to src/jenkinscat/renderers/page_header.clj
index 21fa655..dcfd047 100644
--- a/src/jenkinscat/books.clj
+++ b/src/jenkinscat/renderers/page_header.clj
@@ -29,14 +29,21 @@
 
 
 
-(ns jenkinscat.books)
+(ns jenkinscat.renderers.page-header)
 
-(require '[clojure.edn :as edn])
+(require '[hiccup.core          :as hiccup])
+(require '[hiccup.page          :as page])
+(require '[hiccup.form          :as form])
 
-(defn read-books
-    []
-    (println "*** Reading all books... ***")
-    (def books
-        (edn/read-string (slurp "books.clj")))
-    (println "Read " (count books) " books"))
+(defn page-header
+    [subtitle]
+    [:head
+        [:title (str "Jenkinscat - " subtitle)]
+        [:meta {:name "Author"     :content "Pavel Tisnovsky"}]
+        [:meta {:name "Generator"  :content "Clojure"}]
+        [:meta {:http-equiv "Content-type" :content "text/html; charset=utf-8"}]
+        (page/include-css "css/bootstrap.min.css")
+        (page/include-css "css/Jenkinscat.css")
+        (page/include-js  "js/bootstrap.min.js")
+    ])