Not sure where the latter came from (except that it's the Common Lisp
function for doing this job), but it doesn't work on a freshly started
instance.
(duration-string (cdr (assq 'Time mpc-status)))
(time-string (cdr (assq 'time mpc-status)))
(time (and time-string
- (parse-integer
+ (string-to-number
(if (string-match ":" time-string)
(substring time-string
0 (match-beginning 0))
(time-string)))))
(duration (and duration-string
- (parse-integer duration-string)))
+ (string-to-number duration-string)))
(pos (and time duration
(format " [%d:%02d/%d:%02d]"
(/ time 60) (mod time 60)