 
 
 ;;:= TODO: cannot accept several keywords, fix it
+;;:= TEST: test
 (defn write-keyword-sentence [ls keyword path]
   "write keyword content in level"
   (let [realpath (if (.isDirectory (io/file path))

            [filepath & tuples] thisls]
        (if keyword
          (print-with-keyword filepath tuples keyword)
          (printline filepath tuples)
          )
        ;;(println)

(defn split-keywords [keywords]
  ;;:= TODO: test
  ;;:= MARK: test
  "if input several keywords, should cut it to \"(keyword1|keyword2)\".
Or, just return \"keyword\""
  (if (nil? keywords)
    nil
    (let [tempResult (str/split keywords #" ")]
      (if (> (count tempResult) 1)
        (clojure.pprint/cl-format nil "(~{~a~^|~})" tempResult)
        (first tempResult)))))


