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

Translate to Finnish

Browse Source
This commit is contained in:
Saku Laesvuori 2025-10-14 11:27:47 +03:00
parent aa327b7a4b
commit f81cc8a5fe
19 changed files with 117 additions and 113 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
hledger-web/Hledger/Web/Foundation.hs
View File

@ -154,6 +154,7 @@ instance Yesod App where
|] |]
addScript $ StaticR js_bootstrap_min_js addScript $ StaticR js_bootstrap_min_js
addScript $ StaticR js_bootstrap_datepicker_min_js addScript $ StaticR js_bootstrap_datepicker_min_js
addScript $ StaticR js_locales_bootstrap_datepicker_fi_min_js
addScript $ StaticR js_jquery_url_js addScript $ StaticR js_jquery_url_js
addScript $ StaticR js_jquery_cookie_js addScript $ StaticR js_jquery_cookie_js
addScript $ StaticR js_jquery_hotkeys_js addScript $ StaticR js_jquery_hotkeys_js

8
hledger-web/Hledger/Web/Handler/AddR.hs
View File

@ -31,7 +31,7 @@ postAddR :: Handler ()
postAddR = do postAddR = do
checkServerSideUiEnabled checkServerSideUiEnabled
VD{caps, j, today} <- getViewData VD{caps, j, today} <- getViewData
when (CapAdd `notElem` caps) (permissionDenied "Missing the 'add' capability") when (CapAdd `notElem` caps) (permissionDenied "Ei oikeutta lisätä kirjauksia ('add')")
((res, view), enctype) <- runFormPost $ addForm j today ((res, view), enctype) <- runFormPost $ addForm j today
case res of case res of
@ -40,7 +40,7 @@ postAddR = do
liftIO $ do liftIO $ do
ensureJournalFileExists f ensureJournalFileExists f
appendToJournalFileOrStdout f (showTransaction t') appendToJournalFileOrStdout f (showTransaction t')
setMessage "Transaction added." setMessage "Kirjaus lisätty."
redirect JournalR redirect JournalR
FormMissing -> showForm view enctype FormMissing -> showForm view enctype
FormFailure errs -> do FormFailure errs -> do
@ -49,7 +49,7 @@ postAddR = do
where where
showForm view enctype = showForm view enctype =
sendResponse =<< defaultLayout [whamlet| sendResponse =<< defaultLayout [whamlet|
<h2>Add transaction <h2>Uusi kirjaus
<div .row style="margin-top:1em"> <div .row style="margin-top:1em">
<form#addform.form.col-xs-12.col-sm-11 method=post enctype=#{enctype}> <form#addform.form.col-xs-12.col-sm-11 method=post enctype=#{enctype}>
^{view} ^{view}
@ -60,7 +60,7 @@ postAddR = do
putAddR :: Handler RepJson putAddR :: Handler RepJson
putAddR = do putAddR = do
VD{caps, j, opts} <- getViewData VD{caps, j, opts} <- getViewData
when (CapAdd `notElem` caps) (permissionDenied "Missing the 'add' capability") when (CapAdd `notElem` caps) (permissionDenied "Ei oikeutta lisätä kirjauksia ('add')")
(r :: Result Transaction) <- parseCheckJsonBody (r :: Result Transaction) <- parseCheckJsonBody
case r of case r of

8
hledger-web/Hledger/Web/Handler/EditR.hs
View File

@ -32,20 +32,20 @@ postEditR :: FilePath -> Handler ()
postEditR f = do postEditR f = do
checkServerSideUiEnabled checkServerSideUiEnabled
VD {caps, j} <- getViewData VD {caps, j} <- getViewData
when (CapManage `notElem` caps) (permissionDenied "Missing the 'manage' capability") when (CapManage `notElem` caps) (permissionDenied "Ei oikeutta muokata kirjanpitoa ('manage')")
(f', txt) <- journalFile404 f j (f', txt) <- journalFile404 f j
((res, view), enctype) <- runFormPost (editForm f' txt) ((res, view), enctype) <- runFormPost (editForm f' txt)
newtxt <- fromFormSuccess (showForm view enctype) res newtxt <- fromFormSuccess (showForm view enctype) res
runExceptT (writeJournalTextIfValidAndChanged f newtxt) >>= \case runExceptT (writeJournalTextIfValidAndChanged f newtxt) >>= \case
Left e -> do Left e -> do
setMessage $ "Failed to load journal: " <> toHtml e setMessage $ "Kirjanpidon lataaminen epäonnistui: " <> toHtml e
showForm view enctype showForm view enctype
Right () -> do Right () -> do
setMessage $ "Saved journal " <> toHtml f <> "\n" setMessage $ "Kirjanpito tallennettu tiedostoon " <> toHtml f <> "\n"
redirect JournalR redirect JournalR
where where
showForm view enctype = showForm view enctype =
sendResponse <=< defaultLayout $ do sendResponse <=< defaultLayout $ do
setTitle "Edit journal" setTitle "Muokkaa kirjanpitoa"
[whamlet|<form method=post enctype=#{enctype}>^{view}|] [whamlet|<form method=post enctype=#{enctype}>^{view}|]

10
hledger-web/Hledger/Web/Handler/JournalR.hs
View File

@ -21,16 +21,16 @@ getJournalR :: Handler Html
getJournalR = do getJournalR = do
checkServerSideUiEnabled checkServerSideUiEnabled
VD{caps, j, m, opts, q, qopts, today} <- getViewData VD{caps, j, m, opts, q, qopts, today} <- getViewData
when (CapView `notElem` caps) (permissionDenied "Missing the 'view' capability") when (CapView `notElem` caps) (permissionDenied "Ei oikeutta katsella kirjanpitoa ('view')")
let title = case inAccount qopts of let title = case inAccount qopts of
Nothing -> "General Journal" Nothing -> "Kaikki kirjaukset"
Just (a, inclsubs) -> "Transactions in " <> a <> if inclsubs then "" else " (excluding subaccounts)" Just (a, inclsubs) -> "Tapahtumat tilillä " <> a <> if inclsubs then "" else " (poislukien alatilit)"
title' = title <> if m /= Any then ", filtered" else "" title' = title <> if m /= Any then ", suodatettu" else ""
acctlink a = (RegisterR, [("q", replaceInacct q $ accountQuery a)]) acctlink a = (RegisterR, [("q", replaceInacct q $ accountQuery a)])
rspec = (reportspec_ $ cliopts_ opts){_rsQuery = m} rspec = (reportspec_ $ cliopts_ opts){_rsQuery = m}
items = reverse $ entriesReport rspec j items = reverse $ entriesReport rspec j
transactionFrag = transactionFragment j transactionFrag = transactionFragment j
defaultLayout $ do defaultLayout $ do
setTitle "journal - hledger-web" setTitle "päiväkirja - hledger-web"
$(widgetFile "journal") $(widgetFile "journal")

20
hledger-web/Hledger/Web/Handler/MiscR.hs
View File

@ -39,16 +39,16 @@ getManageR :: Handler Html
getManageR = do getManageR = do
checkServerSideUiEnabled checkServerSideUiEnabled
VD{caps, j} <- getViewData VD{caps, j} <- getViewData
when (CapManage `notElem` caps) (permissionDenied "Missing the 'manage' capability") when (CapManage `notElem` caps) (permissionDenied "Ei oikeutta muokata kirjanpitoa ('manage')")
defaultLayout $ do defaultLayout $ do
setTitle "Manage journal" setTitle "Muokkaa kirjanpitoa"
$(widgetFile "manage") $(widgetFile "manage")
getDownloadR :: FilePath -> Handler TypedContent getDownloadR :: FilePath -> Handler TypedContent
getDownloadR f = do getDownloadR f = do
checkServerSideUiEnabled checkServerSideUiEnabled
VD{caps, j} <- getViewData VD{caps, j} <- getViewData
when (CapManage `notElem` caps) (permissionDenied "Missing the 'manage' capability") when (CapManage `notElem` caps) (permissionDenied "Ei oikeutta muokata kirjanpitoa ('manage')")
(f', txt) <- journalFile404 f j (f', txt) <- journalFile404 f j
addHeader "Content-Disposition" ("attachment; filename=\"" <> T.pack f' <> "\"") addHeader "Content-Disposition" ("attachment; filename=\"" <> T.pack f' <> "\"")
sendResponse ("text/plain" :: ByteString, toContent txt) sendResponse ("text/plain" :: ByteString, toContent txt)
@ -58,49 +58,49 @@ getDownloadR f = do
getVersionR :: Handler TypedContent getVersionR :: Handler TypedContent
getVersionR = do getVersionR = do
VD{caps} <- getViewData VD{caps} <- getViewData
when (CapView `notElem` caps) (permissionDenied "Missing the 'view' capability") when (CapView `notElem` caps) (permissionDenied "Ei oikeutta katsella kirjanpitoa ('view')")
selectRep $ do selectRep $ do
provideJson $ packageversion provideJson $ packageversion
getAccountnamesR :: Handler TypedContent getAccountnamesR :: Handler TypedContent
getAccountnamesR = do getAccountnamesR = do
VD{caps, j} <- getViewData VD{caps, j} <- getViewData
when (CapView `notElem` caps) (permissionDenied "Missing the 'view' capability") when (CapView `notElem` caps) (permissionDenied "Ei oikeutta katsella kirjanpitoa ('view')")
selectRep $ do selectRep $ do
provideJson $ journalAccountNames j provideJson $ journalAccountNames j
getTransactionsR :: Handler TypedContent getTransactionsR :: Handler TypedContent
getTransactionsR = do getTransactionsR = do
VD{caps, j} <- getViewData VD{caps, j} <- getViewData
when (CapView `notElem` caps) (permissionDenied "Missing the 'view' capability") when (CapView `notElem` caps) (permissionDenied "Ei oikeutta katsella kirjanpitoa ('view')")
selectRep $ do selectRep $ do
provideJson $ jtxns j provideJson $ jtxns j
getPricesR :: Handler TypedContent getPricesR :: Handler TypedContent
getPricesR = do getPricesR = do
VD{caps, j} <- getViewData VD{caps, j} <- getViewData
when (CapView `notElem` caps) (permissionDenied "Missing the 'view' capability") when (CapView `notElem` caps) (permissionDenied "Ei oikeutta katsella kirjanpitoa ('view')")
selectRep $ do selectRep $ do
provideJson $ map priceDirectiveToMarketPrice $ jpricedirectives j provideJson $ map priceDirectiveToMarketPrice $ jpricedirectives j
getCommoditiesR :: Handler TypedContent getCommoditiesR :: Handler TypedContent
getCommoditiesR = do getCommoditiesR = do
VD{caps, j} <- getViewData VD{caps, j} <- getViewData
when (CapView `notElem` caps) (permissionDenied "Missing the 'view' capability") when (CapView `notElem` caps) (permissionDenied "Ei oikeutta katsella kirjanpitoa ('view')")
selectRep $ do selectRep $ do
provideJson $ (M.keys . jinferredcommodities) j provideJson $ (M.keys . jinferredcommodities) j
getAccountsR :: Handler TypedContent getAccountsR :: Handler TypedContent
getAccountsR = do getAccountsR = do
VD{caps, j} <- getViewData VD{caps, j} <- getViewData
when (CapView `notElem` caps) (permissionDenied "Missing the 'view' capability") when (CapView `notElem` caps) (permissionDenied "Ei oikeutta katsella kirjanpitoa ('view')")
selectRep $ do selectRep $ do
provideJson $ laccounts $ ledgerFromJournal Any j provideJson $ laccounts $ ledgerFromJournal Any j
getAccounttransactionsR :: Text -> Handler TypedContent getAccounttransactionsR :: Text -> Handler TypedContent
getAccounttransactionsR a = do getAccounttransactionsR a = do
VD{caps, j} <- getViewData VD{caps, j} <- getViewData
when (CapView `notElem` caps) (permissionDenied "Missing the 'view' capability") when (CapView `notElem` caps) (permissionDenied "Ei oikeutta katsella kirjanpitoa ('view')")
let let
rspec = defreportspec rspec = defreportspec
thisacctq = Acct $ accountNameToAccountRegex a -- includes subs thisacctq = Acct $ accountNameToAccountRegex a -- includes subs

16
hledger-web/Hledger/Web/Handler/RegisterR.hs
View File

@ -27,11 +27,11 @@ getRegisterR :: Handler Html
getRegisterR = do getRegisterR = do
checkServerSideUiEnabled checkServerSideUiEnabled
VD{caps, j, m, opts, q, qopts, today} <- getViewData VD{caps, j, m, opts, q, qopts, today} <- getViewData
when (CapView `notElem` caps) (permissionDenied "Missing the 'view' capability") when (CapView `notElem` caps) (permissionDenied "Ei oikeutta katsella kirjanpitoa ('view')")
let (a,inclsubs) = fromMaybe ("all accounts",True) $ inAccount qopts let (a,inclsubs) = fromMaybe ("kaikki tilit",True) $ inAccount qopts
s1 = if inclsubs then "" else " (excluding subaccounts)" s1 = if inclsubs then "" else " (poislukien alitilit)"
s2 = if m /= Any then ", filtered" else "" s2 = if m /= Any then ", suodatettu" else ""
header = a <> s1 <> s2 header = a <> s1 <> s2
let rspec = reportspec_ (cliopts_ opts) let rspec = reportspec_ (cliopts_ opts)
@ -47,12 +47,12 @@ getRegisterR = do
tail $ (", "<$xs) ++ [""] tail $ (", "<$xs) ++ [""]
items = accountTransactionsReport rspec{_rsQuery=m} j acctQuery items = accountTransactionsReport rspec{_rsQuery=m} j acctQuery
balancelabel balancelabel
| isJust (inAccount qopts), balanceaccum_ (_rsReportOpts rspec) == Historical = "Historical Total" | isJust (inAccount qopts), balanceaccum_ (_rsReportOpts rspec) == Historical = "Historiallinen saldo"
| isJust (inAccount qopts) = "Period Total" | isJust (inAccount qopts) = "Kauden saldo"
| otherwise = "Total" | otherwise = "Saldo"
transactionFrag = transactionFragment j transactionFrag = transactionFragment j
defaultLayout $ do defaultLayout $ do
setTitle "register - hledger-web" setTitle "kirjaukset - hledger-web"
$(widgetFile "register") $(widgetFile "register")
-- cf. Hledger.Reports.AccountTransactionsReport.accountTransactionsReportItems -- cf. Hledger.Reports.AccountTransactionsReport.accountTransactionsReportItems

14
hledger-web/Hledger/Web/Handler/UploadR.hs
View File

@ -36,7 +36,7 @@ postUploadR :: FilePath -> Handler ()
postUploadR f = do postUploadR f = do
checkServerSideUiEnabled checkServerSideUiEnabled
VD {caps, j} <- getViewData VD {caps, j} <- getViewData
when (CapManage `notElem` caps) (permissionDenied "Missing the 'manage' capability") when (CapManage `notElem` caps) (permissionDenied "Ei oikeutta muokata kirjanpitoa ('manage')")
(f', _) <- journalFile404 f j (f', _) <- journalFile404 f j
((res, view), enctype) <- runFormPost (uploadForm f') ((res, view), enctype) <- runFormPost (uploadForm f')
@ -48,20 +48,20 @@ postUploadR f = do
newtxt <- case TE.decodeUtf8' lbs of newtxt <- case TE.decodeUtf8' lbs of
Left e -> do Left e -> do
setMessage $ setMessage $
"Encoding error: '" <> toHtml (show e) <> "'. " <> "Merkistövirhe: '" <> toHtml (show e) <> "'. " <>
"If your file is not UTF-8 encoded, try the 'edit form', " <> "Jos tiedostosi ei käytä UTF-8 merkistöä, kokeile 'muokkaa'-sivua," <>
"where the transcoding should be handled by the browser." "jolla selaimesi pitäisi huolehtia merkistön muuntamisesta puolestasi."
showForm view enctype showForm view enctype
Right newtxt -> return newtxt Right newtxt -> return newtxt
runExceptT (writeJournalTextIfValidAndChanged f newtxt) >>= \case runExceptT (writeJournalTextIfValidAndChanged f newtxt) >>= \case
Left e -> do Left e -> do
setMessage $ "Failed to load journal: " <> toHtml e setMessage $ "Kirjanpidon lataaminen epäonnistui: " <> toHtml e
showForm view enctype showForm view enctype
Right () -> do Right () -> do
setMessage $ "File " <> toHtml f <> " uploaded successfully" setMessage $ "Tiedoston " <> toHtml f <> " lataaminen onnistui!"
redirect JournalR redirect JournalR
where where
showForm view enctype = showForm view enctype =
sendResponse <=< defaultLayout $ do sendResponse <=< defaultLayout $ do
setTitle "Upload journal" setTitle "Korvaa tiedosto"
[whamlet|<form method=post enctype=#{enctype}>^{view}|] [whamlet|<form method=post enctype=#{enctype}>^{view}|]

6
hledger-web/Hledger/Web/Widget/AddForm.hs
View File

@ -38,7 +38,7 @@ addModal addR j today = do
<div .modal-content> <div .modal-content>
<div .modal-header> <div .modal-header>
<button type="button" .close data-dismiss="modal" aria-hidden="true">&times; <button type="button" .close data-dismiss="modal" aria-hidden="true">&times;
<h3 .modal-title #addLabel>Add a transaction <h3 .modal-title #addLabel>Uusi kirjaus
<div .modal-body> <div .modal-body>
<form#addform.form action=@{addR} method=POST enctype=#{addEnctype}> <form#addform.form action=@{addR} method=POST enctype=#{addEnctype}>
^{addView} ^{addView}
@ -80,8 +80,8 @@ addForm j today = identifyForm "add" $ \extra -> do
| f `elem` fs = Right f | f `elem` fs = Right f
| otherwise = Left $ MsgInputNotFound $ T.pack f | otherwise = Left $ MsgInputNotFound $ T.pack f
-- field settings -- field settings
dateSettings = FieldSettings "date" Nothing Nothing (Just "date") [("class", "form-control input-lg"), ("placeholder", "Date")] dateSettings = FieldSettings "date" Nothing Nothing (Just "date") [("class", "form-control input-lg"), ("placeholder", "Päiväys")]
descSettings = FieldSettings "desc" Nothing Nothing (Just "description") [("class", "form-control input-lg typeahead"), ("placeholder", "Description"), ("size", "40")] descSettings = FieldSettings "desc" Nothing Nothing (Just "description") [("class", "form-control input-lg typeahead"), ("placeholder", "Selite"), ("size", "40")]
acctSettings = FieldSettings "account" Nothing Nothing (Just "account") [] acctSettings = FieldSettings "account" Nothing Nothing (Just "account") []
amtSettings = FieldSettings "amount" Nothing Nothing (Just "amount") [] amtSettings = FieldSettings "amount" Nothing Nothing (Just "amount") []
fileSettings = FieldSettings "file" Nothing Nothing (Just "file") [("class", "form-control input-lg")] fileSettings = FieldSettings "file" Nothing Nothing (Just "file") [("class", "form-control input-lg")]

1
hledger-web/hledger-web.cabal
View File

@ -92,6 +92,7 @@ extra-source-files:
static/js/jquery.js static/js/jquery.js
static/js/jquery.min.js static/js/jquery.min.js
static/js/jquery.url.js static/js/jquery.url.js
static/js/locales/bootstrap-datepicker.fi.min.js
static/js/typeahead.bundle.js static/js/typeahead.bundle.js
static/js/typeahead.bundle.min.js static/js/typeahead.bundle.min.js
templates/add-form.hamlet templates/add-form.hamlet

9
hledger-web/static/hledger.js
View File

@ -14,6 +14,7 @@ $(document).ready(function() {
autoclose: true, autoclose: true,
format: 'yyyy-mm-dd', format: 'yyyy-mm-dd',
todayHighlight: true, todayHighlight: true,
language: 'fi',
weekStart: 1 // Monday weekStart: 1 // Monday
});; });;
@ -109,11 +110,11 @@ function registerChart($container, series) {
/* https://github.com/krzysu/flot.tooltip */ /* https://github.com/krzysu/flot.tooltip */
tooltip: true, tooltip: true,
tooltipOpts: { tooltipOpts: {
xDateFormat: "%Y/%m/%d", xDateFormat: "%d.%m.%Y",
content: content:
function(label, x, y, flotitem) { function(label, x, y, flotitem) {
var data = flotitem.series.data[flotitem.dataIndex]; var data = flotitem.series.data[flotitem.dataIndex];
return data[3]+" balance on %x after "+data[2]+" posted by transaction:<pre>"+data[4]+"</pre>"; return data[3]+" saldoa %x sen jälkeen, kun siirrettiin "+data[2]+" kirjauksella: <pre>"+data[4]+"</pre>";
}, },
onHover: function(flotitem, $tooltipel) { onHover: function(flotitem, $tooltipel) {
$tooltipel.css('border-color',flotitem.series.color); $tooltipel.css('border-color',flotitem.series.color);
@ -193,8 +194,8 @@ function addformAddPosting() {
$('#addform .account-postings').append( $('#addform .account-group:last').clone().addClass('added-row') ); $('#addform .account-postings').append( $('#addform .account-group:last').clone().addClass('added-row') );
// renumber and clear the new last account and amount fields // renumber and clear the new last account and amount fields
var n = $('#addform .account-group').length; var n = $('#addform .account-group').length;
$('.account-input:last').prop('placeholder', 'Account '+n).val(''); $('.account-input:last').prop('placeholder', 'Tili '+n).val('');
$('.amount-input:last').prop('placeholder','Amount '+n).val(''); // XXX Enable typehead on dynamically created inputs $('.amount-input:last').prop('placeholder','Summa '+n).val(''); // XXX Enable typehead on dynamically created inputs
// and move the keypress handler to the new last amount field // and move the keypress handler to the new last amount field
addformLastAmountBindKey(); addformLastAmountBindKey();
} }

1
hledger-web/static/js/locales/bootstrap-datepicker.fi.min.js vendored Normal file
View File

@ -0,0 +1 @@
!function(a){a.fn.datepicker.dates.fi={days:["sunnuntai","maanantai","tiistai","keskiviikko","torstai","perjantai","lauantai"],daysShort:["sun","maa","tii","kes","tor","per","lau"],daysMin:["su","ma","ti","ke","to","pe","la"],months:["tammikuu","helmikuu","maaliskuu","huhtikuu","toukokuu","kesäkuu","heinäkuu","elokuu","syyskuu","lokakuu","marraskuu","joulukuu"],monthsShort:["tam","hel","maa","huh","tou","kes","hei","elo","syy","lok","mar","jou"],today:"tänään",clear:"Tyhjennä",weekStart:1,format:"d.m.yyyy"}}(jQuery);

8
hledger-web/templates/add-form.hamlet
View File

@ -40,23 +40,23 @@
<div .form-group .row .account-group style="padding-left:1em;"> <div .form-group .row .account-group style="padding-left:1em;">
<div .col-sm-9.col-xs-9 :isJust accE:.has-error> <div .col-sm-9.col-xs-9 :isJust accE:.has-error>
<input .account-input.form-control.input-lg.typeahead type=text <input .account-input.form-control.input-lg.typeahead type=text
name=account placeholder="Account #{n}" value="#{acc}"> name=account placeholder="Tili #{n}" value="#{acc}">
$maybe err <- accE $maybe err <- accE
<span .help-block .error-block>_{err} <span .help-block .error-block>_{err}
<div .col-sm-3.col-xs-3 :isJust amtE:.has-error> <div .col-sm-3.col-xs-3 :isJust amtE:.has-error>
<input .amount-input.form-control.input-lg type=text <input .amount-input.form-control.input-lg type=text
name=amount placeholder="Amount #{n}" value="#{amt}"> name=amount placeholder="Summa #{n}" value="#{amt}">
$maybe err <- amtE $maybe err <- amtE
<span .help-block .error-block>_{err} <span .help-block .error-block>_{err}
<div .row> <div .row>
<div .col-sm-9.col-xs-9> <div .col-sm-9.col-xs-9>
$if length files > 1 $if length files > 1
Add to: Kirjaa tiedostoon:
&nbsp; &nbsp;
<div style="display:inline-block; width:auto;" .form-group :isJust (fvErrors fileView):.has-error> <div style="display:inline-block; width:auto;" .form-group :isJust (fvErrors fileView):.has-error>
^{fvInput fileView} ^{fvInput fileView}
$maybe err <- fvErrors fileView $maybe err <- fvErrors fileView
<span .help-block .error-block>#{err} <span .help-block .error-block>#{err}
<div .col-sm-3.col-xs-3 style="text-align:right;"> <div .col-sm-3.col-xs-3 style="text-align:right;">
<button type=submit .btn .btn-default .btn-lg name=submit style="font-weight:bold;">Save <button type=submit .btn .btn-default .btn-lg name=submit style="font-weight:bold;">Tallenna

8
hledger-web/templates/balance-report.hamlet
View File

@ -1,8 +1,8 @@
<tr :here == journalR:.inacct> <tr :here == journalR:.inacct>
<td .top .acct> <td .top .acct>
<a href=@{journalR} :here == journalR:.inacct <a href=@{journalR} :here == journalR:.inacct
title="Show general journal entries, most recent first"> title="Näytä päiväkirjan kirjaukset uusimmasta vanhimpaan">
Journal Kirjanpito
<td .top> <td .top>
$forall (acct, adisplay, aindent, abal) <- items $forall (acct, adisplay, aindent, abal) <- items
<tr <tr
@ -12,11 +12,11 @@ $forall (acct, adisplay, aindent, abal) <- items
<div .ff-wrapper> <div .ff-wrapper>
\#{indent aindent} \#{indent aindent}
<a.acct-name href="@?{(registerR, [("q", replaceInacct q $ accountQuery acct)])}" <a.acct-name href="@?{(registerR, [("q", replaceInacct q $ accountQuery acct)])}"
title="Show transactions affecting this account and subaccounts"> title="Näytä tähän tiliin ja sen alitileihin vaikuttavat kirjaukset">
#{adisplay} #{adisplay}
$if hasSubAccounts acct $if hasSubAccounts acct
<a href="@?{(registerR, [("q", replaceInacct q $ accountOnlyQuery acct)])}" .only.hidden-sm.hidden-xs <a href="@?{(registerR, [("q", replaceInacct q $ accountOnlyQuery acct)])}" .only.hidden-sm.hidden-xs
title="Show transactions affecting this account but not subaccounts">only title="Näytä vain juuri tähän tiliin vaikuttavat kirjaukset">only
<td> <td>
^{mixedAmountAsHtml abal} ^{mixedAmountAsHtml abal}
<tr .total> <tr .total>

72
hledger-web/templates/default-layout.hamlet
View File

@ -17,19 +17,19 @@ $if elem CapView caps
<div #message .alert.alert-info>#{m} <div #message .alert.alert-info>#{m}
$if elem CapView caps $if elem CapView caps
<form#searchform.input-group method=GET> <form#searchform.input-group method=GET>
<input .form-control name=q value=#{q} placeholder="Search" <input .form-control name=q value=#{q} placeholder="Hae"
title="Enter hledger search patterns to filter the data below"> title="Syötä hakuehtoja rajataksesi alla olevaa dataa">
<div .input-group-btn> <div .input-group-btn>
$if not (T.null q) $if not (T.null q)
<a href=@{here} .btn .btn-default title="Clear search terms"> <a href=@{here} .btn .btn-default title="Tyhjennä hakuehdot">
<span .glyphicon .glyphicon-remove-circle> <span .glyphicon .glyphicon-remove-circle>
<button .btn .btn-default type=submit title="Apply search terms"> <button .btn .btn-default type=submit title="Hae">
<span .glyphicon .glyphicon-search> <span .glyphicon .glyphicon-search>
$if elem CapManage caps $if elem CapManage caps
<a href="@{ManageR}" .btn.btn-default title="Manage journal files"> <a href="@{ManageR}" .btn.btn-default title="Hallinnoi kirjanpidon tiedostoja">
<span .glyphicon .glyphicon-wrench> <span .glyphicon .glyphicon-wrench>
<button .btn .btn-default type=button data-toggle="modal" data-target="#helpmodal" <button .btn .btn-default type=button data-toggle="modal" data-target="#helpmodal"
title="Show search and general help"> title="Näytä käyttöohjeita">
<span .glyphicon .glyphicon-question-sign> <span .glyphicon .glyphicon-question-sign>
^{widget} ^{widget}
@ -38,43 +38,43 @@ $if elem CapView caps
<div .modal-content> <div .modal-content>
<div .modal-header> <div .modal-header>
<button type="button" .close data-dismiss="modal" aria-hidden="true">&times; <button type="button" .close data-dismiss="modal" aria-hidden="true">&times;
<h3 .modal-title #helpLabel>Help <h3 .modal-title #helpLabel>Ohjeet
<div .modal-body> <div .modal-body>
<div .row> <div .row>
<div .col-xs-6> <div .col-xs-6>
<p> <p>
<b>Keyboard shortcuts <b>Pikanäppäimet
<ul> <ul>
<li> <code>h</code> or maybe <code>?</code> - view this help (escape or click to exit) <li> <code>h</code> tai (selaimesta riippuen) myös <code>?</code> - näytä nämä ohjeet (paina <code>esc</code> tai klikkaa ruksia poistuaksesi)
<li> <code>j</code> - go to the Journal view (home) <li> <code>j</code> - siirry päiväkirjanäkymään (etusivulle)
<li> <code>a</code> - add a transaction (escape to cancel) <li> <code>a</code> - lisää uusi kirjaus (paina <code>esc</code> peruaksesi)
<li> <code>s</code> - toggle sidebar <li> <code>s</code> - vaihda sivupalkki näkyviin/piilotetuksi
<li> <code>f</code> - focus search form ("find") <li> <code>f</code> - kohdista hakukenttään
<li> <code>e</code> - hide empty accounts in sidebar <li> <code>e</code> - piilota nollasaldoiset tilit sivupalkista
<p> <p>
<b>General <b>Yleistä
<ul> <ul>
<li> The Journal view shows general journal entries, representing zero-sum movements of money (or other commodity) between hierarchical accounts <li> Pääkirja näytää kirjauksia, jotka esittävät rahan (tai muun hyödykkeen) täydellisiä siirtoja tilien välillä. Siirron täydellisyydellä tarkoitetaan sitä, ettei siitä ole jätetty mitään osaa kirjaamatta, jolloin hyödykettä ei katoa eikä synny tyhjästä.
<li> The sidebar shows the resulting accounts and their final balances <li> Sivupalkki näyttää käytetyt tilit ja niiden loppusaldot
<li> Parent account balances include subaccount balances <li> Ylätilien saldot sisältävät niiden alatilien saldot
<li> Multiple currencies in balances are displayed one above the other <li> Eri valuutat esitetään saldoissa päällekkäin
<li> Click account name links to see transactions affecting that account, with running balance <li> Klikkaamalla tilin nimeä näet siihen vaikuttavat kirjaukset ja saldon joka siirron jälkeen
<li> Click date links to see journal entries on that date <li> Klikkaamalla päiväystä näet silloin kirjatut tapahtumat
<div .col-xs-6> <div .col-xs-6>
<p> <p>
<b>Search <b>Haku
<ul> <ul>
<li> <code>acct:REGEXP</code> - filter on to/from account <li> <code>acct:REGEXP</code> - suodata tilin nimellä
<li> <code>desc:REGEXP</code> - filter on description <li> <code>desc:REGEXP</code> - suodata selitteellä
<li> <code>date:PERIODEXP</code>, <code>date2:PERIODEXP</code> - filter on date or secondary date <li> <code>date:AIKAVÄLI</code>, <code>date2:AIKAVÄLI</code> - suodata päiväyksen tai toissijaisen päiväkysen perusteella.
<li> <code>code:REGEXP</code> - filter on transaction's code (eg check number) <li> <code>code:REGEXP</code> - suodata kirjauksen numerolla (esim. tilisiirron viitenumero)
<li> <code>status:*</code>, <code>status:!</code>, <code>status:</code> - filter on transaction's cleared status (cleared, pending, uncleared) <li> <code>status:*</code>, <code>status:!</code>, <code>status:</code> - suodata kirjauksen tilan perusteella (valmis, kesken, tarkistamaton)
<!-- <li> <code>empty:BOOL</code> - filter on whether amount is zero --> <!-- <li> <code>empty:BOOL</code> - suodata sen perusteella, onko tilin saldo nolla -->
<li> <code>amt:N</code>, <code>amt:&lt;N</code>, <code>amt:&gt;N</code> - filter on the unsigned amount magnitude. Or with a sign before N, filter on the signed value. (Single-commodity amounts only.) <li> <code>amt:N</code>, <code>amt:&lt;N</code>, <code>amt:&gt;N</code> - suodata summan (itseisarvon) suuruuden perusteella. Etumerkin + tai &minus; lisääminen luvun <code>N</code> eteen rajoittaa suodatuksen vain sen merkkisiin summiin. (ei yhdistä eri valuuttojen määriä)
<li> <code>cur:REGEXP</code> - filter on the currency/commodity symbol (must match all of it). Dollar sign must be written as <code>\$</code> <li> <code>cur:REGEXP</code> - suodata valuutan/hyödykkeen tunnuksella. (koko tunnuksen täytyy täsmätä)
<li> <code>tag:NAME</code>, <code>tag:NAME=REGEX</code> - filter on tag name, or tag name and value <li> <code>tag:NIMI</code>, <code>tag:NIMI=REGEX</code> - suodata tunnisteen nimellä tai nimellä ja arvolla
<!-- <li> <code>depth:N</code> - filter out accounts below this depth --> <!-- <li> <code>depth:N</code> - rajoita niihin tileihin, joilla on alle <code>N</code> ylätiliä -->
<li> <code>real:BOOL</code> - filter on postings' real/virtual-ness <li> <code>real:BOOL</code> - suodata siirtojen todellisuuden/näennäisyyden perusteella. Näennäissiirtojen summa ei välttämättä ole nolla, eli ne voivat hävittää kirjanpidosta rahaa tai tuoda sitä sinne tyhjästä.
<li> Enclose search patterns containing spaces in single or double quotes <li> Hakuehdot erotellaan välilyönneillä. Välilyönnin voi sisällyttää hakuehtoon ympäröimällä ehdon yksin- tai kaksinkertaisilla suorilla lainausmerkeillä (<code>"</code> tai <code>'</code>)
<li> Prepend <code>not:</code> to negate a search term <li> Lisää ehdon alkuun <code>not:</code> valitaksesi ne tapahtumat, jotka eivät toteuta ehtoa
<li> Description, account, status query terms are OR'ed, others are AND'ed. <li> Selitteen, tilin nimen ja kirjauksen tilan hakuehdoista riittää toteuttaa yksi, muista ehdoista tapahtuman pitää toteuttaa kaikki tullakseen valituksi.

10
hledger-web/templates/edit-form.hamlet
View File

@ -1,9 +1,9 @@
#{extra} #{extra}
<h2> <h2>
Edit file # Muokkaa tiedostoa #
<i>#{f} <i>#{f}
<div.alert.alert-danger> <div.alert.alert-danger>
Are you sure? This will overwrite your journal! Oletko varma? Tämä korvaa vanhan tiedoston täysin!
<table.table.table-condensed> <table.table.table-condensed>
<tr> <tr>
<td colspan=2 style="border:0"> <td colspan=2 style="border:0">
@ -11,7 +11,7 @@
<tr> <tr>
<td style="border:0"> <td style="border:0">
<span.help> <span.help>
^{helplink "file-format" "File format help"} ^{helplink "file-format" "Apua tiedostomudon kanssa (englanniksi)"}
<td .text-right style="border:0"> <td .text-right style="border:0">
<a.btn.btn-default href="@{ManageR}">Go back <a.btn.btn-default href="@{ManageR}">Peruuta
<input.btn.btn-default type=submit value="Save"> <input.btn.btn-default type=submit value="Tallenna">

12
hledger-web/templates/journal.hamlet
View File

@ -3,16 +3,16 @@
$if elem CapAdd caps $if elem CapAdd caps
<a #addformlink href="#" role="button" style="cursor:pointer; margin-top:1em;" <a #addformlink href="#" role="button" style="cursor:pointer; margin-top:1em;"
data-toggle="modal" data-target="#addmodal" title="Add a new transaction to the journal"> data-toggle="modal" data-target="#addmodal" title="Lisää uusi tapahtuma kirjanpitoon.">
Add a transaction Kirjaa tapahtuma
<div .table-responsive> <div .table-responsive>
<table .transactionsreport .table .table-condensed> <table .transactionsreport .table .table-condensed>
<thead> <thead>
<th .date style="text-align:left;">Date <th .date style="text-align:left;">Päiväys
<th .description style="text-align:left;">Description <th .description style="text-align:left;">Selite
<th .account style="text-align:left;">Account <th .account style="text-align:left;">Tili
<th .amount style="text-align:right;">Amount <th .amount style="text-align:right;">Summa
$forall torig <- items $forall torig <- items
<tr .title ##{transactionFrag torig} title="#{showTransaction torig}"> <tr .title ##{transactionFrag torig} title="#{showTransaction torig}">

10
hledger-web/templates/manage.hamlet
View File

@ -1,12 +1,12 @@
<h2> <h2>
Your journal's files Kirjanpitosi tiedostot
<div.row> <div.row>
<div .col-md-6.col-sm-8.col-xs-12> <div .col-md-6.col-sm-8.col-xs-12>
<table .table.table-condensed> <table .table.table-condensed>
<thead> <thead>
<th> <th>
File Tiedosto
<th> <th>
<tbody> <tbody>
$forall (path, _) <- jfiles j $forall (path, _) <- jfiles j
@ -15,8 +15,8 @@
#{path} #{path}
<td style="text-align:right"> <td style="text-align:right">
<a.btn.btn-default href=@{EditR path}> <a.btn.btn-default href=@{EditR path}>
Edit Muokkaa
<a.btn.btn-default href=@{UploadR path}> <a.btn.btn-default href=@{UploadR path}>
Upload Korvaa uudella
<a.btn.btn-default href=@{DownloadR path}> <a.btn.btn-default href=@{DownloadR path}>
Download Imuroi

8
hledger-web/templates/register.hamlet
View File

@ -9,11 +9,11 @@
<thead> <thead>
<tr> <tr>
<th style="text-align:left;"> <th style="text-align:left;">
Date Päiväys
<span .glyphicon.glyphicon-chevron-up> <span .glyphicon.glyphicon-chevron-up>
<th style="text-align:left;">Description <th style="text-align:left;">Kuvaus
<th style="text-align:left;">To/From Account(s) <th style="text-align:left;">Tileille/Tileiltä
<th style="text-align:right; white-space:normal;">Amount Out/In <th style="text-align:right; white-space:normal;">Siirretty summa
<th style="text-align:right; white-space:normal;"> <th style="text-align:right; white-space:normal;">
#{balancelabel} #{balancelabel}

8
hledger-web/templates/upload-form.hamlet
View File

@ -1,14 +1,14 @@
<h2> <h2>
Upload to file # Korvaa tiedosto #
<i>#{f} <i>#{f}
<div.alert.alert-danger> <div.alert.alert-danger>
Are you sure? This will overwrite your journal! Oletko varma? Tämä korvaa vanhan tiedoston täysin!
<div.form-group> <div.form-group>
<label .btn.btn-primary for="file"> <label .btn.btn-primary for="file">
<input type=file id=file name=file style="display:none" <input type=file id=file name=file style="display:none"
onchange="\$('#file-info').html(this.files[0].name)" /> onchange="\$('#file-info').html(this.files[0].name)" />
Select file Valitse korvattava tiedosto
<span .label.label-info id="file-info"> <span .label.label-info id="file-info">
<div.form-group> <div.form-group>
<input .btn.btn-default type=submit value="Upload"> <input .btn.btn-default type=submit value="Korvaa">
#{extra} #{extra}