Config: install eat.
This commit is contained in:
@@ -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)))
|
||||||
|
|
||||||
|
|||||||
@@ -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: ")
|
||||||
|
|||||||
@@ -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)
|
||||||
|
|||||||
@@ -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)
|
||||||
|
|||||||
@@ -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)
|
||||||
|
|||||||
@@ -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
|
||||||
|
|||||||
@@ -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)
|
||||||
|
|||||||
Reference in New Issue
Block a user