From 8af27125ec0c0966867da7490db53a1cf071de7a Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Mon, 26 Feb 2018 17:17:15 -0800 Subject: [PATCH] use tilde paths instead of home append-path. --- basis/command-line/command-line.factor | 9 +++------ .../visual-studio-code/visual-studio-code.factor | 2 +- basis/tools/scaffold/scaffold-docs.factor | 15 ++++----------- basis/tools/scaffold/scaffold.factor | 13 +++++-------- extra/cpu/8080/emulator/emulator.factor | 2 +- extra/mason/config/config.factor | 14 +++----------- extra/mason/release/sign/sign.factor | 6 ++---- extra/webapps/mason/backend/backend.factor | 2 +- extra/websites/concatenative/concatenative.factor | 8 ++++---- 9 files changed, 24 insertions(+), 47 deletions(-) diff --git a/basis/command-line/command-line.factor b/basis/command-line/command-line.factor index aeb26c8e5e..39217ce61d 100644 --- a/basis/command-line/command-line.factor +++ b/basis/command-line/command-line.factor @@ -24,9 +24,6 @@ SYMBOL: command-line : (command-line) ( -- args ) OBJ-ARGS special-object sift [ alien>native-string ] map ; -: rc-path ( name -- path ) - home prepend-path ; - : try-user-init ( file -- ) "user-init" get swap '[ _ [ ?run-file ] [ @@ -37,14 +34,14 @@ SYMBOL: command-line ] when ; : run-bootstrap-init ( -- ) - ".factor-boot-rc" rc-path try-user-init ; + "~/.factor-boot-rc" try-user-init ; : run-user-init ( -- ) - ".factor-rc" rc-path try-user-init ; + "~/.factor-rc" try-user-init ; : load-vocab-roots ( -- ) "user-init" get [ - ".factor-roots" rc-path dup exists? [ + "~/.factor-roots" dup exists? [ utf8 file-lines harvest [ add-vocab-root ] each ] [ drop ] if "roots" get [ diff --git a/basis/editors/visual-studio-code/visual-studio-code.factor b/basis/editors/visual-studio-code/visual-studio-code.factor index 3b43d7443c..910e07d883 100644 --- a/basis/editors/visual-studio-code/visual-studio-code.factor +++ b/basis/editors/visual-studio-code/visual-studio-code.factor @@ -33,7 +33,7 @@ M: linux find-visual-studio-code-invocation { [ "code" which ] [ "Code" which ] - [ home "VSCode-linux-x64/Code" append-path ] + [ "~/VSCode-linux-x64/Code" ] [ "/usr/share/code/code" ] } [ [ exists? ] ?1arg ] map-compose 0|| ; diff --git a/basis/tools/scaffold/scaffold-docs.factor b/basis/tools/scaffold/scaffold-docs.factor index 2667d6b5db..7c047a59b7 100644 --- a/basis/tools/scaffold/scaffold-docs.factor +++ b/basis/tools/scaffold/scaffold-docs.factor @@ -101,22 +101,16 @@ HELP: scaffold-vocab { $description "Creates a directory in the given root for a new vocabulary and adds a main .factor file and an authors.txt file." } ; HELP: scaffold-emacs -{ $description "Touches the .emacs file in your home directory and provides a clickable link to open it in an editor." } ; +{ $description "Touches the " { $snippet ".emacs" } " file in your home directory and provides a clickable link to open it in an editor." } ; HELP: scaffold-factor-boot-rc -{ $description "Touches the .factor-boot-rc file in your home directory and provides a clickable link to open it in an editor." } ; +{ $description "Touches the " { $snippet ".factor-boot-rc" } " file in your home directory and provides a clickable link to open it in an editor." } ; HELP: scaffold-factor-rc -{ $description "Touches the .factor-rc file in your home directory and provides a clickable link to open it in an editor." } ; +{ $description "Touches the " { $snippet ".factor-rc" } " file in your home directory and provides a clickable link to open it in an editor." } ; HELP: scaffold-factor-roots -{ $description "Touches the .factor-roots file in your home directory and provides a clickable link to open it in an editor." } ; - -HELP: scaffold-rc -{ $values - { "path" "a pathname string" } -} -{ $description "Touches the given path in your home directory and provides a clickable link to open it in an editor." } ; +{ $description "Touches the " { $snippet ".factor-roots" } " file in your home directory and provides a clickable link to open it in an editor." } ; HELP: using { $description "Stores the vocabularies that are pulled into the documentation file from looking up the stack effect types." } ; @@ -137,7 +131,6 @@ ARTICLE: "tools.scaffold" "Scaffold tool" "Types that are unrecognized by the scaffold generator will be of type " { $link null } ". The developer should change these to strings that describe the stack effect names instead." $nl "Scaffolding a configuration file:" { $subsections - scaffold-rc scaffold-factor-boot-rc scaffold-factor-rc scaffold-factor-roots diff --git a/basis/tools/scaffold/scaffold.factor b/basis/tools/scaffold/scaffold.factor index 11deb7acb6..898c4e43d6 100644 --- a/basis/tools/scaffold/scaffold.factor +++ b/basis/tools/scaffold/scaffold.factor @@ -352,21 +352,18 @@ ${example-indent}} [ touch-file ] [ "Click to edit: " write . ] bi ; -: scaffold-rc ( path -- ) - [ home ] dip append-path touch. ; - : scaffold-factor-boot-rc ( -- ) - ".factor-boot-rc" scaffold-rc ; + "~/.factor-boot-rc" touch. ; : scaffold-factor-rc ( -- ) - ".factor-rc" scaffold-rc ; + "~/.factor-rc" touch. ; : scaffold-mason-rc ( -- ) - ".factor-mason-rc" scaffold-rc ; + "~/.factor-mason-rc" touch. ; : scaffold-factor-roots ( -- ) - ".factor-roots" scaffold-rc ; + "~/.factor-roots" touch. ; HOOK: scaffold-emacs os ( -- ) -M: unix scaffold-emacs ( -- ) ".emacs" scaffold-rc ; +M: unix scaffold-emacs ( -- ) "~/.emacs" touch. ; diff --git a/extra/cpu/8080/emulator/emulator.factor b/extra/cpu/8080/emulator/emulator.factor index adb06e68f0..9db998d259 100644 --- a/extra/cpu/8080/emulator/emulator.factor +++ b/extra/cpu/8080/emulator/emulator.factor @@ -453,7 +453,7 @@ SYMBOL: rom-root : rom-dir ( -- string ) rom-root get [ - home "roms" append-path dup exists? [ drop f ] unless + "~/roms" dup exists? [ drop f ] unless ] unless* ; : load-rom* ( seq cpu -- ) diff --git a/extra/mason/config/config.factor b/extra/mason/config/config.factor index 04adaaf0e9..971c0aa466 100644 --- a/extra/mason/config/config.factor +++ b/extra/mason/config/config.factor @@ -5,10 +5,7 @@ IN: mason.config ! (Optional) Location for build directories SYMBOL: builds-dir - -builds-dir get-global [ - home "builds" append-path builds-dir set-global -] unless +builds-dir [ "~/builds" ] initialize ! Who sends build report e-mails. SYMBOL: builder-from @@ -18,13 +15,11 @@ SYMBOL: builder-recipients ! (Optional) CPU architecture to build for. SYMBOL: target-cpu - -target-cpu get-global [ cpu target-cpu set-global ] unless +target-cpu [ cpu ] initialize ! (Optional) OS to build for. SYMBOL: target-os - -target-os get-global [ os target-os set-global ] unless +target-os [ os ] initialize ! (Optional) Architecture variant suffix. SYMBOL: target-variant @@ -37,12 +32,10 @@ SYMBOL: builder-debug ! URL for counter notifications. SYMBOL: counter-url - counter-url [ "http://builds.factorcode.org/counter" ] initialize ! URL for status notifications. SYMBOL: status-url - status-url [ "http://builds.factorcode.org/status-update" ] initialize ! Password for status notifications. @@ -63,7 +56,6 @@ SYMBOL: docs-directory ! URL to notify server about new docs SYMBOL: docs-update-url - docs-update-url [ "http://builds.factorcode.org/docs-update" ] initialize ! Boolean. Do we upload package binaries? diff --git a/extra/mason/release/sign/sign.factor b/extra/mason/release/sign/sign.factor index 27ecd8932a..fa330e3eb6 100644 --- a/extra/mason/release/sign/sign.factor +++ b/extra/mason/release/sign/sign.factor @@ -19,11 +19,9 @@ HOOK: cert-path os ( -- path/f ) M: object cert-path f ; -M: macosx cert-path - home "config/mac_app.cer" append-path ; +M: macosx cert-path "~/config/mac_app.cer" ; -M: windows cert-path - home "config/FactorSPC.pfx" append-path ; +M: windows cert-path "~/config/FactorSPC.pfx" ; >> HOOK: sign-factor-app os ( -- ) diff --git a/extra/webapps/mason/backend/backend.factor b/extra/webapps/mason/backend/backend.factor index ad9a66e3d7..11d6179c8b 100644 --- a/extra/webapps/mason/backend/backend.factor +++ b/extra/webapps/mason/backend/backend.factor @@ -82,7 +82,7 @@ counter "COUNTER" { : os/cpu ( builder -- string ) [ os>> ] [ cpu>> ] bi "/" glue ; -: mason-db ( -- db ) home "mason.db" append-path ; +: mason-db ( -- db ) "~/mason.db" ; : with-mason-db ( quot -- ) mason-db [ with-transaction ] with-db ; inline diff --git a/extra/websites/concatenative/concatenative.factor b/extra/websites/concatenative/concatenative.factor index a004702d41..91b4ad3a3e 100644 --- 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 ; +: website-db ( -- db ) "~/website.db" ; : init-factor-db ( -- ) mason-db [ init-mason-db ] with-db @@ -107,9 +107,9 @@ SYMBOLS: key-password key-file dh-file ; website-db "paste.factorcode.org" add-responder website-db "planet.factorcode.org" add-responder website-db "builds.factorcode.org" add-responder - home "docs" append-path "docs.factorcode.org" add-responder - home "cgi" append-path "gitweb.factorcode.org" add-responder - home "irclogs" append-path t >>allow-listings "irclogs.factorcode.org" add-responder + "~/docs" "docs.factorcode.org" add-responder + "~/cgi" "gitweb.factorcode.org" add-responder + "~/irclogs" t >>allow-listings "irclogs.factorcode.org" add-responder main-responder set-global ; : ( -- config )