blob: 33e2da0af2399dc919e7b3d567761251d99680bc (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
|
;;; emms-mode-line.el --- Mode-Line and titlebar infos for emms
;; Copyright (C) 2004 Free Software Foundation, Inc.
;; Author: Mario Domg�rgen <kanaldrache@gmx.de>
;; Keywords: multimedia
;; This file 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 2, or (at your option)
;; any later version.
;; This file 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 GNU Emacs; see the file COPYING. If not, write to the
;; Free Software Foundation, Inc., 51 Franklin St, Fifth Floor,
;; Boston, MA 02110-1301 USA
;;; Commentary:
;;
;; To activate put simply the following line in your Emacs:
;;
;; (require 'emms-mode-line)
;; (emms-mode-line 1)
;;; Code:
(require 'emms)
(defgroup emms-mode-line nil
"Showing information on mode-line and titlebar"
:prefix "emms-mode-line-"
:group 'emms)
(defcustom emms-mode-line-mode-line-function 'emms-mode-line-playlist-current
"Function for showing infos in mode-line or nil if don't want to."
:type '(choice (const :tag "Don't show info on mode-line" nil) function)
:group 'emms-mode-line)
(defcustom emms-mode-line-titlebar-function nil
"Function for showing infos in titlebar or nil if you don't want to."
:type '(choice (const :tag "Don't show info on titlebar" nil) function)
:group 'emms-mode-line)
(defcustom emms-mode-line-format " [ %s ] "
"String used for displaying the current track in mode-line and titlebar."
:type 'string
:group 'emms)
(defun emms-mode-line-playlist-current ()
"Format the currently playing song"
(format emms-mode-line-format (emms-track-description (emms-playlist-selected-track))))
(defvar emms-mode-line-initial-titlebar frame-title-format)
(defun emms-mode-line (arg)
"Turn on `emms-mode-line' if ARG is positive, off otherwise."
(interactive "p")
(or global-mode-string (setq global-mode-string '("")))
(if (and arg (> arg 0))
(progn
(add-hook 'emms-playlist-current-track-changed-hook
'emms-mode-line-alter)
(add-hook 'emms-player-finished-hook 'emms-mode-line-blank)
(add-hook 'emms-player-stopped-hook 'emms-mode-line-blank)
(add-hook 'emms-player-started-hook 'emms-mode-line-alter)
(when (and emms-mode-line-mode-line-function
(not (member 'emms-mode-line-string global-mode-string)))
(setq global-mode-string
(append global-mode-string
'(emms-mode-line-string))))
(when emms-player-playing-p (emms-mode-line-alter)))
(remove-hook 'emms-playlist-current-track-changed-hook
'emms-mode-line-alter)
(remove-hook 'emms-player-finished-hook 'emms-mode-line-blank)
(remove-hook 'emms-player-stopped-hook 'emms-mode-line-blank)
(remove-hook 'emms-player-started-hook 'emms-mode-line-alter)
(emms-mode-line-restore-titlebar)
(emms-mode-line-restore-mode-line)))
(defun emms-mode-line-alter ()
"Alter mode-line/titlebar."
(emms-mode-line-alter-mode-line)
(emms-mode-line-alter-titlebar))
(defun emms-mode-line-alter-mode-line ()
"Update the mode-line with song info."
(when emms-mode-line-mode-line-function
(setq emms-mode-line-string
(funcall emms-mode-line-mode-line-function))
(force-mode-line-update)))
(defun emms-mode-line-alter-titlebar ()
"Update the titlebar with song info."
(when emms-mode-line-titlebar-function
(setq frame-title-format
(list "" emms-mode-line-initial-titlebar (funcall emms-mode-line-titlebar-function)))))
(defun emms-mode-line-blank ()
"Blank mode-line and titlebar but not quit `emms-mode-line'."
(setq emms-mode-line-string nil)
(force-mode-line-update)
(emms-mode-line-restore-titlebar))
(defun emms-mode-line-restore-mode-line ()
"Restore the mode-line."
(when emms-mode-line-mode-line-function
(setq global-mode-string
(remove 'emms-mode-line-string global-mode-string))
(force-mode-line-update)))
(defun emms-mode-line-restore-titlebar ()
"Restore the mode-line."
(when emms-mode-line-titlebar-function
(setq frame-title-format
(list emms-mode-line-initial-titlebar))))
(provide 'emms-mode-line)
;;; emms-mode-line.el ends here
|
