From: Saba Saba <saba@sabadev.xyz>
Date: Thu, 9 Feb 2023 17:26:16 +0000 (-0500)
Subject: Removing empty lines from git output.
X-Git-Url: http://sabadev.xyz:4321/?a=commitdiff_plain;h=47c8f53e134e0f653071f72a4f744d5092fbb4ce;p=git-repl.git

Removing empty lines from git output.
---

diff --git a/git-skipper.cl b/git-skipper.cl
index c50c084..92b9ff6 100644
--- a/git-skipper.cl
+++ b/git-skipper.cl
@@ -2,9 +2,13 @@
 
 (in-package :cl-user)
 
+(defun remove-empty (seq)
+  (remove-if (cl-utilities:compose #'zerop #'length) seq))
+
 (defmacro git (&rest arguments)
-  `(mapcar (lambda (x) (string-trim " " x))
-           (cl-utilities:split-sequence #\newline (uiop:run-program (list "git" ,@arguments) :input nil :output :string))))
+  `(remove-empty
+     (mapcar (lambda (x) (string-trim " " x))
+             (cl-utilities:split-sequence #\newline (uiop:run-program (list "git" ,@arguments) :input nil :output :string)))))
 
 (defun modified-files ()
   (git "diff" "--name-only"))