tweaks for interaction with deezer

1 files changed, 27 insertions, 7 deletions

diff --git a/exwm.org b/exwm.org
index c25c45e..cb08b0c 100644
--- a/exwm.org
+++ b/exwm.org
@@ -253,9 +253,6 @@
 
     (jao-def-exwm-runner jao-exwm-vlc 4 "VLC" "vlc")
 
-    (jao-def-exwm-runner jao-exwm-deezer 5 "Deezer" "deezer-desktop")
-    (defalias 'jao-streaming-list #'jao-exwm-deezer)
-
     (jao-def-exwm-runner jao-exwm-slack 0 "Slack" "slack")
     (jao-def-exwm-runner jao-exwm-signal 0 "Signal" "signal-desktop")
 
@@ -301,6 +298,33 @@
                        "/tmp/screenshot/$(date +'%g%m%d-%H%M%S').png")))
         (start-process-shell-command "import" "* exwm - console *" c)))
 
+    (defun jao-exwm--send-str (str)
+      (dolist (k (string-to-list (kbd str)))
+        (exwm-input--fake-key k)))
+
+  #+end_src
+* Deezer support
+  #+begin_src emacs-lisp
+    (jao-def-exwm-runner jao-exwm-deezer-1 5 "Deezer" "deezer-desktop")
+
+    (defun jao-exwm-deezer ()
+      (interactive)
+      (jao-exwm-deezer-1)
+      (delete-other-windows))
+
+    (defalias 'jao-streaming-list #'jao-exwm-deezer)
+    (jao-mpris-setup-aliases)
+
+    (defun jao-exwm--with-deezer (fun)
+      (jao-exwm-deezer)
+      (funcall fun))
+
+    (defun jao-exwm-deezer-like ()
+      (interactive)
+      (jao-exwm-deezer)
+      (exwm-input--update-focus (selected-window))
+      (jao-exwm--send-str "L"))
+
   #+end_src
 * Zathura support
   #+begin_src emacs-lisp
@@ -319,10 +343,6 @@
                 (string-to-number (match-string 4 exwm-title))
                 (match-string 2 exwm-title)))))
 
-    (defun jao-exwm--send-str (str)
-      (dolist (k (string-to-list (kbd str)))
-        (exwm-input--fake-key k)))
-
     (defun jao-zathura-goto-page (page-no)
       (jao-exwm--send-str (format "%sg" page-no)))