Changeset 1162 for lang/haskell/blosxkel

Timestamp:

11/06/07 02:06:38 (6 years ago)

Author:

jknaoya

Message:

lang/haskell/blosxkel/story.html,
lang/haskell/blosxkel/blosxkel.hs:

すこしシンプルにしました

Location:

lang/haskell/blosxkel

Files:

• blosxkel.hs (modified) (2 diffs)
• story.html (modified) (1 diff)

lang/haskell/blosxkel/blosxkel.hs

@@ -91 +91 @@
     }
 
+strftime = formatCalendarTime defaultTimeLocale
+strfctime format ct = strftime format (toUTCTime ct)
 
 filterByPathInfo :: String -> [Entry] -> [Entry]
 filterByPathInfo pathinfo entries
     | length spath == 2 &&
-      all isDigit (spath !! 1) = filter (\e -> (formatCalendarTime defaultTimeLocale "/%Y" (toUTCTime (time e))) == joinPath spath) entries
+      all isDigit (spath !! 1) = filter (\e -> (strfctime "/%Y"       (time e)) == joinPath spath) entries
     | length spath == 3 &&
-      all isDigit (spath !! 1) = filter (\e -> (formatCalendarTime defaultTimeLocale "/%Y/%m" (toUTCTime (time e))) == joinPath spath) entries
+      all isDigit (spath !! 1) = filter (\e -> (strfctime "/%Y/%m"    (time e)) == joinPath spath) entries
     | length spath == 4 &&
-      all isDigit (spath !! 1) = filter (\e -> (formatCalendarTime defaultTimeLocale "/%Y/%m/%d" (toUTCTime (time e))) == joinPath spath) entries
+      all isDigit (spath !! 1) = filter (\e -> (strfctime "/%Y/%m/%d" (time e)) == joinPath spath) entries
     | otherwise                = filter (\e -> isPrefixOf (joinPath spath) (path e)) entries
     where
@@ -114 +116 @@
                [("title"  , title e),
                 ("body"   , concat (body e)),
-                ("time"   , formatCalendarTime defaultTimeLocale "%Y-%m-%d %H:%M:%S" (toUTCTime (time e))),
-                ("yr"     , formatCalendarTime defaultTimeLocale "%Y" (toUTCTime (time e))),
-                ("mo"     , formatCalendarTime defaultTimeLocale "%b" (toUTCTime (time e))),
-                ("mo_num" , formatCalendarTime defaultTimeLocale "%m" (toUTCTime (time e))),
-                ("da"     , formatCalendarTime defaultTimeLocale "%d" (toUTCTime (time e))),
-                ("dw"     , formatCalendarTime defaultTimeLocale "%a" (toUTCTime (time e))),
-                ("hr"     , formatCalendarTime defaultTimeLocale "%H" (toUTCTime (time e))),
-                ("min"    , formatCalendarTime defaultTimeLocale "%M" (toUTCTime (time e))),
-                ("hr12"   , formatCalendarTime defaultTimeLocale "%I" (toUTCTime (time e))),
-                ("ampm"   , formatCalendarTime defaultTimeLocale "%p" (toUTCTime (time e))),
-                ("ti"     , formatCalendarTime defaultTimeLocale "%X" (toUTCTime (time e))),
+                ("time"   , strfctime "%Y-%m-%d %H:%M:%S" (time e)),
+                ("yr"     , strfctime "%Y"  (time e)),
+                ("mo"     , strfctime "%b"  (time e)),
+                ("mo_num" , strfctime "%m"  (time e)),
+                ("da"     , strfctime "%d"  (time e)),
+                ("dw"     , strfctime "%a"  (time e)),
+                ("hr"     , strfctime "%H"  (time e)),
+                ("min"    , strfctime "%M"  (time e)),
+                ("hr12"   , strfctime "%I"  (time e)),
+                ("ampm"   , strfctime "%p"  (time e)),
+                ("ti"     , strfctime "%X"  (time e)),
                 ("fn"     , path e),
                 ("path"   , path e)])

lang/haskell/blosxkel/story.html

@@ -1 +1 @@
 <div class="hentry">
-    <h3 title="entry-title">$title</h3>
+    <h3 title="entry-title"><a href="$home$path" rel="bookmark">$title</a></h3>
     <div class="entry-content">
         $body