 
 
 (defn printline [filepath tuples]
-  "tuple => ((linenum string)...)"
+  "tuple => ((linenum string)...) ;;from no keyword branch
+OR tuple => ((linenum [keyword content])...)"
   (do
     (printf "|-- %s\n" filepath)
-    (doall (map #(printf "  |-- %s\n" %) tuples))
+    (doall (map #(printf "  |-- Line %d: %s\n"
+                         (first %)
+                         (if (= java.lang.String (type (second %)))
+                           (second %)
+                           (clojure.string/join " " (second %))))
+                tuples))
     (println)))
 
 

                               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)
