~brettgilio/org-webring

4f664496aca5c52999e4e5edcb909ac78ecc8487 — Brett Gilio 23 days ago 02bd3c8
Modify formatting on org-webring--date->time function.
1 files changed, 10 insertions(+), 10 deletions(-)

M org-webring.el
M org-webring.el => org-webring.el +10 -10
@@ 223,21 223,21 @@ end. Taken from the s.el library."

(defun org-webring--date->time (date &optional atom-p)
  "Convert DATE string to a time value.

Rudimentary support for parsing ISO-8601 time strings is used
when ATOM-P is non-nil and the function `iso8601-parse' (which
was introduced in Emacs 27) isn't available."
  (apply 'encode-time
	 (parse-time-string
	  (cond ((fboundp #'iso8601-parse)
		 date)
		(atom-p
		 (concat
		  (mapconcat #'identity
			     (split-string (substring date 0 19) "T")
			     " ")
		  " +0000"))
		(t
		 date)))))
	  (cond ((fboundp #'iso8601-parse) date)
		(atom-p (concat
			 (mapconcat #'identity
				    ;; TODO: Eventually replace hard-coded string
				    ;; index values with something more elegant.
				    (split-string (substring date 0 19) "T")
				    " ")
			 " +0000"))
		(t date)))))

(defun org-webring--pub-time (item)
  "Get ITEM's publication time."