arks :: BufferM WinMarks
askMarks = do
    Just ms <- getMarks =<< ask
    return ms

ge
askMarks :: BufferM WinMarks
askMarks = do
    Just ms <- getMarks =<< ask
    return ms
askMarks = do
    Just ms <- getMarks =<< ask
    return ms