X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=www-page.el;h=d06d497a3a26ff84d2b2e2370ddbd4ceaade39b9;hb=887eb63ca7a5981c0dadf60c6a17fee51d2303cd;hp=02d6a1d81913372b04eb4e95028a265c56f1f3af;hpb=701a61ea41cc45f4b0ff68957d5a82d25f7f4689;p=elisp%2Falbum.git diff --git a/www-page.el b/www-page.el index 02d6a1d..d06d497 100644 --- a/www-page.el +++ b/www-page.el @@ -27,6 +27,8 @@ ;;; Code: +(defconst www-page-version "0.3") + (defvar www-page-coding-system (if (featurep 'chise) 'utf-8-jp-er @@ -67,20 +69,22 @@ (concat dest (substring string i)) coding-system)))) +(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-display-dir (url-dir &optional size image-root lang title parent-url hide-cgi) (setq url-dir (file-name-as-directory url-dir)) (princ "Content-Type: text/html; charset=UTF-8 ") - (let* ((desc-file - (expand-file-name "dir.desc" - (expand-file-name url-dir image-root))) - (params - (with-temp-buffer - (when (file-exists-p desc-file) - (insert-file-contents desc-file) - (read (current-buffer))))) + (let* ((params (www-page-open-dir url-dir image-root)) source-images ref-images file i ref-file prev-file next-file file-desc note) @@ -115,10 +119,19 @@ (insert "\n") (insert "
\n") (insert (format "