[jenkinscat-docs] master: Small refactoring. (514e5ed)

[immanetize at fedoraproject.org]

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

On branch  : master

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

commit 514e5ed618c92b5a8f27e05a36f79d948f460e28
Author: Pavel Tisnovsky <ptisnovs at redhat.com>
Date:   Tue Feb 3 11:34:50 2015 +0100

    Small refactoring.


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

 ChangeLog                |    5 +++++
 src/jenkinscat/books.clj |    8 ++++++--
 2 files changed, 11 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 6190efe..0ac0db8 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2015-02-03  Pavel Tisnovsky  <ptisnovs at redhat.com>
 
+	* src/jenkinscat/books.clj:
+	Small refactoring.
+
+2015-02-03  Pavel Tisnovsky  <ptisnovs at redhat.com>
+
 	* src/jenkinscat/renderers/configuration_page.clj:
 	* src/jenkinscat/server.clj:
 	Support for displaying ssh settings on the configuration page.
diff --git a/src/jenkinscat/books.clj b/src/jenkinscat/books.clj
index 21fa655..9234e55 100644
--- a/src/jenkinscat/books.clj
+++ b/src/jenkinscat/books.clj
@@ -1,7 +1,7 @@
 ;;;
 ;;; Jenkinscat HTTP server that handles all requests send from clients/browsers.
 ;;;
-;;; Copyright (c) 2014  Pavel Tisnovsky, Red Hat
+;;; Copyright (c) 2014, 2015  Pavel Tisnovsky, Red Hat
 ;;; All rights reserved.
 ;;;
 ;;; Redistribution and use in source and binary forms, with or without
@@ -33,10 +33,14 @@
 
 (require '[clojure.edn :as edn])
 
+(defn read-books-from-books-clj
+    []
+    (edn/read-string (slurp "books.clj")))
+
 (defn read-books
     []
     (println "*** Reading all books... ***")
     (def books
-        (edn/read-string (slurp "books.clj")))
+        (read-books-from-books-clj))
     (println "Read " (count books) " books"))