From 38133a2915ffd761a08b11b896e5201996addcff Mon Sep 17 00:00:00 2001
From: erana <jceuppen@vub.ac.be>
Date: Thu, 19 Jan 2012 00:42:33 +0900
Subject: [PATCH] SPAN - refactor help

---
 scsh/SPAN/SPAN.scm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/scsh/SPAN/SPAN.scm b/scsh/SPAN/SPAN.scm
index 4249a51..be9c712 100644
--- a/scsh/SPAN/SPAN.scm
+++ b/scsh/SPAN/SPAN.scm
@@ -262,6 +262,9 @@ Enter 'h' for help.")
                        SPAN-build-and-cache-dir
                        (lambda (answer)
                          (let ((dir (create-directory answer)))
+                           (run (touch (string-append dir "/help")))
+                           (let ((out (open-output-file (string-append dir "/help"))))
+                             (write "Commands : 'h' and 'get <filename-on-server>"))
                            (if (file-directory? dir)
                                (set! SPAN-dir answer)
                                (set! SPAN-build-and-cache-dir answer)
@@ -357,6 +360,7 @@ Enter 'h' for help.")
                        SPAN-mirror-url
                        (lambda (answer)
                          (set! SPAN-mirror-url answer)
+                         (run (touch (string-append SPAN-dir "/mirror")))
                          (let ((out (open-output-file (string-append SPAN-build-and-cache-dir "/mirror"))))
                            (write answer out))
                          #f)) answer)