X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=iphoto-util.el;h=06c24774cac3dcc02e09fe666dd6889a741ad7ff;hb=e44bf2ba41538b012c322ea13852c46db19c1394;hp=4a53fc82eda67863fe12426e1140cd4b44187206;hpb=57a47969405605770ae8bf1587347a439b6eed64;p=elisp%2Falbum.git

diff --git a/iphoto-util.el b/iphoto-util.el
index 4a53fc8..06c2477 100644
--- a/iphoto-util.el
+++ b/iphoto-util.el
@@ -17,23 +17,35 @@
 ;;         (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
-		  "-x" (expand-file-name image-file))
+    (call-process "exiftime" nil t nil
+		  (expand-file-name image-file))
     (goto-char (point-min))
     (if (re-search-forward
-	 "<Date_and_Time__original_>\\([^<>]+\\)</Date_and_Time__original_>"
+	 "^Image Generated: "
 	 nil t)
-	(match-string 1))))
+	(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))
@@ -78,9 +90,9 @@
 		     (< (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)))
@@ -118,12 +130,46 @@
 		      (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))
@@ -140,10 +186,18 @@
       (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
@@ -168,21 +222,34 @@
 		      (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"