scsh-conservatory
/
sunterlib
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

snow on CSAN - part 3

This commit is contained in:
erana 2012-01-28 03:51:35 +09:00
parent 6973efcb09
commit 26c55e8730
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scsh/CSAN/load.scm
View File

@ -35,7 +35,7 @@
;; Commands:
;; h : display help
;; get <filename> : fetch file
(define CSAN-dir (string-append (getenv "HOME") "/.span"))
(define CSAN-dir (string-append (getenv "HOME") "/.csan"))
(questionaire CSAN-dir) ;; this changes the CSAN-dir
;; NOTE : after init of questionaire, you can spawn a shell:
;; (CSAN-shell-spawn CSAN-dir (string-append CSAN-dir "/mirror"))

6
scsh/snow/load.scm
View File

@ -27,7 +27,11 @@
;;; THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
(load "snow-repository.scm")
(display "set the CSAN-dir : in bash : export CSAN_DIR=$HOME/.csan")
(newline)
(display "and do : in bash : mkdir $HOME/.csan")
(newline)
(CSAN-dir (getenv "CSAN_DIR"))
(let* ((url (snow-repository "./test.scm" '()))
(snow-mirror-url (cadr url)))
(display (question? 22))