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

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

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

(-> 'simple)

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

(setq yank-excluded-properties t)

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

(defun yank-pop-back (&optional n)
  (interactive "p")
  (or n (setf n 1))
  (yank-pop (* n -1)))

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

(<- 'll-yank)