: T.Text -> Editor -> [BufferRef]
findBufferWithName n e =
  let bufs = M.elems $ buffers e
      sameIdent b = shortIdentString (length $ commonNamePrefix e) b == n
  in map bkey $ filter sameIdent bufs

-- | Find buffer w
findBufferWithName :: T.Text -> Editor -> [BufferRef]
findBufferWithName n e =
  let bufs = M.elems $ buffers e
      sameIdent b = shortIdentString (length $ commonNamePrefix e) b == n
  in map bkey $ filter sameIdent bufs
findBufferWithName n e =
  let bufs = M.elems $ buffers e
      sameIdent b = shortIdentString (length $ commonNamePrefix e) b == n
  in map bkey $ filter sameIdent bufs