steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

xkcd: fix comic-text.

db4
John Benediktsson 2014-11-12 19:41:58 -08:00
parent 18d7be2c05
commit 4fce958402
1 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
extra/xkcd/xkcd.factor
View File

@ -1,10 +1,11 @@
! Copyright (C) 2011 John Benediktsson ! Copyright (C) 2011 John Benediktsson
! See http://factorcode.org/license.txt for BSD license ! See http://factorcode.org/license.txt for BSD license
USING: accessors formatting http.client images.http USING: accessors formatting html.parser html.parser.analyzer
images.viewer images.viewer.prettyprint io kernel parser html.parser.printer http.client images.http images.viewer
prettyprint.custom prettyprint.sections regexp sequences images.viewer.prettyprint io io.streams.string kernel parser
strings ui wrap.strings xml xml.traversal ; prettyprint.custom prettyprint.sections regexp sequences strings
ui wrap.strings ;
IN: xkcd IN: xkcd
@ -15,14 +16,16 @@ IN: xkcd
R" http://imgs\.xkcd\.com/comics/[^\.]+\.(png|jpg)" R" http://imgs\.xkcd\.com/comics/[^\.]+\.(png|jpg)"
first-match >string load-http-image ; first-match >string load-http-image ;
: comic-image. ( url -- ) comic-image image. ; : comic-image. ( url -- )
comic-image image. ;
: comic-string ( url -- string ) : comic-text ( url -- string )
http-get nip string>xml http-get nip parse-html
"transcript" "id" deep-tag-with-attr children>string ; "transcript" find-by-id-between
[ html-text. ] with-string-writer ;
: comic-text. ( url -- ) : comic-text. ( url -- )
comic-image 80 wrap-lines [ print ] each ; comic-text 80 wrap-string print ;
: comic. ( url -- ) : comic. ( url -- )
ui-running? [ comic-image. ] [ comic-text. ] if ; ui-running? [ comic-image. ] [ comic-text. ] if ;