extra/mason/help/help.factor

   1 ! Copyright (C) 2008 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: arrays help.html io.directories io.files io.launcher
   4 kernel make mason.common mason.config namespaces sequences ;
   5 IN: mason.help
   6
   7 : make-help-archive ( -- )
   8     "factor/temp" [
   9         { "tar" "cfz" "docs.tar.gz" "docs" } try-process
  10     ] with-directory ;
  11
  12 : upload-help-archive ( -- )
  13     "factor/temp/docs.tar.gz"
  14     help-username get
  15     help-host get
  16     help-directory get "/docs.tar.gz" append
  17     upload-safely ;
  18
  19 : (upload-help) ( -- )
  20     upload-help? get [
  21         make-help-archive
  22         upload-help-archive
  23     ] when ;
  24
  25 : upload-help ( -- )
  26     status get status-clean eq? [ (upload-help) ] when ;