From 4dfce47d66561680157026878202ec60f81b4cee Mon Sep 17 00:00:00 2001 From: Joe Wreschnig Date: Mon, 7 Aug 2017 13:15:58 +0200 Subject: [PATCH] =?utf8?q?A=20one-sexp=20function=20called=20in=20one=20pl?= =?utf8?q?ace=20isn=E2=80=99t=20needed.?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- pelican-mode.el | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/pelican-mode.el b/pelican-mode.el index 85d2be9..804f288 100644 --- a/pelican-mode.el +++ b/pelican-mode.el @@ -170,7 +170,7 @@ When called from Lisp, VALUE may be any value; except for the following special values, the unquoted printed representation of it is used: -- `now' means the current time; see `pelican-mode-timestamp'. +- `now' means the current time. - `slug' means the file's path relative to the document root sans extension; see `pelican-mode-default-slug'. @@ -181,7 +181,7 @@ The buffer must be in a format listed in `pelican-mode-formats' for this function to work correctly." (interactive "sField: \nsValue: ") (setq value (pcase value - ('now (pelican-mode-timestamp)) + ('now (format-time-string "%Y-%m-%d %H:%M")) ('slug (pelican-mode-default-slug)) ('"" nil) (_ value))) @@ -266,10 +266,6 @@ has no status." -(defun pelican-mode-timestamp (&optional time) - "Generate a pelican-mode-compatible timestamp for TIME." - (format-time-string "%Y-%m-%d %H:%M" time)) - (defun pelican-mode-set-fields (&rest fields) "Insert a Pelican header for an article with metadata FIELDS." (mapc (apply-partially #'apply #'pelican-mode-set-field) -- 2.20.1