       (map (fn [[k v]] (str "  " k " - " (:doc (meta v)))) publics)
       (into ["Available commands:\n"])
       (str/join "\n" ))))
+
+;; SHELL CODE
 
 (def ^:private completion-handler
   (reify 

          (swap! FS_ROOT update-in @CURRENT_DIR dissoc key-name))
        (str "Path removed: " path)))))

(defn help
  "Print available commands." 
  []

  [(pop path) (last path)])

(defn rename
  "Rename file to path. Arguments should be [:src :key :path] [:dest :key :path]."
  [src dest]
  (let [src-path (resolve-path src)
        src-val (get-in @FS_ROOT src-path)
