17 lines
551 B
EmacsLisp
17 lines
551 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)))
|
|
|
|
(defun display-ansi-colors ()
|
|
(interactive)
|
|
(require 'ansi-color)
|
|
(ansi-color-apply-on-region (point-min) (point-max)))
|
|
|
|
(provide 'init-utils)
|