From: Joe Wreschnig <joe.wreschnig@gmail.com>
Date: Mon, 7 Aug 2017 11:15:58 +0000 (+0200)
Subject: A one-sexp function called in one place isn’t needed.
X-Git-Tag: v20170807~5
X-Git-Url: https://git.korewanetadesu.com/?p=pelican-mode.git;a=commitdiff_plain;h=4dfce47d66561680157026878202ec60f81b4cee

A one-sexp function called in one place isn’t needed.
---

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)