.searchResult .date

darcs-hash:20080312135225-62b54-bbb57dc8577f977d954b7e6409085717bbebfe73.gz

diff --git a/Rakka/Resource/Search.hs b/Rakka/Resource/Search.hs
index 20f51c6540931d79ae3c1cae1e1059d5f331a79d..6624e9e8baeafcd2f44c9a2d57c4c777be7216f2 100644 (file)
--- a/Rakka/Resource/Search.hs
+++ b/Rakka/Resource/Search.hs
@@ -13,6 +13,7 @@ import           Control.Monad.Trans
 import           Data.Maybe
 import           Data.Time
 import           Network.HTTP.Lucu
+import           Network.HTTP.Lucu.RFC1123DateTime
 import           Network.URI hiding (query, fragment)
 import           Rakka.Environment
 import           Rakka.Page
@@ -251,7 +252,7 @@ searchResultToXHTML env
                  uniqueNamespacesFromDeclAndQNames
                ) ) -<< tree
     where
-      formatItem :: (ArrowXml a, ArrowChoice a) => URI -> a XmlTree XmlTree
+      formatItem :: (ArrowXml a, ArrowChoice a, ArrowIO a) => URI -> a XmlTree XmlTree
       formatItem baseURI
           = ( eelem "div"
               += sattr "class" "searchResult"
@@ -264,6 +265,19 @@ searchResultToXHTML env
                                   )
                    += (getAttrValue "name" >>> mkText)
                  )
+              += ( eelem "div"
+                   += sattr "class" "date"
+                   += ( getAttrValue "lastModified"
+                        >>>
+                        arr (zonedTimeToUTC . fromJust . parseW3CDateTime)
+                        >>>
+                        arrIO utcToLocalZonedTime
+                        >>>
+                        arr formatRFC1123DateTime
+                        >>>
+                        mkText
+                      )
+                 )
               += ( eelem "p"
                    += ( getChildren
                         >>>

diff --git a/defaultPages/StyleSheet/CieloNegro.xml b/defaultPages/StyleSheet/CieloNegro.xml
index 08d47b5a7597e7f4795d125bb3e3ce27c26e7bf4..4e7b37a03d3c1e2666413b87ba547576577f62ca 100644 (file)
--- a/defaultPages/StyleSheet/CieloNegro.xml
+++ b/defaultPages/StyleSheet/CieloNegro.xml
@@ -394,6 +394,12 @@ input[type="button"][disabled]:active {
     color: #999999;
 }
 
+.searchResult .date {
+    font-size: 70%;
+    white-space: nowrap;
+    color: #555555;
+}
+
 .sideBar p {
     text-indent: 0;
 }

diff --git a/defaultPages/StyleSheet/Default.xml b/defaultPages/StyleSheet/Default.xml
index ef940d873269e476622a7b4cd0d440279b852394..f67bf2fd20095b2f412da71810c1b8c79d851f68 100644 (file)
--- a/defaultPages/StyleSheet/Default.xml
+++ b/defaultPages/StyleSheet/Default.xml
@@ -360,6 +360,12 @@ input[type="button"][disabled]:active {
     color: #666666;
 }
 
+.searchResult .date {
+    font-size: 70%;
+    white-space: nowrap;
+    color: #666666;
+}
+
 .sideBar p {
     text-indent: 0;
 }