Make parsed sheet more compact by merging adjacent lyrics tokens

zcesur · Aug 17, 2020 · 21d038c · 21d038c
1 parent 93868b1
commit 21d038c
Showing 1 changed file with 15 additions and 0 deletions.
diff --git a/src/Main.elm b/src/Main.elm
@@ -85,10 +85,25 @@ parseSheet =
         isMusical : Char -> Bool
         isMusical c =
             List.member c [ '+', '-', '#', '/' ]
+
+        consCompact : Token -> List Token -> List Token
+        consCompact x ys =
+            case ys of
+                t :: ts ->
+                    case ( x, t ) of
+                        ( Lyrics a, Lyrics b ) ->
+                            Lyrics (a ++ b) :: ts
+
+                        _ ->
+                            x :: ys
+
+                [] ->
+                    x :: ys
     in
     String.toList
         >> List.groupWhile (\x y -> xor (isWordSymbol x) (isWordSymbol y) |> not)
         >> List.map (fromNonEmpty >> String.fromList >> parseToken)
+        >> List.foldr consCompact []
 
 
 parseToken : String -> Token