From 8f049db105f26920b54d1bb89c78ccb6682d17c9 Mon Sep 17 00:00:00 2001 From: Saba Saba Date: Thu, 9 Feb 2023 12:26:19 -0500 Subject: [PATCH] Fixed defect in skipped-files --- git-repl.cl | 11 +++-------- 1 file changed, 3 insertions(+), 8 deletions(-) diff --git a/git-repl.cl b/git-repl.cl index a3eacf8..4eee3a3 100644 --- a/git-repl.cl +++ b/git-repl.cl @@ -4,11 +4,6 @@ (in-package :cl-user) -(defmacro defvar-public (name value &optional doc) - `(progn - (export ',name) - (defvar ,name ,value ,doc))) - (defmacro defun-public (name arglist &body body) `(progn (export ',name) @@ -31,8 +26,6 @@ "Compiles the current state into an executable and installs it to *installation-file*" (make *installation-file*)) -(defvar-public *grep* "findstr" "The name of the program used for searching. On Windows this is set to \'findstr\', but it may be changed to \'grep\' for Unix systems.") - (defun remove-empty (text-lines) "Removes every empty line from a list of lines of text" (remove-if #'str:emptyp text-lines)) @@ -71,7 +64,9 @@ (defun-public skipped-files () "Displays a list of skipped files" - (mapcar (lambda (x) (str:substring 2 t x)) (git "ls-files" "-v" "|" *grep* "^S"))) + (mapcar + (lambda (x) (str:substring 2 t x)) + (remove-if (lambda (x) (not (str:starts-with-p "S " x))) (git "ls-files" "-v")))) (defun-public skip-file (file-path) "Given a filepath, skips the specified file" -- 2.20.1