meissa/cryogen-core
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Merge pull request #42 from jstepien/find-more-with-indexof

Browse source 
create-preview: simplify the more marker lookup
This commit is contained in:
Carmen La 2015-09-17 12:05:26 -04:00
commit 933d213d15
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/cryogen_core/compiler.clj
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)