Para exportar archivos .org a html

exportar-org-files.el

   (defun exportar-archivo (f)
     (save-excursion (find-file f) (org-html-export-to-html f)
   ))

   (defun exportar-archivos (dir)
     (mapc 'exportar-archivo (directory-files dir t ".org$")
    ))

   ;(exportar-archivos "~/Documentos/git/manu-docs/testing/src/")
   (exportar-archivos default-directory)

   ; find-file - opens a file in a buffer (this is what is run when you type C-x C-f)
   ; mapc: aplica una función a cada elemento de una lista
   ; directory-files: obtiene todos los archivos y carpetas de un directorio