From e62987b494c8ca8a63adec30e92aab3443ba0951 Mon Sep 17 00:00:00 2001 From: Yoni Rabkin Date: Thu, 29 May 2014 14:17:24 -0400 Subject: * lisp/emms.el: Add new display function. Idea from by Ian D . --- lisp/emms.el | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'lisp/emms.el') diff --git a/lisp/emms.el b/lisp/emms.el index 5c2a4dd..1e4a1f7 100644 --- a/lisp/emms.el +++ b/lisp/emms.el @@ -539,6 +539,14 @@ Set `emms-completing-read' to determine which function to use. See `completing-read' for a description of ARGS." (apply emms-completing-read-function args)) +(defun emms-display-modes () + "Display the current EMMS play modes." + (interactive) + (message "repeat playlist: %s, repeat track: %s, random: %s" + (if emms-repeat-playlist "yes" "no") + (if emms-repeat-track "yes" "no") + (if emms-random-playlist "yes" "no"))) + ;;; Compatibility functions -- cgit v1.2.3