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

web: more help links

Browse Source
This commit is contained in:
Simon Michael 2010-02-23 03:38:09 +00:00
parent 603ce7d64b
commit c1b88265d1
1 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
Commands/Web.hs
View File

@ -232,11 +232,10 @@ searchform env = do
where u = dropWhile (=='/') $ Hack.Contrib.Request.path env where u = dropWhile (=='/') $ Hack.Contrib.Request.path env
<form action="" id="searchform"> <form action="" id="searchform">
<% nbsp %>search for:<% nbsp %><input name="a" size="20" value=a <% nbsp %>search for:<% nbsp %><input name="a" size="20" value=a
/><a href="http://hledger.org/MANUAL.html#filter-patterns">?</ /><% help "filter-patterns"
a><% nbsp %><% nbsp %>in reporting period:<% nbsp %><input name="p" size="20" value=p %><% nbsp %><% nbsp %>in reporting period:<% nbsp %><input name="p" size="20" value=p
/><a href="http://hledger.org/MANUAL.html#period-expressions">?</ /><% help "period-expressions"
a> %><input type="submit" name="submit" value="filter" style="display:none" />
<input type="submit" name="submit" value="filter" style="display:none" />
<% resetlink %> <% resetlink %>
</form> </form>
@ -257,19 +256,26 @@ addform env = do
<table border="0"> <table border="0">
<tr> <tr>
<td> <td>
Date: <input size="15" name="date" value=date /><% nbsp %> Date: <input size="15" name="date" value=date /><% help "dates" %><% nbsp %>
Description: <input size="35" name="desc" value=desc /><% nbsp %> Description: <input size="35" name="desc" value=desc /><% nbsp %>
</td> </td>
</tr> </tr>
<% transactionfields 1 env %> <% transactionfields 1 env %>
<% transactionfields 2 env %> <% transactionfields 2 env %>
<tr id="addbuttonrow"><td><input type="submit" value="add transaction" /></td></tr> <tr id="addbuttonrow"><td><input type="submit" value="add transaction"
/><% help "file-format" %></td></tr>
</table> </table>
</form> </form>
</div> </div>
<br clear="all" /> <br clear="all" />
</div> </div>
help :: String -> HSP XML
help topic = <a href=u>?</a>
where u = printf "http://hledger.org/MANUAL.html%s" l :: String
l | null topic = ""
| otherwise = '#':topic
transactionfields :: Int -> Hack.Env -> HSP XML transactionfields :: Int -> Hack.Env -> HSP XML
transactionfields n env = do transactionfields n env = do
let inputs = Hack.Contrib.Request.inputs env let inputs = Hack.Contrib.Request.inputs env