makeBracketLabel :: MonadA m => String -> Widget.Id -> ExprGuiM m (ExpressionGui f)
makeBracketLabel label myId = do
  config <- ExprGuiM.widgetEnv WE.readConfig
  ExpressionGui.fromValueWidget <$>
    ExpressionGui.makeColoredLabel
    (Config.listBracketTextSize config)
    (Config.listBracketColor config)
    label myId
makeBracketLabel :: MonadA m => String -> Widget.Id -> ExprGuiM m (ExpressionGui f)
makeBracketLabel label myId = do
  config <- ExprGuiM.widgetEnv WE.readConfig
  ExpressionGui.fromValueWidget <$>
    ExpressionGui.makeColoredLabel
    (Config.listBracketTextSize config)
    (Config.listBracketColor config)
    label myId
makeBracketLabel label myId = do
  config <- ExprGuiM.widgetEnv WE.readConfig
  ExpressionGui.fromValueWidget <$>
    ExpressionGui.makeColoredLabel
    (Config.listBracketTextSize config)
    (Config.listBracketColor config)
    label myId