[jenkinscat-docs] master: Updated front page design. (d19295a)

[immanetize at fedoraproject.org]

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

On branch  : master

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

commit d19295a23f31f1b295196bd60be75a3a2e3fec4e
Author: Pavel Tisnovsky <ptisnovs at redhat.com>
Date:   Fri Nov 21 15:14:31 2014 +0100

    Updated front page design.


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

 ChangeLog                 |    5 ++++
 src/jenkinscat/server.clj |   54 ++++++++++++++++++++++++++++++---------------
 2 files changed, 41 insertions(+), 18 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 534ba73..3fba5cc 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2014-11-21  Pavel Tisnovsky  <ptisnovs at redhat.com>
+
+	* src/jenkinscat/server.clj:
+	Updated front page design.
+
 2014-11-20  Pavel Tisnovsky  <ptisnovs at redhat.com>
 
 	* tools/create_books_clj_file.lua:
diff --git a/src/jenkinscat/server.clj b/src/jenkinscat/server.clj
index 81e3a8d..7cb84a7 100644
--- a/src/jenkinscat/server.clj
+++ b/src/jenkinscat/server.clj
@@ -55,13 +55,23 @@
     "URL prefix for all Jenkins jobs."
     (str "http://" hostname ":8080/job/"))
 
+(def test-results-prefix
+    "/var/www/html/tests/")
+
 (def json-url
     (str "http://" hostname ":8080/"))
 
+(def test-results-url-prefix
+    (str "http://" hostname "/tests/"))
+
 (def not-available-message
     "<span style='color:red'>N/A</span>")
 
 
+(defn third
+    [coll]
+    (nth coll 2))
+
 (defn exec
     "Execute external command."
     ([command]
@@ -381,17 +391,27 @@
     [title]
     [:nav {:class "navbar navbar-inverse navbar-fixed-top" :role "navigation"}
         [:div {:class "container-fluid"}
-            [:div {:class "row"}
-                [:div {:class "col-md-2"}
-                    [:div {:class "navbar-header"}
-                        [:img {:class "navbar-brand-" :style "float:left" :src "jenkinscat.png"}]
-                        [:a {:href "/" :class "navbar-brand"} "&nbsp;&nbsp;Jenkinscat"]
-                    ] ; ./navbar-header
+            [:div {:class "navbar-header"}
+                [:button {:type "button" :class "navbar-toggle" :data-toggle "collapse"}
+                    [:span {:class "sr-only"} "Toggle navigation"]
+                    [:span {:class "icon-bar"}]
+                    [:span {:class "icon-bar"}]
+                    [:span {:class "icon-bar"}]
+                ]
+                [:img {:class "navbar-brand-" :style "float:left" :src "jenkinscat.png"}]
+                [:a {:href "/" :class "navbar-brand"} "&nbsp;&nbsp;Jenkinscat"]
+            ] ; ./navbar-header
+                [:div {:class "col-md-4"}
+                    [:form {:class "navbar-form navbar-left"}
+                        [:div {:class "form-group"}
+                        "<input disabled='disabled' autofocus='autofocus' size='40' type='text' class='form-control' ng-model='search' placeholder='' id='searchinput'>"
+                        ]
+                    ]
                 ] ; col ends
-                [:div {:class "col-md-2"}
+                [:div {:class "col-md"}
                     [:a {:href "/job-configurations" :class "navbar-brand"} "Job configurations"]
                 ] ; col ends
-                [:div {:class "col-md-2"}
+                [:div {:class "col-md"}
                     [:a {:href "/statistics" :class "navbar-brand"} "Statistics"]
                 ] ; col ends
             ] ; row ends
@@ -513,7 +533,6 @@
                     [:td [:a {:href "/reload-book-list"} "Reload book list"]]
                 ]
             ]
-
 ]))
 
 (defn generate-response-html
@@ -782,10 +801,6 @@
     [xmlstructure tag]
     (first (for [x xmlstructure :when (= tag (:tag x))] x)))
 
-(defn third
-    [coll]
-    (nth coll 2))
-
 (defn read-git-repo-from-xml
     [scm-node]
     (->> scm-node :content second :content first :content first :content first))
@@ -1063,11 +1078,14 @@
 
 (def action-handlers
     "Map of action handlers, ie. pages generated dynamically by this tool."
-    {"/data.json"            json-data-handler 
-     "/start-build"          start-build-handler
-     "/statistics"           statistics-handler
-     "/job-configurations"   job-configurations-handler
-     "/reload-book-list"     reload-books-list-handler
+    {"/data.json"                json-data-handler 
+     "/start-build"              start-build-handler
+     "/statistics"               statistics-handler
+     "/job-configurations"       job-configurations-handler
+     "/reload-book-list"         reload-books-list-handler
+     "/add-book-step-1"          add-book-step-1-handler
+     "/add-book-step-2"          add-book-step-2-handler
+     "/build-configuration-help" build-configuration-help-handler
      })
 
 (defn get-file-handler