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

lib: Write.Ods: disambiguate style names for DataMixedAmount and DataString (bugfix)

Browse Source
This commit is contained in:
Henning Thielemann 2024-10-17 12:26:59 +02:00 committed by Simon Michael
parent 991c56caef
commit fe53b9b6ee
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
hledger-lib/Hledger/Write/Ods.hs
View File

@ -283,7 +283,9 @@ cellConfig ((border, cstyle), dataStyle) =
printf printf
"style:name='%s-%s-%s' style:data-style-name='number-%s'" "style:name='%s-%s-%s' style:data-style-name='number-%s'"
cstyleName bordName name name cstyleName bordName name name
_ -> printf "style:name='%s-%s'" cstyleName bordName DataMixedAmount ->
printf "style:name='%s-%s-mixedamount'" cstyleName bordName
DataString -> printf "style:name='%s-%s'" cstyleName bordName
in in
case moreStyles of case moreStyles of
[] -> [] ->
@ -309,7 +311,9 @@ formatCell cell =
DataAmount comm prec -> DataAmount comm prec ->
let name = numberStyleName (comm, prec) in let name = numberStyleName (comm, prec) in
printf "%s-%s-%s" cstyleName bordName name printf "%s-%s-%s" cstyleName bordName name
_ -> printf "%s-%s" cstyleName bordName DataMixedAmount ->
printf "%s-%s-mixedamount" cstyleName bordName
DataString -> printf "%s-%s" cstyleName bordName
tableStyle = printf " table:style-name='%s'" tableStyle = printf " table:style-name='%s'"
valueType = valueType =