minimap.el

(defun adapt-minimap-to-current-buffer ()
  (interactive)
  (when (null minimap-bufname)
      (close-all-minimap-buffer)
      (minimap-new-minimap)))

(defun close-all-minimap-buffer ()
  (interactive)
  (let ((windows (window-list)))
    (dolist (win windows)
      (when (string/starts-with
             (buffer-name (window-buffer win))
             minimap-buffer-name-prefix)
        (delete-window win)))))