slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Convert Hamlet templates to using type-safe URL datatype.

Browse Source
This commit is contained in:
michael 2010-07-06 03:14:00 +00:00
parent 27fcf68a61
commit 6f555e02af
1 changed files with 16 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
Hledger/Cli/Commands/WebYesod.hs
View File

@ -124,9 +124,11 @@ withLatestJournalRender reportfn = do
-- render the standard template -- render the standard template
req <- getRequest req <- getRequest
msg <- getMessage msg <- getMessage
return $ RepHtml $ toContent $ renderHamlet id $ template req msg as ps "hledger" s --return $ RepHtml $ toContent $ renderHamlet id $ template req msg as ps "hledger" s
-- hamletToRepHtml $ template req msg as ps "hledger" s hamletToRepHtml $ template req msg as ps "hledger" s
template :: Request -> Maybe (Html ()) -> [String] -> [String]
-> String -> String -> Hamlet HledgerWebAppRoutes
template req msg as ps title content = [$hamlet| template req msg as ps title content = [$hamlet|
!!! !!!
%html %html
@ -144,21 +146,21 @@ template req msg as ps title content = [$hamlet|
where m = fromMaybe (string "") msg where m = fromMaybe (string "") msg
navbar' = navbar req as ps navbar' = navbar req as ps
addform' = addform req as ps addform' = addform req as ps
stylesheet = "/style.css" stylesheet = StyleCss
metacontent = "text/html; charset=utf-8" metacontent = "text/html; charset=utf-8"
-- navbar :: Request -> [String] -> [String] -> Hamlet String navbar :: Request -> [String] -> [String] -> Hamlet HledgerWebAppRoutes
navbar req as ps = [$hamlet| navbar req as ps = [$hamlet|
#navbar #navbar
%a#hledgerorglink!href=@hledgerurl@ hledger.org %a#hledgerorglink!href=$string.hledgerurl$ hledger.org
^navlinks'^ ^navlinks'^
^searchform'^ ^searchform'^
%a#helplink!href=@manualurl@ help %a#helplink!href=$string.manualurl$ help
|] |]
where navlinks' = navlinks req as ps where navlinks' = navlinks req as ps
searchform' = searchform req as ps searchform' = searchform req as ps
-- navlinks :: Request -> [String] -> [String] -> Hamlet String navlinks :: Request -> [String] -> [String] -> Hamlet HledgerWebAppRoutes
navlinks _ as ps = [$hamlet| navlinks _ as ps = [$hamlet|
#navlinks #navlinks
^transactionslink^ | $ ^transactionslink^ | $
@ -169,10 +171,10 @@ navlinks _ as ps = [$hamlet|
transactionslink = navlink "transactions" transactionslink = navlink "transactions"
registerlink = navlink "register" registerlink = navlink "register"
balancelink = navlink "balance" balancelink = navlink "balance"
navlink s = [$hamlet|%a.navlink!href=@u@ $string.s$|] navlink s = [$hamlet|%a.navlink!href=$string.u$ $string.s$|]
where u = printf "../%s?a=%s&p=%s" s (intercalate "+" as) (intercalate "+" ps) where u = printf "../%s?a=%s&p=%s" s (intercalate "+" as) (intercalate "+" ps) -- FIXME use URL params instead
-- searchform :: Request -> [String] -> [String] -> Hamlet String searchform :: Request -> [String] -> [String] -> Hamlet HledgerWebAppRoutes
searchform req as ps = [$hamlet| searchform req as ps = [$hamlet|
%form#searchform!action=$string.action$ %form#searchform!action=$string.action$
search for: $ search for: $
@ -193,13 +195,13 @@ searchform req as ps = [$hamlet|
resetlink resetlink
| null a && null p = [$hamlet||] | null a && null p = [$hamlet||]
| otherwise = [$hamlet|%span#resetlink $ | otherwise = [$hamlet|%span#resetlink $
%a!href=@u@ reset|] %a!href=$string.u$ reset|]
where u = B.unpack $ Network.Wai.pathInfo $ waiRequest req where u = B.unpack $ Network.Wai.pathInfo $ waiRequest req -- FIXME I'd be worried about this line
helplink topic = [$hamlet|%a!href=@u@ ?|] helplink topic = [$hamlet|%a!href=$string.u$ ?|]
where u = manualurl ++ if null topic then "" else '#':topic where u = manualurl ++ if null topic then "" else '#':topic
-- addform :: Request -> [String] -> [String] -> Hamlet String addform :: Request -> [String] -> [String] -> Hamlet HledgerWebAppRoutes
addform _ _ _ = [$hamlet| addform _ _ _ = [$hamlet|
%form#addform!action=$string.action$!method=POST %form#addform!action=$string.action$!method=POST
%table!border=0 %table!border=0