From 8a95b763dd12b0e436d71d1fbc30263c7e298529 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sat, 2 Oct 2010 19:05:11 -0700
Subject: [PATCH] webapps.mason.docs-update: make docs path configurable
---
extra/webapps/mason/docs-update/docs-update.factor | 12 +++++++-----
1 file changed, 7 insertions(+), 5 deletions(-)
diff --git a/extra/webapps/mason/docs-update/docs-update.factor b/extra/webapps/mason/docs-update/docs-update.factor
index 7b685890e7..3ecfbef190 100644
--- a/extra/webapps/mason/docs-update/docs-update.factor
+++ b/extra/webapps/mason/docs-update/docs-update.factor
@@ -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