Fix extracted content border

This commit is contained in:
Eike Kettner
2021-02-16 23:18:40 +01:00
parent 33cfd6df6f
commit 4ef1996137
2 changed files with 10 additions and 7 deletions

View File

@ -220,9 +220,9 @@ renderLabel label =
--- View2 --- View2
view2 : Model -> Html Msg view2 : List (Attribute Msg) -> Model -> Html Msg
view2 model = view2 attrs model =
div [] div attrs
[ h3 [ class S.header3 ] [ h3 [ class S.header3 ]
[ text "Extracted Meta Data" [ text "Extracted Meta Data"
] ]
@ -252,7 +252,7 @@ viewData2 meta =
, div [ class "text-lg font-bold mt-2" ] , div [ class "text-lg font-bold mt-2" ]
[ text "Labels" [ text "Labels"
] ]
, div [ class "flex fex-row flex-wrap space-x-2" ] , div [ class "flex fex-row flex-wrap" ]
(List.map renderLabelItem2 meta.labels) (List.map renderLabelItem2 meta.labels)
, div [ class "text-lg font-bold mt-2" ] , div [ class "text-lg font-bold mt-2" ]
[ text "Proposals" [ text "Proposals"
@ -354,14 +354,14 @@ renderLabel2 label =
in in
div div
[ class S.basicLabel [ class S.basicLabel
, class "mt-1 text-sm" , class "mt-1 mr-2 text-sm"
, title label.labelType , title label.labelType
] ]
[ i [ class icon ] [] [ i [ class icon ] []
, span [ class "ml-2" ] , span [ class "ml-2" ]
[ text label.label [ text label.label
] ]
, div [ class "opacity-75 ml-3" ] , div [ class "opacity-75 ml-3 font-mono" ]
[ String.fromInt label.beginPos |> text [ String.fromInt label.beginPos |> text
, text "-" , text "-"
, String.fromInt label.endPos |> text , String.fromInt label.endPos |> text

View File

@ -55,7 +55,10 @@ view settings model pos attach =
case Dict.get attach.id model.attachMeta of case Dict.get attach.id model.attachMeta of
Just am -> Just am ->
Html.map (AttachMetaMsg attach.id) Html.map (AttachMetaMsg attach.id)
(Comp.AttachmentMeta.view2 am) (Comp.AttachmentMeta.view2
[ class "border-r border-l dark:border-bluegray-600 px-2" ]
am
)
Nothing -> Nothing ->
span [ class "hidden" ] [] span [ class "hidden" ] []