browser/cache: support deleting files, make emms-cache-dirty a defsubst

darcs-hash:20060922090553-4e3e3-e2dda4ec007268376de845784060dd2af083c2a0.gz

1 files changed, 7 insertions, 1 deletions

diff --git a/emms-cache.el b/emms-cache.el
index 5abd697..9908038 100644
--- a/emms-cache.el
+++ b/emms-cache.el
@@ -104,7 +104,7 @@ This is used to cache over emacs sessions.")
       (emms-cache-disable)
     (emms-cache-enable)))
 
-(defun emms-cache-dirty (&rest ignored)
+(defsubst emms-cache-dirty (&rest ignored)
   "Mark the cache as dirty."
   (setq emms-cache-dirty t))
 
@@ -112,11 +112,17 @@ This is used to cache over emacs sessions.")
   "Return a cache element for PATH, or nil."
   (gethash path emms-cache-db))
 
+;; Note we ignore TYPE, as it's stored in TRACK
 (defun emms-cache-set (type path track)
   "Set PATH to TRACK in the cache."
   (puthash path track emms-cache-db)
   (emms-cache-dirty))
 
+(defun emms-cache-del (path)
+  "Remove a track from the cache, with key PATH."
+  (remhash path emms-cache-db)
+  (emms-cache-dirty))
+
 (defun emms-cache-save ()
   "Save the track cache to a file."
   (interactive)