From e102891fb3bbb3fec134b5c678a0dd2306b9beaf Mon Sep 17 00:00:00 2001 From: Yoni Rabkin Date: Wed, 3 Jun 2020 11:52:04 -0400 Subject: move all files to top-level --- lisp/emms-setup.el | 156 ----------------------------------------------------- 1 file changed, 156 deletions(-) delete mode 100644 lisp/emms-setup.el (limited to 'lisp/emms-setup.el') diff --git a/lisp/emms-setup.el b/lisp/emms-setup.el deleted file mode 100644 index fed2a36..0000000 --- a/lisp/emms-setup.el +++ /dev/null @@ -1,156 +0,0 @@ -;;; emms-setup.el --- Setup script for EMMS - -;; Copyright (C) 2005-2020 Free Software Foundation, Inc. - -;; Author: Yoni Rabkin -;; 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." - :group 'emms-setup - :type 'list) - -;;;###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-cache) - (require 'emms-mode-line) - (require 'emms-mark) - (require 'emms-tag-editor) - (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)) - ;; setup - (setq emms-playlist-default-major-mode 'emms-playlist-mode) - (add-to-list 'emms-track-initialize-functions 'emms-info-initialize-track) - (when (executable-find emms-info-mp3info-program-name) - (add-to-list 'emms-info-functions 'emms-info-mp3info)) - (when (executable-find emms-info-ogginfo-program-name) - (add-to-list 'emms-info-functions 'emms-info-ogginfo)) - (when (executable-find emms-info-opusinfo-program-name) - (add-to-list 'emms-info-functions 'emms-info-opusinfo)) - (setq emms-track-description-function 'emms-info-track-description) - (when (fboundp 'emms-cache) ; work around compiler warning - (emms-cache 1)) - (emms-mode-line 1) - (emms-mode-line-blank) - (emms-lyrics 1) - (emms-playing-time 1) - (add-to-list 'emms-info-functions 'emms-info-cueinfo) - (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") - - -(provide 'emms-setup) -;;; emms-setup.el ends here -- cgit v1.2.3