2019-03-14 21:01:00 +01:00
|
|
|
This is a quick little tool to strip some HTML and leave text behind.
|
|
|
|
|
|
|
|
|
|
It's not factored, and doesn't filter blocks that don't exactly match
|
|
|
|
|
the tags listed in the code. It's still useful for quick looks, and
|
|
|
|
|
may serve as a starting point for something more useful later on.
|
|
|
|
|
|
|
|
|
|
~~~
|
|
|
|
|
'Tag d:create #1025 allot
|
|
|
|
|
'In-Tag var
|
|
|
|
|
|
2020-09-14 21:55:02 +02:00
|
|
|
#0 script:get-argument file:open-for-reading swap
|
2019-03-14 21:01:00 +01:00
|
|
|
[ dup file:read
|
|
|
|
|
$< [ &Tag buffer:set &In-Tag v:on ] case
|
|
|
|
|
$> [ &Tag 'head [ here buffer:set ] s:case
|
|
|
|
|
'title [ here buffer:set ] s:case
|
|
|
|
|
'script [ here buffer:set ] s:case
|
|
|
|
|
'script_type="text/javascript" [ here buffer:set ] s:case
|
|
|
|
|
'style [ here buffer:set ] s:case
|
|
|
|
|
drop &In-Tag v:off ] case
|
|
|
|
|
@In-Tag [ buffer:add ] [ c:put ] choose ] times
|
|
|
|
|
file:close
|
|
|
|
|
~~~
|
