From b5a91d87d4933ce50675b253a5853787143bc660 Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Sun, 5 Nov 2023 20:11:17 +1100 Subject: [emacs] A utility function for parsing epoch --- emacs/.emacs.d/lisp/my/my-utils.el | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'emacs/.emacs.d/lisp') diff --git a/emacs/.emacs.d/lisp/my/my-utils.el b/emacs/.emacs.d/lisp/my/my-utils.el index db7e804..c64c9ac 100644 --- a/emacs/.emacs.d/lisp/my/my-utils.el +++ b/emacs/.emacs.d/lisp/my/my-utils.el @@ -45,6 +45,12 @@ (defun my-delete-http-header () (delete-region (point-min) (progn (my-skip-http-header) (point)))) +(defun my-time-from-epoch (t) + "Encode time from epoch T. + +Example: (format-time-string ... (my-time-from-epoch 1698582504))" + (encode-time (decode-time t))) + ;; lists (defun my-list-cycle (xs) "Cycle a list." -- cgit v1.2.3