oke.

2026-08-09 09:30:28 +02:00
parent 0f1c1da672
commit ac8e492aff
2 changed files with 15 additions and 3 deletions
@@ -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)))
+
          
                 
@@ -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)