Added file extensions.
Sun Mar 21 10:38:04 PDT 2010 Thomas Persson <tompa.persson@gmail.com>
* Added file extensions.
Warning: CRC errors found. These are probably harmless but should be repaired.
See 'darcs gzcrcs --help' for more information.
diff -rN -u old-climplayer/playlist.lisp new-climplayer/playlist.lisp
--- old-climplayer/playlist.lisp 2014-09-18 02:38:20.000000000 -0700
+++ new-climplayer/playlist.lisp 2014-09-18 02:38:20.000000000 -0700
@@ -204,7 +204,7 @@
(defun directoryp (file)
(not (pathname-name file)))
-(defparameter *file-formats* '("ogg" "vob" "mp3" "mp4" "avi" "mpg" "mpeg" "wav" "wmv" "wma" "asf" "qt" "mov" "m4a" "m4v" "rm" "bin" "mkv" "flv" "flac" "ape"))
+(defparameter *file-formats* '("rmvb" "ogg" "ogv" "vob" "mp3" "mp4" "avi" "mpg" "mpeg" "wav" "wmv" "wma" "asf" "qt" "mov" "m4a" "m4v" "rm" "bin" "mkv" "flv" "flac" "ape"))
(defun media-filep (path)
(member (pathname-type path)