;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (require 'time-date) #@45 Auxiliary variable used by `sx-time-since'. (defconst sx-time-seconds-to-string '((100 "s" 1) (6000 "m" 60.0) (108000 "h" 3600.0) (3456000 "d" 86400.0) (31622400 "mo" 2628000.0) (nil "y" 31557600.0)) (#$ . 108)) #@81 Convert the time interval since TIME (in seconds) to a short string. (fn TIME) (defalias 'sx-time-since #[257 "\301 Z\302V\203\303\202\304\302U\203\305\202C\306!\262\307\211A\262\242\211\262@\2034\211@X\204 \310\311AA@\245\"A@P\266\202P\207" [sx-time-seconds-to-string float-time 0 "-" "" "0s" abs nil format "%.0f"] 9 (#$ . 326)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\311&\207" [custom-declare-variable sx-time-date-format-year funcall function #[0 "\300\207" [#1="%H:%M %e %b %Y"] 1 #1#] "Format used for dates on a past year.\nSee also `sx-time-date-format'." :type string :group sx sx-time-date-format #[0 "\300\207" [#2="%H:%M - %d %b"] 1 #2#] "Format used for dates on this year.\nSee also `sx-time-date-format-year'."] 8) #@60 Return the integer SECONDS as a date string. (fn SECONDS) (defalias 'sx-time-seconds-to-date #[257 "\302!\303\211\304!\303\304\"\230\203\202 \"\207" [sx-time-date-format sx-time-date-format-year seconds-to-time format-time-string "%Y"] 7 (#$ . 1147)]) (provide 'sx-time)