From 894ba6182ec2cd9fa3e19df0db1bfd389f2c19d8 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Tue, 17 Feb 2009 17:09:27 -0600
Subject: [PATCH] add timestamp>mdtm to calendar.format

---
 basis/calendar/format/format-tests.factor | 7 +++++++
 basis/calendar/format/format.factor       | 3 +++
 2 files changed, 10 insertions(+)

diff --git a/basis/calendar/format/format-tests.factor b/basis/calendar/format/format-tests.factor
index 81930cdf49..f8864351a4 100644
--- a/basis/calendar/format/format-tests.factor
+++ b/basis/calendar/format/format-tests.factor
@@ -51,6 +51,11 @@ IN: calendar.format.tests
     timestamp>string
 ] unit-test
 
+[ "20080504070000" ] [
+    "Sun May 04 07:00:00 2008 GMT" cookie-string>timestamp
+    timestamp>mdtm
+] unit-test
+
 [
     T{ timestamp f
         2008
@@ -74,3 +79,5 @@ IN: calendar.format.tests
         { gmt-offset T{ duration f 0 0 0 0 0 0 } }
     }
 ] [ "Thursday, 02-Oct-2008 23:59:59 GMT" cookie-string>timestamp ] unit-test
+
+
diff --git a/basis/calendar/format/format.factor b/basis/calendar/format/format.factor
index 15a4cb8266..916d3499fe 100644
--- a/basis/calendar/format/format.factor
+++ b/basis/calendar/format/format.factor
@@ -78,6 +78,9 @@ M: integer year. ( n -- )
 M: timestamp year. ( timestamp -- )
     year>> year. ;
 
+: timestamp>mdtm ( timestamp -- str )
+    [ { YYYY MM DD hh mm ss } formatted ] with-string-writer ;
+
 : (timestamp>string) ( timestamp -- )
     { DAY ", " D " " MONTH " " YYYY " " hh ":" mm ":" ss } formatted ;