<diff-action> ( -- action )

Vocabulary

webapps.wiki

Inputs

None

Outputs

action

an object

Definition

USING: accessors db.tuples furnace.actions html.forms kernel lcs
splitting validators ;

IN: webapps.wiki

: <diff-action> ( -- action )
    <page-action> [
        {
            { "old-id" [ v-integer ] }
            { "new-id" [ v-integer ] }
        } validate-params "old-id" "new-id"
        [ value <revision> select-tuple ] bi@ [
            over title>> "title" set-value
            [ "old" [ from-object ] nest-form ]
            [ "new" [ from-object ] nest-form ] bi*
        ] [
            [ content>> split-lines ] bi@ lcs-diff
            "diff" set-value
        ] 2bi
    ] >>init { wiki "diff" } >>template <article-boilerplate> ;