update-docs ( -- )

Vocabulary

webapps.mason.docs-update

Inputs

None

Outputs

None

Definition

USING: help.html io.directories io.launcher io.pathnames memoize
sequences ;

IN: webapps.mason.docs-update

: update-docs ( -- )
    home [
        "docs.new" ?delete-tree "docs.new" make-directory
        "docs.new"
        [ { "tar" "xfz" } docs-path suffix try-process ]
        with-directory "docs" "docs.old" ?move-file
        "docs.new/docs" "docs" move-file
        "docs.new" delete-directory "docs.old" ?delete-tree
        \ load-index reset-memoized
    ] with-directory ;