Autoexportar Org a formato HTML

[neverkas]

El script que habíamos implementado ya NO estaría funcionando correctamente

   (defun toggle-html-export-on-save ()
     "Enable or disable export HTML when saving current buffer."
     (interactive)
     (when (not (eq major-mode 'org-mode))
       (error "Not an org-mode file!"))
     (if (memq 'org-html-export-to-html after-save-hook)
         (progn (remove-hook 'after-save-hook 'org-html-export-to-html t)
                (message "Disabled org html export on save"))
       (add-hook 'after-save-hook 'org-html-export-to-html nil t)
       (set-buffer-modified-p t)
       (message "Enabled org html export on save")))

   (toggle-html-export-on-save)

[neverkas]

Previamente "tratamos" otra alternativa que hemos deprecado por el momento

   ;; Deprecado
   ;; exportaba todo en vez de solo el que se modificaba
   (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 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

[neverkas]

Evaluar posibilidad de deprecar feature, y delegar en ox-pandoc.. Chequear si vale la pena agregarlo como objetivo en un futuro Makefile

Referencias:

1. https://github.com/kawabata/ox-pandoc

[neverkas]

Se decidió seguir sólo por pandoc en vez de ox-pandoc

https://github.com/neverkas/manu-docs/issues/25