From f4a4c275bf0afab9f4ed04158866830e20b93cae Mon Sep 17 00:00:00 2001
From: pho <pho@cielonegro.org>
Date: Wed, 12 Mar 2008 22:52:25 +0900
Subject: [PATCH] .searchResult .date

darcs-hash:20080312135225-62b54-bbb57dc8577f977d954b7e6409085717bbebfe73.gz
---
 Rakka/Resource/Search.hs               | 16 +++++++++++++++-
 defaultPages/StyleSheet/CieloNegro.xml |  6 ++++++
 defaultPages/StyleSheet/Default.xml    |  6 ++++++
 3 files changed, 27 insertions(+), 1 deletion(-)

diff --git a/Rakka/Resource/Search.hs b/Rakka/Resource/Search.hs
index 20f51c6..6624e9e 100644
--- 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 08d47b5..4e7b37a 100644
--- 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 ef940d8..f67bf2f 100644
--- 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;
 }
-- 
2.40.0