;;; -*- lexical-binding: t -*-
;;
;; this file:
;;   https://dataswamp.org/~incal/emacs-init/close.el

(defun kill-current-buffer ()
  (interactive)
  (kill-buffer (current-buffer)) )

(defun set-close-key (map)
  (keymap-set map "w" #'kill-current-buffer))

(defun set-bury-keys (map)
  (keymap-set map "C-x k" #'bury-buffer)
  (keymap-set map "w"     #'bury-buffer) )

(provide 'close)