title deriving improved

src/NoteHub/api.clj

@@ -37,9 +37,8 @@
   (print-str year month day title))
 
 (defn derive-title [md-text]
-  (apply str
+   (sreplace (first (split-lines md-text))
-         (remove #{\# \_ \*}
+             #"(#+|_|\*+|<.*?>)" ""))
-                 (first (split-lines md-text)))))
 
 (defn get-date
   "Returns today's date"