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

Indentation changes 

Signed-off-by: Skylar "The Cobra" Widulski <cobra@vern.cc>
This commit is contained in:
Skylar "The Cobra" Widulski 2023-12-09 16:18:53 -05:00
parent 908e49a2f8
commit b8557175bd
Signed by: cobra
GPG Key ID: 4FD8F812083FF6F9
1 changed files with 15 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
meme/scraping.scm
View File

@ -131,8 +131,8 @@
(get-xpath-string (string-append pref "/h1/a/text()") d #f)
(get-xpath-string (string-append pref "//img/@data-src") d #t)
(get-xpath-string (string-append pref "/div[2]/p/text()") d #f)
(get-xpath-string (string-append pref "/div[3]/em/text()") d #f)
))))))
(get-xpath-string (string-append pref "/div[3]/em/text()")
d #f)))))))
(define (get-meme d)
(define bodycopy
@ -276,7 +276,7 @@
(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)
""
(dump-xpath-xml "/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)))
(define (get-category-list d)
@ -335,10 +335,7 @@
(list (cdr lst))))
(define (get-photos d)
(define gallery
(get-xpath-node
"//*[@id=\"photo_gallery\"]"
d))
(define gallery (get-xpath-node "//*[@id=\"photo_gallery\"]" d))
(define lst (list ""))
(define pair '(() . ()))
(define chld (child1 gallery 0))
@ -464,16 +461,16 @@
(do ((i 1 (1+ i)))
((> i 2) (cdr gallery))
(set! lst (list
(get-xpath-string
(string-append
"//*[@id=\"popular_galleries\"]["
(number->string i)
"]/h3/text()")
d #f)))
(get-xpath-string
(string-append
"//*[@id=\"popular_galleries\"]["
(number->string i)
"]/h3/text()")
d #f)))
(do ((j 1 (+ j 1)))
((> j 2))
((> j 2))
(do ((k 1 (+ k 1)))
((> k 2))
((> k 2))
(set! xpath-start (string-append
"//*[@id=\"popular_galleries\"][" (number->string i)
"]/table/tbody/tr[" (number->string j) "]/td["
@ -502,9 +499,9 @@
(get-xpath-string "//*[@id=\"trending_photos\"]/h3/a/@href" d #t)
(get-xpath-string "//*[@id=\"trending_photos\"]/h3/a/text()" d #f)))
(do ((i 1 (1+ i)))
((> i 3))
((> i 3))
(do ((j 1 (1+ j)))
((> j 3))
((> j 3))
(append!
lst
(list
@ -523,9 +520,5 @@
lst)))
(define (get-pagination d)
(if (null-pointer?
(get-xpath-node
"//*[@class=\"pagination\"]"
d))
""
(if (null-pointer? (get-xpath-node "//*[@class=\"pagination\"]" d)) ""
(dump-xpath-xml "//*[@class=\"pagination\"]" d)))