2024-06-25 15:46:58 +08:00
|
|
|
|
;;; init-hydra -- 配置自定的快捷键 -*- lexical-binding: t; -*-
|
|
|
|
|
;;; Commentary:
|
|
|
|
|
;;; Code:
|
|
|
|
|
;; 安装(如果未装的话)
|
|
|
|
|
(use-package hydra
|
|
|
|
|
:ensure t)
|
|
|
|
|
;; 定义hydra入口,我的常用快捷键都放在这
|
|
|
|
|
(defhydra hydra-main (:color blue :hint nil)
|
|
|
|
|
"
|
|
|
|
|
^命令^
|
|
|
|
|
^^^^^^^^^^------------------------------
|
|
|
|
|
_f_: 文件目录操作 _p_: Projectile项目管理
|
2024-06-25 17:47:42 +08:00
|
|
|
|
_g_: git客户端
|
2024-06-25 15:46:58 +08:00
|
|
|
|
"
|
|
|
|
|
("f" hydra-file-dir-operations/body "文件目录操作")
|
|
|
|
|
("p" hydra-projectile-operations/body "Projectile项目管理")
|
2024-06-25 17:47:42 +08:00
|
|
|
|
("g" magit-status "git客户端")
|
2024-06-25 15:46:58 +08:00
|
|
|
|
)
|
|
|
|
|
|
|
|
|
|
;; 定义一个用于文件操作的 hydra
|
|
|
|
|
(defhydra hydra-file-dir-operations (:color blue :hint nil)
|
|
|
|
|
"
|
|
|
|
|
^文件操作^ ^目录操作^
|
|
|
|
|
^^^^^^^^^^------------------------------
|
|
|
|
|
_f_: 打开文件 _d_: 打开目录
|
|
|
|
|
_s_: 保存文件 _m_: 创建目录
|
|
|
|
|
_d_: 删除文件 _k_: 删除目录
|
|
|
|
|
_c_: 关闭文件 _j_: dired 模式
|
|
|
|
|
_r_: 重命名文件 _n_: 选择目录
|
|
|
|
|
"
|
|
|
|
|
;; 文件操作
|
|
|
|
|
("f" find-file "打开文件")
|
|
|
|
|
("s" save-buffer "保存文件")
|
|
|
|
|
("c" kill-buffer "关闭文件")
|
|
|
|
|
("x" delete-file "删除文件")
|
|
|
|
|
("r" rename-file "重命名文件")
|
|
|
|
|
|
|
|
|
|
;; 目录操作
|
|
|
|
|
("d" dired "打开目录")
|
|
|
|
|
("m" make-directory "创建目录")
|
|
|
|
|
("k" (lambda () (interactive) (dired-delete-file (dired-get-file-for-visit))) "删除目录")
|
|
|
|
|
("j" dired-jump "dired 模式")
|
|
|
|
|
("n" dired "选择目录")
|
|
|
|
|
)
|
|
|
|
|
;; 定义一个用于Projectile项目管理的 hydra
|
|
|
|
|
(defhydra hydra-projectile-operations (:color blue :hint nil)
|
|
|
|
|
"
|
|
|
|
|
^Projectile项目管理^
|
|
|
|
|
^^^^^^^^^^^^^^^^^^^--------------------
|
|
|
|
|
_p_: 切换项目 _f_: 查找文件
|
|
|
|
|
_d_: 查找目录 _s_: 正则查找
|
|
|
|
|
_g_: 全局搜索 _b_: 切换缓冲区
|
|
|
|
|
_r_: 重命名项目
|
|
|
|
|
"
|
|
|
|
|
("p" projectile-switch-project "切换项目")
|
|
|
|
|
("f" projectile-find-file "查找文件")
|
|
|
|
|
("d" projectile-find-dir "查找目录")
|
|
|
|
|
("s" projectile-grep "正则查找")
|
|
|
|
|
("g" projectile-grep "全局搜索")
|
|
|
|
|
("b" projectile-switch-to-buffer "切换缓冲区")
|
|
|
|
|
("r" projectile-replace "重命名项目")
|
|
|
|
|
)
|
|
|
|
|
;; 绑定一个快捷键来激活这个 Hydra,Alt + 空格键
|
|
|
|
|
(global-set-key (kbd "M-s") 'hydra-main/body)
|
|
|
|
|
(provide 'init-hydra)
|
|
|
|
|
;;; init-hydra.el ends here
|