commit 59d3068

add find-pkg, reset esc keys

 1@@ -2,13 +2,14 @@
 2 (define-module (cmd)
 3   #:use-module (ice-9 popen)
 4   #:use-module (ice-9 rdelim)
 5-  #:export (_system _warn die info msg)
 6+  #:export (_system _warn die info msg find-pkg)
 7 )
 8 
 9 (define (_system . a)
10 (let ((p (apply open-pipe* OPEN_READ a)))
11   (display (read-string p))(close-pipe p)))
12-(define (info a) (format #t "\x1b[m\x1b[37m=> ~a" a)(newline))
13-(define (msg a) (format #t "\x1b[m\x1b[32m==> ~a" a)(newline))
14-(define (_warn a) (format #t "\x1b[m\x1b[33mwarning: ~a" a)(newline))
15-(define (die a) (format #t "\x1b[m\x1b[31mERROR: ~a" a)(quit 1))
16+(define (info a) (format #t "\x1b[m\x1b[37m=>\x1b[m  ~a" a)(newline))
17+(define (msg a) (format #t "\x1b[m\x1b[32m==>\x1b[m ~a" a)(newline))
18+(define (_warn a) (format #t "\x1b[m\x1b[33mwarning: \x1b[m~a" a)(newline))
19+(define (die a) (format #t "\x1b[m\x1b[31mERROR: \x1b[m~a" a)(quit 1))
20+(define (find-pkg p) (_system "find" (getenv "DTR_DIR") "-mindepth" "2" "-maxdepth" "2" "-name" p))

 1@@ -2,11 +2,14 @@
 2   #:use-module (cmd)
 3   #:use-module (ice-9 popen)
 4   #:use-module (ice-9 rdelim)
 5-  #:export (inst)
 6+  #:export (inst-pkg build-pkg)
 7 )
 8 
 9 ;; note #f, its for expressions
10 ;; everything will be stubbed todat because i need to implement
11 ;; package finding and shit
12 
13-(define (inst pkg) (msg (format #f "installing ~a" pkg)))
14+(define (inst-pkg pkg) (msg (format #f "installing ~a" pkg)))
15+(define (build-pkg pkg)
16+  (find-pkg pkg)
17+)

1@@ -3,6 +3,7 @@
2 
3 (_warn "this will be some sort of libdmake.sh helper in guile")
4 (_system "ls" "/")
5-(inst "goonapp")
6+(inst-pkg "goonapp")
7 (display (getenv "HOME"))(newline)
8+(build-pkg "gmake")
9 (die "error")