Re: ISO date in attribution line

[Andreas Fuchs <asf@void.at>]

[-- Attachment #1: Type: text/plain, Size: 1181 bytes --]

Today, Svend Tollak Munkejord <stm@bacchus.pvv.org> wrote:
> On Sat, 25 May 2002, Andreas Fuchs wrote:
>> | (defun anti-tc-simple-attribution ()
[...]
> I use Trivial-cite, and would like to change the date in the
> attribution line to ISO format, like the one you have. Is it
> sc-jk-normalize-date that is the clue?  In that case, could you please
> give a hint as to how (or where) it is defined?

My mistake. I had thought that I had included that defun.

Here it is:
,----
| (defun sc-jk-normalize-date (date)
|   "Extract the date (day month year) from an RFC 822 message
| and write it as year-month-day (ISO 8601)"
|   (let ((date-list (cdr (cdr (cdr (parse-time-string date))))))
|     (let ((day (pop date-list)))
|       (let ((month (pop date-list)))
| 	(let ((year (car date-list)))
| 	  (and 
| 	   year month day 
| 	   (format "%d-%02d-%02d" year month day)))))))
`----

I got that one (and probably modified it pretty much) from a supercite
library written by Jens Klöcker <kloecker@springer.de> in 1999, posted
to this list (sc-jk-headers.el was the filename).

Have fun,
-- 
Andreas Fuchs, <asf@acm.org>, asf@jabber.at, antifuchs

[-- Attachment #2: Type: application/pgp-signature, Size: 188 bytes --]