+(defun iphoto-make-image-file-name (file &optional base-time)
+ (let (ret
+ file-time file-year file-month file-day file-hour file-min file-sec)
+ (setq file-time
+ (split-string
+ (exif-image-file-date-time-original file)
+ " "))
+ (setq ret (split-string (car file-time) ":"))
+ (setq file-year (string-to-int (car ret))
+ file-month (string-to-int (nth 1 ret))
+ file-day (string-to-int (nth 2 ret)))
+ (setq ret (split-string (nth 1 file-time) ":"))
+ (setq file-hour (string-to-int (car ret))
+ file-min (string-to-int (nth 1 ret))
+ file-sec (string-to-int (nth 2 ret)))
+ (when base-time
+ (setq file-time
+ (encode-time file-sec file-min file-hour
+ file-day file-month file-year))
+ (setq file-hour
+ (/ (- (+ (lsh (- (car file-time) (car base-time)) 16)
+ (nth 1 file-time))
+ (nth 1 base-time))
+ 3600)))
+ ;; (format "%02d%02d%s"
+ ;; file-hour file-min
+ ;; (file-name-nondirectory file))
+ (format "%02d%02d%02d%s"
+ file-hour file-min file-sec
+ (file-name-nondirectory file))
+ ))
+