clog-dnc-player.lisp

(defpackage :objc.clog-dnc-player
  (:use :cl :clog)
  (:export ))
(in-package :objc.clog-dnc-player)
(named-readtables:in-readtable :objc-readtable)

(fw.lu:defclass+ store ()
  ((%track-name
    :accessor track-name
    :initform nil)
   (%track-artist
    :accessor track-artist
    :initform nil)
   (%track-album
    :accessor track-album
    :initform nil)
   (%player-state
    :accessor player-state
    :initform nil)))
(defvar *store*)

(defun incorporate (store info)
  (prog1 store
    (trivia:match info
      ((trivia:hash-table-entries
        "Name" name
        "Album" album
        "Artist" artist
        "Player State" player-state)
       (setf
        (track-name store) name
        (track-album store) album
        (track-artist store) artist
        (player-state store) player-state)))))

(defun reducer-task (store)
  (lambda ()
    (loop
      for message = (sb-concurrency:receive-message
                     objc.notification:*mailbox*)
      do (incorporate *store* message))))

(defun on-new-window (body)
  (let ((name         (create-section body :h2 :content "track"))
        (artist       (create-div body :content "artist"))
        (album        (create-div body :content "album"))
        (player-state (create-div body :content "player-state"))
        (play-pause   (create-button body :content "play/pause")))
    (link-slot-to-element *store* track-name name)
    (link-slot-to-element *store* track-artist artist)
    (link-slot-to-element *store* track-album album)
    (link-slot-to-element *store* player-state player-state)
    (set-on-click play-pause
                  (lambda (button)
                    (declare (ignore button))
                    [(objc.scripting-bridge::itunes-app) @(playpause)]?))))

(defvar *initialized* nil)
(defun doit ()
  (unless *initialized*
    (setf *initialized* t)
    (setf *store* (make-instance 'store))
    (bt:make-thread (reducer-task *store*) :name "Reducer")
    (objc.notification:setup-notifications)
    (objc.notification:observe-notifications (objc.notification:dnc)
                                             "com.apple.Music.playerInfo")
    (bt:make-thread 'objc.notification:main-loop-ticker)
    (set-on-new-window 'on-new-window :path "/player")))