config/doom: small modernisations

.config/doom/config.el

@@ -1247,6 +1247,18 @@ This is 0.3 red + 0.59 green + 0.11 blue and always between 0 and 255."
   (ispell-hunspell-add-multi-dic ispell-dictionary)
   )
 
+(defun ediff-compare-region-clipboard (begin end)
+  (interactive "r")
+  (save-excursion
+    (let ((selected-region (buffer-substring begin end))
+          (clipboard-buffer (get-buffer-create "*ediff-clipboard*"))
+          (region-buffer (get-buffer-create "*ediff-region*")))
+      (with-current-buffer clipboard-buffer
+        (insert (car kill-ring)))
+      (with-current-buffer region-buffer
+        (insert selected-region))
+      (ediff-buffers clipboard-buffer region-buffer))))
+
 ; uncomment this to exit loading the config prematurely
 ;(with-current-buffer " *load*"
 ;  (goto-char (point-max)))

.config/doom/init.el

@@ -21,9 +21,11 @@
 
        :completion
        company           ; the ultimate code completion backend
+       ;;corfu
        ;;helm              ; the *other* search engine for love and life
        ;;ido               ; the other *other* search engine...
-       ivy               ; a search engine for love and life
+       ;;ivy               ; a search engine for love and life
+       vertico
 
        :ui
        ;;deft              ; notational velocity for Emacs
@@ -34,7 +36,7 @@
        hl-todo           ; highlight TODO/FIXME/NOTE/DEPRECATED/HACK/REVIEW
        ;;hydra
        indent-guides     ; highlighted indent columns
-       ;;ligatures         ; ligatures and symbols to make your code pretty again
+       ligatures         ; ligatures and symbols to make your code pretty again
        minimap           ; show a map of the code on the side
        modeline          ; snazzy, Atom-inspired modeline, plus API
        nav-flash         ; blink cursor line after big motions

.config/doom/user.el##user.janek

@@ -41,4 +41,5 @@
     (add-to-list 'recentf-list (expand-file-name "5-incubator/download/" user-data-dir))
     (setq recentf-list (append (list-non-hidden-directories user-data-dir) recentf-list))
     (setq recentf-keep '(recentf-keep-default-predicate file-remote-p "/ssh:.*"))
+    (recentf-cleanup)
   )