102 lines
2.5 KiB
EmacsLisp
102 lines
2.5 KiB
EmacsLisp
;;; init-terminal-package.el --- major packages -*- lexical-binding: t -*-
|
||
|
||
;;; Commentary:
|
||
|
||
;;; Code:
|
||
|
||
(use-package gcmh
|
||
:delight
|
||
:hook
|
||
(emacs-startup . gcmh-mode)
|
||
:init
|
||
(setq gcmh-idle-delay 'auto
|
||
gcmh-auto-idle-delay-factor 10
|
||
gcmh-high-cons-threshold #x4000000))
|
||
|
||
(use-package benchmark-init
|
||
:init
|
||
(benchmark-init/activate)
|
||
:hook
|
||
(after-init . benchmark-init/deactivate))
|
||
|
||
(use-package recentf
|
||
:hook
|
||
(after-init . recentf-mode)
|
||
:init
|
||
(setq recentf-max-saved-items 30)
|
||
:config
|
||
(if *is-android*
|
||
(add-to-list 'recentf-exclude "~/storage/shared/my-org-note/journal/.*\\.org\\'")
|
||
(add-to-list 'recentf-exclude "~/org/my-org-note/journal/.*\\.org\\'")
|
||
(add-to-list 'recentf-exclude "~/org/my-org-note/20260509T232442==agenda--all-my-todos__org\\.org")))
|
||
|
||
(use-package savehist
|
||
:hook
|
||
(after-init . savehist-mode)
|
||
:init
|
||
(setq enable-recursive-minibuffers t
|
||
history-length 50
|
||
savehist-additional-variables '(mark-ring
|
||
global-mark-ring
|
||
search-ring
|
||
regexp-search-ring
|
||
extended-command-history)
|
||
savehist-autosave-interval 300))
|
||
|
||
(use-package saveplace
|
||
:hook
|
||
(after-init . save-place-mode))
|
||
|
||
(use-package restart-emacs)
|
||
|
||
(use-package autorevert
|
||
:delight
|
||
:hook
|
||
(after-init . global-auto-revert-mode))
|
||
|
||
;; 安装crux
|
||
(use-package crux)
|
||
|
||
;; 安装hungry-delete
|
||
(use-package hungry-delete)
|
||
|
||
;; 安装drag-stuff，拖动字符
|
||
(use-package drag-stuff)
|
||
|
||
;; expand-region，快速展开选中
|
||
(use-package expand-region
|
||
:commands
|
||
(er/mark-symbol er/mark-word)
|
||
:config
|
||
(setq expand-region-smart-cursor t))
|
||
|
||
;; 启用savehist，保存命令顺序
|
||
(use-package savehist
|
||
:init
|
||
(setq enable-recursive-minibuffers t
|
||
history-length 50
|
||
savehist-additional-variables '(mark-ring
|
||
global-mark-ring
|
||
search-ring
|
||
regexp-search-ring
|
||
extended-command-history)
|
||
savehist-autosave-interval 300)
|
||
(savehist-mode))
|
||
|
||
;; saveplace，保存光标位置
|
||
(use-package saveplace
|
||
:init
|
||
(save-place-mode))
|
||
|
||
;; 补全
|
||
(use-package icomplete
|
||
:init
|
||
(fido-mode)
|
||
:config
|
||
(keymap-unset minibuffer-local-completion-map "TAB")
|
||
(keymap-set minibuffer-local-completion-map "TAB" 'icomplete-force-complete))
|
||
|
||
(provide 'init-terminal-package)
|
||
|
||
;;; init-terminal-package.el ends here
|