;; (if (re-search-forward "^[ \t]*Timestamp: " nil t)
;; (buffer-substring (match-end 0)(point-at-eol)))))
+;;; for exif 0.6.9
+;; (defun exif-image-file-date-time-original (image-file)
+;; (with-temp-buffer
+;; (call-process "exif" nil t nil
+;; "-t" "DateTimeOriginal"
+;; (expand-file-name image-file))
+;; (goto-char (point-min))
+;; (if (re-search-forward "^[ \t]*Value: " nil t)
+;; (buffer-substring (match-end 0)(point-at-eol)))))
+
+;;; for exif 0.6.15
+;; (defun exif-image-file-date-time-original (image-file)
+;; (with-temp-buffer
+;; (call-process "exif" nil t nil
+;; "-x" (expand-file-name image-file))
+;; (goto-char (point-min))
+;; (if (re-search-forward
+;; "<Date_and_Time__original_>\\([^<>]+\\)</Date_and_Time__original_>"
+;; nil t)
+;; (match-string 1))))
+
+;;; for exiftime Version 1.01
(defun exif-image-file-date-time-original (image-file)
(with-temp-buffer
- (call-process "exif" nil t nil
- "-t" "DateTimeOriginal"
+ (call-process "exiftime" nil t nil
(expand-file-name image-file))
(goto-char (point-min))
- (if (re-search-forward "^[ \t]*Value: " nil t)
+ (if (re-search-forward
+ "^Image Generated: "
+ nil t)
(buffer-substring (match-end 0)(point-at-eol)))))
;; (directory-files
;; "~/Pictures/iPhoto Library/Originals/2006/")
(defun exif-find-image-directories-by-original-date (year month day)
- (let (base-dir date-time date-pat dest ret)
+ (let (base-dir ; date-time
+ date-pat dest ret)
(setq base-dir (format "~/Pictures/iPhoto Library/Modified/%d/" year))
- (setq date-time (encode-time 0 0 0 day month year))
+ ;; (setq date-time (encode-time 0 0 0 day month year))
(setq date-pat (format "^%d:%02d:%02d" year month day))
(dolist (dir (directory-files base-dir))
(when (and (not (string-match "^\\.+$" dir))
(setq dir (expand-file-name dir base-dir))
(file-directory-p dir)
- (setq ret (nth 5 (file-attributes dir)))
- (or (> (car ret)(car date-time))
- (and (= (car ret)(car date-time))
- (>= (nth 1 ret)(nth 1 date-time))))
+ ;; (setq ret (nth 5 (file-attributes dir)))
+ ;; (or (> (car ret)(car date-time))
+ ;; (and (= (car ret)(car date-time))
+ ;; (>= (nth 1 ret)(nth 1 date-time))))
(setq ret
(exif-image-file-date-time-original
(car
(< (nth 1 ret)(nth 1 time-min))))
(setq time-min ret))
(if (or (null time-max)
- (< (car time-min)(car ret))
- (and (= (car time-min)(car ret))
- (< (nth 1 time-min)(nth 1 ret))))
+ (< (car time-max)(car ret))
+ (and (= (car time-max)(car ret))
+ (< (nth 1 time-max)(nth 1 ret))))
(setq time-max ret))
))
(cons time-min time-max)))
(nth 1 time-max)
(nth 0 time-max))))))
+(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))
+ ))
+
(defun iphoto-dir-to-album-dir (year month day album-name
album-dir-root url-root image-url-root
album-url-prefix)
(let ((coding-system-for-write 'utf-8-jp-er)
(album-dir-base (expand-file-name album-name album-dir-root))
- album-dir album-dir-original ret a-dir-n a-dirs)
+ (base-time (encode-time 0 0 0 day month year))
+ album-dir album-dir-original ret a-dir-n a-dirs
+ new-file)
(dolist (dir
(exif-find-image-directories-by-original-date
year month day))
(unless (file-exists-p album-dir)
(make-directory album-dir 'parents))
(dolist (file (directory-files dir 'full nil 'no-sort t))
- (call-process "cp" nil nil nil
- "-al"
+ (call-process "ln" nil nil nil
file
- album-dir))
+ (expand-file-name
+ (iphoto-make-image-file-name file base-time)
+ ;; (format "%02dh%02dm%02ds_%s"
+ ;; file-hour file-min file-sec
+ ;; (file-name-nondirectory file))
+ album-dir))
+ ;; (call-process "ln" nil nil nil
+ ;; file
+ ;; album-dir)
+ )
(with-temp-buffer
(insert ";; -*- mode: emacs-lisp; coding: utf-8-jp-er; -*-\n")
(insert (pp (list
(format "~/Pictures/iPhoto Library/Originals/%d/"
year))
'full nil 'no-sort t))
+ (setq new-file
+ (concat
+ (file-name-sans-extension
+ (iphoto-make-image-file-name
+ (expand-file-name
+ (concat (file-name-sans-extension
+ (file-name-nondirectory file)) ".jpg")
+ dir)))
+ "." (file-name-extension file)))
(cond
((string= (downcase (file-name-extension file)) "jpg")
(unless (file-exists-p album-dir-original)
(make-directory album-dir-original 'parents))
- (call-process "cp" nil nil nil
- "-al"
+ (call-process "ln" nil nil nil
file
- album-dir-original)
- )
+ (expand-file-name new-file album-dir-original))
+ ;; (call-process "ln" nil nil nil
+ ;; file
+ ;; album-dir-original)
+ )
(t
- (call-process "cp" nil nil nil
- "-al"
+ (call-process "ln" nil nil nil
file
- album-dir)
- ))
+ (expand-file-name new-file album-dir))
+ ;; (call-process "ln" nil nil nil
+ ;; file
+ ;; album-dir)
+ ))
)
(call-process "chgrp" nil nil nil
"-R" "www-data"
projects / elisp / album.git / blobdiff