chore: newline experiments

This commit is contained in:
Wolfgang Witt 2021-04-08 14:25:37 +02:00 committed by Gregor Kleen
parent 712dcfbf9d
commit f99d071601

View File

@ -332,7 +332,7 @@ getCShowR tid ssh csh = do
{ formAction = Just . SomeRoute $ CourseR tid ssh csh CFavouriteR { formAction = Just . SomeRoute $ CourseR tid ssh csh CFavouriteR
, formEncoding = favouriteToggleEncoding , formEncoding = favouriteToggleEncoding
, formSubmit = FormNoSubmit , formSubmit = FormNoSubmit
, formAttrs = [("class", "buttongroup")] , formAttrs = [("class", "buttongroup"), ("style", "display: inline-block")]
} }
@ -342,7 +342,7 @@ getCShowR tid ssh csh = do
$if not courseVisible && mayEdit $if not courseVisible && mayEdit
\ #{iconInvisible} \ #{iconInvisible}
$if isJust muid $if isJust muid
<span style="font-size: 0.25em"> <span style="font-size: 0.25em; vertical-align: top">
^{favouriteToggleWgt} ^{favouriteToggleWgt}
|] |]