(defpackage :mpd-protocol
  (:use :cl :alexandria :serapeum :esrap)
  (:shadowing-import-from :string-case :string-case))

(in-package :mpd-protocol)

(progn (defparameter *the-sock* (usocket:socket-connect "127.0.0.1" 6600))
       (get-line))

(defparameter *buffer* (make-array 100 :element-type '(unsigned-byte 8)))

(defun get-line ()
  (read-line (usocket:socket-stream *the-sock*) nil))

(defun send-command (command &rest args)
  (write-line (string-join (list* command args) #\space)
	      (usocket:socket-stream *the-sock*))
  (finish-output (usocket:socket-stream *the-sock*))
  (loop for line = (get-line)
     while (and line (string/= line "OK"))
       collect line))