remove the reindent stuff. it does not matter
This commit is contained in:
parent
47d0d6a2cb
commit
7745722009
7 changed files with 123 additions and 238 deletions
|
@ -24,7 +24,7 @@ make root name ginfo output infos =
|
|||
|
||||
make' :: Strict.Text -> Strict.Text -> GalleryInfo
|
||||
-> Maybe FilePath -> [(FilePath, Info)] -> Builder
|
||||
make' root name ginfo@(GalleryInfo {title, desc, prefix}) output infos = [b|@0
|
||||
make' root name ginfo@(GalleryInfo {title, desc, prefix}) output infos = [b|
|
||||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<rss version="2.0">
|
||||
<channel>
|
||||
|
@ -33,7 +33,7 @@ make' root name ginfo@(GalleryInfo {title, desc, prefix}) output infos = [b|@0
|
|||
<description>$desc</description>
|
||||
$selflink
|
||||
|
||||
$4.items
|
||||
$items
|
||||
</channel>
|
||||
</rss>
|
||||
|]
|
||||
|
@ -48,7 +48,7 @@ make' root name ginfo@(GalleryInfo {title, desc, prefix}) output infos = [b|@0
|
|||
Just o -> [b|<link href="$link/$o" rel="self" />|]
|
||||
|
||||
makeItem :: Strict.Text -> FilePath -> Bool -> FilePath -> Info -> Builder
|
||||
makeItem root prefix nsfw path info@(Info {title}) = [b|@4
|
||||
makeItem root prefix nsfw path info@(Info {title}) = [b|
|
||||
<item>
|
||||
<title>$title$suffix</title>
|
||||
<link>$link</link>
|
||||
|
@ -58,11 +58,11 @@ makeItem root prefix nsfw path info@(Info {title}) = [b|@4
|
|||
</item>
|
||||
|]
|
||||
where
|
||||
body = [b|@6
|
||||
body = [b|
|
||||
<description> <![CDATA[
|
||||
$8.image
|
||||
$8.artist
|
||||
$8.desc
|
||||
$image
|
||||
$artist
|
||||
$desc
|
||||
]]> </description>
|
||||
|]
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue