title deriving improved

2014-01-29 20:30:13 +01:00
parent 2164ae1a60
commit 2ffbc58736
1 changed files with 2 additions and 3 deletions
@@ -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"