TheAnachronism/docspell
1
0
Fork 0
mirror of https://github.com/TheAnachronism/docspell.git synced 2025-06-22 10:28:27 +00:00
Code Issues Packages Projects Releases Wiki Activity

Define how many tags to see in ui settings

Browse Source
This commit is contained in:
Eike Kettner
2020-08-08 11:16:45 +02:00
parent 4c57d16501
commit f0a5f84c8b
6 changed files with 405 additions and 190 deletions
Download Patch File Download Diff File Expand all files Collapse all files

43
modules/webapp/src/main/elm/Comp/FolderSelect.elm
View File

@ -10,6 +10,7 @@ import Api.Model.FolderItem exposing (FolderItem)
import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (onClick)
import Util.ExpandCollapse
import Util.List
@ -103,44 +104,18 @@ renderItems constr model =
expandToggle : Int -> Model -> List (Html Msg)
expandToggle max model =
if max > List.length model.all then
[]
else
[ a
[ class "item"
, onClick ToggleExpand
, href "#"
]
[ i [ class "angle down icon" ] []
, div [ class "content" ]
[ div [ class "description" ]
[ em [] [ text "Show More …" ]
]
]
]
]
Util.ExpandCollapse.expandToggle
max
(List.length model.all)
ToggleExpand
collapseToggle : Int -> Model -> List (Html Msg)
collapseToggle max model =
if max > List.length model.all then
[]
else
[ a
[ class "item"
, onClick ToggleExpand
, href "#"
]
[ i [ class "angle up icon" ] []
, div [ class "content" ]
[ div [ class "description" ]
[ em [] [ text "Show Less …" ]
]
]
]
]
Util.ExpandCollapse.collapseToggle
max
(List.length model.all)
ToggleExpand
viewItem : Model -> FolderItem -> Html Msg