scrollToCursorB :: BufferM ()
scrollToCursorB = do
    MarkSet f i _ <- markLines
    h <- askWindow actualLines
    let m = f + (h `div` 2)
    scrollB $ i - m

-- | Move cursor to the top of the screen
scrollToCursorB :: BufferM ()
scrollToCursorB = do
    MarkSet f i _ <- markLines
    h <- askWindow actualLines
    let m = f + (h `div` 2)
    scrollB $ i - m

-- | Move cursor to the top of the screen
scrollToCursorB = do
    MarkSet f i _ <- markLines
    h <- askWindow actualLines
    let m = f + (h `div` 2)
    scrollB $ i - m

-- | Move cursor to the top of the screen