sgE :: EditorM ()
layoutManagersPrintMsgE = do
  lm <- use $ currentTabA . tabLayoutManagerA
  printMsg . T.pack $ describeLayout lm

-- | Cycle to the next layout manager, or the first one if the current
-- one is nonstandard.
layoutManagersNextE
layoutManagersPrintMsgE :: EditorM ()
layoutManagersPrintMsgE = do
  lm <- use $ currentTabA . tabLayoutManagerA
  printMsg . T.pack $ describeLayout lm

-- | Cycle to the next layout manager, or the first one if the current
-- one is nonstandard.
layoutManagersPrintMsgE = do
  lm <- use $ currentTabA . tabLayoutManagerA
  printMsg . T.pack $ describeLayout lm

-- | Cycle to the next layout manager, or the first one if the current
-- one is nonstandard.