12 lines
424 B
EmacsLisp
12 lines
424 B
EmacsLisp
;; -*- lexical-binding: t; -*-
|
|
(defun unix-time-to-string (epoch-seconds &optional format-string)
|
|
"Converts an epoch timestamp into a human-readable string."
|
|
(interactive "nUnix timestamp: ")
|
|
(let* ((format-string (or format-string "%FT%T%z"))
|
|
(formatted (format-time-string format-string epoch-seconds)))
|
|
(if (called-interactively-p)
|
|
(message formatted)
|
|
formatted)))
|
|
|
|
(provide 'init-utils)
|