From 36357c391c09fa2590f99db4695644cb23b006b5 Mon Sep 17 00:00:00 2001 From: Michael Olson Date: Sat, 1 Apr 2006 19:33:00 +0000 Subject: Remove emms-pbi*.el at forcer's request. darcs-hash:20060401193306-1bfb2-0e64e29a1c75efe182c6e77f2bd17327cd209b73.gz --- emms-pbi-filter.el | 66 ------------------------------------------------------ 1 file changed, 66 deletions(-) delete mode 100644 emms-pbi-filter.el (limited to 'emms-pbi-filter.el') diff --git a/emms-pbi-filter.el b/emms-pbi-filter.el deleted file mode 100644 index 0d29822..0000000 --- a/emms-pbi-filter.el +++ /dev/null @@ -1,66 +0,0 @@ -;;; emms-pbi-filter.el --- Filtering functions for the PBI - -;; Copyright (C) 2004, 2005, 2006 Free Software Foundation, Inc. - -;; Author: Ulrik Jensen -;; Keywords: - -;; 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: - -;; This file provides a way to filter the playlist to only show -;; certain parts of a big playlist, and only play after those. - -;;; Code: - -(require 'emms-pbi) - -(defvar emms-pbi-not-filtered nil - "A list of trackindexes in `emms-playlist' that aren't filtered -out.") - -(defun emms-pbi-filter-region (beg end) - "Hide the lines spanning the region from BEG to END." - (interactive "r") - (save-excursion - (set-buffer emms-pbi-playlist-buffer-name) - (goto-char beg) - (let ((startofregion (point-at-bol))) - (goto-char end) - (let ((endofregion (point-at-eol))) - (let ((hideoverlay (make-overlay startofregion endofregion)) - (newlineoverlay (make-overlay (- startofregion 1) startofregion)) - (intangibleoverlay (make-overlay (- startofregion 1) (+ endofregion 1)))) - (overlay-put newlineoverlay 'after-string "\n") - (overlay-put newlineoverlay 'invisible t) - (overlay-put newlineoverlay 'emms-id 'emms-pbi-filter-overlay) - (overlay-put intangibleoverlay 'intangible t) - (overlay-put intangibleoverlay 'emms-id 'emms-pbi-filter-overlay) - (overlay-put hideoverlay 'emms-id 'emms-pbi-filter-overlay) - (overlay-put hideoverlay 'invisible t)))))) - -(defun emms-pbi-unfilter-region (beg end) - "Show all hidden lines between BEG and END." - (interactive "r") - (let ((overlays (overlays-in beg end))) - (while overlays - (when (equal (overlay-get (car overlays) 'emms-id) 'emms-pbi-filter-overlay) - (delete-overlay (car overlays))) - (setq overlays (cdr overlays))))) - -(provide 'emms-pbi-filter) -;;; emms-pbi-filter.el ends here -- cgit v1.2.3