7ec25da13a
Renamed: writeValidJournal -> writeJournalTextIfValidAndChanged Added comments clarifying line ending behaviour of: add, import, appendToJournalFileOrStdout, readFilePortably, writeFileWithBackupIfChanged, writeJournalTextIfValidAndChanged Summary of current behaviour: - hledger add and import commands will append with (at least some) unix line endings, possibly causing the file to have mixed line endings - hledger-web edit and upload forms will write the file with the current system's native line endings, ie changing all line endings if the file previously used foreign line endings.
51 lines
1.6 KiB
Haskell
51 lines
1.6 KiB
Haskell
{-# LANGUAGE LambdaCase #-}
|
|
{-# LANGUAGE NamedFieldPuns #-}
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
{-# LANGUAGE QuasiQuotes #-}
|
|
{-# LANGUAGE ScopedTypeVariables #-}
|
|
{-# LANGUAGE TemplateHaskell #-}
|
|
|
|
module Hledger.Web.Handler.EditR
|
|
( getEditR
|
|
, postEditR
|
|
) where
|
|
|
|
import Hledger.Web.Import
|
|
import Hledger.Web.Widget.Common
|
|
(fromFormSuccess, helplink, journalFile404, writeJournalTextIfValidAndChanged)
|
|
|
|
editForm :: FilePath -> Text -> Markup -> MForm Handler (FormResult Text, Widget)
|
|
editForm f txt =
|
|
identifyForm "edit" $ \extra -> do
|
|
(tRes, tView) <- mreq textareaField fs (Just (Textarea txt))
|
|
pure (unTextarea <$> tRes, $(widgetFile "edit-form"))
|
|
where
|
|
fs = FieldSettings "text" mzero mzero mzero [("class", "form-control"), ("rows", "25")]
|
|
|
|
getEditR :: FilePath -> Handler ()
|
|
getEditR f = do
|
|
checkServerSideUiEnabled
|
|
postEditR f
|
|
|
|
postEditR :: FilePath -> Handler ()
|
|
postEditR f = do
|
|
checkServerSideUiEnabled
|
|
VD {caps, j} <- getViewData
|
|
when (CapManage `notElem` caps) (permissionDenied "Missing the 'manage' capability")
|
|
|
|
(f', txt) <- journalFile404 f j
|
|
((res, view), enctype) <- runFormPost (editForm f' txt)
|
|
newtxt <- fromFormSuccess (showForm view enctype) res
|
|
writeJournalTextIfValidAndChanged f newtxt >>= \case
|
|
Left e -> do
|
|
setMessage $ "Failed to load journal: " <> toHtml e
|
|
showForm view enctype
|
|
Right () -> do
|
|
setMessage $ "Saved journal " <> toHtml f <> "\n"
|
|
redirect JournalR
|
|
where
|
|
showForm view enctype =
|
|
sendResponse <=< defaultLayout $ do
|
|
setTitle "Edit journal"
|
|
[whamlet|<form method=post enctype=#{enctype}>^{view}|]
|