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

html.components: protect M\ code render* from ``f`` value.

char-rename
John Benediktsson 2016-12-31 13:53:56 -08:00
parent 4e9ad6ada7
commit 98b6fdeaa3
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -150,8 +150,11 @@ TUPLE: code mode ;
: <code> ( -- code ) : <code> ( -- code )
code new ; code new ;
: ?string-lines ( str/f -- seq )
[ { } ] [ string-lines ] if-empty ;
M: code render* M: code render*
[ string-lines ] [ drop ] [ mode>> value ] tri* htmlize-lines ; [ ?string-lines ] [ drop ] [ mode>> value ] tri* htmlize-lines ;
! Farkup component ! Farkup component
TUPLE: farkup no-follow disable-images parsed ; TUPLE: farkup no-follow disable-images parsed ;