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

(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)))))





;;:= 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))
