create-preview: simplify the more marker lookup

This commit replaces a regular expression lookup with a simple
String/indexOf substring search.

It addresses pathological cases in which re-find took several
seconds to process contents of a blog post. An example of such
a case was a post with 16kB of nested HTML tags in a single line.
This commit is contained in:
Jan Stępień 2015-09-17 17:13:45 +02:00
parent e4a56d2140
commit 1b4306c3a3

View file

@ -246,11 +246,17 @@
{:active-page "tags"
:uri (str blog-prefix "/tags.html")}))))
(defn content-until-more-marker
[^String content]
(let [index (.indexOf content "<!--more-->")]
(if (pos? index)
(subs content 0 index))))
(defn create-preview
"Creates a single post preview"
[blocks-per-preview post]
(merge (select-keys post [:title :author :date :uri])
{:content (or (re-find #".+?(?=<!--more-->)" (:content post))
{:content (or (content-until-more-marker (:content post))
(->> ((tagsoup/parse-string (:content post)) 2)
(drop 2)
(take blocks-per-preview)