Commit ac212a35 authored by Michael Raskin's avatar Michael Raskin

Syncing from Monotone at 20200302-024716. Last commit message was Fix URLs in main-content part

parent 2f69c13d
......@@ -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))
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment