cobra
/
MeMe
1
1
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix bugs, add rudimentary twitter blockquotes 

Signed-off-by: Skylar "The Cobra" Widulski <cobra@vern.cc>
This commit is contained in:
Skylar "The Cobra" Widulski 2023-12-07 14:52:33 -05:00
parent f7ebc53e96
commit 86d4db85ff
Signed by: cobra
GPG Key ID: 4FD8F812083FF6F9
3 changed files with 20 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
meme/scraping.scm
View File

@ -195,7 +195,6 @@
(skip
(set! skip #f)))
(cond
((equal? (name chld) "br") (append! lst (list "<br>")))
((equal? (name chld) "h2")
(cond
((equal?
@ -210,8 +209,14 @@
(append!
lst
(list (dump-xml chld body))))
((equal? (name chld) "blockquote")
(append!
lst
(list (dump-xml chld body))))
((equal? (name chld) "p")
(if (not (equal? (dump-xml (child chld) body) "<br/>"))
(if (and
(not (equal? (dump-xml (child chld) body) "<br/>"))
(not (equal? (dump-xml chld body) "<p><em>Unavailable</em>.</p>")))
(append!
lst
(list (dump-xml chld body)))))

6
meme/templates.scm
View File

@ -322,6 +322,8 @@
`(html ,(html-head "MeMe")
(body
,heading
,(leaderboard-as-sxml (get-leaderboard body))
,(trending-as-sxml (get-trending body))
,(meme-as-sxml (get-meme body))
,footer))))
@ -330,6 +332,8 @@
`(html ,(html-head "MeMe")
(body
,heading
,(leaderboard-as-sxml (get-leaderboard body))
,(trending-as-sxml (get-trending body))
,(photos-as-sxml (get-photos body))
,(if (not (equal? (get-pagination body) ""))
`(div (@ (class "wide-pagination"))
@ -342,5 +346,7 @@
`(html ,(html-head "MeMe")
(body
,heading
,(leaderboard-as-sxml (get-leaderboard body))
,(trending-as-sxml (get-trending body))
,(photo-as-sxml (get-photo body))
,footer))))

7
static/style.css
View File

@ -9,6 +9,13 @@ body {
margin: 0 auto;
}
blockquote {
border-left: 10px solid #c6888d;
padding: 1px 1em;
margin-left: 1em;
border-radius: 10px;
}
h1 {
line-height: 1.5em;
max-width: 90%;