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

Use nested do loops for sidebar galleries 

Signed-off-by: Skylar "The Cobra" Widulski <cobra@vern.cc>
This commit is contained in:
Skylar "The Cobra" Widulski 2023-12-07 21:22:53 -05:00
parent b4721775fa
commit 0a575f1577
Signed by: cobra
GPG Key ID: 4FD8F812083FF6F9
1 changed files with 27 additions and 112 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

139
meme/scraping.scm
View File

@ -414,126 +414,41 @@
(define (get-sidebar-gallery d)
(define gallery (list ""))
(define lst (list ""))
(define xpath-start "")
(do ((i 1 (+ i 2)))
((>= i
(- (xml-child-element-count
(get-xpath-node "/html/body/div[3]/aside" d) 0)
1))
gallery)
(set! lst (list
(get-xpath-string
(string-append
"/html/body/div[3]/aside/div["
(number->string i)
"]/h3/text()")
d #f)))
(do ((j 1 (+ j 1)))
((> j 2))
(do ((k 1 (+ k 1)))
((> k 2))
(set! xpath-start (string-append
"/html/body/div[3]/aside/div[" (number->string i)
"]/table/tbody/tr[" (number->string j) "]/td["
(number->string k) "]"))
(append!
lst
(list
(get-xpath-string (string-append xpath-start "/a/@href") d #t)
(get-xpath-string (string-append xpath-start "/a/img/@alt") d #t)
(get-xpath-string (string-append xpath-start "/a/img/@data-src") d
#t)
(get-xpath-string (string-append xpath-start "/h4/a/text()") d
#f)))))
(append!
gallery
(list
(list
(get-xpath-string
(string-append
"/html/body/div[3]/aside/div["
(number->string i)
"]/h3/text()")
d #f)
(get-xpath-string
(string-append
"/html/body/div[3]/aside/div["
(number->string i)
"]/table/tbody/tr[1]/td[1]/a/@href")
d #t)
(get-xpath-string
(string-append
"/html/body/div[3]/aside/div["
(number->string i)
"]/table/tbody/tr[1]/td[1]/a/img/@alt")
d #t)
(get-xpath-string
(string-append
"/html/body/div[3]/aside/div["
(number->string i)
"]/table/tbody/tr[1]/td[1]/a/img/@data-src")
d #t)
(get-xpath-string
(string-append
"/html/body/div[3]/aside/div["
(number->string i)
"]/table/tbody/tr[1]/td[1]/h4/a/text()")
d #f)
(get-xpath-string
(string-append
"/html/body/div[3]/aside/div["
(number->string i)
"]/table/tbody/tr[1]/td[2]/a/@href")
d #t)
(get-xpath-string
(string-append
"/html/body/div[3]/aside/div["
(number->string i)
"]/table/tbody/tr[1]/td[2]/a/img/@alt")
d #t)
(get-xpath-string
(string-append
"/html/body/div[3]/aside/div["
(number->string i)
"]/table/tbody/tr[1]/td[2]/a/img/@data-src")
d #t)
(get-xpath-string
(string-append
"/html/body/div[3]/aside/div["
(number->string i)
"]/table/tbody/tr[1]/td[2]/h4/a/text()")
d #f)
(get-xpath-string
(string-append
"/html/body/div[3]/aside/div["
(number->string i)
"]/table/tbody/tr[2]/td[1]/a/@href")
d #t)
(get-xpath-string
(string-append
"/html/body/div[3]/aside/div["
(number->string i)
"]/table/tbody/tr[2]/td[1]/a/img/@alt")
d #t)
(get-xpath-string
(string-append
"/html/body/div[3]/aside/div["
(number->string i)
"]/table/tbody/tr[2]/td[1]/a/img/@data-src")
d #t)
(get-xpath-string
(string-append
"/html/body/div[3]/aside/div["
(number->string i)
"]/table/tbody/tr[2]/td[1]/h4/a/text()")
d #f)
(get-xpath-string
(string-append
"/html/body/div[3]/aside/div["
(number->string i)
"]/table/tbody/tr[2]/td[2]/a/@href")
d #t)
(get-xpath-string
(string-append
"/html/body/div[3]/aside/div["
(number->string i)
"]/table/tbody/tr[2]/td[2]/a/img/@alt")
d #t)
(get-xpath-string
(string-append
"/html/body/div[3]/aside/div["
(number->string i)
"]/table/tbody/tr[2]/td[2]/a/img/@data-src")
d #t)
(get-xpath-string
(string-append
"/html/body/div[3]/aside/div["
(number->string i)
"]/table/tbody/tr[2]/td[2]/h4/a/text()")
d #f))))))
(list lst))))
(define (get-sidebar-trending d)
(define lst (list