Revert "Revert "use tilde paths in more places.""

[factor.git] / extra / websites / concatenative / concatenative.factor

diff --git a/extra/websites/concatenative/concatenative.factor b/extra/websites/concatenative/concatenative.factor
index 0fa74c49497fe811ed9f63ca1352893bbb8e8891..21f6a26d02e18ce5fd416eb972e82b42ef425eb4 100644 (file)
--- a/extra/websites/concatenative/concatenative.factor
+++ b/extra/websites/concatenative/concatenative.factor
@@ -31,7 +31,7 @@ webapps.mason.backend.watchdog
 websites.factorcode ;
 IN: websites.concatenative
 
-: website-db ( -- db ) home "website.db" append-path <sqlite-db> ;
+: website-db ( -- db ) "~/website.db" <sqlite-db> ;
 
 : init-factor-db ( -- )
     mason-db [ init-mason-db ] with-db
@@ -128,10 +128,10 @@ M: cgit call-responder*
         <pastebin> <factor-recaptcha> <login-config> <factor-boilerplate> website-db <alloy> "paste.factorcode.org" add-responder
         <planet> <login-config> <factor-boilerplate> website-db <alloy> "planet.factorcode.org" add-responder
         <mason-app> <login-config> <factor-boilerplate> website-db <alloy> "builds.factorcode.org" add-responder
-        home "docs" append-path <help-webapp> "docs.factorcode.org" add-responder
-        home "gitweb" append-path <gitweb> "gitweb.factorcode.org" add-responder
+        "~/docs" <help-webapp> "docs.factorcode.org" add-responder
+        "~/gitweb" <gitweb> "gitweb.factorcode.org" add-responder
         "/usr/share/cgit" "/usr/lib/cgit/cgit.cgi" <cgit> "cgit.factorcode.org" add-responder
-        home "irclogs" append-path <static> t >>allow-listings "irclogs.factorcode.org" add-responder
+        "~/irclogs" <static> t >>allow-listings "irclogs.factorcode.org" add-responder
     main-responder set-global ;
 
 : <factor-secure-config> ( -- config )