From 6d44e383b358ea56f20ac2c0d8099e461c8972b3 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Thu, 13 Nov 2008 14:27:28 -0600 Subject: [PATCH] add rc files to scaffold since it's hard to create a file named .foo on windows --- basis/tools/scaffold/scaffold.factor | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/basis/tools/scaffold/scaffold.factor b/basis/tools/scaffold/scaffold.factor index e1076775fa..2811801266 100644 --- a/basis/tools/scaffold/scaffold.factor +++ b/basis/tools/scaffold/scaffold.factor @@ -263,3 +263,12 @@ SYMBOL: examples-flag [ example ] times "}" print ] with-variable ; + +: scaffold-rc ( path -- ) + [ touch-file ] [ "Click to edit: " write . ] bi ; + +: scaffold-factor-boot-rc ( -- ) + home ".factor-boot-rc" append-path scaffold-rc ; + +: scaffold-factor-rc ( -- ) + home ".factor-rc" append-path scaffold-rc ;