Photo Index

Página desactivada.

(setq source-dir "~/public_html/img/")
(shell-command (concat "rm " source-dir "thumb.*"))

(let ((img-file-list  (directory-files source-dir () "\\.\\(jpg\\|JPG\\|png\\|gif\\)$")))
  (while img-file-list
    (shell-command (format "convert -geometry %sx%s %s %s" 100 100 (concat source-dir (car img-file-list))
                           (concat source-dir "thumb." (car img-file-list))))
    (insert "<literal>")
    (insert "<a href=\""(concat "./img/" (car img-file-list))"\">"
     "<img class=\"photo-album\" src=\"" (concat "./img/" "thumb." (car img-file-list))  "\"></a>\n")
    (insert "</literal>")
    (setq img-file-list (cdr img-file-list))))

Created: NaN

Last updated: 16-02-2026 [16:02]

For attribution, please cite this page as:

Charters, T., "Photo Index": https://nexp.pt/img.html (16-02-2026 [16:02])

(cc-by-sa) Tiago Charters - tiagocharters@nexp.pt