Script em ELisp para fotos

Já há muito tempo que andava para fazer este script em ELisp para gerar uma lista de imagens em html.

(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" 200 200 (concat source-dir (car img-file-list))
                           (concat source-dir "thumb." (car img-file-list))))
    (insert "<literal>")
    (insert "<a href=\""(concat "./photos/" (car img-file-list))"\">"
     "<img class=\"photo-album\" src=\"" (concat "./photos/" "thumb." (car img-file-list))  "\"></a>\n")
    (insert "</literal>")
    (setq img-file-list (cdr img-file-list))))

Claro que pode ser bastante melhorado, mas para começo não está mal.

Created: NaN

Last updated: 24-03-2026 [22:44]

For attribution, please cite this page as:

Charters, T., "Script em ELisp para fotos": https://nexp.pt/fotos.html (24-03-2026 [22:44])

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