TheAnachronism/docspell
1
0
Fork 0
mirror of https://github.com/TheAnachronism/docspell.git synced 2025-04-05 10:59:33 +00:00
Code Issues Packages Projects Releases Wiki Activity

Harmonize table views

Browse Source
This commit is contained in:
Eike Kettner 2020-11-30 21:26:31 +01:00
parent fc2668feee
commit 2e28c8e57b
6 changed files with 68 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
modules/webapp/src/main/elm/Comp/CustomFieldTable.elm
View File

@ -8,11 +8,9 @@ module Comp.CustomFieldTable exposing
)
import Api.Model.CustomField exposing (CustomField)
import Api.Model.CustomFieldList exposing (CustomFieldList)
import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (onClick)
import Util.Html
import Util.Time
@ -44,7 +42,7 @@ update msg model =
view : Model -> List CustomField -> Html Msg
view _ items =
div []
[ table [ class "ui very basic center aligned table" ]
[ table [ class "ui very basic aligned table" ]
[ thead []
[ tr []
[ th [ class "collapsing" ] []

18
modules/webapp/src/main/elm/Comp/EquipmentTable.elm
View File

@ -47,10 +47,11 @@ update _ msg model =
view : Model -> Html Msg
view model =
table [ class "ui selectable table" ]
table [ class "ui very basic aligned table" ]
[ thead []
[ tr []
[ th [] [ text "Name" ]
[ th [ class "collapsing" ] []
, th [] [ text "Name" ]
]
]
, tbody []
@ -62,9 +63,18 @@ renderEquipmentLine : Model -> Equipment -> Html Msg
renderEquipmentLine model equip =
tr
[ classList [ ( "active", model.selected == Just equip ) ]
, onClick (Select equip)
]
[ td []
[ td [ class "collapsing" ]
[ a
[ href "#"
, class "ui basic small blue label"
, onClick (Select equip)
]
[ i [ class "edit icon" ] []
, text "Edit"
]
]
, td []
[ text equip.name
]
]

14
modules/webapp/src/main/elm/Comp/FolderTable.elm
View File

@ -43,15 +43,15 @@ update msg model =
view : Model -> List FolderItem -> Html Msg
view _ items =
div []
[ table [ class "ui very basic center aligned table" ]
[ table [ class "ui very basic aligned table" ]
[ thead []
[ tr []
[ th [ class "collapsing" ] []
, th [] [ text "Name" ]
, th [] [ text "Owner" ]
, th [] [ text "Owner or Member" ]
, th [] [ text "#Member" ]
, th [] [ text "Created" ]
, th [ class "collapsing" ] [ text "Owner or Member" ]
, th [ class "collapsing" ] [ text "#Member" ]
, th [ class "collapsing" ] [ text "Created" ]
]
]
, tbody []
@ -79,14 +79,14 @@ viewItem item =
, td []
[ text item.owner.name
]
, td []
, td [ class "center aligned" ]
[ Util.Html.checkbox item.isMember
]
, td []
, td [ class "center aligned" ]
[ String.fromInt item.memberCount
|> text
]
, td []
, td [ class "center aligned" ]
[ Util.Time.formatDateShort item.created
|> text
]

24
modules/webapp/src/main/elm/Comp/OrgTable.elm
View File

@ -16,14 +16,14 @@ import Util.Contact
type alias Model =
{ equips : List Organization
{ orgs : List Organization
, selected : Maybe Organization
}
emptyModel : Model
emptyModel =
{ equips = []
{ orgs = []
, selected = Nothing
}
@ -38,7 +38,7 @@ update : Flags -> Msg -> Model -> ( Model, Cmd Msg )
update _ msg model =
case msg of
SetOrgs list ->
( { model | equips = list, selected = Nothing }, Cmd.none )
( { model | orgs = list, selected = Nothing }, Cmd.none )
Select equip ->
( { model | selected = Just equip }, Cmd.none )
@ -49,16 +49,17 @@ update _ msg model =
view : Model -> Html Msg
view model =
table [ class "ui selectable table" ]
table [ class "ui very basic aligned table" ]
[ thead []
[ tr []
[ th [ class "collapsing" ] [ text "Name" ]
[ th [ class "collapsing" ] []
, th [ class "collapsing" ] [ text "Name" ]
, th [] [ text "Address" ]
, th [] [ text "Contact" ]
]
]
, tbody []
(List.map (renderOrgLine model) model.equips)
(List.map (renderOrgLine model) model.orgs)
]
@ -66,9 +67,18 @@ renderOrgLine : Model -> Organization -> Html Msg
renderOrgLine model org =
tr
[ classList [ ( "active", model.selected == Just org ) ]
, onClick (Select org)
]
[ td [ class "collapsing" ]
[ a
[ href "#"
, class "ui basic small blue label"
, onClick (Select org)
]
[ i [ class "edit icon" ] []
, text "Edit"
]
]
, td [ class "collapsing" ]
[ text org.name
]
, td []

20
modules/webapp/src/main/elm/Comp/PersonTable.elm
View File

@ -49,11 +49,12 @@ update _ msg model =
view : Model -> Html Msg
view model =
table [ class "ui selectable table" ]
table [ class "ui very basic aligned table" ]
[ thead []
[ tr []
[ th [ class "collapsing" ] [ text "Name" ]
, th [ class "collapsing" ] [ text "Concerning" ]
[ th [ class "collapsing" ] []
, th [ class "collapsing" ] [ text "Name" ]
, th [ class "collapsing center aligned" ] [ text "Concerning" ]
, th [] [ text "Address" ]
, th [] [ text "Contact" ]
]
@ -67,12 +68,21 @@ renderPersonLine : Model -> Person -> Html Msg
renderPersonLine model person =
tr
[ classList [ ( "active", model.selected == Just person ) ]
, onClick (Select person)
]
[ td [ class "collapsing" ]
[ text person.name
[ a
[ href "#"
, class "ui basic small blue label"
, onClick (Select person)
]
[ i [ class "edit icon" ] []
, text "Edit"
]
]
, td [ class "collapsing" ]
[ text person.name
]
, td [ class "center aligned" ]
[ if person.concerning then
i [ class "check square outline icon" ] []

18
modules/webapp/src/main/elm/Comp/TagTable.elm
View File

@ -47,10 +47,11 @@ update _ msg model =
view : Model -> Html Msg
view model =
table [ class "ui selectable table" ]
table [ class "ui very basic aligned table" ]
[ thead []
[ tr []
[ th [] [ text "Name" ]
[ th [ class "collapsing" ] []
, th [ class "eight wide" ] [ text "Name" ]
, th [] [ text "Category" ]
]
]
@ -63,9 +64,18 @@ renderTagLine : Model -> Tag -> Html Msg
renderTagLine model tag =
tr
[ classList [ ( "active", model.selected == Just tag ) ]
, onClick (Select tag)
]
[ td []
[ td [ class "collapsing" ]
[ a
[ href "#"
, class "ui basic small blue label"
, onClick (Select tag)
]
[ i [ class "edit icon" ] []
, text "Edit"
]
]
, td []
[ text tag.name
]
, td []