(www-page-display-image): Argument `pivot-mode' accepts string.
authortomo <tomo>
Wed, 24 Mar 2010 16:29:30 +0000 (16:29 +0000)
committertomo <tomo>
Wed, 24 Mar 2010 16:29:30 +0000 (16:29 +0000)
(www-page-batch-get): Use `VGA' as the default value of "size".

www-page.el

index 2c50727..0b29a41 100644 (file)
@@ -468,6 +468,8 @@ Powered by MnjAlbum WWW-Page Version %s." www-page-version))
     ))
 
 (defun www-page-display-image (file &optional size image-root pivot-mode)
+  (if (stringp pivot-mode)
+      (setq pivot-mode (intern pivot-mode)))
   (setq file (expand-file-name file image-root))
   (when (file-exists-p file)
     (let (file-dir file-name
@@ -484,7 +486,7 @@ Powered by MnjAlbum WWW-Page Version %s." www-page-version))
        (setq file-dir (file-name-directory file)
              file-name (file-name-nondirectory file))
        (setq size-opt
-             (or (when (and pivot-mode
+             (or (when (and (eq pivot-mode t)
                             (> width height))
                    (with-temp-buffer
                      (call-process "identify" nil t nil file)
@@ -581,7 +583,8 @@ Powered by MnjAlbum WWW-Page Version %s." www-page-version))
                (null (file-name-extension target)))
            'dir)))
     ;; (setq file (car (cdr (assoc "file" params))))
-    (setq size (car (cdr (assoc "size" params))))
+    (setq size (or (car (cdr (assoc "size" params)))
+                  'VGA))
     (setq pivot-mode t)
     (if (setq ret (cdr (assoc "p" params)))
        (setq pivot-mode (car ret)))