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

help.html: support ui/tools/error-list/icons also.

master
John Benediktsson 2020-05-21 17:23:47 -07:00
parent 868d970784
commit 2e2f1d673a
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/help/html/html.factor
View File

@ -151,7 +151,7 @@ M: pathname url-of
dup "src" attr dup "src" attr
! use @2x retina images ! use @2x retina images
dup "@2x.png" tail? [ "@2x" over subseq? [
"." split1-last "@2x." glue "." split1-last "@2x." glue
] unless ] unless
@ -159,6 +159,9 @@ M: pathname url-of
"vocab:definitions/icons/" ?head "vocab:definitions/icons/" ?head
[ "/icons/" prepend ] when [ "/icons/" prepend ] when
"vocab:ui/tools/error-list/icons/" ?head
[ "/icons2/" prepend ] when
"src" set-attr "src" set-attr
] [ drop ] if ] [ drop ] if
] deep-each ] deep-each

1
extra/webapps/help/help.factor
View File

@ -41,6 +41,7 @@ TUPLE: help-webapp < dispatcher ;
help-dir <search-action> <secure-only> "search" add-responder help-dir <search-action> <secure-only> "search" add-responder
help-dir <static> <secure-only> "content" add-responder help-dir <static> <secure-only> "content" add-responder
"resource:basis/definitions/icons/" <static> <secure-only> "icons" add-responder ; "resource:basis/definitions/icons/" <static> <secure-only> "icons" add-responder ;
"resource:basis/ui/tools/error-list/icons/" <static> <secure-only> "icons2" add-responder ;
: run-help-webapp ( -- ) : run-help-webapp ( -- )
"docs" cache-file <help-webapp> "docs" cache-file <help-webapp>