erc-discuss
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Erc-discuss] Date format in messages


From: Andreas Schwab
Subject: [Erc-discuss] Date format in messages
Date: Tue, 01 Aug 2006 15:43:54 +0200
User-agent: Gnus/5.110006 (No Gnus v0.6) Emacs/22.0.50 (gnu/linux)

Currently erc-backend uses a mix of different formats to display the date
in various messages.  IMHO it should always use the unambigous %Y-%m-%d
format.

Andreas.

2006-08-01  Andreas Schwab  <address@hidden>

        * erc-backend.el (TOPIC, 317, 329, 333): Use %Y-%m-%d for
        formatting the date.

--- orig/erc-backend.el
+++ mod/erc-backend.el
@@ -1287,7 +1287,7 @@
   nil nil
   (let* ((ch (first (erc-response.command-args parsed)))
          (topic (erc-trim-string (erc-response.contents parsed)))
-         (time (format-time-string "%T %m/%d/%y" (current-time))))
+         (time (format-time-string "%T %Y-%m-%d" (current-time))))
     (multiple-value-bind (nick login host)
         (erc-parse-user (erc-response.sender parsed))
       (erc-update-channel-member ch nick nick nil nil nil host login)
@@ -1457,7 +1457,7 @@
   (multiple-value-bind (nick seconds-idle on-since time)
       (cdr (erc-response.command-args parsed))
     (setq time (when on-since
-                 (format-time-string "%T %Y/%m/%d"
+                 (format-time-string "%T %Y-%m-%d"
                                      (erc-string-to-emacs-time on-since))))
     (erc-update-user-nick nick nick nil nil nil
                           (and time (format "on since %s" time)))
@@ -1515,7 +1515,7 @@
                (third (erc-response.command-args parsed)))))
     (erc-display-message
      parsed 'notice (erc-get-buffer channel proc)
-     's329 ?c channel ?t (format-time-string "%A %Y/%m/%d %X" time))))
+     's329 ?c channel ?t (format-time-string "%A %Y-%m-%d %X" time))))
 
 (define-erc-response-handler (330)
   nil nil
@@ -1554,7 +1554,7 @@
   nil nil
   (multiple-value-bind (channel nick time)
       (cdr (erc-response.command-args parsed))
-    (setq time (format-time-string "%T %Y/%m/%d"
+    (setq time (format-time-string "%T %Y-%m-%d"
                                    (erc-string-to-emacs-time time)))
     (erc-update-channel-topic channel
                               (format "\C-o (%s, %s)" nick time)

-- 
Andreas Schwab, SuSE Labs, address@hidden
SuSE Linux Products GmbH, Maxfeldstraße 5, 90409 Nürnberg, Germany
PGP key fingerprint = 58CA 54C7 6D53 942B 1756  01D3 44D5 214B 8276 4ED5
"And now for something completely different."




reply via email to

[Prev in Thread] Current Thread [Next in Thread]