refactor(config): Clean up and reorganize Emacs configuration
Remove unused packages (EMMS, jinx, god-mode), simplify terminal setup with ido instead of vertico/orderless, and reorganize keybindings. Add new packages (debase, discomfort, git-timemachine, edit-indirect) and improve EXWM, dired, and theme configurations. Move restart-fcitx5 to kbd-func and update Linux PATH for Guix.
This commit is contained in:
@@ -4,7 +4,7 @@
|
||||
|
||||
;;; Code:
|
||||
|
||||
;; 安装crux,增强快捷键,快捷键配置在init-kbd.el中
|
||||
;; 安装crux
|
||||
(use-package crux)
|
||||
|
||||
;; 安装hungry-delete
|
||||
@@ -13,8 +13,12 @@
|
||||
;; 安装drag-stuff,拖动字符
|
||||
(use-package drag-stuff)
|
||||
|
||||
;; expand region
|
||||
(use-package expand-region)
|
||||
;; expand-region,快速展开选中
|
||||
(use-package expand-region
|
||||
:commands
|
||||
(er/mark-symbol er/mark-word)
|
||||
:config
|
||||
(setq expand-region-smart-cursor t))
|
||||
|
||||
;; 启用savehist,保存命令顺序
|
||||
(use-package savehist
|
||||
@@ -32,49 +36,17 @@
|
||||
(use-package saveplace
|
||||
:init (save-place-mode))
|
||||
|
||||
;; undo增强
|
||||
(use-package undo-fu)
|
||||
|
||||
;; vertico
|
||||
(use-package vertico
|
||||
:init (vertico-mode t))
|
||||
|
||||
;; 安装orderless,用于模糊搜索
|
||||
(use-package orderless
|
||||
:custom (completion-styles '(orderless basic)))
|
||||
|
||||
;; (use-package corfu-terminal
|
||||
;; :init (corfu-terminal-mode))
|
||||
|
||||
;; scheme
|
||||
(use-package geiser
|
||||
;; ido,补全
|
||||
(use-package ido
|
||||
:init
|
||||
(ido-mode)
|
||||
(ido-everywhere)
|
||||
:config
|
||||
(with-eval-after-load 'geiser
|
||||
(setq geiser-default-implementation 'guile)))
|
||||
|
||||
(use-package geiser-guile)
|
||||
(define-key ido-common-completion-map (kbd "SPC") 'ido-restrict-to-matches))
|
||||
|
||||
;; general
|
||||
(use-package general)
|
||||
|
||||
;; god-mode,模态编辑
|
||||
(use-package god-mode
|
||||
:config
|
||||
(setq god-mode-enable-function-key-translation nil)
|
||||
(custom-set-faces
|
||||
'(god-mode-lighter ((t (:inherit straight-process-error)))))
|
||||
|
||||
(defun my-sync-line-numbers-with-god-mode ()
|
||||
(let ((desired (if (bound-and-true-p god-local-mode)
|
||||
'relative
|
||||
t)))
|
||||
(unless (or (eq display-line-numbers desired) (bound-and-true-p olivetti-mode))
|
||||
(setq display-line-numbers desired))))
|
||||
(add-hook 'post-command-hook #'my-sync-line-numbers-with-god-mode)
|
||||
|
||||
(setq god-exempt-major-modes
|
||||
(delete-dups (append '(diff-mode exwm-mode) god-exempt-major-modes))))
|
||||
|
||||
(provide 'init-terminal-package)
|
||||
|
||||
;;; init-terminal-package.el ends here
|
||||
|
||||
Reference in New Issue
Block a user