Re: [emms-help] Filter recently added

[Jim Burton]

At Fri, 21 Mar 2008 14:43:14 +0000,
Jim Burton wrote:
> 
> ... My non-existent
> elisp skills are holding me back (which I intend to do something about
> some time soon!).
> 

After typing that I thought I should just get on with it so have had a
go at my first elisp functions. It doesn't seem to work though -- there are 
lots of files selected
which shouldn't be there (they are older than 7 days). But if I supply
a file name to jb:mod-time-lt it gives the right answer...any other
comments (i.e. conventions to follow, are there built-ins that do this etc) are 
very welcome, unless that's OT. 

(defun jb:secs-as-days (s)
  (/ (/ (/ s 60) 60) 24))
(defun jb:mod-time (attr)
  (car (cdr (cdr (cdr (cdr (cdr attr)))))))
(defun jb:mod-time-lt (d f)
  (> d (jb:secs-as-days (- (float-time) 
                           (float-time (jb:mod-time (file-attributes f)))))))
(defun jb:track-name (track)
  (cdr (car (cdr (cdr track))))) 

(emms-browser-make-filter "recently-added"
      (lambda (track)
       (jb:mod-time-lt 7 (jb:track-name track))))

> Thanks,
> 
> Jim
> 
> 
> _______________________________________________
> Emms-help mailing list
> address@hidden
> http://lists.gnu.org/mailman/listinfo/emms-help