NoRedInk/noredink-ui
1
1
Fork 0
mirror of https://github.com/NoRedInk/noredink-ui.git synced 2024-09-21 20:27:36 +03:00
Code Issues Packages Projects Releases Wiki Activity

Support sentence level segments in addition to word-level segments

Browse Source
This commit is contained in:
Tessa Kelly 2022-09-13 13:45:10 -06:00
parent 52af96526c
commit 2c5c64a35f
1 changed files with 39 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
styleguide-app/Examples/Highlighter.elm
View File

@ -215,29 +215,62 @@ init =
controlSettings
in
{ settings = settings
, highlighter =
initHighlighter (Control.currentValue settings)
(Highlightable.initFragments Nothing CommonControls.romeoAndJulietQuotation)
, highlighter = initHighlighter (Control.currentValue settings) []
}
initHighlighter : Settings -> List (Highlightable ()) -> Highlighter.Model ()
initHighlighter settings highlightables =
initHighlighter settings previousHighlightables =
let
highlightables =
if settings.splitOnSentences then
let
segments =
String.split "." CommonControls.romeoAndJulietQuotation
segmentCount =
List.length segments
in
List.indexedMap
(\index sentence ->
Highlightable.init Highlightable.Interactive
Nothing
index
( []
, if (index + 1) == segmentCount then
sentence
else
sentence ++ "."
)
)
segments
else
Highlightable.initFragments Nothing CommonControls.romeoAndJulietQuotation
in
Highlighter.init
{ id = "example-romeo-and-juliet"
, highlightables = highlightables
, highlightables =
if List.map .text previousHighlightables == List.map .text highlightables then
previousHighlightables
else
highlightables
, marker = settings.tool
}
type alias Settings =
{ tool : Tool.Tool ()
{ splitOnSentences : Bool
, tool : Tool.Tool ()
}
controlSettings : Control Settings
controlSettings =
Control.record Settings
|> Control.field "splitOnSentences" (Control.bool False)
|> Control.field "tool"
(Control.choice
[ ( "Marker", Control.map Tool.Marker controlMarker )