-;; -*-Emacs-Lisp-*-
+;; -*- mode: emacs-lisp -*-
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; This program is free software; you can redistribute it and/or ;;
:group 'media)
(defcustom media/playlist-at-top nil
- "Should the playlists be created at the top of the media buffer ?"
+ "Should the playlists be created at the top of the media buffer?"
:type 'bool
:group 'media)
(defcustom media/add-current-song-to-interrupted-when-killing nil
- "Should we save the current song with time in the Interrupted playlist ?"
+ "Should we save the current song with time in the Interrupted playlist?"
:type 'bool
:group 'media)
(defcustom media/do-not-remove-nonexisting-entries nil
- "Should we remove the entries corresponding to a non-existing file when saving the playlists ?"
+ "Should we remove the entries corresponding to a non-existing file when saving the playlists?"
:type 'bool
:group 'media)
:group 'media)
(defcustom media/continue-mode nil
- "Should the player start the next song in the buffer when the current terminates ?"
+ "Should the player start the next song in the buffer when the current terminates?"
:type 'boolean
:group 'media)
(defcustom media/expert nil
- "Should the keymap help be shown ?"
+ "Should the keymap help be shown?"
:type 'boolean
:group 'media)
" "
(or title (media/format-url url))
(if time (propertize
- (concat " ->" (media/duration-to-string time))
- ;; (concat " [@ " (media/duration-to-string time) "]")
+ (concat " @" (media/duration-to-string time))
'face 'media/timestamp-face
))
"\n"
(unless (condition-case nil
(media/save-playlists)
- (error (not (y-or-n-p "Can not save the playlists. Still kill the media buffer ? "))))
+ (error (not (y-or-n-p "Can not save the playlists. Still kill the media buffer? "))))
(kill-buffer media/buffer))
)