module Yi.Config.Default.JavaScriptMode (configureJavaScriptMode) where

import Lens.Micro.Platform ((%=))
import Yi.Mode.JavaScript
import Yi.Config.Simple (ConfigM)
import Yi.Config.Lens   (modeTableA)
import Yi.Types         (AnyMode (..))

configureJavaScriptMode :: ConfigM ()
configureJavaScriptMode :: ConfigM ()
configureJavaScriptMode = ([AnyMode] -> Identity [AnyMode]) -> Config -> Identity Config
Lens' Config [AnyMode]
modeTableA (([AnyMode] -> Identity [AnyMode]) -> Config -> Identity Config)
-> ([AnyMode] -> [AnyMode]) -> ConfigM ()
forall s (m :: * -> *) a b.
MonadState s m =>
ASetter s s a b -> (a -> b) -> m ()
%= (Mode (Tree TT) -> AnyMode
forall syntax. Mode syntax -> AnyMode
AnyMode (Mode (Tree TT) -> Mode (Tree TT)
hooks Mode (Tree TT)
javaScriptMode) AnyMode -> [AnyMode] -> [AnyMode]
forall a. a -> [a] -> [a]
:)