From 0629935734a1ee35d4657ea862b8ca5205f7198e Mon Sep 17 00:00:00 2001 From: Joe Wreschnig Date: Sun, 30 Jul 2017 15:47:36 +0200 Subject: [PATCH] =?utf8?q?Handle=20reST/Markdown=20title=20differences=20i?= =?utf8?q?n=20`pelican-set-field=E2=80=99.?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Add `pelican-remove-field’ helper function. --- pelican-mode.el | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) diff --git a/pelican-mode.el b/pelican-mode.el index 2fa86e1..fc9de9b 100644 --- a/pelican-mode.el +++ b/pelican-mode.el @@ -125,12 +125,18 @@ the unquoted printed representation of it is used: (interactive "sField: \nsValue: ") (save-excursion (goto-char 0) + (when (and (derived-mode-p 'rst-mode) + (re-search-forward "^#" nil t)) + (forward-line 2)) (if (re-search-forward (concat "^" (pelican-field field ".+*")) nil t) (replace-match (pelican-field field value)) - (re-search-forward "#") - (forward-line 2) - (re-search-forward "^$") - (replace-match (pelican-field field value))))) + (when value + (re-search-forward "^$") + (replace-match (pelican-field field value)))))) + +(defun pelican-remove-field (field) + "Remove FIELD." + (pelican-set-field field nil)) (defun pelican-set-title (title) "Set the title to TITLE." -- 2.20.1