mirror of
https://github.com/TheAnachronism/docspell.git
synced 2025-04-15 15:49:33 +00:00
dd935454c9
This drops fomantic-ui as css toolkit and introduces tailwindcss. With tailwind there are no predefined components, but it's very easy to create those. So customizing the look&feel is much simpler, most of the time no additional css is needed. This requires a complete rewrite of the markup + styles. Luckily all logic can be kept as is. The now old ui is not removed, it is still available by using a request header `Docspell-Ui` with a value of `1` for the old ui and `2` for the new ui. Another addition is "dev mode", where docspell serves assets with a no-cache header, to disable browser caching. This makes developing a lot easier.
156 lines
4.0 KiB
Elm
156 lines
4.0 KiB
Elm
module Comp.PersonTable exposing
|
|
( Model
|
|
, Msg(..)
|
|
, emptyModel
|
|
, update
|
|
, view
|
|
, view2
|
|
)
|
|
|
|
import Api.Model.Person exposing (Person)
|
|
import Comp.Basic as B
|
|
import Data.Flags exposing (Flags)
|
|
import Html exposing (..)
|
|
import Html.Attributes exposing (..)
|
|
import Html.Events exposing (onClick)
|
|
import Styles as S
|
|
import Util.Address
|
|
import Util.Contact
|
|
import Util.Html
|
|
|
|
|
|
type alias Model =
|
|
{ equips : List Person
|
|
, selected : Maybe Person
|
|
}
|
|
|
|
|
|
emptyModel : Model
|
|
emptyModel =
|
|
{ equips = []
|
|
, selected = Nothing
|
|
}
|
|
|
|
|
|
type Msg
|
|
= SetPersons (List Person)
|
|
| Select Person
|
|
| Deselect
|
|
|
|
|
|
update : Flags -> Msg -> Model -> ( Model, Cmd Msg )
|
|
update _ msg model =
|
|
case msg of
|
|
SetPersons list ->
|
|
( { model | equips = list, selected = Nothing }, Cmd.none )
|
|
|
|
Select equip ->
|
|
( { model | selected = Just equip }, Cmd.none )
|
|
|
|
Deselect ->
|
|
( { model | selected = Nothing }, Cmd.none )
|
|
|
|
|
|
view : Model -> Html Msg
|
|
view model =
|
|
table [ class "ui very basic aligned table" ]
|
|
[ thead []
|
|
[ tr []
|
|
[ th [ class "collapsing" ] []
|
|
, th [ class "collapsing center aligned" ] [ text "Concerning" ]
|
|
, th [] [ text "Name" ]
|
|
, th [] [ text "Organization" ]
|
|
, th [] [ text "Address" ]
|
|
, th [] [ text "Contact" ]
|
|
]
|
|
]
|
|
, tbody []
|
|
(List.map (renderPersonLine model) model.equips)
|
|
]
|
|
|
|
|
|
renderPersonLine : Model -> Person -> Html Msg
|
|
renderPersonLine model person =
|
|
tr
|
|
[ classList [ ( "active", model.selected == Just person ) ]
|
|
]
|
|
[ td [ class "collapsing" ]
|
|
[ a
|
|
[ href "#"
|
|
, class "ui basic small blue label"
|
|
, onClick (Select person)
|
|
]
|
|
[ i [ class "edit icon" ] []
|
|
, text "Edit"
|
|
]
|
|
]
|
|
, td [ class "center aligned" ]
|
|
[ if person.concerning then
|
|
i [ class "check square outline icon" ] []
|
|
|
|
else
|
|
i [ class "minus square outline icon" ] []
|
|
]
|
|
, td []
|
|
[ text person.name
|
|
]
|
|
, td []
|
|
[ Maybe.map .name person.organization
|
|
|> Maybe.withDefault "-"
|
|
|> text
|
|
]
|
|
, td []
|
|
[ Util.Address.toString person.address |> text
|
|
]
|
|
, td []
|
|
[ Util.Contact.toString person.contacts |> text
|
|
]
|
|
]
|
|
|
|
|
|
|
|
--- View2
|
|
|
|
|
|
view2 : Model -> Html Msg
|
|
view2 model =
|
|
table [ class S.tableMain ]
|
|
[ thead []
|
|
[ tr []
|
|
[ th [ class "w-px whitespace-nowrap" ] []
|
|
, th [ class "w-px whitespace-nowrap text-center pr-1 md:px-2" ]
|
|
[ text "Concerning"
|
|
]
|
|
, th [ class "text-left" ] [ text "Name" ]
|
|
, th [ class "text-left hidden sm:table-cell" ] [ text "Organization" ]
|
|
, th [ class "text-left hidden md:table-cell" ] [ text "Contact" ]
|
|
]
|
|
]
|
|
, tbody []
|
|
(List.map (renderPersonLine2 model) model.equips)
|
|
]
|
|
|
|
|
|
renderPersonLine2 : Model -> Person -> Html Msg
|
|
renderPersonLine2 model person =
|
|
tr
|
|
[ classList [ ( "active", model.selected == Just person ) ]
|
|
, class S.tableRow
|
|
]
|
|
[ B.editLinkTableCell (Select person)
|
|
, td [ class "w-px whitespace-nowrap text-center" ]
|
|
[ Util.Html.checkbox2 person.concerning
|
|
]
|
|
, td []
|
|
[ text person.name
|
|
]
|
|
, td [ class "hidden sm:table-cell" ]
|
|
[ Maybe.map .name person.organization
|
|
|> Maybe.withDefault "-"
|
|
|> text
|
|
]
|
|
, td [ class "hidden md:table-cell" ]
|
|
[ Util.Contact.toString person.contacts |> text
|
|
]
|
|
]
|