admin/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

style: Convert tabs to spaces across Emacs config

Browse Source
This commit is contained in:
User
2026-07-02 17:36:06 +08:00
parent abe00aa936
commit ddd2ba4905
24 changed files with 384 additions and 379 deletions
Download Patch File Download Diff File Expand all files Collapse all files

54
lisp/init-exwm.el
View File

@@ -1,4 +1,4 @@
;;; init-exwm.el --- exwm config -*- lexical-binding: t -*-
;;; init-exwm.el --- exwm config -*- lexical-binding: t -*-
;;; Commentary:
@@ -58,7 +58,7 @@
?\M-]
?\s-[
?\s-]
?\s-
?\s-
XF86AudioLowerVolume
XF86AudioRaiseVolume
XF86AudioMute
@@ -75,7 +75,7 @@
([?\s-s] . desktop-environment-screenshot-part)
([?\s-w] . exwm-workspace-switch)
([?\s-o] . other-window)
([?\s-m] . exwm-layout-toggle-mode-line)
([?\s-m] . exwm-layout-toggle-mode-line)
([?\s-`] . (lambda () (interactive) (exwm-workspace-switch-create 0)))
,@(mapcar (lambda (i)
`(,(kbd(format "s-%d" i)) .
@@ -85,25 +85,25 @@
(number-sequence 0 9))))
(setq exwm-input-simulation-keys
`((,(kbd "C-f") . [right])
(,(kbd "C-b") . [left])
(,(kbd "C-p") . [up])
(,(kbd "C-n") . [down])
(,(kbd "C-a") . [home])
(,(kbd "C-e") . [end])
(,(kbd "M-f") . [C-right])
(,(kbd "A-f") . [C-right])
(,(kbd "M-b") . [C-left])
(,(kbd "A-b") . [C-left])
(,(kbd "C-d") . [delete])
(,(kbd "C-k") . [S-end delete])
(,(kbd "M-<backspace>") . ,(kbd "C-<backspace>"))
(,(kbd "M-d") . ,(kbd "C-<delete>"))
(,(kbd "M-w") . [?\C-c])
(,(kbd "C-y") . [?\C-v])
(,(kbd "C-w") . [?\C-x])
(,(kbd "C-/") . [?\C-z])
(,(kbd "C-?") . ,(kbd "C-S-z"))))
`((,(kbd "C-f") . [right])
(,(kbd "C-b") . [left])
(,(kbd "C-p") . [up])
(,(kbd "C-n") . [down])
(,(kbd "C-a") . [home])
(,(kbd "C-e") . [end])
(,(kbd "M-f") . [C-right])
(,(kbd "A-f") . [C-right])
(,(kbd "M-b") . [C-left])
(,(kbd "A-b") . [C-left])
(,(kbd "C-d") . [delete])
(,(kbd "C-k") . [S-end delete])
(,(kbd "M-<backspace>") . ,(kbd "C-<backspace>"))
(,(kbd "M-d") . ,(kbd "C-<delete>"))
(,(kbd "M-w") . [?\C-c])
(,(kbd "C-y") . [?\C-v])
(,(kbd "C-w") . [?\C-x])
(,(kbd "C-/") . [?\C-z])
(,(kbd "C-?") . ,(kbd "C-S-z"))))
(defun my-exwm-update-class ()
(exwm-workspace-rename-buffer exwm-class-name))
@@ -128,21 +128,21 @@
"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"))
(use-package xdg-launcher
:demand t
:after exwm
:straight
(xdg-launcher :type git
:host github
:repo "emacs-exwm/xdg-launcher")
:host github
:repo "emacs-exwm/xdg-launcher")
:bind
(("s-SPC" . xdg-launcher-run-app))
:init
(with-eval-after-load 'consult
(unless (memq 'xdg-launcher-consult-source consult-buffer-sources)
(setq consult-buffer-sources
(append consult-buffer-sources '(xdg-launcher-consult-source)))))))
(setq consult-buffer-sources
(append consult-buffer-sources '(xdg-launcher-consult-source)))))))
(when *is-mac*
;; launcher