oke.

Makefile.rkt

@@ -13,8 +13,19 @@
         (let ((line (read-line)))
           (set! line (string-trim line))
           (run '(git add -A))
-          (run (append '(git "commit" -m ) (list line))))
+          (run (append '(git "commit" -m ) (list line)))
+          (run '(git push))
+          )
         )
-        
+
+(target push
+        (run '(git push)))
+
+(target status
+        (run '(git status)))
+
+(target pull
+        (run '(git pull)))
+
           
                  

private/commands.rkt

@@ -141,7 +141,8 @@
 
 (define (list-dir/files directory regexp #:recursive [recursive #f])
   (filter (lambda (path)
-            (regexp-match? regexp path))
+            (let ((fn (file-name-from-path path)))
+              (regexp-match? regexp fn)))
           (if recursive
               (for/list ([path (in-directory directory)])
                 path)