livre nom_demonlivre

      (defun org-export-as-html (&optional async)
        (interactive "P")
        (let ((buffer (current-buffer))
          (with-current-buffer buffer
            (let ((title (plist-get (org-inbuffer-options) :title)))
              (org-export-as-html-to-buffer
                (concat (buffer-file-name) ".html")
                (list :title title)
                async)
              (write-file (concat (buffer-file-name) ".html"))))))
)