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
-         (remove #{\# \_ \*}
-                 (first (split-lines md-text)))))
+   (sreplace (first (split-lines md-text))
+             #"(#+|_|\*+|<.*?>)" ""))

 (defn get-date
  "Returns today's date"