Comparison component

db4
Slava Pestov 2008-05-27 00:01:27 -05:00
parent 8f69fd5aa8
commit 91d7adcbf1
2 changed files with 9 additions and 1 deletions

View File

@ -4,7 +4,8 @@ USING: accessors kernel namespaces io math.parser assocs classes
classes.tuple words arrays sequences sequences.lib splitting classes.tuple words arrays sequences sequences.lib splitting
mirrors hashtables combinators continuations math strings mirrors hashtables combinators continuations math strings
fry locals calendar calendar.format xml.entities validators fry locals calendar calendar.format xml.entities validators
html.elements html.streams xmode.code2html farkup inspector ; html.elements html.streams xmode.code2html farkup inspector
lcs.diff2html ;
IN: html.components IN: html.components
SYMBOL: values SYMBOL: values
@ -211,6 +212,12 @@ SINGLETON: inspector
M: inspector render* M: inspector render*
2drop [ describe ] with-html-stream ; 2drop [ describe ] with-html-stream ;
! Diff component
SINGLETON: comparison
M: comparison render*
2drop htmlize-diff ;
! HTML component ! HTML component
SINGLETON: html SINGLETON: html

View File

@ -272,6 +272,7 @@ STRING: button-tag-markup
{ "code" [ code tuple-component-tag ] } { "code" [ code tuple-component-tag ] }
{ "farkup" [ farkup singleton-component-tag ] } { "farkup" [ farkup singleton-component-tag ] }
{ "inspector" [ inspector singleton-component-tag ] } { "inspector" [ inspector singleton-component-tag ] }
{ "comparison" [ comparison singleton-component-tag ] }
{ "html" [ html singleton-component-tag ] } { "html" [ html singleton-component-tag ] }
! Forms ! Forms