#!/usr/bin/env python
import argparse

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

parser = argparse.ArgumentParser()
parser.add_argument('files_to_ignore', nargs='*')
args = parser.parse_args()

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

try:
  lines = []

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

  if args.files_to_ignore != []:
    lines.extend(args.files_to_ignore)

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

  else:
    lines = []
    try:
      getline = lambda: raw_input('? ').strip()
      line = getline()
      while line != '.':
        lines.append(line)
        line = getline()
    except EOFError:
      pass
  with open('.gitignore', 'a') as f:
    for line in lines:
      print 'ignoring %s' % line
      print >> f, line
except KeyboardInterrupt:
  pass

(with-open-file (s ".gitignore" :direction :output :if-exists :append)
  (if *args*
      (format s "~{~a~%~}" *args*)
      (loop for line = (string-trim '(#\space #\tab #\newline)
                                    (progn (format *query-io* "ignore? ")
                                           (finish-output *query-io*)
                                           (read-line *query-io* nil)))
            while (and line
                       (not (string= line ""))
                       (not (string= line ".")))
            do
              (princ line s)
              (terpri s))))