 
 (defn project-occurence-render [paths project]
   (if (empty? paths)
-    {project (str "O ")}
+    {project empty-occurence-str}
     {project (md5-hash paths)}))
 
 (defn resource-occurence [resource project project-desc render]

    (update-resource! resource target-project source-project-desc (project-clj-of target-projects-desc target-project)))
  (m/info "*\n****************************************************************\n"))

(defn aggregate [result [namespace project]]
  (let [project-occurence (if (contains? result namespace)
                            (merge-with str project (get result namespace))

(def src-path-def [:source-paths])
(def test-path-def [:test-paths])
(def resource-path-def [:resource-paths])
(def standard-test-cmd [["./lein.sh" "clean"] ["./lein.sh" "test"]])
(def hash-length 8)
(def empty-occurence-str "X ")

;;;; Read target project  helper  ;;;;
(defn ->target-project-path [project-name]
