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

Última actualização/Last updated: 2014-02-20 [14:37]


1999-2014 (ç) Tiago Charters de Azevedo

São permitidas cópias textuais parciais/integrais em qualquer meio com/sem alterações desde que se mantenha este aviso.

Verbatim copying and redistribution of this entire page are permitted provided this notice is preserved.