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

gopher: adding generic image support.

char-rename
John Benediktsson 2016-10-26 16:37:27 -07:00
parent 68b3e4613b
commit a8d6f0d418
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
extra/gopher/gopher.factor
View File

@ -97,6 +97,9 @@ M: gopher-link >url
: gopher-gif. ( object -- ) : gopher-gif. ( object -- )
"gif" (image-class) load-image* image. ; "gif" (image-class) load-image* image. ;
: gopher-image. ( path object -- path )
over image-class load-image* image. ;
: gopher-menu. ( object -- ) : gopher-menu. ( object -- )
gopher-text [ gopher-text [
[ nl ] [ <gopher-link> gopher-link. ] if-empty [ nl ] [ <gopher-link> gopher-link. ] if-empty
@ -105,10 +108,12 @@ M: gopher-link >url
PRIVATE> PRIVATE>
: gopher. ( url -- ) : gopher. ( url -- )
gopher swap { dup url? [ >url ] unless
[ path>> ] [ gopher swap ] bi {
{ A_TEXT [ gopher-text. ] } { A_TEXT [ gopher-text. ] }
{ A_MENU [ gopher-menu. ] } { A_MENU [ gopher-menu. ] }
{ A_INDEX [ gopher-menu. ] } { A_INDEX [ gopher-menu. ] }
{ A_GIF [ gopher-gif. ] } { A_GIF [ gopher-gif. ] }
{ A_IMAGE [ gopher-image. ] }
[ drop . ] [ drop . ]
} case ; } case drop ;