Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Michael Raskin
thoughtful-theridion
Commits
a4a3bda0
Commit
a4a3bda0
authored
Apr 08, 2019
by
Michael Raskin
Browse files
Syncing from Monotone at 20190408-024649. Last commit message was Typo fix
parent
b10bff32
Changes
3
Hide whitespace changes
Inline
Side-by-side
examples/planet-lisp-fresh.lisp
View file @
a4a3bda0
(
use-package
:thoughtful-theridion
)
(
print
(
page-walk
(
x
"http://planet.lisp.org/2019/3.html"
:recur
recur
)
(
let
prev
"tr:first-child > td > a"
(
"href"
x
))
(
page-walk-each
(
page-walk
(
x
x
:fetch
nil
:keep-brancher
t
)
(
page-walk-maybe-each-of
"li > a"
)
(
"href"
x
)
(
if
(
cl-ppcre:scan
"/201[0-8]/"
x
)
(
page-walk-each
)
x
))
(
recur
prev
))))
(
page-walk
(
x
"https://planet.lisp.org/"
)
"div#content > p > a"
(
"href"
x
)
(
page-walk
(
x
x
:recur
recur
)
(
let
prev
"tr:first-child > td > a"
(
"href"
x
))
(
page-walk-each
(
page-walk
(
x
x
:fetch
nil
:keep-brancher
t
)
(
page-walk-maybe-each-of
"li > a"
)
(
"href"
x
)
(
if
(
cl-ppcre:scan
"/201[0-8]/"
x
)
(
page-walk-each
)
x
))
(
recur
prev
)))))
html-textify.lisp
View file @
a4a3bda0
...
...
@@ -255,4 +255,5 @@
(
defun
html-inner-text
(
element
)
(
html-element-to-text
element
(
make-instance
'html-textifier-protocol
)))
(
make-instance
'html-textifier-protocol
)
element
))
walker-dsl.lisp
View file @
a4a3bda0
...
...
@@ -76,16 +76,18 @@
(
labels
((
,
descend
(
,
result-var
)
(
if
(
typep
,
result-var
'page-walker-brancher
)
(
page-walk-each-of
(
loop
for
,
var
in
(
page-walker-branches
,
result-var
)
for
,
rest-result-var
:=
(
,
descend
,
var
)
until
(
page-walker-terminator-p
(
if
(
null
(
page-walker-branches
,
result-var
))
,
result-var
(
page-walk-each-of
(
loop
for
,
var
in
(
page-walker-branches
,
result-var
)
for
,
rest-result-var
:=
(
,
descend
,
var
)
until
(
page-walker-terminator-p
,
rest-result-var
)
collect
,
rest-result-var
))
collect
,
rest-result-var
))
)
(
let
((
,
result-var
,
result-var
)
(
,
var
,
var
))
,
main-form
))))
...
...
@@ -186,16 +188,19 @@
(
labels
((
,
descend
(
,
result-var
)
(
if
(
typep
,
result-var
'page-walker-brancher
)
(
page-walk-each-of
(
loop
for
,
var
in
(
page-walker-branches
,
result-var
)
for
,
rest-result-var
:=
(
,
descend
,
var
)
until
(
page-walker-terminator-p
(
if
(
null
(
page-walker-branches
,
result-var
))
,
result-var
(
page-walk-each-of
(
loop
for
,
var
in
(
page-walker-branches
,
result-var
)
for
,
rest-result-var
:=
(
,
descend
,
var
)
until
(
page-walker-terminator-p
,
rest-result-var
)
collect
,
rest-result-var
))
collect
,
rest-result-var
))
)
(
let
((
,
var
,
result-var
))
,
rest-form
))))
(
,
descend
,
result-var
))))))))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment