Repository : http://git.fedorahosted.org/cgit/jenkinscat-docs.git On branch : master commit 7d393f429a186a9962841c6923d72da2aae93c9c Author: Pavel Tisnovsky <ptisnovs(a)redhat.com&gt; Date: Thu Jan 22 10:20:33 2015 +0100 Support for reading publican.cfg files stored in book repository. ChangeLog | 5 +++++ src/jenkinscat/server.clj | 33 +++++++++++++++++++++++++++++++++ 2 files changed, 38 insertions(+), 0 deletions(-) diff --git a/ChangeLog b/ChangeLog index bff10c8..f4c797f 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,6 +1,11 @@ 2015-01-22 Pavel Tisnovsky <ptisnovs(a)redhat.com&gt; * src/jenkinscat/server.clj: + Support for reading publican.cfg files stored in book repository. + +2015-01-22 Pavel Tisnovsky <ptisnovs(a)redhat.com&gt; + + * src/jenkinscat/server.clj: Support for reading .edn files stored in book repository. 2015-01-21 Pavel Tisnovsky <ptisnovs(a)redhat.com&gt; diff --git a/src/jenkinscat/server.clj b/src/jenkinscat/server.clj index 49641ef..496246e 100644 --- a/src/jenkinscat/server.clj +++ b/src/jenkinscat/server.clj @@ -781,6 +781,39 @@ (println "Result: " result) result))) +(defn perform-reading-from-publican-cfg + "Read all informations stored in a given publican.cfg file." + [publican-cfg-filename] + (if (file-exists? publican-cfg-filename) + (.split (fileutils/slurp- publican-cfg-filename) "\n") + nil)) + +(defn read-publican-cfg + "Try to read all informations stored in a given publican.cfg file." + [temp-dir-name] + (let [publican-cfg-filename (str temp-dir-name "/publican.cfg")] + (println "Trying to read info from the file " publican-cfg-filename) + (let [result (perform-reading-from-publican-cfg publican-cfg-filename)] + (println "Result: " result) + result))) + +(defn read-publican-cfg-value + [publican-cfg key] + (first + (for [line publican-cfg :when (= key (first (.split line ":")))] + (.trim (second (.split line ":")))))) + +(defn get-document-type + "Returns document type - 'Article' or 'Book'." + [publican-cfg] + (let [document-type (if publican-cfg + (read-publican-cfg-value publican-cfg "type") + "Book")] + (cond + (empty? document-type) "Book" + (= document-type "Article") "Article" + :else "Book"))) + (defn count-books [books] (let [out-data (new java.util.TreeSet)]