commit 2b7a791c1f2ee8221fd8c891bb137bdb0a7ae588
from: Lukas Henkel <lh@entf.net>
date: Mon Sep 01 19:21:41 2025 UTC

Transfer some useful key bindings

commit - c895727b6441e04504671c807068b5fcca2fc50c
commit + 2b7a791c1f2ee8221fd8c891bb137bdb0a7ae588
blob - b1b1249c775aa5b9d58ab5f254db197c828c11dd
blob + 5fcafacee76da44024a76a8368c10e684803ca8b
--- init.el
+++ init.el
@@ -1,6 +1,7 @@
 ;; -*- lexical-binding: t; -*-
 ;;; My emacs config
 (require 'xdg)
+(require 'cl-lib)
 
 (setq lh/dir-data-home
       (expand-file-name
@@ -11,8 +12,16 @@
   (make-directory lisp-dir t)
   (add-to-list 'load-path lisp-dir))
 
+(defun lh/keymap-set-keys (keymap &rest pairs)
+  (cl-loop for (key function) on pairs by #'cddr
+           do (keymap-set keymap key function)))
+
 (setopt custom-file (expand-file-name "custom.el" user-emacs-directory))
 
+(lh/keymap-set-keys global-map
+                    "<mouse-8>" 'xref-go-back
+                    "<mouse-9>" 'xref-go-forward)
+
 ;;;; package.el setup
 (setopt package-archives           '(("gnu" . "https://elpa.gnu.org/packages/")
                                      ("nongnu" . "https://elpa.nongnu.org/nongnu/")
@@ -39,6 +48,12 @@
         completions-format 'one-column
         completions-max-height 20)
 (setopt fido-vertical-mode t)
+(lh/keymap-set-keys icomplete-fido-mode-map
+                    "TAB"     'icomplete-force-complete
+                    "<left>"  'left-char
+                    "<right>" 'right-char
+                    "^"       'icomplete-fido-backward-updir
+                    "DEL"     'backward-delete-char)
 
 ;; This hack allows using my default set of completion styles in fido instead of being forced to
 ;; use flex. Flex is especially annoying since it does not prioritise prefix matches.
@@ -63,6 +78,10 @@
 (add-hook 'paredit-mode-hook 'lh/enable-paredit-menu)
 (add-hook 'lisp-mode-hook 'paredit-mode)
 (add-hook 'emacs-lisp-mode-hook 'paredit-mode)
+(with-eval-after-load "sly"
+  (lh/keymap-set-keys sly-inspector-mode-map
+                      "<mouse-8>" 'sly-inspector-pop
+                      "<mouse-9>" 'sly-inspector-next))
 
 ;;;;; CSV
 (add-hook 'csv-mode-hook 'csv-align-mode)