From 67f5263943276faee0de53d947b6191205ae7a43 Mon Sep 17 00:00:00 2001 From: William Xu Date: Tue, 17 Jun 2008 14:43:45 +0900 Subject: *.el -> lisp/*.el: Move lisp files into "lisp/" subdirectory. --- emms-mode-line-icon.el | 79 -------------------------------------------------- 1 file changed, 79 deletions(-) delete mode 100644 emms-mode-line-icon.el (limited to 'emms-mode-line-icon.el') diff --git a/emms-mode-line-icon.el b/emms-mode-line-icon.el deleted file mode 100644 index b6822f2..0000000 --- a/emms-mode-line-icon.el +++ /dev/null @@ -1,79 +0,0 @@ -;; emms-mode-line-icon.el --- show an icon in the Emacs mode-line - -;; Copyright (C) 2006, 2007 Free Software Foundation, Inc. - -;; Version: 1.1 -;; Keywords: emms - -;; Author: Daniel Brockman -;; Maintainer: Lucas Bonnet - -;; 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 -;; of the License, 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; if not, write to the Free Software Foundation, -;; Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. - -;; Commentary: - -;; This EMMS extension shows an icon in the mode-line next to the -;; info-tag. - -;; Code: - -(require 'emms-mode-line) - -(defvar emms-mode-line-icon-color "black" - "Color of the little icon displayed in the mode-line.") - -(defvar emms-mode-line-icon-before-format "" - "String to put before the icon, in the mode-line. -For example, if you want to have something like : -\[ Foo - The Foo Song ] -You should set it to \"[\", and set emms-mode-line-format to \"%s ]\"") - -(defvar emms-mode-line-icon-image-cache - `(image :type xpm :ascent center :data ,(concat "/* XPM */ -static char *note[] = { -/* width height num_colors chars_per_pixel */ -\" 10 11 2 1\", -/* colors */ -\". c " emms-mode-line-icon-color "\", -\"# c None s None\", -/* pixels */ -\"###...####\", -\"###.#...##\", -\"###.###...\", -\"###.#####.\", -\"###.#####.\", -\"#...#####.\", -\"....#####.\", -\"#..######.\", -\"#######...\", -\"######....\", -\"#######..#\"};"))) - - -(defun emms-mode-line-icon-function () - (concat " " - emms-mode-line-icon-before-format - (emms-propertize "NP:" 'display emms-mode-line-icon-image-cache) - (emms-mode-line-playlist-current))) - -(setq emms-mode-line-mode-line-function 'emms-mode-line-icon-function) - -;; This is needed for text properties to work in the mode line. -(put 'emms-mode-line-string 'risky-local-variable t) - -(provide 'emms-mode-line-icon) -;;; emms-mode-line-icone.el ends here -- cgit v1.2.3