Changeset 1160 for lang/haskell

Show
Ignore:
Timestamp:
11/06/07 01:09:06 (13 months ago)
Author:
jknaoya
Message:

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

正規表現つかったら負けかな、と思ってる (笑)
blosxom 互換のテンプレート変数を追加しました

Location:
lang/haskell/blosxkel
Files:
4 modified

Legend:

Unmodified
Added
Removed

  • lang/haskell/blosxkel/blosxkel.hs

    r1159 r1160  
    1515 
    1616import Network.CGI 
    17  
    18 import Text.Regex 
    19  
    2017 
    2118-- ref. http://i.loveruby.net/ja/stdhaskell/samples/lazylines/Template.hs.html 
    … …  
    4037        parseLine l 
    4138                  | all isSpace l = [] 
    42                   | otherwise = let (k, (':':v)) = (break (== ':') l) 
    43                                 in [(strip k, strip v)] 
     39                  | otherwise     = let (k, (':':v)) = (break (== ':') l) 
     40                                    in [(strip k, strip v)] 
    4441        strip     = rstrip . lstrip 
    4542        rstrip    = reverse . lstrip . reverse 
    … …  
    103100    ; cs <- mapM 
    104101               (\e -> fill "story" 
    105                [("title", title e), 
    106                 ("body", concat (body e)), 
    107                 ("time", formatCalendarTime defaultTimeLocale "%Y-%m-%d %H:%M:%S" (toUTCTime (time e))), 
    108                 ("path", path e)]) 
     102               [("title"  , title e), 
     103                ("body"   , concat (body e)), 
     104                ("time"   , formatCalendarTime defaultTimeLocale "%Y-%m-%d %H:%M:%S" (toUTCTime (time e))), 
     105                ("yr"     , formatCalendarTime defaultTimeLocale "%Y" (toUTCTime (time e))), 
     106                ("mo"     , formatCalendarTime defaultTimeLocale "%b" (toUTCTime (time e))), 
     107                ("mo_num" , formatCalendarTime defaultTimeLocale "%m" (toUTCTime (time e))), 
     108                ("da"     , formatCalendarTime defaultTimeLocale "%d" (toUTCTime (time e))), 
     109                ("dw"     , formatCalendarTime defaultTimeLocale "%a" (toUTCTime (time e))), 
     110                ("hr"     , formatCalendarTime defaultTimeLocale "%H" (toUTCTime (time e))), 
     111                ("min"    , formatCalendarTime defaultTimeLocale "%M" (toUTCTime (time e))), 
     112                ("hr12"   , formatCalendarTime defaultTimeLocale "%I" (toUTCTime (time e))), 
     113                ("ampm"   , formatCalendarTime defaultTimeLocale "%p" (toUTCTime (time e))), 
     114                ("ti"     , formatCalendarTime defaultTimeLocale "%X" (toUTCTime (time e))), 
     115                ("fn"     , path e), 
     116                ("path"   , path e)]) 
    109117               $ take 7 $ reverse $ sortBy (\a b -> compare (time a) (time b)) entries 
    110118    ; cf <- fill "foot" [] 
    111119    ; return $ (ct, concat $ [ch, concat cs, cf]) 
    112120    } where 
    113         fill place params = fillFlavour "html" place (params ++ [("title", getConfig config "title"), 
    114                                                                  ("author", getConfig config "author"), 
    115                                                                  ("version", "aaa")] ++ cgiparams) 
     121        fill place params = fillFlavour "html" place (params ++ [("title"  , getConfig config "title"), 
     122                                                                 ("author" , getConfig config "author"), 
     123                                                                 ("version", "How I can get this version of GHC in program?")] ++ cgiparams) 
    116124 
    117125cgiMain :: CGI CGIResult 

  • lang/haskell/blosxkel/foot.html

    r1156 r1160  
    1                         </div> 
     1            </div> 
    22 
    3                         <div id="footer"> 
    4                 <p>$version</p> 
    5                         </div> 
    6                 </div> 
    7         </body> 
     3            <div id="footer"> 
     4                <p>$version $author</p> 
     5            </div> 
     6        </div> 
     7    </body> 
    88</html> 

  • lang/haskell/blosxkel/head.html

    r1156 r1160  
    9191    <body> 
    9292        <div class="all"> 
    93             <h1 id="top"><a href="/">$title</a></h1> 
     93            <h1 id="top"><a href="$home/">$title</a></h1> 
    9494 
    9595            <p>$home</p> 

  • lang/haskell/blosxkel/story.html

    r1152 r1160  
    66    <dl class="information"> 
    77        <dt>DateTime</dt> 
    8         <dd>$time</dd> 
     8        <dd>$mo $yr $da $dw $hr:$min</dd> 
    99        <dt>Path</dt> 
    1010        <dd><a href="$home$path">$path</a></dd>