1 files changed, 16 insertions, 0 deletions

@@ -0,0 +1,16 @@
+;;; +vertico.el -*- lexical-binding: t; -*-
+
+;;; Code:
+
+;; https://old.reddit.com/r/emacs/comments/rbmfwk/weekly_tips_tricks_c_thread/hof7rz7/
+;; Add this advice to `vertico-next'.
+;; Takes care of `vertico-previous' as well, since it calls `vertico-next'.
+(defun +vertico-ding-wrap (origin &rest args)
+  "ADVICE to wrap `vertico-next': ding when wrapping."
+  (let ((beg-index vertico--index))
+    (apply origin args)
+    (unless (eq 1 (abs (- beg-index vertico--index)))
+      (ding))))
+
+(provide '+vertico)
+;;; +vertico.el ends here