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
mirrors hashtables combinators continuations math strings
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
SYMBOL: values
@ -211,6 +212,12 @@ SINGLETON: inspector
M: inspector render*
2drop [ describe ] with-html-stream ;
! Diff component
SINGLETON: comparison
M: comparison render*
2drop htmlize-diff ;
! HTML component
SINGLETON: html

View File

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