emms package

1 files changed, 200 insertions, 0 deletions

diff --git a/elisp/emms-setup.el b/elisp/emms-setup.el
new file mode 100644
index 0000000..e96ccea
--- /dev/null
+++ b/elisp/emms-setup.el
@@ -0,0 +1,200 @@
+;;; emms-setup.el --- Setup script for EMMS  -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2005-2022  Free Software Foundation, Inc.
+
+;; Author: Yoni Rabkin <[email protected]>
+;; Keywords: emms setup multimedia
+
+;; This file is part of EMMS.
+
+;; EMMS is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 3, or (at your option)
+;; any later version.
+
+;; EMMS is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with EMMS; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 51 Franklin St, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+;;; Commentary:
+
+;; This file provides the `emms-setup' feature. With `emms-setup' we
+;; can setup Emms with different features enabled. The use of this
+;; feature is documented in the Emms manual which is distributed with
+;; Emms.
+;;
+;; The use this feature we can invoke (for example):
+;;
+;;         (require 'emms-setup)
+;;         (emms-all)
+;;
+;; The first command loads the feature into Emacs and the second
+;; chooses the `emms-all' level.
+
+;;; Code:
+
+(require 'emms)
+
+(defgroup emms-setup nil
+  "*The Emacs Multimedia System setup utility."
+  :prefix "emms-setup"
+  :group 'multimedia)
+
+(defcustom emms-setup-default-player-list
+  '(emms-player-mpg321
+    emms-player-ogg123
+    emms-player-mplayer-playlist
+    emms-player-mplayer
+    emms-player-mpv
+    emms-player-vlc
+    emms-player-vlc-playlist)
+  "Default list of players for emms-setup."
+  :type 'list)
+
+(defvar emms-setup-discover-player-alist
+  '((emms-player-mpg321  . "mpg123")
+    (emms-player-ogg123  . "ogg123")
+    (emms-player-mplayer . "mplayer")
+    (emms-player-mpv     . "mpv")
+    (emms-player-vlc     . "vlc"))
+  "Association list of players and their binaries.")
+
+;;;###autoload
+(defun emms-minimalistic ()
+  "An Emms setup script.
+Invisible playlists and all the basics for playing media."
+  (require 'emms-source-file)
+  (require 'emms-source-playlist)
+  (require 'emms-player-simple)
+  (require 'emms-player-mplayer)
+  (require 'emms-player-mpv)
+  (require 'emms-player-vlc))
+
+;;;###autoload
+(defun emms-all ()
+  "An Emms setup script.
+Everything included in the `emms-minimalistic' setup and adds all
+the stable features which come with the Emms distribution."
+  ;; include
+  (emms-minimalistic)
+  ;; define
+  (eval-and-compile
+    (require 'emms-playlist-mode)
+    (require 'emms-info)
+    (require 'emms-info-mp3info)
+    (require 'emms-info-ogginfo)
+    (require 'emms-info-opusinfo)
+    (require 'emms-info-metaflac)
+    (require 'emms-info-tinytag)
+    (require 'emms-info-exiftool)
+    (require 'emms-info-native)
+    (require 'emms-cache)
+    (require 'emms-mode-line)
+    (require 'emms-mark)
+    (require 'emms-tag-editor)
+    (require 'emms-tag-tracktag)
+    (require 'emms-show-all)
+    (require 'emms-streams)
+    (require 'emms-lyrics)
+    (require 'emms-playing-time)
+    (require 'emms-player-mpd)
+    (require 'emms-player-xine)
+    (require 'emms-playlist-sort)
+    (require 'emms-browser)
+    (require 'emms-mode-line-icon)
+    (require 'emms-cue)
+    (require 'emms-bookmarks)
+    (require 'emms-last-played)
+    (require 'emms-metaplaylist-mode)
+    (require 'emms-stream-info)
+    (require 'emms-score)
+    (require 'emms-history)
+    (require 'emms-i18n)
+    (require 'emms-volume)
+    (require 'emms-playlist-limit)
+    (require 'emms-librefm-scrobbler)
+    (require 'emms-librefm-stream)
+    (require 'emms-mpris))
+  ;; setup
+  (setq emms-playlist-default-major-mode #'emms-playlist-mode)
+  (add-to-list 'emms-track-initialize-functions #'emms-info-initialize-track)
+  (setq emms-info-functions '(emms-info-native emms-info-cueinfo))
+  (setq emms-track-description-function #'emms-info-track-description)
+  (when (fboundp 'emms-cache)		; work around compiler warning
+    (emms-cache 1))
+  (emms-mode-line-mode 1)
+  (emms-mode-line-blank)
+  (emms-lyrics 1)
+  (emms-playing-time-mode 1)
+  (add-hook 'emms-player-started-hook #'emms-last-played-update-current)
+  (emms-score 1))
+
+
+;;;###autoload
+(defun emms-default-players ()
+  "Set `emms-player-list' to `emms-setup-default-player-list'."
+  (setq emms-player-list
+	emms-setup-default-player-list))
+
+
+
+;; These are kept around in order not to break anyone's existing
+;; setup.
+;;;###autoload
+(defun emms-devel ()
+  (emms-all))
+(make-obsolete 'emms-devel 'emms-all "4.1")
+
+;;;###autoload
+(defun emms-standard ()
+  (emms-all))
+(make-obsolete 'emms-standard 'emms-all "4.1")
+
+
+;;; ------------------------------------------------------------------
+;;; Player discovery
+;;; ------------------------------------------------------------------
+(defun emms-setup-discover-player-binary (bin-str)
+  "Find if BIN-STR can be executed in the current environment."
+  (when (not (eq system-type 'gnu/linux))
+    (error "Player discovery only supported on GNU/Linux."))
+  (let ((result (call-process "which" nil nil nil bin-str)))
+    (cond ((eq 0 result) t)
+          ((eq 1 result) nil)
+          ((eq 2 result) (error "invalid arguments to `which'.")))))
+
+(defun emms-setup-discover-player-has-binary-p (player)
+  "Find if PLAYER has an excecutable in the current environment."
+  (let ((bin-str (alist-get player emms-setup-discover-player-alist)))
+    (if bin-str
+	(emms-setup-discover-player-binary bin-str)
+      nil)))
+
+(defun emms-setup-discover-players ()
+  "Interactively add players to `emms-player-list'."
+  (interactive)
+  (when (and emms-player-list
+             (y-or-n-p (format "emms-player-list is already set to %s, do you want to empty it first?"
+			       emms-player-list)))
+    (setq emms-player-list nil))
+  (let ((players (copy-tree emms-setup-default-player-list)))
+    (while players
+      (let ((player (car players)))
+	(when (emms-setup-discover-player-has-binary-p player)
+          (when (y-or-n-p
+                 (format "Player %s is installed on your system, add it to the Emms player list?"
+                         player))
+            (add-to-list 'emms-player-list player))))
+      (setq players (cdr players))))
+  (message "emms-player-list is now set to: %s" emms-player-list))
+
+
+
+(provide 'emms-setup)
+;;; emms-setup.el ends here