+(defun www-page-open-dir (url-dir &optional image-root)
+ (let* ((path (expand-file-name url-dir image-root))
+ (desc-file (expand-file-name "dir.desc" path)))
+ (cons (cons 'location path)
+ (with-temp-buffer
+ (when (file-exists-p desc-file)
+ (insert-file-contents desc-file)
+ (read (current-buffer)))))))
+
+(defun www-page-directory-image-files (url-dir image-root)
+ (let (source-images)
+ (dolist (file (directory-files (expand-file-name url-dir image-root)
+ nil "\\.\\(jpg\\|JPG\\)$" nil t))
+ (unless (string-match "_[^_]+GA[^_]*$"
+ (file-name-sans-extension file))
+ (setq source-images (cons file source-images))))
+ (nreverse source-images)))
+