0f4ddc392c
- Add platform-specific keybindings, paths, and settings for macOS - Update org-mode templates and agenda files for both Windows and Mac - Add vterm and lua-ts-mode packages (non-Windows) - Configure Chinese segmentation for macOS - Adjust font sizes and encoding settings per platform
270 lines
7.6 KiB
EmacsLisp
270 lines
7.6 KiB
EmacsLisp
;;; init-package.el
|
||
;;; -*- lexical-binding: t -*-
|
||
|
||
;; 安装gcmh用于管理内存回收
|
||
(use-package gcmh
|
||
:init
|
||
(setq gcmh-idle-delay 5 ; 空闲 5 秒后 GC
|
||
gcmh-high-cons-threshold (* 16 1024 1024)) ; 高阈值 16MB
|
||
:config
|
||
(gcmh-mode 1))
|
||
|
||
(use-package restart-emacs)
|
||
|
||
;; 安装multiple-cursors
|
||
(use-package multiple-cursors)
|
||
|
||
;; 安装crux，增强快捷键，快捷键配置在init-kbd.el中
|
||
(use-package crux)
|
||
|
||
;; 安装hungry-delete
|
||
(use-package hungry-delete)
|
||
|
||
;; 安装drag-stuff，拖动字符
|
||
(use-package drag-stuff)
|
||
|
||
;; 安装which-key，快捷键提示
|
||
(use-package which-key
|
||
:defer 0
|
||
:config
|
||
(which-key-mode))
|
||
|
||
;; 安装ace-windows，快速切换窗口
|
||
(use-package ace-window)
|
||
|
||
;; 安装vertico
|
||
(use-package vertico
|
||
:init (vertico-mode t))
|
||
|
||
;; 安装orderless，用于模糊搜索
|
||
(use-package orderless
|
||
:custom (completion-styles '(orderless basic)))
|
||
|
||
;; 安装marginalia，用于命令注释
|
||
(use-package marginalia
|
||
:init (marginalia-mode))
|
||
|
||
;; 安装consult，增强搜索和其他菜单
|
||
(use-package consult)
|
||
|
||
;; 安装embark，一个菜单，用用就明白了
|
||
(use-package embark
|
||
:config (setq prefix-help-command 'embark-prefix-help-command))
|
||
|
||
;; 安装embark-consult和wgrep
|
||
(use-package embark-consult)
|
||
(use-package wgrep)
|
||
|
||
(with-eval-after-load
|
||
'consult
|
||
'(with-eval-after-load
|
||
'embark
|
||
'(progn
|
||
(require 'embark-consult)
|
||
(add-hook
|
||
'embark-collect-mode-hook
|
||
#'consult-preview-at-point-mode))))
|
||
|
||
(define-key minibuffer-local-map (kbd "C-c C-e") 'embark-export)
|
||
|
||
(if *is-windows*
|
||
(progn
|
||
(setq consult-locate-args (encode-coding-string "es.exe -i -p -r" 'gbk))
|
||
(add-to-list 'process-coding-system-alist '("es" gbk . gbk))))
|
||
|
||
(when *is-mac*
|
||
(setopt consult-locate-args "mdfind -name"))
|
||
|
||
|
||
;; 启用savehist，保存命令顺序
|
||
(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)
|
||
)
|
||
|
||
;; saveplace，保存光标位置
|
||
(use-package saveplace
|
||
:hook (after-init . save-place-mode))
|
||
|
||
;; 安装ox-hugo
|
||
(use-package ox-hugo
|
||
:custom
|
||
(empv-mpv-args '("--force-window=immediate"
|
||
"--keep-open=yes"
|
||
"--fs=no")))
|
||
|
||
;; 安装emms
|
||
(use-package emms
|
||
:init
|
||
;; 设置音乐文件默认目录
|
||
(when *is-windows*
|
||
(setq emms-source-file-default-directory "F:/luping26-1-11/"))
|
||
|
||
:config
|
||
;; --- 基础设置 ---
|
||
(require 'emms-setup)
|
||
(emms-all) ; 加载所有稳定功能
|
||
|
||
;; 使用简单模式的 mpv 播放器
|
||
;; 移除默认的 emms-player-mpv
|
||
(require 'emms-player-simple)
|
||
|
||
;; 定义简单的 mpv 播放器
|
||
(define-emms-simple-player mpv-simple '(file url streamlist playlist)
|
||
(concat "\\.\\("
|
||
(mapconcat 'identity
|
||
'("mp3" "mp4" "avi" "mkv" "flv" "mov" "wmv" "webm"
|
||
"ogg" "ogv" "oga" "ogx"
|
||
"flac" "wav" "aac" "m4a" "wma"
|
||
"mpg" "mpeg" "mpe" "mpv"
|
||
"3gp" "3g2"
|
||
"m3u" "pls")
|
||
"\\|")
|
||
"\\)\\'\\|http[s]?://")
|
||
"mpv"
|
||
"--force-window=immediate"
|
||
"--keep-open=yes"
|
||
"--fs=no"
|
||
"--quiet")
|
||
|
||
;; 设置播放器列表
|
||
(setq emms-player-list '(emms-player-mpv-simple
|
||
emms-player-vlc
|
||
emms-player-mplayer))
|
||
|
||
(setq emms-playlist-default-playlist-name "*EMMS Playlist*")
|
||
(setq emms-playlist-buffer-name "*EMMS Playlist*")
|
||
|
||
;; 使用更快的文件查找方法(windows上需要使用internal)
|
||
;; (setq emms-source-file-directory-tree-function 'emms-source-file-directory-tree-find)
|
||
(setq emms-source-file-directory-tree-function 'emms-source-file-directory-tree-internal)
|
||
|
||
;; 使用原生 Elisp 元数据读取器
|
||
(setq emms-info-functions '(emms-info-native))
|
||
|
||
;; 异步读取元数据
|
||
(setq emms-info-asynchronously t)
|
||
|
||
;; 使用更详细的曲目描述
|
||
(setq emms-track-description-function #'emms-info-track-description)
|
||
|
||
;; 模式行设置
|
||
(require 'emms-mode-line)
|
||
(emms-mode-line-mode 1)
|
||
(emms-mode-line-blank) ; 初始为空
|
||
|
||
;; 自定义模式行格式
|
||
(setq emms-mode-line-format " [%s] ")
|
||
(setq emms-mode-line-length-limit 60)
|
||
|
||
;; 播放时间显示
|
||
(require 'emms-playing-time)
|
||
(emms-playing-time-mode 1)
|
||
|
||
;; 歌词设置
|
||
(require 'emms-lyrics)
|
||
(setq emms-lyrics-display-on-modeline t) ; 在模式行显示歌词
|
||
(setq emms-lyrics-display-on-minibuffer nil) ; 不在 minibuffer 显示
|
||
(setq emms-lyrics-display-buffer nil) ; 不使用专用缓冲区
|
||
(setq emms-lyrics-scroll-p t) ; 启用歌词滚动
|
||
(setq emms-lyrics-scroll-timer-interval 0.4) ; 滚动间隔
|
||
(setq emms-lyrics-dir "~/Music/lyrics") ; 歌词文件目录
|
||
(setq emms-lyrics-display-format " %s ") ; 歌词显示格式
|
||
(emms-lyrics 1) ; 启用歌词显示
|
||
|
||
;; 浏览器设置
|
||
(require 'emms-browser)
|
||
(setq emms-browser-default-browse-type 'artist)
|
||
(setq emms-browser-covers nil) ; 禁用封面
|
||
|
||
;; 浏览器显示格式
|
||
(setq emms-browser-info-title-format "%i%n")
|
||
(setq emms-browser-playlist-info-title-format "%i%n")
|
||
|
||
;; 添加浏览器快捷键
|
||
(define-key emms-browser-mode-map (kbd "SPC") 'emms-browser-add-tracks-and-play)
|
||
|
||
;; 缓存设置
|
||
(require 'emms-cache)
|
||
(emms-cache 1) ; 启用缓存
|
||
|
||
;; 历史记录
|
||
(require 'emms-history)
|
||
(add-hook 'emms-player-started-hook #'emms-last-played-update-current)
|
||
|
||
;; 音量控制
|
||
(require 'emms-volume)
|
||
;; 在播放列表中使用 +/- 控制音量
|
||
(define-key emms-playlist-mode-map (kbd "+") #'emms-volume-raise)
|
||
(define-key emms-playlist-mode-map (kbd "-") #'emms-volume-lower)
|
||
|
||
;; 添加(playlist中的)快捷键
|
||
(define-key emms-playlist-mode-map (kbd "SPC") 'emms-pause)
|
||
(define-key emms-playlist-mode-map (kbd "N") 'emms-next)
|
||
(define-key emms-playlist-mode-map (kbd "P") 'emms-previous)
|
||
(define-key emms-playlist-mode-map (kbd "R") 'emms-random)
|
||
(define-key emms-playlist-mode-map (kbd "/") 'emms-playlist-limit)
|
||
|
||
;; 启用标记功能
|
||
(require 'emms-mark)
|
||
|
||
;; 启用播放列表排序
|
||
(require 'emms-playlist-sort)
|
||
(define-key emms-playlist-mode-map (kbd "S s") 'emms-playlist-sort-map)
|
||
|
||
;; 启用播放列表限制/过滤
|
||
(require 'emms-playlist-limit)
|
||
|
||
;; 启用标签编辑器
|
||
(require 'emms-tag-editor)
|
||
|
||
;; 启用评分系统
|
||
(require 'emms-score)
|
||
(emms-score 1)
|
||
|
||
;; 启动后自动恢复播放列表
|
||
;; (add-hook 'after-init-hook 'emms-history-load)
|
||
|
||
;; 显示加载完成消息
|
||
(message "EMMS loaded")
|
||
|
||
;; 关闭自动连播
|
||
(add-hook 'emms-playlist-mode-hook
|
||
(lambda ()
|
||
(setq emms-single-track t))))
|
||
|
||
;; 提供 EMMS 快捷启动函数
|
||
(defun my-emms-start-browser ()
|
||
"Open emms browser."
|
||
(interactive)
|
||
(emms-browser)
|
||
(message "EMMS browser loaded"))
|
||
|
||
(defun my-emms-play-directory (dir)
|
||
"Play all files in directory.."
|
||
(interactive "Dchoose a directory: ")
|
||
(emms-play-directory-tree dir)
|
||
(message "playing: %s" dir))
|
||
|
||
;; vterm
|
||
(unless *is-windows*
|
||
(use-package vterm))
|
||
|
||
;; lua
|
||
(use-package lua-ts-mode
|
||
:mode ("\\.lua\\'" . lua-ts-mode)
|
||
:config
|
||
(add-to-list 'treesit-language-source-alist
|
||
'(lua "https://github.com/tree-sitter-grammars/tree-sitter-lua"))
|
||
(add-to-list 'auto-mode-alist '("\\.lua\\'" . lua-ts-mode))
|
||
(treesit-install-language-grammar 'lua))
|
||
|
||
(provide 'init-package)
|