#!/usr/bin/env -S sbcl --script

(eval-when (:compile-toplevel :load-toplevel :execute)
  (require :uiop))

(defpackage :fwoar.git-ignore
  (:use :cl))
(in-package :fwoar.git-ignore)

(defparameter *args*
  (uiop:command-line-arguments))

(defun trim-spaces (string)
  (string-trim '(#\space #\tab #\newline) string))

(defun get-to-ignore ()
  (format *query-io* "ignore? ")
  (finish-output *query-io*)
  (read-line *query-io* nil))

(defun not-terminator (line)
  (and line
       (not (string= line ""))
       (not (string= line "."))))

(defmacro loop-until-done ((line) &body body)
  `(loop for ,line = (trim-spaces (get-to-ignore))
         while (not-terminator ,line)
         do ,@body))

(with-open-file (s ".gitignore"
                   :direction :output
                   :if-exists :append
                   :if-does-not-exist :create)
  (fresh-line s)
  (if *args*
      (format s "~{~a~%~}" *args*)
      (loop-until-done (line)
        (princ line s)
        (terpri s))))

(uiop:run-program "git add .gitignore"
                  :force-shell t
                  :output :interactive
                  :error-output :interactive)