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

html.streams: rename image-path to icon-path

db4
Doug Coleman 2015-07-20 00:10:56 -07:00
parent 618330b31e
commit 4561bd88a3
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/html/streams/streams.factor
View File

@ -77,11 +77,11 @@ MACRO: make-css ( pairs -- str )
: emit-html ( stream quot -- ) : emit-html ( stream quot -- )
dip data>> push ; inline dip data>> push ; inline
: image-path ( path -- images-path ) : icon-path ( path -- icons-path )
"vocab:definitions/icons/" ?head [ "/icons/" prepend ] when ; "vocab:definitions/icons/" ?head [ "/icons/" prepend ] when ;
: img-tag ( xml style -- xml ) : img-tag ( xml style -- xml )
image of [ nip image-path simple-image ] when* ; image of [ nip icon-path simple-image ] when* ;
: format-html-span ( string style stream -- ) : format-html-span ( string style stream -- )
[ [