commit 4b3b873

install files

1@@ -3,7 +3,7 @@
2 f=dull.scm
3 printf "#!/bin/guile\n!#\n"> $f
4 
5-for i in module variables pkg cmd main
6+for i in module variables cmd pkg main
7 do
8     {
9 	printf ";; $i.scm\n\n" >> $f

 1@@ -49,7 +49,6 @@
 2 		   ))
 3 	    )
 4 	    )
 5-	  )
 6 	
 7 	(begin
 8 	  (die (format #f "pkg dir for package ~a~a~a not found (~a)" "\x1b[33m" pkg "\x1b[0m" dp) 1)
 9@@ -65,20 +64,19 @@
10     ;; actually install
11     (let dc ((n 0))
12       (unless (= n (length df))
13-	(when (string-suffix? (list-ref df n) "/")
14+	(when (string-suffix? "/" (list-ref df n))
15 	  (mkdir-p (list-ref df n)))
16 	(dc (+ n 1))))
17     
18     (let fc ((n 0))
19       (unless (= n (length df))
20-	(unless (string-suffix? (list-ref df n) "/")
21-	  (+ 0 67)
22-	  ;;(copy-file  (list-ref df n)))
23+	(unless (string-suffix? "/" (list-ref df n))
24+	  (copy-file (string-append dp (list-ref df n)) (list-ref df n))
25+	  )
26 	(fc (+ n 1))))
27-    )
28   
29-  (msg (format #f "package ~a~a~a successfully installed" "\x1b[33m" pkg "\x1b[m") "-->")
30-  )
31+    (msg (format #f "package ~a~a~a successfully installed" "\x1b[33m" pkg "\x1b[m") "-->")
32+    ))
33 
34 (define (del-pkg pkg)
35   (msg (format #f "removing package ~a~a~a" "\x1b[33m" pkg "\x1b[m") "->")