 
 (defn unogg
   "Strip the .suffix from a string.
-   Can not handle . in the name!"
+   WARNING: Can not handle . in the name!"
   [s]
   (-> s
       (st/split  #"\.")

  (let [n (.name f)
        v (.value f)]
    (and (= "TITLE" n)
         (or (= "Unknown" (s/trim v))
             (= "%Y-%m-%d" (s/trim v))
             (empty? v)))))



            [me.raynes.conch.low-level :as sh]
            [utilza.repl :as urepl]
            [clojure.tools.trace :as trace]
            [useful.map :as um]
            [utilza.java :as ujava]
            [clojure.edn :as edn]
