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

Rename ui setting field

Browse Source
This commit is contained in:
Eike Kettner 2020-08-08 10:23:08 +02:00
parent 7c8c2f856f
commit 4c57d16501
3 changed files with 18 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
modules/webapp/src/main/elm/Comp/SearchMenu.elm
View File

@ -596,7 +596,7 @@ view flags settings model =
] ]
, Html.map TagSelectMsg (Comp.TagSelect.view settings model.tagSelectModel) , Html.map TagSelectMsg (Comp.TagSelect.view settings model.tagSelectModel)
, Html.map FolderSelectMsg , Html.map FolderSelectMsg
(Comp.FolderSelect.view settings.searchMenuFolders model.folderList) (Comp.FolderSelect.view settings.searchMenuFolderCount model.folderList)
, formHeaderHelp nameIcon "Names" ToggleNameHelp , formHeaderHelp nameIcon "Names" ToggleNameHelp
, span , span
[ classList [ classList

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

@ -30,8 +30,8 @@ type alias Model =
, itemSearchNoteLength : Maybe Int , itemSearchNoteLength : Maybe Int
, searchNoteLengthModel : Comp.IntField.Model , searchNoteLengthModel : Comp.IntField.Model
, itemDetailNotesPosition : Pos , itemDetailNotesPosition : Pos
, searchMenuFolders : Maybe Int , searchMenuFolderCount : Maybe Int
, searchMenuFoldersModel : Comp.IntField.Model , searchMenuFolderCountModel : Comp.IntField.Model
} }
@ -58,8 +58,8 @@ init flags settings =
False False
"Max. Note Length" "Max. Note Length"
, itemDetailNotesPosition = settings.itemDetailNotesPosition , itemDetailNotesPosition = settings.itemDetailNotesPosition
, searchMenuFolders = Just settings.searchMenuFolders , searchMenuFolderCount = Just settings.searchMenuFolderCount
, searchMenuFoldersModel = , searchMenuFolderCountModel =
Comp.IntField.init Comp.IntField.init
(Just 0) (Just 0)
(Just 2000) (Just 2000)
@ -122,15 +122,15 @@ update sett msg model =
SearchMenuFolderMsg lm -> SearchMenuFolderMsg lm ->
let let
( m, n ) = ( m, n ) =
Comp.IntField.update lm model.searchMenuFoldersModel Comp.IntField.update lm model.searchMenuFolderCountModel
nextSettings = nextSettings =
Maybe.map (\len -> { sett | searchMenuFolders = len }) n Maybe.map (\len -> { sett | searchMenuFolderCount = len }) n
model_ = model_ =
{ model { model
| searchMenuFoldersModel = m | searchMenuFolderCountModel = m
, searchMenuFolders = n , searchMenuFolderCount = n
} }
in in
( model_, nextSettings ) ( model_, nextSettings )
@ -235,9 +235,9 @@ view flags _ model =
, Html.map SearchMenuFolderMsg , Html.map SearchMenuFolderMsg
(Comp.IntField.viewWithInfo (Comp.IntField.viewWithInfo
"How many folders to display in search menu at once. Other folders can be expanded." "How many folders to display in search menu at once. Other folders can be expanded."
model.searchMenuFolders model.searchMenuFolderCount
"field" "field"
model.searchMenuFoldersModel model.searchMenuFolderCountModel
) )
, div [ class "ui dividing header" ] , div [ class "ui dividing header" ]
[ text "Item Detail" [ text "Item Detail"

14
modules/webapp/src/main/elm/Data/UiSettings.elm
View File

@ -33,7 +33,7 @@ type alias StoredUiSettings =
, nativePdfPreview : Bool , nativePdfPreview : Bool
, itemSearchNoteLength : Maybe Int , itemSearchNoteLength : Maybe Int
, itemDetailNotesPosition : Maybe String , itemDetailNotesPosition : Maybe String
, searchMenuFolders : Maybe Int , searchMenuFolderCount : Maybe Int
} }
@ -50,7 +50,7 @@ type alias UiSettings =
, nativePdfPreview : Bool , nativePdfPreview : Bool
, itemSearchNoteLength : Int , itemSearchNoteLength : Int
, itemDetailNotesPosition : Pos , itemDetailNotesPosition : Pos
, searchMenuFolders : Int , searchMenuFolderCount : Int
} }
@ -89,7 +89,7 @@ defaults =
, nativePdfPreview = False , nativePdfPreview = False
, itemSearchNoteLength = 0 , itemSearchNoteLength = 0
, itemDetailNotesPosition = Top , itemDetailNotesPosition = Top
, searchMenuFolders = 5 , searchMenuFolderCount = 4
} }
@ -111,9 +111,9 @@ merge given fallback =
, itemDetailNotesPosition = , itemDetailNotesPosition =
choose (Maybe.andThen posFromString given.itemDetailNotesPosition) choose (Maybe.andThen posFromString given.itemDetailNotesPosition)
fallback.itemDetailNotesPosition fallback.itemDetailNotesPosition
, searchMenuFolders = , searchMenuFolderCount =
choose given.searchMenuFolders choose given.searchMenuFolderCount
fallback.searchMenuFolders fallback.searchMenuFolderCount
} }
@ -131,7 +131,7 @@ toStoredUiSettings settings =
, nativePdfPreview = settings.nativePdfPreview , nativePdfPreview = settings.nativePdfPreview
, itemSearchNoteLength = Just settings.itemSearchNoteLength , itemSearchNoteLength = Just settings.itemSearchNoteLength
, itemDetailNotesPosition = Just (posToString settings.itemDetailNotesPosition) , itemDetailNotesPosition = Just (posToString settings.itemDetailNotesPosition)
, searchMenuFolders = Just settings.searchMenuFolders , searchMenuFolderCount = Just settings.searchMenuFolderCount
} }