;;; -*- lexical-binding: t -*-
;;
;; --------------------------------------------------------------------------

(require 'luki-lisp)

;; --------------------------------------------------------------------------

(defun kill-current-buffer () (i)
  (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))

;; --------------------------------------------------------------------------

(<- 'll-close)