From 5a4158dd6fb3a1ed9e358900f53c582c4ae30148 Mon Sep 17 00:00:00 2001 From: Fredrik Tolf Date: Tue, 5 Jan 2010 06:31:32 +0100 Subject: [PATCH 1/1] Made mpcl:connect more standardized. --- mpcl.lisp | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) diff --git a/mpcl.lisp b/mpcl.lisp index 4cc6656..98a545e 100644 --- a/mpcl.lisp +++ b/mpcl.lisp @@ -192,7 +192,19 @@ :message "Invalid response from mpd: ~A" :inputs (list line)))))))) -(defun connect (&key (host "localhost") (port 6600)) +(defun default-host () + (block nil + #+sbcl (let ((host (sb-posix:getenv "MPD_HOST"))) + (when host (return host))) + "localhost")) + +(defun default-port () + (block nil + #+sbcl (let ((port (sb-posix:getenv "MPD_PORT"))) + (when port (return (parse-integer port)))) + 6600)) + +(defun connect (&key (host (default-host)) (port (default-port))) "Connect to a running MPD." (disconnect) (with-conn-lock -- 2.11.0