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

(require 'cl-lib)
(cl-pushnew (expand-file-name ".") load-path :test #'string=)
(require 'luki-lisp)

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

(defun kill-current-buffer () (i)
  (kill-buffer (current-buffer)))

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

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

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

(<- 'll-close)