steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

webapps.mason.docs-update: make docs path configurable

db4
Slava Pestov 2010-10-02 19:05:11 -07:00
parent 8f44a059f5
commit 8a95b763dd
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
extra/webapps/mason/docs-update/docs-update.factor
View File

@ -1,15 +1,17 @@
! Copyright (C) 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors continuations furnace.actions help.html
http.server.responses io.directories io.directories.hierarchy
io.launcher io.files io.pathnames kernel memoize threads
webapps.mason.utils ;
USING: accessors continuations namespaces sequences
furnace.actions help.html http.server.responses io.directories
io.directories.hierarchy io.launcher io.files io.pathnames
kernel memoize threads webapps.mason.utils ;
IN: webapps.mason.docs-update
SYMBOL: docs-path
: update-docs ( -- )
home [
"newdocs" make-directory
"newdocs" [ { "tar" "xfz" "../docs.tar.gz" } try-process ] with-directory
"newdocs" [ { "tar" "xfz" } docs-path get suffix try-process ] with-directory
"docs" exists? [ "docs" "docs.old" move-file ] when
"newdocs/docs" "docs" move-file