From f411787e513aec449ef87c8e0c6292eb5428dd50 Mon Sep 17 00:00:00 2001 From: Artur Malabarba Date: Sat, 8 Nov 2014 20:11:59 +0000 Subject: Add date formatting to sx-time --- sx-time.el | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) (limited to 'sx-time.el') diff --git a/sx-time.el b/sx-time.el index 1cea76f..b1a8f80 100644 --- a/sx-time.el +++ b/sx-time.el @@ -50,5 +50,27 @@ (concat (format "%.0f" (/ delay (car (cddr here)))) (cadr here))))))) +(defcustom sx-time-date-format-year "%H:%M %e %b %Y" + "Format used for dates on a past year. +See also `sx-time-date-format'." + :type 'string + :group 'sx-time) + +(defcustom sx-time-date-format "%H:%M - %d %b" + "Format used for dates on this year. +See also `sx-time-date-format-year'." + :type 'string + :group 'sx-time) + +(defun sx-time-seconds-to-date (seconds) + "Return the integer SECONDS as a date string." + (let ((time (seconds-to-time seconds))) + (format-time-string + (if (string= (format-time-string "%Y") + (format-time-string "%Y" time)) + sx-time-date-format + sx-time-date-format-year) + time))) + (provide 'sx-time) ;;; sx-time.el ends here -- cgit v1.2.3