feat(editor): Replace browse-kill-ring with helm-show-kill-ring

core/siren-core-modules.el

@@ -26,7 +26,6 @@
 ;; Editor
 (require 'siren-amx)
 (require 'siren-highlight-symbol)
-(require 'siren-browse-kill-ring)
 (require 'siren-display-fill-column)
 (require 'siren-display-indentation)
 (require 'siren-display-line-numbers)

modules/editor/siren-browse-kill-ring.el

@@ -1,14 +0,0 @@
-;;; siren-browse-kill-ring.el --- jimeh's Emacs Siren: browse-kill-ring configuration.
-
-;;; Commentary:
-
-;; Basic configuration for browse-kill-ring.
-
-;;; Code:
-
-(use-package browse-kill-ring
-  :config
-  (browse-kill-ring-default-keybindings))
-
-(provide 'siren-browse-kill-ring)
-;;; siren-browse-kill-ring.el ends here

modules/navigation/siren-helm.el

@@ -148,6 +148,22 @@
   :bind
   ("C-t" . helm-imenu))
 
+(use-package helm-ring
+  :straight (helm)
+  :after (helm-config)
+  :defer t
+  :init
+  ;; This advice is borrowed from the browse-kill-ring package.
+  (defadvice yank-pop (around kill-ring-browse-maybe (arg))
+    "If last action was not a yank, run `helm-show-kill-ring' instead."
+    (interactive "p")
+    (if (not (eq last-command 'yank))
+        (helm-show-kill-ring)
+      (barf-if-buffer-read-only)
+      ad-do-it))
+
+  (ad-activate 'yank-pop))
+
 (use-package helm-descbinds
   :defer t)