From MAILER-DAEMON Mon Dec 01 22:06:28 2003 Received: from list by monty-python.gnu.org with archive (Exim 4.24) id 1AR0Qc-0002WI-UO for mharc-emms-help@gnu.org; Mon, 01 Dec 2003 21:38:18 -0500 Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.24) id 1AQzzj-0006rz-7e for emms-help@gnu.org; Mon, 01 Dec 2003 21:10:31 -0500 Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.24) id 1AQw25-0000VC-UU for emms-help@gnu.org; Mon, 01 Dec 2003 16:57:13 -0500 Received: from [213.191.73.62] (helo=webmail.hansenet.de) by monty-python.gnu.org with esmtp (Exim 4.24) id 1AQvyv-00004q-No for emms-help@gnu.org; Mon, 01 Dec 2003 16:53:25 -0500 Received: from sarg.kollektiv-hamburg.de (62.109.99.52) by webmail.hansenet.de (6.7.015) (authenticated as jorgen.schaefer@hanse.net) id 3FAB7DE600250676 for emms-help@gnu.org; Mon, 1 Dec 2003 21:51:55 +0100 Received: from forcix.kollektiv-hamburg.de (forcix.kollektiv-hamburg.de [192.168.1.40]) by sarg.kollektiv-hamburg.de (Postfix) with ESMTP id 0D1291B409F for ; Mon, 1 Dec 2003 21:51:53 +0100 (CET) Received: from forcer by forcix.kollektiv-hamburg.de with local (Exim 3.36 #1 (Debian)) id 1AQv1M-0000bv-00 for ; Mon, 01 Dec 2003 21:51:52 +0100 To: emms-help@gnu.org From: Jorgen Schaefer Mail-Followup-To: emms-help@gnu.org Date: Mon, 01 Dec 2003 21:51:52 +0100 Message-ID: User-Agent: Gnus/5.1002 (Gnus v5.10.2) Emacs/21.3 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain; charset=us-ascii Subject: [Emms-help] Little change in CVS that affects config files X-BeenThere: emms-help@gnu.org X-Mailman-Version: 2.1.2 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Tue, 02 Dec 2003 02:38:17 -0000 Hi! I just revamped emms-321, and renamed it to emms-player-simple in the process. You will have to adjust your config accordingly :] Greetings, -- Jorgen P.S. It does support mplayer now ;) -- ((email . "forcer@forcix.cx") (www . "http://www.forcix.cx/") (gpg . "1024D/028AF63C") (irc . "nick forcer on IRCnet")) From MAILER-DAEMON Wed Dec 03 14:46:04 2003 Received: from list by monty-python.gnu.org with archive (Exim 4.24) id 1ARcwl-0007iC-Oa for mharc-emms-help@gnu.org; Wed, 03 Dec 2003 14:46:03 -0500 Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.24) id 1ARcwi-0007ge-01 for emms-help@gnu.org; Wed, 03 Dec 2003 14:46:00 -0500 Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.24) id 1ARcw5-0007Xk-LP for emms-help@gnu.org; Wed, 03 Dec 2003 14:45:52 -0500 Received: from [213.191.73.62] (helo=webmail.hansenet.de) by monty-python.gnu.org with esmtp (Exim 4.24) id 1ARcw5-0007WN-4o for emms-help@gnu.org; Wed, 03 Dec 2003 14:45:21 -0500 Received: from sarg.kollektiv-hamburg.de (213.39.173.131) by webmail.hansenet.de (6.7.015) (authenticated as jorgen.schaefer@hanse.net) id 3FAB7DE60028B433 for emms-help@gnu.org; Wed, 3 Dec 2003 19:43:50 +0100 Received: from forcix.kollektiv-hamburg.de (forcix.kollektiv-hamburg.de [192.168.1.40]) by sarg.kollektiv-hamburg.de (Postfix) with ESMTP id E8B5F1B40A5 for ; Wed, 3 Dec 2003 19:43:48 +0100 (CET) Received: from forcer by forcix.kollektiv-hamburg.de with local (Exim 3.36 #1 (Debian)) id 1ARbyW-0000Z0-00 for ; Wed, 03 Dec 2003 19:43:48 +0100 To: emms-help@gnu.org From: Jorgen Schaefer Mail-Followup-To: emms-help@gnu.org Date: Wed, 03 Dec 2003 19:43:48 +0100 Message-ID: User-Agent: Gnus/5.1002 (Gnus v5.10.2) Emacs/21.3 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain; charset=us-ascii Subject: [Emms-help] emms.el, change to emms-stop X-BeenThere: emms-help@gnu.org X-Mailman-Version: 2.1.2 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Wed, 03 Dec 2003 19:46:01 -0000 | date: 2003/12/03 09:57:52; author: kanaldrache; state: Exp; lines: +14 -8 | emms-stop do nothing when there is no playlist Why add this check? Does it break when the playlist is empty? Greetings, -- Jorgen -- ((email . "forcer@forcix.cx") (www . "http://www.forcix.cx/") (gpg . "1024D/028AF63C") (irc . "nick forcer on IRCnet")) From MAILER-DAEMON Wed Dec 03 19:02:51 2003 Received: from list by monty-python.gnu.org with archive (Exim 4.24) id 1ARgwX-0008FC-Ud for mharc-emms-help@gnu.org; Wed, 03 Dec 2003 19:02:05 -0500 Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.24) id 1ARgvs-0007ze-L0 for emms-help@gnu.org; Wed, 03 Dec 2003 19:01:24 -0500 Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.24) id 1ARguH-0007ce-J0 for emms-help@gnu.org; Wed, 03 Dec 2003 19:00:16 -0500 Received: from [213.165.64.20] (helo=mail.gmx.net) by monty-python.gnu.org with smtp (Exim 4.24) id 1ARguB-0007aI-Jp for emms-help@gnu.org; Wed, 03 Dec 2003 18:59:39 -0500 Received: (qmail 8442 invoked by uid 65534); 3 Dec 2003 22:58:11 -0000 Received: from xdsl-213-196-251-55.netcologne.de (EHLO fangorn) (213.196.251.55) by mail.gmx.net (mp026) with SMTP; 03 Dec 2003 23:58:11 +0100 X-Authenticated: #2357892 To: emms-help@gnu.org Subject: Re: [Emms-help] emms.el, change to emms-stop References: From: =?iso-8859-1?q?Mario_Domg=F6rgen?= Date: Wed, 03 Dec 2003 23:59:05 +0100 In-Reply-To: (Jorgen Schaefer's message of "Wed, 03 Dec 2003 19:43:48 +0100") Message-ID: <87vfoxo6di.fsf@gmx.de> User-Agent: Gnus/5.1002 (Gnus v5.10.2) Emacs/21.3.50 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-BeenThere: emms-help@gnu.org X-Mailman-Version: 2.1.2 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Thu, 04 Dec 2003 00:02:00 -0000 Jorgen Schaefer writes: > | date: 2003/12/03 09:57:52; author: kanaldrache; state: Exp; lines: > | +14 -8 emms-stop do nothing when there is no playlist > > Why add this check? Does it break when the playlist is empty? Actually ... yes ... :) emms-playlist-get-current-filename fails... Mario -- You step in the stream, but the water has moved on. This page is not here. From MAILER-DAEMON Sat Dec 06 15:01:36 2003 Received: from list by monty-python.gnu.org with archive (Exim 4.24) id 1ASicS-0008FG-Ax for mharc-emms-help@gnu.org; Sat, 06 Dec 2003 15:01:36 -0500 Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.24) id 1ASicK-0008Db-OW for emms-help@gnu.org; Sat, 06 Dec 2003 15:01:28 -0500 Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.24) id 1ASibo-00081e-Aj for emms-help@gnu.org; Sat, 06 Dec 2003 15:01:27 -0500 Received: from [213.165.64.20] (helo=mail.gmx.net) by monty-python.gnu.org with smtp (Exim 4.24) id 1ASibm-000809-UJ for emms-help@gnu.org; Sat, 06 Dec 2003 15:00:55 -0500 Received: (qmail 25851 invoked by uid 65534); 6 Dec 2003 18:59:15 -0000 Received: from xdsl-213-196-221-173.netcologne.de (EHLO fangorn) (213.196.221.173) by mail.gmx.net (mp011) with SMTP; 06 Dec 2003 19:59:15 +0100 X-Authenticated: #2357892 To: emms-help@gnu.org From: =?iso-8859-1?q?Mario_Domg=F6rgen?= Date: Sat, 06 Dec 2003 20:00:12 +0100 Message-ID: <87he0d93gj.fsf@gmx.de> User-Agent: Gnus/5.1002 (Gnus v5.10.2) Emacs/21.3.50 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain; charset=us-ascii Subject: [Emms-help] diff for emms-pbi.el Rev:1.6 X-BeenThere: emms-help@gnu.org X-Mailman-Version: 2.1.2 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Sat, 06 Dec 2003 20:01:30 -0000 Hej dev-team! Here's a new patch for pbi solving some problems with linenumbering, killing and propertize (by removing them :)) and nameless other things... :) I bet there are some broken parts but i don't have more time to test it as i go to a party tonight and don't want to hide that piece of code... Mario *** emms-pbi.el.~1.6.~ Wed Dec 3 14:31:11 2003 --- emms-pbi.el Sat Dec 6 19:56:44 2003 *************** *** 76,82 **** :group 'emms :prefix "emms-pbi-") ! (defcustom emms-pbi-playlist-entry-generate-function 'emms-pbi-generate-entry "*The function to call for generating a single item of the playlist. This will be called with a string argument FILENAME, and should return the text to be inserted in the playlist." --- 76,82 ---- :group 'emms :prefix "emms-pbi-") ! (defcustom emms-pbi-playlist-entry-generate-function 'identity "*The function to call for generating a single item of the playlist. This will be called with a string argument FILENAME, and should return the text to be inserted in the playlist." *************** *** 158,163 **** --- 158,165 ---- the entire playlist-buffer, a good idea is to bind `emms-pbi-suspend-hooks' to t when you set `emms-playlist'.") + (defvar emms-current-overlay nil) + ;; Entry points (defun emms-pbi (arg) "Turn on emms-playlist if prefix argument ARG is a positive integer, *************** *** 165,173 **** (interactive "p") (if (and arg (> arg 0)) (progn ! (add-hook 'emms-player-stop-hook 'emms-pbi-remove-current-face) ! (add-hook 'emms-player-start-hook 'emms-pbi-add-current-face) ! ;; (add-hook 'emms-playlist-current-changed-hook 'emms-pbi-update-current-face) (add-hook 'emms-playlist-changed-hook 'emms-pbi-rebuild-playlist-buffer) ;; build the playlist, if we're playing (when emms-player-playing-p --- 167,173 ---- (interactive "p") (if (and arg (> arg 0)) (progn ! (add-hook 'emms-player-start-hook 'emms-pbi-update-current-face) (add-hook 'emms-playlist-changed-hook 'emms-pbi-rebuild-playlist-buffer) ;; build the playlist, if we're playing (when emms-player-playing-p *************** *** 191,211 **** ;; find the filename entry in the playlist (save-excursion (set-buffer (get-buffer emms-pbi-playlist-buffer-name)) ! (let ((linepoint (text-property-any (point-min) (point-max) 'file filename))) (when linepoint (goto-char linepoint) (let ((inhibit-read-only t)) ;; update the text of it - by generating it again simply ;; first, find the index of the entry in the playlist. ;; and save the current properties ! (let ((idx (get-text-property (point) 'playlist-index)) ! (props (text-properties-at (point)))) (delete-region (point-at-bol) (point-at-eol)) ! (emms-pbi-insert-entry (emms-playlist-get-filename idx) idx) ! ;; insert the properties again ! (set-text-properties (point-at-bol) (point-at-eol) props) ;; and update them ! (emms-pbi-add-properties-current-line filename idx))))))) (defun emms-pbi-rebuild-playlist-buffer () --- 191,210 ---- ;; find the filename entry in the playlist (save-excursion (set-buffer (get-buffer emms-pbi-playlist-buffer-name)) ! (let ((linepoint (text-property-any (point-min) (point-max) ! 'file filename))) (when linepoint (goto-char linepoint) (let ((inhibit-read-only t)) ;; update the text of it - by generating it again simply ;; first, find the index of the entry in the playlist. ;; and save the current properties ! (let ((idx (1- (count-lines (point-min) (line-end-position))))) (delete-region (point-at-bol) (point-at-eol)) ! (emms-pbi-insert-entry idx) ;; and update them ! ;;That don't work FIXME ! (emms-pbi-add-properties-current-line))))))) (defun emms-pbi-rebuild-playlist-buffer () *************** *** 232,269 **** (funcall emms-pbi-async-alternative-text-function (emms-playlist-get-filename idx))))) ;; just insert the tag like normal ! (emms-pbi-insert-entry (emms-playlist-get-filename idx) idx)) ! (emms-pbi-add-properties-current-line (emms-playlist-get-filename idx) idx) (insert "\n") (setq idx (1+ idx))) ;; Initialise the buffer variables ;; remove the last line (emms-pbi-update-current-face) (delete-backward-char 1) (setq buffer-read-only t) (emms-pbi-mode) (when (and (featurep 'emms-info) emms-pbi-load-info-async) ! (emms-info-get-multiple 'emms-pbi-entry-info-updated (append emms-playlist nil))) ;; as the last thing we do, update the current-face. (when emms-player-playing-p (emms-pbi-update-current-face))))) - (defun emms-pbi-current-linenumber-string () - "Return the linenumber-string for the current line" - (let ((linenum (number-to-string (1+ (count-lines (point-min) (point))))) - (digits (length (number-to-string (length emms-playlist))))) - (while (< (length linenum) digits) - (setq linenum (concat " " linenum))) - linenum)) ! (defun emms-pbi-insert-entry (filename idx) "Insert an entry in the playlist" (let ((inhibit-read-only t)) (insert (emms-pbi-shorten-entry-to-max-length (funcall emms-pbi-playlist-entry-generate-function (emms-playlist-get idx)))) ! (emms-pbi-add-properties-current-line filename idx))) (defun emms-pbi-generate-entry (entry) "Generate a playlist-entry" (if (not emms-pbi-linenumbers) --- 231,299 ---- (funcall emms-pbi-async-alternative-text-function (emms-playlist-get-filename idx))))) ;; just insert the tag like normal ! (emms-pbi-insert-entry idx)) ! (emms-pbi-add-properties-current-line) (insert "\n") (setq idx (1+ idx))) ;; Initialise the buffer variables ;; remove the last line (emms-pbi-update-current-face) (delete-backward-char 1) + (emms-numerotate-line) (setq buffer-read-only t) (emms-pbi-mode) (when (and (featurep 'emms-info) emms-pbi-load-info-async) ! (emms-info-get-multiple 'emms-pbi-entry-info-updated ! (append emms-playlist nil))) ;; as the last thing we do, update the current-face. (when emms-player-playing-p (emms-pbi-update-current-face))))) ! ;; The next two funcs should be made faster by letting ! ;;them just work on point to point-max ! ! (defun emms-numerotate-line () ! (interactive) ! (when emms-pbi-linenumbers ! (save-excursion ! (let ((max (count-lines (point-min)(point-max))) ! (inhibit-read-only t) ! (line 1) ! (formatstring (concat "%" ! (number-to-string ! (length (number-to-string ! (length emms-playlist)))) ! "s. "))) ! (goto-char (point-min)) ! (while (<= line max) ! (insert (format formatstring (propertize ! (number-to-string line) ! 'face 'emms-pbi-linenumber-face))) ! (beginning-of-line 2) ! (setq line (+ line 1))))))) ! ! (defun emms-delete-linenumbers () ! (interactive) ! (let ((inhibit-read-only t)) ! (when emms-pbi-linenumbers ! (save-excursion ! (delete-extract-rectangle (point-min) ! (progn ! (goto-char (point-max)) ! (re-search-backward "^[ ]*[0-9]+\\. " nil) ! (match-end 0))))))) ! ! (defun emms-pbi-insert-entry (idx) "Insert an entry in the playlist" (let ((inhibit-read-only t)) (insert (emms-pbi-shorten-entry-to-max-length (funcall emms-pbi-playlist-entry-generate-function (emms-playlist-get idx)))) ! (emms-pbi-add-properties-current-line))) ! + ;; not in use (defun emms-pbi-generate-entry (entry) "Generate a playlist-entry" (if (not emms-pbi-linenumbers) *************** *** 280,348 **** ;; Updating the currently playing face (defun emms-pbi-update-current-face () "Updates the file line with the current-face" - (when (get-buffer emms-pbi-playlist-buffer-name) - (emms-pbi-remove-current-face) - (emms-pbi-add-current-face))) - - ;; Handling faces & properties - (defun emms-pbi-add-properties-current-line (&optional filename idx) - "Adds the correct faces and other properties to the current line" - ;; Default face, filename and playlist index - (let ((filename (or filename (get-text-property (point-at-bol) 'file))) - (idx (or idx (get-text-property (point-at-bol) 'playlist-index)))) - (add-text-properties (point-at-bol) (point-at-eol) - `(face emms-pbi-song-face - file ,filename - playlist-index ,idx)) - (when emms-pbi-linenumbers - (let* ((line (buffer-substring (point-at-bol) (point-at-eol))) - (pos (string-match "^[ ]*[0-9]+\\. " line))) - (when pos - ;; set the face of the linenumbers as well. - (put-text-property (+ (point-at-bol) pos) - (+ (point-at-bol) pos (length (match-string 0 line))) - 'face 'emms-pbi-linenumber-face)))) - (run-hooks 'emms-pbi-current-line-face-changed-hook))) - - ;; Updating the currently playing face - (defun emms-pbi-update-current-face () - "Updates the file line with the current-face" - (emms-pbi-remove-current-face) - (emms-pbi-add-current-face)) - - (defun emms-pbi-add-current-face () - "Add `emms-pbi-current-face' to the appropriate line in the - playlist-buffer." (save-excursion (set-buffer (get-buffer-create emms-pbi-playlist-buffer-name)) (let ((inhibit-read-only t)) (goto-line (1+ emms-playlist-current)) ! (put-text-property (point-at-bol) (point-at-eol) 'face 'emms-pbi-current-face) ! (run-hooks 'emms-pbi-current-line-face-changed-hook)))) ! ! (defun emms-pbi-remove-current-face () ! "Remove `emms-pbi-current-face' from the appropriate line in the ! playlist-buffer." ! (save-excursion ! (set-buffer (get-buffer emms-pbi-playlist-buffer-name)) ! (let ((np (text-property-any (point-min) (point-max) 'face 'emms-pbi-current-face)) ! (inhibit-read-only t)) ! (when np ! (goto-char np) ! (let ((filename (get-text-property (point) 'file)) ! (index (get-text-property (point) 'playlist-index))) ! (remove-text-properties (point-at-bol) (point-at-eol) '(face)) ! (emms-pbi-add-properties-current-line filename index)))))) ! (defun emms-pbi-play-current-line () "Play the current line" (interactive) ! (let ((new-idx (get-text-property (point-at-bol) 'playlist-index))) ;; check boundaries (when (and new-idx (> new-idx -1) (< new-idx (length emms-playlist))) (emms-stop) - ;; stop-hooks don't get called when it's issued by me - (emms-pbi-remove-current-face) (emms-playlist-set-current new-idx) (emms-play)))) --- 310,340 ---- ;; Updating the currently playing face (defun emms-pbi-update-current-face () "Updates the file line with the current-face" (save-excursion (set-buffer (get-buffer-create emms-pbi-playlist-buffer-name)) (let ((inhibit-read-only t)) (goto-line (1+ emms-playlist-current)) ! (if (overlayp emms-current-overlay) ! (move-overlay emms-current-overlay (line-beginning-position) (line-end-position)) ! (setq emms-current-overlay ! (make-overlay (line-beginning-position) (line-end-position))) ! (overlay-put emms-current-overlay 'face 'emms-pbi-current-face))))) ! ! ;;Handling faces & properties ! (defun emms-pbi-add-properties-current-line () ! "Adds the correct faces and other properties to the current line" ! ;; Default face, filename and playlist index ! (add-text-properties (point-at-bol) (point-at-eol) ! `(face emms-pbi-song-face)) ! (run-hooks 'emms-pbi-current-line-face-changed-hook)) ! (defun emms-pbi-play-current-line () "Play the current line" (interactive) ! (let ((new-idx (1- (count-lines (point-min) (line-end-position))))) ;; check boundaries (when (and new-idx (> new-idx -1) (< new-idx (length emms-playlist))) (emms-stop) (emms-playlist-set-current new-idx) (emms-play)))) *************** *** 410,440 **** (kill-buffer emms-pbi-playlist-buffer-name))) ) - (defun emms-pbi-check-linenumbers (beg end) - "Check and if necessary correct the linenumbers of the lines from - \(including\) the line with the point BEG on it, to \(also including\) the - line with the point END on it." - (when emms-pbi-linenumbers - ;; do some stuff here - (save-excursion - (goto-char beg) - (let ((curline (1+ (count-lines (point-min) (point-at-eol))))) - (while (< (point-at-eol) end) - ;; check this line - (let ((line (buffer-substring (point-at-bol) (point-at-eol)))) - (when (string-match "^[ ]*\\([0-9]+\\)\\. " line) - (let ((linenum (match-string 1 line))) - ;; if this is correct - do nothing.. - (unless (= (string-to-number linenum) curline) - (replace-match (string-to-number linenum) t t line 1) - ;; insert this again - (delete-region (point-at-bol) (point-at-eol)) - (insert line) - (emms-pbi-add-properties-current-line))))) - ;; proceed - (setq curline (1+ curline)) - (forward-line 1)))))) - ;; Killing and yanking (defun emms-pbi-kill-line () "Kill the current line from the playlist. --- 402,407 ---- *************** *** 442,471 **** Send the filename to the `kill-ring'. Make sure hooks that regenerate the entire playlist aren't run." (interactive) ! (let ((filename (get-text-property (point-at-bol) 'file)) ! (idx (get-text-property (point-at-bol) 'playlist-index)) (inhibit-read-only t)) ! (when filename ! (save-excursion ! (kill-new filename) ! (delete-region (point-at-bol) (point-at-eol)) ! (forward-line 1) ! ;; remove the new line ! (delete-backward-char 1) ! ;; now, delete the entry from the playlist. - making sure that ! ;; the entire list isn't regenerated ! (let ((emms-pbi-suspend-hooks t)) ! (emms-playlist-set (vconcat (subseq emms-playlist 0 idx) (subseq emms-playlist (1+ idx))))) ! ;; update the linenumbers so everything is still correct ! (forward-line -1) ! (emms-pbi-check-linenumbers (point-at-bol) (point-max)))))) (defun emms-pbi-yank () "Yank a filename from `kill-ring' into the playlist." (interactive) (let ((filename (current-kill 0)) (curplaylist emms-playlist) ! (idx (get-text-property (point-at-bol) 'playlist-index))) (when (and (file-exists-p filename) (emms-player-for filename)) ;; only insert files that actually exist, and can be played. ;; insert it into the buffer --- 409,438 ---- Send the filename to the `kill-ring'. Make sure hooks that regenerate the entire playlist aren't run." (interactive) ! (let ((idx (1- (count-lines (point-min) (line-end-position)))) (inhibit-read-only t)) ! (save-excursion ! (when emms-pbi-linenumbers (emms-delete-linenumbers)) ! (kill-new (aref emms-playlist idx)) ! (delete-region (point-at-bol) (point-at-eol)) ! (forward-line 1) ! ;; remove the new line ! (delete-backward-char 1) ! ;; now, delete the entry from the playlist. - making sure that ! ;; the entire list isn't regenerated ! (let ((emms-pbi-suspend-hooks t)) ! (emms-playlist-set (vconcat (subseq emms-playlist 0 idx) (subseq emms-playlist (1+ idx))))) ! ;; update the linenumbers so everything is still correct ! (when emms-pbi-linenumbers (emms-numerotate-line)) ! (forward-line -1)))) ! (defun emms-pbi-yank () "Yank a filename from `kill-ring' into the playlist." (interactive) (let ((filename (current-kill 0)) (curplaylist emms-playlist) ! (idx (1- (count-lines (point-min) (line-end-position))))) (when (and (file-exists-p filename) (emms-player-for filename)) ;; only insert files that actually exist, and can be played. ;; insert it into the buffer *************** *** 475,488 **** (insert "\n") (forward-line -1) (goto-char (point-at-bol)) ! (emms-pbi-insert-entry filename idx))) ;; insert it into the playlist (let ((emms-pbi-suspend-hooks t)) (emms-playlist-set (vconcat (subseq emms-playlist 0 idx) (list filename) (subseq emms-playlist idx)))) ;; update the linenumbers so everything is still correct ! (emms-pbi-check-linenumbers (point-at-bol) (point-at-eol))))) (defun emms-pbi-recenter () "Center on current playing track" --- 442,455 ---- (insert "\n") (forward-line -1) (goto-char (point-at-bol)) ! (emms-pbi-insert-entry idx))) ;; insert it into the playlist (let ((emms-pbi-suspend-hooks t)) (emms-playlist-set (vconcat (subseq emms-playlist 0 idx) (list filename) (subseq emms-playlist idx)))) ;; update the linenumbers so everything is still correct ! ))) (defun emms-pbi-recenter () "Center on current playing track" -- Windoze not found: (C)heer, (P)arty or (D)ance? From MAILER-DAEMON Thu Dec 18 20:00:16 2003 Received: from list by monty-python.gnu.org with archive (Exim 4.24) id 1AX903-0004iV-ET for mharc-emms-help@gnu.org; Thu, 18 Dec 2003 20:00:15 -0500 Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.24) id 1AWwYv-0004KE-T1 for emms-help@gnu.org; Thu, 18 Dec 2003 06:43:25 -0500 Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.24) id 1AWwTw-0003yZ-LF for emms-help@gnu.org; Thu, 18 Dec 2003 06:38:47 -0500 Received: from [193.252.22.26] (helo=mwinf0501.wanadoo.fr) by monty-python.gnu.org with esmtp (Exim 4.24) id 1AWwTe-0003uO-Bl for emms-help@gnu.org; Thu, 18 Dec 2003 06:37:58 -0500 Received: from nerv.evangelion.wanadoo.fr (ALyon-110-1-29-28.w81-53.abo.wanadoo.fr [81.53.223.28]) by mwinf0501.wanadoo.fr (SMTP Server) with ESMTP id 7666C4000B4 for ; Thu, 18 Dec 2003 11:36:18 +0100 (CET) To: emms-help From: Lucas Organization: EMMS Date: Thu, 18 Dec 2003 11:36:16 +0100 Message-ID: <87zndqjtun.fsf@nerv.evangelion> User-Agent: Gnus/5.1003 (Gnus v5.10.3) Emacs/21.3.50 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Mailman-Approved-At: Thu, 18 Dec 2003 20:00:13 -0500 Subject: [Emms-help] Test X-BeenThere: emms-help@gnu.org X-Mailman-Version: 2.1.2 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Thu, 18 Dec 2003 11:43:27 -0000 Faites pas attention, je regarde -- Lucas From MAILER-DAEMON Sun Dec 21 12:20:25 2003 Received: from list by monty-python.gnu.org with archive (Exim 4.24) id 1AY7Fh-0007GF-2S for mharc-emms-help@gnu.org; Sun, 21 Dec 2003 12:20:25 -0500 Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.24) id 1AY7Fe-0007Fy-Nu for emms-help@gnu.org; Sun, 21 Dec 2003 12:20:22 -0500 Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.24) id 1AY7F8-00079G-0G for emms-help@gnu.org; Sun, 21 Dec 2003 12:20:21 -0500 Received: from [213.191.73.62] (helo=webmail.hansenet.de) by monty-python.gnu.org with esmtp (Exim 4.24) id 1AY7F7-00070z-EN for emms-help@gnu.org; Sun, 21 Dec 2003 12:19:49 -0500 Received: from sarg.kollektiv-hamburg.de (213.39.196.185) by webmail.hansenet.de (6.7.015) (authenticated as jorgen.schaefer@hanse.net) id 3FDEB948000B46AD for emms-help@gnu.org; Sun, 21 Dec 2003 17:17:42 +0100 Received: from forcix.kollektiv-hamburg.de (forcix.kollektiv-hamburg.de [192.168.1.40]) by sarg.kollektiv-hamburg.de (Postfix) with ESMTP id A28F11B4017 for ; Sun, 21 Dec 2003 17:17:26 +0100 (CET) Received: from forcer by forcix.kollektiv-hamburg.de with local (Exim 3.36 #1 (Debian)) id 1AY6Gj-0000wH-00 for ; Sun, 21 Dec 2003 17:17:25 +0100 To: emms-help@gnu.org From: Jorgen Schaefer Mail-Followup-To: emms-help@gnu.org Date: Sun, 21 Dec 2003 17:17:25 +0100 Message-ID: User-Agent: Gnus/5.1002 (Gnus v5.10.2) Emacs/21.3 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain; charset=us-ascii Subject: [emms-help] CVS X-BeenThere: emms-help@gnu.org X-Mailman-Version: 2.1.2 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Sun, 21 Dec 2003 17:20:23 -0000 Hi there! There's no CVS yet. I have the files from Lukhas' CVS server, so I set up a local CVS repository here so I can work on emms. If you have patches, please send them (and the associated changelog!) to this list. I'll try to put an updated version of EMMS on http://www.kollektiv-hamburg.de/~forcer/emms.tar.gz from time to time. Poke me to get this done faster ;) When Savannah comes back up, I will submit the new files with the complete changelog since savannah went down there. Afterwards, I'll announce this to this list so we can all start from nice new and fresh copies. HTH, -- Jorgen -- ((email . "forcer@forcix.cx") (www . "http://www.forcix.cx/") (gpg . "1024D/028AF63C") (irc . "nick forcer on IRCnet")) From MAILER-DAEMON Mon Dec 22 09:18:13 2003 Received: from list by monty-python.gnu.org with archive (Exim 4.24) id 1AYQsu-0005XS-Oz for mharc-emms-help@gnu.org; Mon, 22 Dec 2003 09:18:12 -0500 Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.24) id 1AYQss-0005WI-Dj for emms-help@gnu.org; Mon, 22 Dec 2003 09:18:10 -0500 Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.24) id 1AYQsK-0005Ft-TG for emms-help@gnu.org; Mon, 22 Dec 2003 09:18:09 -0500 Received: from [193.252.22.26] (helo=mwinf0503.wanadoo.fr) by monty-python.gnu.org with esmtp (Exim 4.24) id 1AYQsK-0005FJ-Ht for emms-help@gnu.org; Mon, 22 Dec 2003 09:17:36 -0500 Received: from wwinf0502 (wwinf0502 [172.22.136.29]) by mwinf0503.wanadoo.fr (SMTP Server) with ESMTP id D8E1968002C8 for ; Mon, 22 Dec 2003 14:16:08 +0100 (CET) Message-ID: <23873193.1072098968871.JavaMail.www@wwinf0502> From: Lucas BONNET To: emms-help@gnu.org Subject: Re: [emms-help] CVS Mime-Version: 1.0 Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: quoted-printable Date: Mon, 22 Dec 2003 14:16:08 +0100 (CET) X-BeenThere: emms-help@gnu.org X-Mailman-Version: 2.1.2 Precedence: list Reply-To: bonnet.lucas@wanadoo.fr List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Mon, 22 Dec 2003 14:18:11 -0000 > There's no CVS yet. I have the files from Lukhas' CVS server, so I > set up a local CVS repository here so I can work on emms. If you > have patches, please send them (and the associated changelog!) to > this list. I'm sorry for that, i was supposed to stay in Lyon until the 22nd or 23rd, but my parents decided otherwise, and i couldn't really say "no" to a restaurant :) I hope that's not a big charge for you, Savannah should be back the 23rd. Joyeux No=EBl, et Bonne Ann=E9e EMMS-hackers ! From MAILER-DAEMON Tue Dec 23 15:21:17 2003 Received: from list by monty-python.gnu.org with archive (Exim 4.24) id 1AYt1p-0005zh-IL for mharc-emms-help@gnu.org; Tue, 23 Dec 2003 15:21:17 -0500 Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.24) id 1AYt1n-0005yd-4E for emms-help@gnu.org; Tue, 23 Dec 2003 15:21:15 -0500 Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.24) id 1AYt1G-0005kS-Mr for emms-help@gnu.org; Tue, 23 Dec 2003 15:21:13 -0500 Received: from [213.191.73.61] (helo=webmail.hansenet.de) by monty-python.gnu.org with esmtp (Exim 4.24) id 1AYt1F-0005dS-PP for emms-help@gnu.org; Tue, 23 Dec 2003 15:20:41 -0500 Received: from sarg.kollektiv-hamburg.de (213.39.196.185) by webmail.hansenet.de (6.7.015) (authenticated as jorgen.schaefer@hanse.net) id 3FDEB829000E9318 for emms-help@gnu.org; Tue, 23 Dec 2003 20:19:06 +0100 Received: from forcix.kollektiv-hamburg.de (forcix.kollektiv-hamburg.de [192.168.1.40]) by sarg.kollektiv-hamburg.de (Postfix) with ESMTP id 52B8F1B4017 for ; Tue, 23 Dec 2003 20:19:05 +0100 (CET) Received: from forcer by forcix.kollektiv-hamburg.de with local (Exim 3.36 #1 (Debian)) id 1AYs3c-0000IF-00 for ; Tue, 23 Dec 2003 20:19:04 +0100 To: emms-help@gnu.org Subject: Re: [emms-help] CVS In-Reply-To: (Jorgen Schaefer's message of "Sun, 21 Dec 2003 17:17:25 +0100") References: From: Jorgen Schaefer Mail-Followup-To: emms-help@gnu.org Date: Tue, 23 Dec 2003 20:19:04 +0100 Message-ID: User-Agent: Gnus/5.1002 (Gnus v5.10.2) Emacs/21.3 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-BeenThere: emms-help@gnu.org X-Mailman-Version: 2.1.2 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Tue, 23 Dec 2003 20:21:15 -0000 Jorgen Schaefer writes: > Hi there! > There's no CVS yet. This is not true anymore. Savannah is back up - rejoice and praise the golden GNU. > When Savannah comes back up, I will submit the new files with the > complete changelog since savannah went down there. That's what I just did. I renamed emms-test.el to emms-config.el, the name was a bad name to begin with. Happy Hacking. Greetings, -- Jorgen -- ((email . "forcer@forcix.cx") (www . "http://www.forcix.cx/") (gpg . "1024D/028AF63C") (irc . "nick forcer on IRCnet"))