Fixed an ugly bug when there are encoding problems with the ICE media infos.
[elisp.git] / media-mplayer.el
1 ;; -*-Emacs-Lisp-*-
2
3 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
4 ;; This program is free software; you can redistribute it and/or         ;;
5 ;; modify it under the terms of the GNU General Public License as        ;;
6 ;; published by the Free Software Foundation; either version 3, or (at   ;;
7 ;; your option) any later version.                                       ;;
8 ;;                                                                       ;;
9 ;; This program is distributed in the hope that it will be useful, but   ;;
10 ;; WITHOUT ANY WARRANTY; without even the implied warranty of            ;;
11 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU      ;;
12 ;; General Public License for more details.                              ;;
13 ;;                                                                       ;;
14 ;; You should have received a copy of the GNU General Public License     ;;
15 ;; along with this program. If not, see <http://www.gnu.org/licenses/>.  ;;
16 ;;                                                                       ;;
17 ;; Written by and Copyright (C) Francois Fleuret                         ;;
18 ;; Contact <francois@fleuret.org> for comments & bug reports             ;;
19 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
20
21 ;; Is it me, or the slave mode of mplayer is ugly to parse? Did I miss
22 ;; something?
23
24 (defcustom media/mplayer/args nil
25   "List of arguments for mplayer."
26   :type 'list
27   :group 'media)
28
29 (defcustom media/mplayer/timing-request-period 0.25
30   "Period for the timing requests in second(s). Larger values
31 load Emacs less. Nil means no timing."
32   :type 'float
33   :group 'media)
34
35 (defcustom media/mplayer/capture-dir nil
36   "States where to save the dumped streams."
37   :type 'string
38   :group 'media)
39
40 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
41
42 ;; It is impossible to tell mplayer to send information every time dt
43 ;; or so, hence this mess with a timer to avoid overloading emacs with
44 ;; the processing of the information
45
46 (defvar media/mplayer/timer nil
47   "A timer to request the timing position.")
48
49 (defun media/mplayer/timing-request ()
50   (if media/mplayer/process
51       (unless media/mplayer/paused
52         (media/mplayer/write "get_time_pos\n")
53         )
54     (media/mplayer/stop-timing-requests)
55     ))
56
57 (defun media/mplayer/start-timing-requests ()
58   (when media/mplayer/timing-request-period
59     (media/mplayer/stop-timing-requests)
60     (setq media/mplayer/timer
61           (run-at-time nil
62                        media/mplayer/timing-request-period
63                        'media/mplayer/timing-request))
64     )
65   )
66
67 (defun media/mplayer/stop-timing-requests ()
68   (when media/mplayer/timer
69     (cancel-timer media/mplayer/timer)
70     (setq media/mplayer/timer nil)
71     ))
72
73 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
74
75 (setq media/mplayer/protocol-regexp
76       "^\\(AUDIO:\\|Exiting...\\|Starting\\|ANS_LENGTH\\|ANS_TIME_POSITION\\|Cache fill:\\|ICY Info:\\) *\\(.*\\)$")
77
78 (defun media/mplayer/filter-subfunctions (cmd param)
79   ;; (unless (string= cmd "A:")
80   ;; (message "cmd=%s param=%s" cmd param)
81   ;; )
82   (eval
83    (cons 'progn
84          (cdr
85           (assoc cmd
86
87                  '(
88                    ("ICY Info:"
89                     ;; (message "ICY Info \"%s\"" param)
90
91                     (if (string-match "StreamTitle='\\([^;]*\\)';" param)
92
93                         (setq media/current-song-in-stream
94                               (let ((s (match-string 1 param)))
95                                 (concat (if (string= s "")
96                                             "<no title>"
97                                           (encode-coding-string s 'latin-1)
98                                           ;; s
99                                           )
100                                         " | "
101                                         (format-time-string "%a %b %d %H:%M:%S")
102                                         )
103                                 )
104                               )
105
106                       ;; If we did not parse it properly, reset the
107                       ;; song name, and display the ICY string raw
108                       (setq media/current-song-in-stream nil)
109                       (message "ICY Info \"%s\"" param)
110                       )
111
112                     (when media/mplayer/capture-dir
113                       (let ((coding-system-for-write 'raw-text-unix))
114                         (with-temp-buffer
115                           (insert
116                            (concat media/current-song-in-stream "\n"))
117                           (write-region nil nil (concat media/mplayer/capture-dir "/log") t))))
118
119                     (if (and media/current-song-in-stream media/current-information)
120                         (media/show-current-information))
121                     )
122
123                    ;; ----------------------------------------
124
125                    ("ANS_LENGTH"
126
127                     (setq media/song-duration
128                           (string-to-number (substring param 1))))
129
130                    ;; ----------------------------------------
131
132                    ("ANS_TIME_POSITION"
133
134                     (setq media/song-current-time
135                           (string-to-number (substring param 1)))
136
137                     (when (and media/duration-to-history
138                                (< media/mplayer/cumulated-duration media/duration-to-history))
139
140                       (when media/mplayer/last-current-time
141                         (setq media/mplayer/cumulated-duration
142                               (+ media/mplayer/cumulated-duration
143                                  (- media/song-current-time media/mplayer/last-current-time))))
144
145                       (when (>= media/mplayer/cumulated-duration media/duration-to-history)
146                         (media/put-in-history)
147                         )
148
149                       (setq media/mplayer/last-current-time media/song-current-time)
150                       )
151                     )
152
153                    ;; ----------------------------------------
154
155                    ("AUDIO:"
156
157                     ;; param = "44100 Hz, 2 ch, s16le, 128.0 kbit/9.07% (ratio: 16000->176400)"
158                     (when (string-match "^\\([0-9]+\\) Hz, \\([0-9]+\\) ch.* \\([0-9.]+\\) kbit"
159                                         param)
160                       (setq media/current-information
161                             (list media/mplayer/url
162                                   (string-to-number (match-string 1 param))
163                                   (string-to-number (match-string 2 param))
164                                   (string-to-number (match-string 3 param))))
165                       )
166                     (run-hooks 'media/play-hook)
167                     )
168
169                    ;; ----------------------------------------
170
171                    ("Starting"
172                     (media/mplayer/write "get_time_length\n")
173                     (when media/mplayer/capture-dir
174                       (media/mplayer/write "capturing\n")
175                       ;; (message "Capturing stream in %s" media/mplayer/capture-dir)
176                       )
177                     )
178
179                    ;; ----------------------------------------
180
181                    ("Cache fill:"
182                     (when (string-match "(\\([0-9]+\\) bytes" param)
183                       (message "Caching stream (%dkb)"
184                                (/ (string-to-number (match-string 1 param)) 1024))))
185
186                    ;; ----------------------------------------
187
188                    ("Exiting..."
189                     (setq media/mplayer/exit-type
190                           (cdr (assoc param '(("(End of file)" . file-finished)
191                                               ("(Quit)" . quit))))
192                           media/current-information nil
193                           media/song-duration nil
194                           media/song-current-time nil)
195
196                     (when media/mplayer/process (kill-process media/mplayer/process))
197
198                     (force-mode-line-update)
199                     )
200
201                    ;; ----------------------------------------
202
203                    )
204                  )
205           )
206          )
207    )
208   )
209
210 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
211
212 (defun media/mplayer/filter (process str)
213   (setq media/mplayer/buffer (concat media/mplayer/buffer str))
214   (let ((start 0))
215     (while (and (< start (length media/mplayer/buffer))
216                 (string-match "\\(.*\\)[\n\r]+" media/mplayer/buffer start))
217       (setq start (1+ (match-end 1)))
218       (let ((line (match-string 1 media/mplayer/buffer)))
219         (when (string-match media/mplayer/protocol-regexp line)
220           (media/mplayer/filter-subfunctions (match-string 1 line) (match-string 2 line))))
221       )
222     (setq media/mplayer/buffer (substring media/mplayer/buffer start)))
223   )
224
225 (defun media/mplayer/sentinel (process str) ()
226   ;; (message "Media process got \"%s\"" (replace-regexp-in-string "\n" "" str))
227   (unless (eq (process-status media/mplayer/process) 'run)
228     (setq media/current-information nil
229           media/mplayer/process nil
230           media/song-current-time nil
231           media/song-duration nil)
232
233     (media/mplayer/stop-timing-requests)
234
235     (if (eq media/mplayer/exit-type 'file-finished)
236         (run-hooks 'media/finished-hook)
237       (run-hooks 'media/error-hook))
238
239     (force-mode-line-update))
240   )
241
242 (defun media/mplayer/write (&rest l)
243   ;;   (message "****** WROTE \"%s\"" (replace-regexp-in-string "\n" "[RETURN]" (apply 'format l)))
244   (if media/mplayer/process (process-send-string media/mplayer/process (apply 'format l))
245     (error "No mplayer process"))
246   )
247
248 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
249 ;; Player control abstract layer ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
250 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
251
252 (defun media/api/init () "Called once when the media application starts"
253   (setq media/player-id "MPlayer"
254         media/mplayer/url nil
255         media/mplayer/buffer "" ;; Used as read buffer
256         media/mplayer/process nil
257         media/mplayer/exit-type nil
258         media/mplayer/paused nil
259         media/song-duration nil
260         media/song-current-time nil
261         media/mplayer/cumulated-duration 0
262         media/mplayer/last-current-time nil
263         )
264 )
265
266 (defun media/api/cleanup () "Called when killing the application's buffer"
267   (when media/mplayer/process
268     (delete-process media/mplayer/process)
269     (media/mplayer/stop-timing-requests)
270     (setq media/mplayer/process nil)))
271
272 (defun media/api/play (url) (interactive)
273   (setq media/mplayer/url url)
274
275   (when media/mplayer/process (kill-process media/mplayer/process))
276
277   ;; (if media/mplayer/process
278   ;; (media/mplayer/write (concat "loadfile "
279   ;; (replace-regexp-in-string "^file://" "" media/mplayer/url)
280   ;; "\n"))
281
282   (setq media/mplayer/process
283         (apply
284          'start-process
285          (append
286           '("mplayer" nil "mplayer" "-slave" "-quiet")
287           media/mplayer/args
288           (when (string-match  "\\(asx\\|m3u\\|pls\\|ram\\)$" media/mplayer/url)
289             (if media/mplayer/capture-dir
290                 (list "-dumpfile"
291                       (concat media/mplayer/capture-dir
292                               "/"
293                               (replace-regexp-in-string "[^a-zA-Z0-9\.]" "_" media/mplayer/url)
294                               (format-time-string "-%Y-%m-%d-%H:%M:%S"))
295                       "-capture"
296                       "-playlist"
297                       )
298               (list "-playlist"))
299             )
300           (list (replace-regexp-in-string "^file://" "" media/mplayer/url)))
301          )
302         media/mplayer/exit-type 'unknown
303         media/mplayer/paused nil
304         media/song-duration nil
305         media/song-current-time nil
306         media/mplayer/cumulated-duration 0
307         media/mplayer/last-current-time nil
308         )
309
310   (set-process-filter media/mplayer/process 'media/mplayer/filter)
311   (set-process-sentinel media/mplayer/process 'media/mplayer/sentinel)
312   (process-kill-without-query media/mplayer/process)
313   (media/mplayer/start-timing-requests)
314   (media/mplayer/write "get_time_pos\n")
315   )
316
317 (defun media/api/stop () (interactive)
318   (media/mplayer/write "quit\n")
319   )
320
321 (defun media/api/pause () (interactive)
322   (media/mplayer/write "pause\n")
323   (setq media/mplayer/paused (not media/mplayer/paused))
324   )
325
326 (defun media/api/set-volume (mode value) (interactive)
327   (if (eq mode 'absolute)
328       (media/mplayer/write "volume %s 1\n" value)
329     (if (>= value 0)
330         (media/mplayer/write "volume +%s\n" value)
331       (media/mplayer/write "volume %s\n" value))))
332
333 (defun media/api/jump-at-percent (percent) (interactive)
334   (setq media/song-current-time nil)
335   (when (< media/mplayer/cumulated-duration media/duration-to-history)
336     (setq media/mplayer/cumulated-duration 0
337           media/mplayer/last-current-time nil))
338   (media/mplayer/write "seek %s 1\n" percent)
339   (media/mplayer/write "get_time_pos\n")
340   )
341
342 (defun media/api/jump-at-time (mode time) (interactive)
343   (setq media/song-current-time nil)
344   (when (< media/mplayer/cumulated-duration media/duration-to-history)
345     (setq media/mplayer/cumulated-duration 0
346           media/mplayer/last-current-time nil))
347   (if (eq mode 'absolute)
348       (media/mplayer/write "seek %s 2\n" time)
349     (media/mplayer/write "seek %s 0\n" time))
350   (media/mplayer/write "get_time_pos\n")
351   )
352
353 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;