1 ! Copyright (C) 2008 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: help.html sequences io.files io.launcher make namespaces
4 kernel arrays mason.common mason.config ;
7 : make-help-archive ( -- )
9 { "tar" "cfz" "docs.tar.gz" "docs" } try-process
12 : upload-help-archive ( -- )
13 "factor/temp/docs.tar.gz"
16 help-directory get "/docs.tar.gz" append
19 : (upload-help) ( -- )
26 status get status-clean eq? [ (upload-help) ] when ;