websites.concatenative: more tweaks

diff --git a/extra/webapps/mason/docs-update/docs-update.factor b/extra/webapps/mason/docs-update/docs-update.factor
index 3ecfbef1902c2e52b4dc1231f237bfc38ebf370d..3621f096ece77d37377263de8322b24dd63c01a0 100644 (file)
--- a/extra/webapps/mason/docs-update/docs-update.factor
+++ b/extra/webapps/mason/docs-update/docs-update.factor
@@ -1,17 +1,18 @@
 ! Copyright (C) 2010 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-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 ;
+USING: accessors furnace.actions help.html
+http.server.responses io.directories io.directories.hierarchy
+io.files io.launcher io.pathnames kernel mason.config memoize
+namespaces sequences threads webapps.mason.utils ;
 IN: webapps.mason.docs-update
 
-SYMBOL: docs-path
+: docs-path ( -- path )
+    docs-directory get "docs.tar.gz" append-path ;
 
 : update-docs ( -- )
     home [
         "newdocs" make-directory
-        "newdocs" [ { "tar" "xfz" } docs-path get suffix try-process ] with-directory
+        "newdocs" [ { "tar" "xfz" } docs-path suffix try-process ] with-directory
 
         "docs" exists? [ "docs" "docs.old" move-file ] when
         "newdocs/docs" "docs" move-file

diff --git a/extra/websites/concatenative/concatenative.factor b/extra/websites/concatenative/concatenative.factor
index d14f52e8dff308c7a0948d347a6b12e1631d179e..b4ce1ce1a756cbeb7bb05e9a04e6fc891e7d6018 100644 (file)
--- a/extra/websites/concatenative/concatenative.factor
+++ b/extra/websites/concatenative/concatenative.factor
@@ -74,10 +74,7 @@ SYMBOLS: factor-recaptcha-public-key factor-recaptcha-private-key ;
 SYMBOLS: key-password key-file dh-file ;
 
 : common-configuration ( -- )
-    "concatenative.org" 25 <inet> smtp-server set-global
     "noreply@concatenative.org" lost-password-from set-global
-    "website@concatenative.org" insomniac-sender set-global
-    { "slava@factorcode.org" } insomniac-recipients set-global
     init-factor-db ;
 
 : init-testing ( -- )