buffer-copy.el

;;; buffer-copy.el --- 

;;; Code:


(require 'windmove)

;;;###autoload
(defun buf-copy-up ()
  "Copy the current buffer to the buffer above the split.
If there is no split, ie now window above the current one, an
error is signaled."
;;  "Switches between the current buffer, and the buffer above the
;;  split, if possible."
  (interactive)
  (let ((buf (window-buffer)))
    (windmove-up)
    (set-window-buffer nil buf)))

;;;###autoload
(defun buf-copy-down ()
"Copy the current buffer to the buffer under the split.
If there is no split, ie now window under the current one, an
error is signaled."
  (interactive)
  (let ((buf (window-buffer)))
    (windmove-down)
    (set-window-buffer nil buf)))

;;;###autoload
(defun buf-copy-left ()
"Copy the current buffer to the buffer on the left of the split.
If there is no split, ie now window on the left of the current
one, an error is signaled."
  (interactive)
  (let ((buf (window-buffer)))
    (windmove-left)
    (set-window-buffer nil buf)))

;;;###autoload
(defun buf-copy-right ()
"Copy the current buffer to the buffer on the right of the split.
If there is no split, ie now window on the right of the current
one, an error is signaled."
  (interactive)
  (let ((buf (window-buffer)))
    (windmove-right)
    (set-window-buffer nil buf)))

(provide 'buffer-copy)
;;; buffer-move.el ends here

config.el

(spacemacs/set-leader-keys
  "bh" 'buf-copy-left
  "bj" 'buf-copy-down
  "bk" 'buf-copy-up
  "bl" 'buf-copy-right)