diff --git a/Makefile.rkt b/Makefile.rkt
index c70c23d..612b74d 100644
--- a/Makefile.rkt
+++ b/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)))
+
           
                  
\ No newline at end of file
diff --git a/private/commands.rkt b/private/commands.rkt
index 4a02a82..37ec6cd 100644
--- a/private/commands.rkt
+++ b/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)