diff --git a/basis/html/streams/streams-tests.factor b/basis/html/streams/streams-tests.factor index 79e8027489..eeac9210c1 100644 --- a/basis/html/streams/streams-tests.factor +++ b/basis/html/streams/streams-tests.factor @@ -61,4 +61,12 @@ M: funky url-of "http://www.funky-town.com/" swap town>> append ; [ H{ } [ ] with-nesting nl ] make-html-string ] unit-test -[ ] [ [ { 1 2 3 } describe ] with-html-writer drop ] unit-test \ No newline at end of file +[ ] [ [ { 1 2 3 } describe ] with-html-writer drop ] unit-test + +[ "" ] [ + [ + "text" + { { image "vocab:definitions/icons/class-word.tiff" } } + format + ] make-html-string +] unit-test diff --git a/basis/html/streams/streams.factor b/basis/html/streams/streams.factor index 0ddc09bf54..1b3086f665 100644 --- a/basis/html/streams/streams.factor +++ b/basis/html/streams/streams.factor @@ -2,8 +2,8 @@ ! See http://factorcode.org/license.txt for BSD license. USING: accessors assocs combinators destructors fry html io io.backend io.pathnames io.styles kernel macros make math -math.order math.parser namespaces sequences strings words xml -xml.syntax ; +math.order math.parser namespaces sequences strings words +splitting xml xml.syntax ; IN: html.streams GENERIC: url-of ( object -- url ) @@ -88,12 +88,11 @@ MACRO: make-css ( pairs -- str ) : emit-html ( quot stream -- ) dip data>> push ; inline -: image-resource-path ( path -- images-path ) - normalize-path current-directory get drop-prefix drop - "/images" prepend ; +: image-path ( path -- images-path ) + "vocab:definitions/icons/" ?head [ "/icons/" prepend ] when ; : img-tag ( xml style -- xml ) - image swap at [ nip image-resource-path simple-image ] when* ; + image swap at [ nip image-path simple-image ] when* ; : format-html-span ( string style stream -- ) [ diff --git a/extra/webapps/help/help.factor b/extra/webapps/help/help.factor index 1c17e3214f..20c807dca4 100644 --- a/extra/webapps/help/help.factor +++ b/extra/webapps/help/help.factor @@ -38,6 +38,7 @@ M: result link-href href>> ; help-webapp new-dispatcher "" add-responder over "search" add-responder - swap "content" add-responder ; + swap "content" add-responder + "resource:basis/definitions/icons/" "icons" add-responder ;