diff options
Diffstat (limited to 'config.org')
| -rw-r--r-- | config.org | 196 |
1 files changed, 124 insertions, 72 deletions
@@ -1,10 +1,19 @@ #+title: config #+property: header-args :tangle yes + +* 包源 +#+begin_src emacs-lisp + ;; -*- lexical-binding: t; -*- + (require 'package) + (add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t) + (add-to-list 'package-archives '("gnu" . "https://https://elpa.gnu.org/packages/") t) + (add-to-list 'package-archives '("melpa" . "https://mirrors.ustc.edu.cn/elpa/melpa/") t) + (add-to-list 'package-archives '("nongnu" . "https://mirrors.ustc.edu.cn/elpa/nongnu/") t) +#+end_src * 编辑相关 ** Evil #+begin_src emacs-lisp - ;; -*- lexical-binding: t; -*- (use-package evil :init (setq evil-want-keybinding nil @@ -24,6 +33,10 @@ #+begin_src emacs-lisp (use-package olivetti) #+end_src +** deno-bridge-jieba +#+begin_src emacs-lisp + (add-to-list 'load-path (expand-file-name "~/.emacs.d/site-lisp/deno-bridge-jieba")) +#+end_src ** yasnippet #+begin_src emacs-lisp (use-package yasnippet @@ -325,7 +338,7 @@ ** 主题 #+begin_src emacs-lisp (setq custom-safe-themes t) - (load-theme 'doom-Iosvkem) + (load-theme 'ef-dark) #+end_src ** 窗口大小 @@ -337,7 +350,7 @@ ** 新窗口平均其他左右窗口 #+begin_src emacs-lisp - (setq window-combination-resize t) + ;; (setq window-combination-resize t) #+end_src ** 光标拉伸到字符宽度 @@ -345,6 +358,22 @@ (setq x-stretch-cursor t) #+end_src +** 修复中文字体显示 +#+begin_src emacs-lisp + (set-fontset-font t 'han (font-spec :family "Noto Sans CJK SC")) + (set-fontset-font t 'cjk-misc (font-spec :family "Noto Sans CJK SC")) + (set-fontset-font t 'bopomofo (font-spec :family "Noto Sans CJK SC")) +#+end_src +** Holo-layer +#+begin_src emacs-lisp + (add-to-list 'load-path (expand-file-name "~/.emacs.d/holo-layer")) + (require 'holo-layer) + (holo-layer-enable) + (setq holo-layer-enable-cursor-animation t + holo-layer-enable-indent-rainbow t + holo-layer-active-window-color t + holo-layer-inactive-window-color t) +#+end_src * MIT-Scheme #+begin_src emacs-lisp (setq scheme-program-name "mit-scheme") @@ -364,83 +393,22 @@ (defun setup-markdown-writing-environment () "为 Markdown 写作优化的环境：开启 Olivetti，关闭行号。" (interactive) - (variable-pitch-mode 1) (display-line-numbers-mode -1) - (pixel-scroll-precision-mode 1) (olivetti-mode)) (add-hook 'markdown-mode-hook (lambda () + (setup-markdown-writing-environment) ;; 取消 Evil 的 TAB 绑定，使用 markdown-cycle (define-key evil-normal-state-local-map (kbd "TAB") 'markdown-cycle) (define-key evil-insert-state-local-map (kbd "TAB") 'indent-for-tab-command))) #+end_src -* Dired - +* Org +** Agenda #+begin_src emacs-lisp - (setq dired-recursive-copies 'always) - (setq dired-recursive-deletes 'always) - (setq dired-dwim-target t) - (put 'dired-find-alternate-file 'disabled nil) - (with-eval-after-load 'dired - (define-key dired-mode-map (kbd "RET") 'dired-find-alternate-file) - (define-key dired-mode-map (kbd "^") (lambda () (interactive) (find-alternate-file "..")))) ; was dired-up-directory) - - (setq dired-dwim-target t) - - ;; dired-sort - (defun dired-sort-size () - "Dired sort by size." - (interactive) - (dired-sort-other (concat dired-listing-switches "S"))) - - (defun dired-sort-extension () - "Dired sort by extension." - (interactive) - (dired-sort-other (concat dired-listing-switches "X"))) - - (defun dired-sort-ctime () - "Dired sort by create time." - (interactive) - (dired-sort-other (concat dired-listing-switches "ct"))) - - (defun dired-sort-utime () - "Dired sort by access time." - (interactive) - (dired-sort-other (concat dired-listing-switches "ut"))) - - (defun dired-sort-time () - "Dired sort by time." - (interactive) - (dired-sort-other (concat dired-listing-switches "t"))) - - (defun dired-sort-name () - "Dired sort by name." - (interactive) - (dired-sort-other (concat dired-listing-switches ""))) - ;; 在 Dired 中，按`l`进入文件，按`h`回到上一级目录 - (add-hook 'evil-mode-hook (lambda () - (with-eval-after-load 'dired - (add-hook 'dired-mode-hook - (lambda () - (define-key evil-normal-state-local-map (kbd "h") nil) - (define-key evil-normal-state-local-map (kbd "l") nil) - (define-key evil-normal-state-local-map (kbd "h") #'dired-up-directory) - (define-key evil-normal-state-local-map (kbd "l") #'dired-find-file)))))) - - (add-hook 'dired-mode-hook - (lambda () - (define-key dired-mode-map (kbd "C-b") nil) - (define-key dired-mode-map (kbd "C-f") nil) - (define-key dired-mode-map (kbd "C-b") #'dired-up-directory) - (define-key dired-mode-map (kbd "C-f") #'dired-find-file))) - - (global-set-key (kbd "<escape>") #'my/keyboard-escape-quit) - - (global-auto-revert-mode t) ; 另一程序修改文件让 Emacs 及时刷新 Buffer + (setq org-agenda-files '("~/org/")) #+end_src -* Org ** org-bullets #+begin_src emacs-lisp (use-package org-bullets @@ -468,6 +436,22 @@ org-fontify-done-headline t org-fontify-quote-and-verse-blocks t) #+end_src +** ox-reveal +参考教程：[[https://www.zhangjiee.com/blog/2019/emacs-slide.html][Emacs 基于 org-reveal 做幻灯片]] + +reveal 自动按照标题来布局，相同级别的为同一层级，体现的方式是，相同的层级的通过水平箭头切换，上下界别的通过上下箭头切换。 + +#+begin_src emacs-lisp + (use-package ox-reveal + :ensure t + :config + (global-set-key [(f12)] 'org-reveal-export-to-html-and-browse) + (reveal-mode 1)) + (setq org-reveal-root "https://cdn.jsdelivr.net/npm/reveal.js@4.5.0") +#+end_src + +PRETTY COOL! + * 杂项 ** 自动保存 #+begin_src emacs-lisp @@ -531,10 +515,6 @@ (show-paren-mode 1) ; 减轻数括号的痛苦 #+end_src -#+begin_src emacs-lisp - (provide 'config) -#+end_src - ** 编码风格 #+begin_src emacs-lisp (setq c-basic-offset 4 @@ -546,3 +526,75 @@ (use-package counsel :ensure t) #+end_src +** tangle 快捷键 +#+begin_src emacs-lisp + (global-set-key (kbd "C-x t") (lambda () + (interactive) + (goto-char (point-min)) + (forward-line 1) + (org-babel-tangle))) +#+end_src +* Dired + +#+begin_src emacs-lisp + (setq dired-recursive-copies 'always) + (setq dired-recursive-deletes 'always) + (setq dired-dwim-target t) + + (put 'dired-find-alternate-file 'disabled nil) + (with-eval-after-load 'dired + (define-key dired-mode-map (kbd "RET") 'dired-find-alternate-file) + (define-key dired-mode-map (kbd "^") (lambda () (interactive) (find-alternate-file "..")))) ; was dired-up-directory) + + (setq dired-dwim-target t) + + ;; dired-sort + (defun dired-sort-size () + "Dired sort by size." + (interactive) + (dired-sort-other (concat dired-listing-switches "S"))) + + (defun dired-sort-extension () + "Dired sort by extension." + (interactive) + (dired-sort-other (concat dired-listing-switches "X"))) + + (defun dired-sort-ctime () + "Dired sort by create time." + (interactive) + (dired-sort-other (concat dired-listing-switches "ct"))) + + (defun dired-sort-utime () + "Dired sort by access time." + (interactive) + (dired-sort-other (concat dired-listing-switches "ut"))) + + (defun dired-sort-time () + "Dired sort by time." + (interactive) + (dired-sort-other (concat dired-listing-switches "t"))) + + (defun dired-sort-name () + "Dired sort by name." + (interactive) + (dired-sort-other (concat dired-listing-switches ""))) + ;; 在 Dired 中，按`l`进入文件，按`h`回到上一级目录 + (with-eval-after-load 'dired + (evil-define-key 'normal dired-mode-map + (kbd "h") #'dired-up-directory + (kbd "l") #'dired-find-file)) + (add-hook 'dired-mode-hook + (lambda () + (define-key dired-mode-map (kbd "C-b") nil) + (define-key dired-mode-map (kbd "C-f") nil) + (define-key dired-mode-map (kbd "C-b") #'dired-up-directory) + (define-key dired-mode-map (kbd "C-f") #'dired-find-file))) + + (global-set-key (kbd "<escape>") #'my/keyboard-escape-quit) + + (global-auto-revert-mode t) ; 另一程序修改文件让 Emacs 及时刷新 Buffer +#+end_src +* provide +#+begin_src emacs-lisp + (provide 'config) +#+end_src |