DeleteAllBuffersExceptCurrent() and key bindings for VIM9.1

delete-unused-buffers.vim

" Check if the function is already defined, then delete it before redefining it
if exists('*DeleteAllBuffersExceptCurrent')
    delfunction DeleteAllBuffersExceptCurrent
endif
" Define a function in Vim 9.1 to delete all buffers except the current one
def DeleteAllBuffersExceptCurrent(check_empty: bool)
    var current_buffer = bufnr('%')
    for buffer in getbufinfo()
        # echomsg buffer
        if buffer.bufnr != current_buffer && buffer.listed && !buffer.changed && (!check_empty || (empty(buffer.windows) && empty(buffer.popups)))
            # echomsg buffer
            execute 'bdelete ' .. buffer.bufnr
        endif
    endfor
enddef
" Delete buffers that not in any window or popup
nnoremap <silent> fbde :call DeleteAllBuffersExceptCurrent(v:true)<CR>
" Delete buffers except current active
nnoremap <silent> fbdex :call DeleteAllBuffersExceptCurrent(v:false)<CR>