From 47c8f53e134e0f653071f72a4f744d5092fbb4ce Mon Sep 17 00:00:00 2001 From: Saba Saba Date: Thu, 9 Feb 2023 12:26:16 -0500 Subject: [PATCH] Removing empty lines from git output. --- git-skipper.cl | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) 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")) -- 2.20.1