From ab5b42afd9a31e5c306f32600a72ad4bdcc09d9a Mon Sep 17 00:00:00 2001 From: Zelong Kuang Date: Sun, 14 Dec 2025 22:30:26 +1100 Subject: [PATCH] Better kill ring --- lisp/init-better-default.el | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) diff --git a/lisp/init-better-default.el b/lisp/init-better-default.el index 29a9c1c..90429b3 100644 --- a/lisp/init-better-default.el +++ b/lisp/init-better-default.el @@ -12,6 +12,23 @@ (load custom-file 'no-error 'no-message) (setq use-short-answers t) + +(setq kill-ring-max 200) + +;; Save clipboard contents into kill-ring before replace them +(setq save-interprogram-paste-before-kill t) +;; Kill & Mark things easily +(use-package easy-kill + :bind (([remap kill-ring-save] . easy-kill) + ([remap mark-sexp] . easy-mark))) + +;; Interactively insert and edit items from kill-ring +(use-package browse-kill-ring + :bind ("C-c k" . browse-kill-ring) + :hook (after-init . browse-kill-ring-default-keybindings) + :init (setq browse-kill-ring-separator "────────────────" + browse-kill-ring-separator-face 'shadow)) + (global-set-key (kbd "s-a") 'mark-whole-buffer) ;;对应Windows上面的Ctrl-a 全选 (global-set-key (kbd "s-c") 'kill-ring-save) ;;对应Windows上面的Ctrl-c 复制 (global-set-key (kbd "s-s") 'save-buffer) ;; 对应Windows上面的Ctrl-s 保存