placeMark :: BufferM ()
placeMark = (==) <$> pointB <*> getSelectionMarkPointB >>= \case
  True -> setVisibleSelection False
  False -> setVisibleSelection True >> pointB >>= setSelectionMarkPointB

-- | Select the contents of the whole buffer
placeMark :: BufferM ()
placeMark = (==) <$> pointB <*> getSelectionMarkPointB >>= \case
  True -> setVisibleSelection False
  False -> setVisibleSelection True >> pointB >>= setSelectionMarkPointB

-- | Select the contents of the whole buffer
placeMark = (==) <$> pointB <*> getSelectionMarkPointB >>= \case
  True -> setVisibleSelection False
  False -> setVisibleSelection True >> pointB >>= setSelectionMarkPointB

-- | Select the contents of the whole buffer