1.1--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2+++ b/examples/app/mpk.lisp	Sun Jun 16 22:15:04 2024 -0400
     1.3@@ -0,0 +1,23 @@
     1.4+;;; examples/app/mpk.lisp --- MPK demo
     1.5+
     1.6+;;
     1.7+
     1.8+;;; Code:
     1.9+(in-package :user)
    1.10+(defpkg mpk (:use :cl :std :dat :net :obj :log :rdb :packy))
    1.11+(in-package :mpk)
    1.12+
    1.13+(defvar *mpc*)
    1.14+
    1.15+(defun mpc-init ()
    1.16+  (let* ((conn (mpd:connect))
    1.17+         (status (mpd:status conn)))
    1.18+    (setq mpk::*mpc* conn)
    1.19+    (format t "mpd state: ~A~%" (mpd:state conn))
    1.20+    (values conn status)))
    1.21+
    1.22+(defun play () (mpd:play *mpc*))
    1.23+(defun stop () (mpd:stop *mpc*))
    1.24+(defun pause () (mpd:pause *mpc*))
    1.25+
    1.26+#+nil (mpc-init)