[jenkinscat-docs] master: Configuration settings should be stored in separate file. (c589180)
immanetize at fedoraproject.org
immanetize at fedoraproject.org
Fri Feb 6 07:39:51 UTC 2015
Repository : http://git.fedorahosted.org/cgit/jenkinscat-docs.git
On branch : master
>---------------------------------------------------------------
commit c5891809b45f0f78acf0c7716d46a32475cf75cd
Author: Pavel Tisnovsky <ptisnovs at redhat.com>
Date: Wed Nov 26 11:00:09 2014 +0100
Configuration settings should be stored in separate file.
>---------------------------------------------------------------
ChangeLog | 6 ++++++
src/jenkinscat/{books.clj => config.clj} | 25 +++++++++++++++++--------
src/jenkinscat/server.clj | 19 +------------------
3 files changed, 24 insertions(+), 26 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index f862d86..7d2c741 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2014-11-26 Pavel Tisnovsky <ptisnovs at redhat.com>
+
+ * src/jenkinscat/config.clj:
+ * src/jenkinscat/server.clj:
+ Configuration settings should be stored in separate file.
+
2014-11-25 Pavel Tisnovsky <ptisnovs at redhat.com>
* src/jenkinscat/server.clj:
diff --git a/src/jenkinscat/books.clj b/src/jenkinscat/config.clj
similarity index 77%
copy from src/jenkinscat/books.clj
copy to src/jenkinscat/config.clj
index f0405d8..3985886 100644
--- a/src/jenkinscat/books.clj
+++ b/src/jenkinscat/config.clj
@@ -23,14 +23,23 @@
;;; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
;;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-(ns jenkinscat.books)
+(ns jenkinscat.config)
-(require '[clojure.edn :as edn])
+(def hostname
+ "Hostname of this computer"
+ (.getHostName (java.net.InetAddress/getLocalHost)))
-(defn read-books
- []
- (println "*** Reading all books... ***")
- (def books
- (edn/read-string (slurp "books.clj")))
- (println "Read " (count books) " books"))
+(def jobs-dir-prefix
+ "Path to the directory where are stored all Jenkins jobs."
+ "/var/lib/jenkins/jobs/")
+
+(def jobs-href-prefix
+ "URL prefix for all Jenkins jobs."
+ (str "http://" hostname ":8080/job/"))
+
+(def json-url
+ (str "http://" hostname ":8080/"))
+
+(def test-results-url-prefix
+ (str "http://" hostname "/tests/"))
diff --git a/src/jenkinscat/server.clj b/src/jenkinscat/server.clj
index 00e9329..61b06f7 100644
--- a/src/jenkinscat/server.clj
+++ b/src/jenkinscat/server.clj
@@ -40,30 +40,13 @@
(require '[ring.util.response :as http-response])
(require '[clojure.data.json :as json])
(require '[jenkinscat.books :as books])
+(require '[jenkinscat.config :as config])
(require '[clojure.xml :as xml])
-(def hostname
- "Hostname of this computer"
- (.getHostName (java.net.InetAddress/getLocalHost)))
-
-(def jobs-dir-prefix
- "Path to the directory where are stored all Jenkins jobs."
- "/var/lib/jenkins/jobs/")
-
-(def jobs-href-prefix
- "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>")
More information about the docs-commits
mailing list