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

Bug fix 

Signed-off-by: Skylar "The Cobra" Widulski <cobra@vern.cc>
This commit is contained in:
Skylar "The Cobra" Widulski 2023-12-09 14:05:20 -05:00
parent 4e9d790b6a
commit 908e49a2f8
Signed by: cobra
GPG Key ID: 4FD8F812083FF6F9
2 changed files with 8 additions and 57 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

63
meme.scm
View File

@ -129,62 +129,13 @@
((and (equal? (car path-components) "memes")
(or
(equal? (length path-components) 1)
(or (equal? (car (last-pair path-components)) "children")
(and
(equal? (list-ref path-components
(- (length path-components) 2))
"page")
(equal? (list-ref path-components
(- (length path-components) 3))
"children")))
(or (equal? (car (last-pair path-components)) "submissions")
(and
(equal? (list-ref path-components
(- (length path-components) 2))
"page")
(equal? (list-ref path-components
(- (length path-components) 3))
"submissions")))
(or (equal? (car (last-pair path-components)) "researching")
(and
(equal? (list-ref path-components
(- (length path-components) 2))
"page")
(equal? (list-ref path-components
(- (length path-components) 3))
"researching")))
(or (equal? (car (last-pair path-components)) "newsworthy")
(and
(equal? (list-ref path-components
(- (length path-components) 2))
"page")
(equal? (list-ref path-components
(- (length path-components) 3))
"newsworthy")))
(or (equal? (car (last-pair path-components)) "popular")
(and
(equal? (list-ref path-components
(- (length path-components) 2))
"page")
(equal? (list-ref path-components
(- (length path-components) 3))
"popular")))
(or (equal? (car (last-pair path-components)) "deadpool")
(and
(equal? (list-ref path-components
(- (length path-components) 2))
"page")
(equal? (list-ref path-components
(- (length path-components) 3))
"deadpool")))
(or (equal? (car (last-pair path-components)) "all")
(and
(equal? (list-ref path-components
(- (length path-components) 2))
"page")
(equal? (list-ref path-components
(- (length path-components) 3))
"all")))))
(pages? path-components "children")
(pages? path-components "submissions")
(pages? path-components "researching")
(pages? path-components "newsworthy")
(pages? path-components "popular")
(pages? path-components "deadpool")
(pages? path-components "all")))
(meme-list-page path))
((equal? (car path-components) "memes")
(meme-page path))

2
meme/scraping.scm
View File

@ -274,7 +274,7 @@
"/html/body/div[3]/div/div[1]/header/hgroup/p/text()"
d #f))
(dump-xpath-xml "/html/body/div[3]/div/nav/ul" d)
(if (xpath-null "/html/body/div[3]/div/div[3]/section/div/p" d)
(if (xpath-null? "/html/body/div[3]/div/div[3]/section/div/p" d)
""
(dump-xpath-xml "/html/body/div[3]/div/div[3]/section/div/p" d)))
(cdr lst)))