diff --git a/custom/fic.el b/custom/fic.el index 58fb56e..b7bd943 100644 --- a/custom/fic.el +++ b/custom/fic.el @@ -1,6 +1,10 @@ (defun fic-ao3 () (interactive) (org-format) + (save-buffer) + (goto-char (point-min)) + (while (re-search-forward "\\[fn:.*\\]" nil t) + (replace-match "")) (let ((org-export-with-title 'nil) (org-export-with-author 'nil) (org-export-with-creator 'nil) @@ -10,6 +14,7 @@ (org-export-with-toc 'nil) (org-html-validation-link 'nil)) (org-html-export-to-html)) + (revert-buffer t t) (setq oldname (concat (file-name-base) ".org")) (setq newname (concat (file-name-base) ".html")) (find-file-noselect newname) @@ -27,6 +32,9 @@ (while (re-search-forward "" nil t) (replace-match "")) (goto-char (point-min)) + (while (re-search-forward "