Script em ELisp para fotos

Já há muito tempo que andava para fazer este script em ELisp...

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.

Palavras chave/keywords: Lisp, Emacs, fotografias, html

Criado/Created: NaN

Última actualização/Last updated: 10-10-2022 [14:25]

Voltar à página inicial.