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

Use prefix in more procedures 

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

50
meme/scraping.scm
View File

@ -38,61 +38,39 @@
(define (get-leaderboard d)
(define lst (list ""))
(define pref "")
(do ((i 1 (1+ i)))
((> i 5))
(set! pref (string-append "//div[@id=\"omgkym\"]/section[1]/ul/li["
(number->string i)
"]/article"))
(append!
lst
(list
(list
(get-xpath-string
(string-append
"//div[@id=\"omgkym\"]/section[1]/ul/li["
(number->string i)
"]/article/@id")
d #t)
(get-xpath-string
(string-append
"//div[@id=\"omgkym\"]/section[1]/ul/li["
(number->string i)
"]/article/a/@href")
d #t)
(get-xpath-string
(string-append
"//div[@id=\"omgkym\"]/section[1]/ul/li["
(number->string i)
"]/article/a/img/@src")
d #t)
(get-xpath-string
(string-append
"//div[@id=\"omgkym\"]/section[1]/ul/li["
(number->string i)
"]/article/a/div/div/text()")
d #f)))))
(get-xpath-string (string-append pref "/@id") d #t)
(get-xpath-string (string-append pref "/a/@href") d #t)
(get-xpath-string (string-append pref "/a/img/@src") d #t)
(get-xpath-string (string-append pref "/a/div/div/text()") d #f)))))
(cdr lst))
(define (get-trending d)
(define trending (list ""))
(define pref "")
(do ((i 1 (1+ i)))
((= i
(xml-child-element-count
(get-xpath-node "//*[@id=\"trending-bar\"]" d) 0))
(cdr trending))
(set! pref (string-append "//*[@id=\"trending-bar\"]/a["
(number->string i)
"]"))
(append!
trending
(list
(list
(get-xpath-string
(string-append
"//*[@id=\"trending-bar\"]/a["
(number->string i)
"]/@href")
d #t)
(get-xpath-string
(string-append
"//*[@id=\"trending-bar\"]/a["
(number->string i)
"]/text()")
d #f))))))
(get-xpath-string (string-append pref "/@href") d #t)
(get-xpath-string (string-append pref "/text()") d #f))))))
(define (get-articles d)
(define pref "")