You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
41 lines
2.2 KiB
41 lines
2.2 KiB
(in-package :nea/ircd)
|
|
|
|
(defparameter *ircv3-server-time-format*
|
|
`((:year 4) #\- (:month 2) #\- (:day 2) #\T (:hour 2) #\: (:min 2) #\: (:sec 2) #\. (:msec 3) #\Z)
|
|
;; <value> ::= YYYY-MM-DDThh:mm:ss.sssZ
|
|
"IRCv3 server-time extension time format.")
|
|
(defparameter *human-time-format*
|
|
'((:hour 2) #\: (:min 2) #\: (:sec 2) #\Z)
|
|
"Human-friendly relative time format.")
|
|
(defparameter *human-date-and-time-format*
|
|
'((:year 4) #\- (:month 2) #\- (:day 2) #\Space (:hour 2) #\: (:min 2) #\: (:sec 2) #\Z)
|
|
"Human-friendly date and time format.")
|
|
(defparameter *significant-time-difference-seconds* 5
|
|
"Number of seconds under which message timestamp differences are ignored when printing them to humans.")
|
|
|
|
(defun simple-date->local-time (ts)
|
|
"Converts a SIMPLE-DATE timestamp to a LOCAL-TIME timestamp."
|
|
(multiple-value-bind (year month day hour minute sec msec)
|
|
(simple-date:decode-timestamp ts)
|
|
(local-time:encode-timestamp (* msec (expt 10 6)) sec minute hour day month year)))
|
|
|
|
(defun timestamp-to-v3-server-time (ts)
|
|
"Converts TS (a LOCAL-TIME timestamp) to an IRCv3 server-time string."
|
|
(local-time:format-timestring nil ts :format *ircv3-server-time-format*))
|
|
|
|
(defun timestamp-to-human-time-prefix (ts)
|
|
"Converts TS (a LOCAL-TIME timestamp) to a string representing that timestamp, relative to the current timestamp right now. Returns NIL if there's no significant time difference.
|
|
For example, a message sent an hour ago might only show the time, whereas a message sent yesterday would include the date component as well."
|
|
(let ((now (local-time:clock-now t)))
|
|
(local-time:format-timestring
|
|
nil ts
|
|
:format (if (and (eql (local-time:day-of ts) (local-time:day-of now))
|
|
(eql (local-time:timestamp-year ts) (local-time:timestamp-year now)))
|
|
(if (<= (- (local-time:timestamp-to-unix now)
|
|
(local-time:timestamp-to-unix ts))
|
|
*significant-time-difference-seconds*)
|
|
(return-from timestamp-to-human-time-prefix nil)
|
|
*human-time-format*)
|
|
*human-date-and-time-format*))))
|
|
|
|
(setf local-time:*default-timezone* local-time:+utc-zone+)
|