Config: add exwm support, install consult-notes, fix some keybinding.

2026-04-19 10:59:01 +08:00
parent fffd35f8ed
commit 8576ac275a
11 changed files with 110 additions and 24 deletions
--- a/lisp/init-exwm.el
+++ b/lisp/init-exwm.el
@@ -1,10 +1,84 @@
-;;; init-exwm.el --- exwm config  -*- lexical-binding: t -*-
+ ;;; init-exwm.el --- exwm config  -*- lexical-binding: t -*-

 ;;; Commentary:

 ;;; Code:

-(use-package exwm)
+(when *is-linux*
+  (use-package exwm
+    :config
+    (setq exwm-workspace-number 5)
+    (exwm-input-set-key (kbd "s-&")
+                        (lambda (command)
+                          (interactive (list (read-shell-command "$ ")))
+                          (let ((display-buffer-alist
+                                 '((".*" . (display-buffer-no-window . nil)))))
+                            (async-shell-command command))))
+
+    (setq exwm-input-prefix-keys
+          '(?\C-x
+            ?\C-u
+            ?\C-c
+            ?\C-h
+            ?\M-x
+            ?\M-o
+            ?\M-]
+          ?\M-[
+               XF86AudioLowerVolume
+               XF86AudioRaiseVolume
+               XF86AudioMute
+               ))
+
+    (define-key exwm-mode-map [?\C-q] 'exwm-input-send-next-key)
+
+    (setq exwm-input-global-keys
+          `(([?\s-r] . exwm-reset)
+            ([?\s-b] . windmove-left)
+            ([?\s-f] . windmove-right)
+            ([?\s-p] . windmove-up)
+            ([?\s-n] . windmove-down)
+            ([?\s-S] . desktop-environment-screenshot)
+            ([?\s-s] . desktop-environment-screenshot-part)
+            ([?\s-w] . exwm-workspace-switch)
+            ([?\s-`] . (lambda () (interactive) (exwm-workspace-switch-create 0)))
+            ,@(mapcar (lambda (i)
+                        `(,(kbd(format "s-%d" i)) .
+                          (lambda ()
+                            (interactive)
+                            (exwm-workspace-switch-create ,i))))
+                      (number-sequence 0 9))))
+
+    (defun my/exwm-update-class ()
+      (exwm-workspace-rename-buffer exwm-class-name))
+
+    (add-hook 'exwm-update-class-hook #'my/exwm-update-class)
+
+    (require 'exwm-xim)
+    (exwm-xim-mode)
+
+    (exwm-wm-mode))
+
+  (use-package desktop-environment
+    :config
+    (desktop-environment-mode)
+    (advice-add 'desktop-environment-screenshot :after
+                (lambda (&rest _) (message "Saved fullscreen screenshot.")))
+    (advice-add 'desktop-environment-screenshot-part :after
+                (lambda (&rest _) (message "Saved partial screenshot.")))
+    :custom
+    (desktop-environment-screenshot-command
+     "import -window root ~/Pictures/screenshot-$(date +%Y%m%d-%H%M%S).png")
+    (desktop-environment-screenshot-partial-command
+     "import ~/Pictures/screenshot-$(date +%Y%m%d-%H%M%S).png"))
+
+  (add-hook 'exwm-init-hook
+            (lambda ()
+              (unless (zerop (shell-command "pgrep -x fcitx5"))
+                (start-process-shell-command "fcitx5" nil "fcitx5 -d"))
+              (unless (zerop (shell-command "pgrep -x mihomo"))
+                (start-process-shell-command "mihomo" nil "mihomo -d ~/.config/mihomo/"))
+              (message "fcitx5 enable.")))
+  )

 (provide 'init-exwm)