diff-line ( obj -- xml )

Vocabulary

lcs.diff2html

Inputs

obj

an object

Outputs

xml

an object

Definition

IN: lcs.diff2html

GENERIC: diff-line ( obj -- xml )

Methods

USING: lcs lcs.diff2html xml.data xml.syntax.private ;

M: delete diff-line
    item-string 1 nenum T{ xml-chunk
        { seq
            V{
                ""
                T{ tag { name ~name~ } { children ~vector~ } }
                ""
            }
        }
    } interpolate-xml ;


USING: lcs lcs.diff2html xml.data xml.syntax.private ;

M: insert diff-line
    item-string 1 nenum T{ xml-chunk
        { seq
            V{
                ""
                T{ tag { name ~name~ } { children ~vector~ } }
                ""
            }
        }
    } interpolate-xml ;


USING: kernel lcs lcs.diff2html xml.data xml.syntax.private ;

M: retain diff-line
    item-string 1 nenum T{ xml-chunk
        { seq
            V{
                ""
                T{ tag
                    { name ~name~ }
                    { attrs ~attrs~ }
                    { children ~vector~ }
                }
                ""
            }
        }
    } interpolate-xml dup 2 nenum T{ xml-chunk
        { seq
            V{
                ""
                T{ tag { name ~name~ } { children ~vector~ } }
                ""
            }
        }
    } interpolate-xml ;