let
get_buffer_by_name name =
List
.find (
fun
b
->
b
#
name = name) !buffers