[ hh:mm:ss ] with-string-writer ;
: timestamp>ymdhms ( timestamp -- str )
- [ clone >gmt YYYY-MM-DD " " hh:mm:ss ] with-string-writer ;
+ [ >gmt YYYY-MM-DD " " hh:mm:ss ] with-string-writer ;
: write-gmt-offset-hhmm ( gmt-offset -- )
[ hour>> dup 0 < "-" "+" ? write abs write-00 ] [ mm ] bi ;
] with-string-writer ;
: timestamp>http-string ( timestamp -- str )
- clone >gmt timestamp>rfc2822 ;
+ >gmt timestamp>rfc2822 ;
: timestamp>cookie-string ( timestamp -- str )
- clone >gmt timestamp>rfc1036 ;
+ >gmt timestamp>rfc1036 ;
: write-timestamp ( timestamp -- )
{ DAY ", " D " " MONTH " " YYYY " " hh:mm:ss } formatted ;