Config: install eat.

This commit is contained in:
2026-05-06 18:39:21 +08:00
parent 8ecbd64595
commit c45c46d8f3
7 changed files with 29 additions and 23 deletions

View File

@@ -47,7 +47,6 @@
;;Quit completion before saving ;;Quit completion before saving
(add-hook 'before-save-hook #'corfu-quit) (add-hook 'before-save-hook #'corfu-quit)
(advice-add #'persistent-scratch-save :before #'corfu-quit) (advice-add #'persistent-scratch-save :before #'corfu-quit)
:bind (:map corfu-map :bind (:map corfu-map
("RET" . nil))) ("RET" . nil)))

View File

@@ -93,13 +93,6 @@
(lambda () (lambda ()
(setq emms-single-track t)))) (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) (defun my-emms-play-directory (dir)
"Play all files in directory.." "Play all files in directory.."
(interactive "Dchoose a directory: ") (interactive "Dchoose a directory: ")

View File

@@ -99,6 +99,18 @@ Disable jinx-mode if it's enable and global-jinx-mode is disable , otherwise tog
(org-journal-new-entry nil) (org-journal-new-entry nil)
(delete-other-windows)) (delete-other-windows))
(defun org-table-align-all ()
"Ajust all table in current buffer."
(interactive)
(save-excursion
(goto-char (point-min))
(org-table-map-tables 'org-table-align t)))
(defun org-align-description-list ()
"Ajust all `::' in active region. "
(interactive)
(align-regexp (region-beginning) (region-end) "\\(\\s-*\\)::" 1 1 nil))
(defun switch-to-emms-playlist() (defun switch-to-emms-playlist()
"Switch to emms playlist." "Switch to emms playlist."
(interactive) (interactive)

View File

@@ -65,15 +65,6 @@
(setq org-agenda-skip-function-global (setq org-agenda-skip-function-global
'(org-agenda-skip-entry-if 'todo '("COMMENT"))) '(org-agenda-skip-entry-if 'todo '("COMMENT")))
;; 批量调整表格
(defun org-table-align-all ()
"Ajust all table in current buffer."
(interactive)
(save-excursion
(goto-char (point-min))
(org-table-map-tables 'org-table-align t)))
;; org-babel scheme ;; org-babel scheme
(use-package ob-scheme (use-package ob-scheme
:straight (:type built-in) :straight (:type built-in)

View File

@@ -40,7 +40,7 @@
;; 安装vertico ;; 安装vertico
(use-package vertico (use-package vertico
:init (vertico-mode t)) :init (vertico-mode))
;; 安装orderless用于模糊搜索 ;; 安装orderless用于模糊搜索
(use-package orderless (use-package orderless
@@ -241,7 +241,21 @@ targets."
(use-package vterm)) (use-package vterm))
;; eat ;; eat
(use-package eat) (use-package eat
:straight (eat :type git
:host codeberg
:repo "akib/emacs-eat"
:files ("*.el"
("term" "term/*.el")
"*.texi"
"*.ti"
("terminfo/e" "terminfo/e/*")
("terminfo/65" "terminfo/65/*")
("integration" "integration/*")
(:exclude ".dir-locals.el" "*-tests.el")))
:hook ((eshell-load . eat-eshell-mode)
(eshell-load . eat-eshell-visual-command-mode))
:config (setq eat-term-terminfo-directory eat--terminfo-path))
;; general ;; general
(use-package general) (use-package general)

View File

@@ -18,9 +18,6 @@
:config :config
(add-to-list 'auto-mode-alist '("\\.lua\\'" . lua-ts-mode))) (add-to-list 'auto-mode-alist '("\\.lua\\'" . lua-ts-mode)))
;; ahk
(use-package ahk-mode)
;; scheme ;; scheme
(use-package geiser (use-package geiser
:config :config

View File

@@ -17,7 +17,7 @@
(prefer-coding-system 'utf-8))) (prefer-coding-system 'utf-8)))
;; 主题 ;; 主题
(load-theme 'tango-dark) ;; (load-theme 'tango-dark)
;; 显示文件大小 ;; 显示文件大小
(size-indication-mode t) (size-indication-mode t)