Re: Postscript print buffer with ISO date?

[Kevin Rodgers]

Eric Marsden wrote:

> > > > > > "stm" == Svend Tollak Munkejord <stm@bacchus.pvv.org> writes:
>
>   ecm> (require 'cl)
>   ecm> (defun my-iso8601-date () (format-time-string "%Y-%d-%d"))
>   ecm> (eval-after-load "ps-print"
>   ecm>    (setf (second ps-print-header) 'my-iso8601-date))
>
>   stm> (defun ps-time-stamp-iso ()
>   stm> "Return date as \"2003-02-20\"."
>   stm> (format-time-string "%Y-%m-%d"))
>   stm> (setq ps-right-header '("/pagenumberstring load" ps-time-stamp-iso 
> ps-time-stamp-hh:mm:ss))
>   stm> 
>   stm> Is your solution preferable?
...
> An other point is that neither solution will work well if the default
> contents of the ps-right-header variable change in the future.

How about

(setcar (memq 'time-stamp-mon-dd-yyyy ps-right-header) 'ps-time-stamp-iso)

--
<a href="mailto:&lt;kevin.rodgers&#64;ihs.com&gt;";>Kevin Rodgers</a>