(in-package #:jira-api.cli)

(defparameter *prompt-stream* (make-synonym-stream '*query-io*))

(defun prompt-for-line (stream prompt &rest args)
  (apply #'format stream prompt args)
  (force-output stream)
  (read-line stream nil :done))
;;(trace prompt-for-line)

(defun prompt-for-lines (stream initial-prompt continuation-prompt &rest args)
  "Not finished ... see :description below"
  (loop with lines = (make-array 10 :adjustable t :fill-pointer 0)
        for line = (prompt-for-line stream initial-prompt args)
        then (prompt-for-line stream continuation-prompt)
        for trim-line = (trim-whitespace line)
        until (equal trim-line ".")
        do (vector-push-extend trim-line lines)
        finally (return (string-join lines #\space))))

(defun prompt-for-boolean (stream prompt &rest args)
  (let ((input (string-downcase (prompt-for-line stream prompt args))))
    (ecase (elt input 0)
      (#\y t)
      (#\n nil))))

(defgeneric prompt (field-name &optional stream))

(defun optional-prompt (stream field-name test-prompt &rest args)
  (when (apply #'prompt-for-boolean stream test-prompt args)
    (prompt field-name stream)))


(defmethod prompt ((field-name (eql :project-key)) &optional (stream *prompt-stream*))
  (funcall #'string-upcase (prompt-for-line stream "Project Key (e.g. ATOMOS)? ")))

(defmethod prompt ((field-name (eql :summary)) &optional (stream *prompt-stream*))
  (prompt-for-line stream "Summary? "))

(defmethod prompt ((field-name (eql :description)) &optional (stream *prompt-stream*))
  (loop with lines = (make-array 10 :adjustable t :fill-pointer 0)
        for line = (prompt-for-line stream "Enter a description end with \".\" on its own line~%? ")
        then (prompt-for-line stream "? ")
        for trim-line = (when (stringp line)
                          (trim-whitespace line))
        until (or (eql trim-line :done) (equal trim-line "."))
        do (vector-push-extend trim-line lines)
        finally (return (string-join lines #\newline))))

(defmethod prompt ((field-name (eql :jira-account)) &optional (stream *prompt-stream*))
  (prompt-for-line stream "JIRA Subdomain? "))

(defmethod prompt ((field-name (eql :creds)) &optional (stream *prompt-stream*))
  (let ((username (prompt-for-line stream "Username? "))
        (password (prompt-for-line stream "Password (visible)? ")))
    (list username password)))