Export org document for Noir webserver

gistfile1.el

(defun my-org-html-export ()
  "Export an org document to a .html file, without the preamble,
postamble and css. Also make sure the image path is compatible with Noir."
  (interactive)
  (let ((exported-html-file (concat (file-name-sans-extension (buffer-file-name)) ".html"))
	(exported-html (org-export-as-html 3 nil nil 'string 'body-only)))
    (with-temp-file exported-html-file
	 (insert exported-html)
	 (goto-char (point-min))
	 (replace-string "./" "/"))))