From 351f65eae98859e59e751c7eed8ef4d20b5e9817 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?tr=C3=A9meur?= Date: Thu, 24 Mar 2022 11:25:30 +0000 Subject: [PATCH] Add dw draft function --- custom/dwpost.el | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) diff --git a/custom/dwpost.el b/custom/dwpost.el index faeeba6..9470c03 100644 --- a/custom/dwpost.el +++ b/custom/dwpost.el @@ -1,3 +1,29 @@ +(defun dwdraft () + (interactive) + (let ((org-export-with-author 'nil) + (org-export-with-creator 'nil) + (org-export-with-date 'nil) + (org-export-with-section-numbers 'nil) + (org-export-time-stamp-file 'nil) + (org-export-with-toc 'nil) + (org-html-validation-link 'nil)) + (org-html-export-to-html)) + (defvar oldname (concat (file-name-base) ".org")) + (defvar newname (concat (file-name-base) ".html")) + (find-file-noselect newname) + (with-current-buffer newname + (goto-line 1) + (delete-region (line-beginning-position) (line-end-position)) + (goto-line 2) + (delete-region (line-beginning-position) (line-end-position)) + (goto-line 3) + (delete-region (line-beginning-position) (line-end-position)) + (write-file newname) + (kill-ring-save (point-min) (point-max))) + (kill-buffer newname) + (with-current-buffer oldname + (delete-file newname))) + (defun dwpost (psubject tags icon) (interactive "MPost title (REQUIRED): \nMTags (comma-separated): \nMIcon: ") (let ((org-export-with-author 'nil)