Changeset 1156 for lang/haskell

Timestamp:

11/05/07 20:35:41 (13 months ago)

Author:

jknaoya

Message:

lang/haskell/blosxkel/head.html,
lang/haskell/blosxkel/foot.html,
lang/haskell/blosxkel/blosxkel.hs:

もうすこしシンプルにしてみました。
fill 関数の中で scriptName や pathInfo といった
MonadCGI の関数をよんで title などと一緒にセットしたいですがよくわかりません……

Location:

lang/haskell/blosxkel

Files:

• blosxkel.hs (modified) (3 diffs)
• foot.html (modified) (1 diff)
• head.html (modified) (1 diff)

lang/haskell/blosxkel/blosxkel.hs

@@ -19 +19 @@
 -- ref. http://i.loveruby.net/ja/stdhaskell/samples/lazylines/Template.hs.html
 fillFlavour :: String -> String -> [(String, String)] -> IO String
-fillFlavour place flavour params = return . fill =<< (readFile $ place ++ "." ++ flavour)
+fillFlavour flavour place params = return . fill =<< (readFile $ place ++ "." ++ flavour)
     where
         fill ""   = ""
@@ -75 +75 @@
     }
 
-applyStory :: Entry -> IO String
-applyStory e = fillFlavour "story" "html" [("title", title e),
-                                           ("body", concat (body e)),
-                                           ("time", formatCalendarTime defaultTimeLocale "%Y-%m-%d %H:%M:%S" (toUTCTime (time e))),
-                                           ("path", path e)]
+applyStory :: (String -> [(String, String)] -> IO String) -> Entry -> IO String
+applyStory fill e = fill "story" [("title", title e),
+                                  ("body", concat (body e)),
+                                  ("time", formatCalendarTime defaultTimeLocale "%Y-%m-%d %H:%M:%S" (toUTCTime (time e))),
+                                  ("path", path e)]
 
 cgiMain :: CGI CGIResult
@@ -85 +85 @@
     {
     ; entries <- liftIO $ getTextFileEntries "data"
-    ; ct <- liftIO $ fillFlavour "content_type" "html" []
-    ; ch <- liftIO $ fillFlavour "head"  "html" [("title", "hogehoge")]
-    ; cs <- liftIO $ mapM applyStory $ take 7 $ reverse $ sortBy (\a b -> compare (time a) (time b)) entries
-    ; cf <- liftIO $ fillFlavour "foot"  "html" [("title", "hogehoge")]
+    ; ct <- liftIO $ fill "content_type" []
+    ; ch <- liftIO $ fill "head" []
+    ; cs <- liftIO $ mapM (applyStory fill) $ take 7 $ reverse $ sortBy (\a b -> compare (time a) (time b)) entries
+    ; cf <- liftIO $ fill "foot" []
     ; setHeader "Content-Type" ct
     ; output $ concat $ [ch, concat cs, cf]
-    }
+    } where
+        fill place params = fillFlavour "html" place (params ++ [("title", "Blosxkel.hs"),
+                                                                 ("version", "aaa")])
 
 main :: IO ()

lang/haskell/blosxkel/foot.html

@@ -2 +2 @@
 
                         <div id="footer">
+                <p>$version</p>
                         </div>
                 </div>

lang/haskell/blosxkel/head.html

@@ -93 +93 @@
             <h1 id="top"><a href="/">$title</a></h1>
 
+            <p>$home</p>
+
             <div id="content">