[elpa] externals/ivy-hydra 136ae0e 194/395: Add command for play/pause current song

[Basil L. Contovounesios]

branch: externals/ivy-hydra
commit 136ae0e750c528f94000013ca8f1742a32e6c66e
Author: amirrezaask <raskarpour@gmail.com>
Commit: Oleh Krehel <ohwoeowho@gmail.com>

    Add command for play/pause current song
    
    Fixes #2510
---
 counsel.el | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/counsel.el b/counsel.el
index 91a4f10..5e7f255 100644
--- a/counsel.el
+++ b/counsel.el
@@ -5606,6 +5606,15 @@ counter value and iteration amount."
     (dbus-call-method :session service path interface
                       "AddToQueue" (cdr song))))
 
+(defun counsel-rhythmbox-playpause-current-song ()
+  "Play/pause the current song."
+  (interactive)
+  (let ((service "org.gnome.Rhythmbox3")
+        (path "/org/mpris/MediaPlayer2")
+        (interface "org.mpris.MediaPlayer2.Player"))
+    (dbus-call-method :session service path interface
+                      "PlayPause")))
+
 (defun counsel-rhythmbox-toggle-shuffle (_song)
   "Toggle Rhythmbox shuffle setting."
   (let* ((old-order (counsel--command "dconf" "read" 
"/org/gnome/rhythmbox/player/play-order"))