From: Saba Saba <saba@sabadev.xyz>
Date: Thu, 9 Feb 2023 17:26:19 +0000 (-0500)
Subject: Added quotes to skip-file and no-skip-file filepaths
X-Git-Url: http://sabadev.xyz:4321/?a=commitdiff_plain;h=c8d7662f8c31fb5e48d2b0337de13c47f21fa547;p=git-repl.git

Added quotes to skip-file and no-skip-file filepaths
---

diff --git a/git-repl.cl b/git-repl.cl
index 4eee3a3..57581c2 100644
--- a/git-repl.cl
+++ b/git-repl.cl
@@ -26,6 +26,9 @@
   "Compiles the current state into an executable and installs it to *installation-file*"
   (make *installation-file*))
 
+(defun add-quotes (text)
+  (format nil "\"~a\"" text))
+
 (defun remove-empty (text-lines)
   "Removes every empty line from a list of lines of text"
   (remove-if #'str:emptyp text-lines))
@@ -70,11 +73,11 @@
 
 (defun-public skip-file (file-path)
   "Given a filepath, skips the specified file"
-  (git "update-index" "--skip-worktree" file-path))
+  (git "update-index" "--skip-worktree" (add-quotes file-path)))
 
 (defun-public no-skip-file (file-path)
   "Given a filepath, unskips the specified file"
-  (git "update-index" "--no-skip-worktree" file-path))
+  (git "update-index" "--no-skip-worktree" (add-quotes file-path)))
 
 (defun-public skip-modified ()
   "Skips every modified file"