       (if (> (count tempResult) 1)
         (clojure.pprint/cl-format nil "(~{~a~^|~})" tempResult)
         (first tempResult)))))
-
-
-;;;most part of this function looks duplicated with check-keyword-content
-;;;:= TODO: re-write it
-(defn print-with-keyword [filepath tuples keyword]
-  (let [filter-content (filter #(-> (str "(?<=" (split-keywords keyword) ":" ").*$")
-                                    (re-pattern)
-                                    (re-find (second %)))
-                               tuples)]
-    (if (not (empty? filter-content))
-      (printline filepath filter-content)
-      )))
 
 
 (defn check-keyword-content [tuples keyword]

                               path)
                       (str path "/project.org"))
                   path)]
    (println keyword)
    (with-open [wrtr (io/writer realpath)]
      (loop [listset ls]
        (if (not (empty? listset))

      (let [thisls (first listset)
            [filepath & tuples] thisls]
        (if keyword
          ;;(print-with-keyword filepath tuples keyword)
          (printline filepath (check-keyword-content tuples keyword))
          (printline filepath tuples)
          )
        ;;(println)
