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
ac212a35
Commit
ac212a35
authored
Mar 02, 2020
by
Michael Raskin
Browse files
Syncing from Monotone at 20200302-024716. Last commit message was Fix URLs in main-content part
parent
2f69c13d
Changes
1
Hide whitespace changes
Inline
Side-by-side
util.lisp
View file @
ac212a35
...
...
@@ -35,13 +35,15 @@
(
unless
skip-extract-main-content
(
cl-ppcre:regex-replace-all
" *\\n *\\n"
(
html-extract-main-content
(
parsed-content
f
)
(
or
html-content-score-protocol
(
make-instance
'html-classname-score-protocol
))
(
or
html-textifier-protocol
(
make-instance
'html-textifier-protocol-formatting-inspector
)))
(
let
((
*base-url*
(
current-url
f
)))
(
html-extract-main-content
(
parsed-content
f
)
(
or
html-content-score-protocol
(
make-instance
'html-classname-score-protocol
))
(
or
html-textifier-protocol
(
make-instance
'html-textifier-protocol-formatting-inspector
))))
(
coerce
(
list
#\Newline
#\Newline
)
'string
))))
""
)
(
when
(
and
(
not
skip-forms
)
(
parsed-content
f
))
...
...
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