Some ui tweaks

This commit is contained in:
eikek
2022-01-09 14:55:33 +01:00
parent c2fc1d117f
commit 187e7d020d

View File

@ -14,7 +14,7 @@ module Comp.BookmarkChooser exposing
import Api.Model.ShareDetail exposing (ShareDetail) import Api.Model.ShareDetail exposing (ShareDetail)
import Data.BookmarkedQuery exposing (AllBookmarks, BookmarkedQuery) import Data.BookmarkedQuery exposing (AllBookmarks, BookmarkedQuery)
import Data.Icons as Icons import Data.Icons as Icons
import Html exposing (Html, a, div, i, span, text) import Html exposing (Html, a, div, i, label, span, text)
import Html.Attributes exposing (class, classList, href) import Html.Attributes exposing (class, classList, href)
import Html.Events exposing (onClick) import Html.Events exposing (onClick)
import Messages.Comp.BookmarkChooser exposing (Texts) import Messages.Comp.BookmarkChooser exposing (Texts)
@ -121,15 +121,22 @@ view texts model selection =
] ]
titleDiv : String -> Html msg
titleDiv label =
div [ class "text-sm opacity-75 py-0.5 italic" ]
[ text label
--, text " ──"
]
userBookmarks : Texts -> Model -> Selection -> Html Msg userBookmarks : Texts -> Model -> Selection -> Html Msg
userBookmarks texts model sel = userBookmarks texts model sel =
div div
[ class "mb-2" [ class "mb-2"
, classList [ ( "hidden", Data.BookmarkedQuery.emptyBookmarks == model.all.user ) ] , classList [ ( "hidden", Data.BookmarkedQuery.emptyBookmarks == model.all.user ) ]
] ]
[ div [ class " text-sm font-semibold py-0.5 " ] [ titleDiv texts.userLabel
[ text texts.userLabel
]
, div [ class "flex flex-col space-y-2 md:space-y-1" ] , div [ class "flex flex-col space-y-2 md:space-y-1" ]
(Data.BookmarkedQuery.map (mkItem "fa fa-bookmark" sel User) model.all.user) (Data.BookmarkedQuery.map (mkItem "fa fa-bookmark" sel User) model.all.user)
] ]
@ -141,9 +148,7 @@ collBookmarks texts model sel =
[ class "mb-2" [ class "mb-2"
, classList [ ( "hidden", Data.BookmarkedQuery.emptyBookmarks == model.all.collective ) ] , classList [ ( "hidden", Data.BookmarkedQuery.emptyBookmarks == model.all.collective ) ]
] ]
[ div [ class " text-sm font-semibold py-0.5 " ] [ titleDiv texts.collectiveLabel
[ text texts.collectiveLabel
]
, div [ class "flex flex-col space-y-2 md:space-y-1" ] , div [ class "flex flex-col space-y-2 md:space-y-1" ]
(Data.BookmarkedQuery.map (mkItem "fa fa-bookmark font-light" sel Collective) model.all.collective) (Data.BookmarkedQuery.map (mkItem "fa fa-bookmark font-light" sel Collective) model.all.collective)
] ]
@ -159,9 +164,7 @@ shares texts model sel =
[ class "" [ class ""
, classList [ ( "hidden", List.isEmpty bms ) ] , classList [ ( "hidden", List.isEmpty bms ) ]
] ]
[ div [ class " text-sm font-semibold py-0.5 " ] [ titleDiv texts.shareLabel
[ text texts.shareLabel
]
, div [ class "flex flex-col space-y-2 md:space-y-1" ] , div [ class "flex flex-col space-y-2 md:space-y-1" ]
(List.map (mkItem Icons.share sel Share) bms) (List.map (mkItem Icons.share sel Share) bms)
] ]