     (println)))
 
 (defn print-with-keyword [filepath tuples keyword]
-  (let [filter-content (filter
-                        #(-> (str "(?<=" keyword ":" ").*$") (re-pattern) (re-find (second %)))
-                        tuples)]
+  (let [filter-content (filter #(-> (str "(?<=" keyword ":" ").*$")
+                                    (re-pattern)
+                                    (re-find (second %)))
+                               tuples)]
     (if (not (empty? filter-content))
       (printline filepath filter-content)
+      )))
+
+(defn format-keyword-content [filepath tuples keyword]
+  "cut content those including keyword"
+  (let [filter-content (filter #(-> (str "(?<=" keyword ":" ").*$")
+                                    (re-pattern)
+                                    (re-find (second %)))
+                               tuples)]
+    (if (not (empty? filter-content))
+      (doall (map #(list (first %) (str/split (second %) #": ")) filter-content))
       )))
 
 (defn list2tree [ls keyword]

(ns codeitlater.format
  )

(defn printline [filepath tuples]

;;;:= TODO: need to clean ':' after keyword
(defn write-keyword-sentence [level content]
  "write keyword content in level"
  (let [this_level_mark (reduce str
                                (take (inc level)
                                      (repeat "*")))]
    ;;(print this_level_mark)
    (doall (map #(str this_level_mark
                      " "
