zelongk/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Update

Browse Source
This commit is contained in:
Zelong Kuang
2026-02-22 23:29:18 +11:00
parent 32501941a1
commit c32094700d
6 changed files with 52 additions and 46 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/init-better-default.el
View File

@@ -71,7 +71,6 @@
(setq ring-bell-function 'ignore)
(setq undo-limit 80000000
auto-save-default t
password-cache-expiry nil)
(setq-default delete-by-moving-to-trash t
@@ -129,7 +128,7 @@
(lambda (button)
(helpful-variable (button-get button 'apropos-symbol))))))))
(setq auto-save-file-name-transforms
`((".*" ,(concat user-emacs-directory "auto-save/") t)))
;; (setq auto-save-file-name-transforms
;; `((".*" ,(concat user-emacs-directory "auto-save/") t)))
(provide 'init-better-default)

61
lisp/init-edit.el
View File

@@ -1,39 +1,37 @@
;; -*- lexical-binding: t -*-
;; (use-package smartparens
;; :demand t
;; :hook (prog-mode text-mode markdown-mode)
;; :hook (elpaca-after-init . smartparens-global-mode)
;; ;; :hook (elpaca-after-init . smartparens-global-strict-mode)
;; :init (sp-use-paredit-bindings)
;; :config
;; (require 'smartparens-config))
;; ;; Autopair quotes more conservatively; if I'm next to a word/before another
;; ;; quote, I don't want to open a new pair or it would unbalance them.
;; (let ((unless-list '(sp-point-before-word-p
;; sp-point-after-word-p
;; sp-point-before-same-p)))
;; (sp-pair "'" nil :unless unless-list)
;; (sp-pair "\"" nil :unless unless-list))
;; (dolist (brace '("(" "{" "["))
;; (sp-pair brace nil
;; :post-handlers '(("||\n[i]" "RET") ("| " "SPC"))
;; ;; Don't autopair opening braces if before a word character or
;; ;; other opening brace. The rationale: it interferes with manual
;; ;; balancing of braces, and is odd form to have s-exps with no
;; ;; whitespace in between, e.g. ()()(). Insert whitespace if
;; ;; genuinely want to start a new form in the middle of a word.
;; :unless '(sp-point-before-word-p sp-point-before-same-p)))
;; (sp-local-pair sp-lisp-modes "(" ")" :unless '(:rem sp-point-before-same-p))
;; ;; Don't do square-bracket space-expansion where it doesn't make sense to
;; (sp-local-pair '(emacs-lisp-mode org-mode markdown-mode markdown-ts-mode gfm-mode)
;; "[" nil :post-handlers '(:rem ("| " "SPC")))
;; )
(use-package smartparens
:hook (elpaca-after-init . smartparens-global-mode)
;; :hook (elpaca-after-init . smartparens-global-strict-mode)
:init (sp-use-paredit-bindings)
:config
;; Autopair quotes more conservatively; if I'm next to a word/before another
;; quote, I don't want to open a new pair or it would unbalance them.
(let ((unless-list '(sp-point-before-word-p
sp-point-after-word-p
sp-point-before-same-p)))
(sp-pair "'" nil :unless unless-list)
(sp-pair "\"" nil :unless unless-list))
(dolist (brace '("(" "{" "["))
(sp-pair brace nil
:post-handlers '(("||\n[i]" "RET") ("| " "SPC"))
;; Don't autopair opening braces if before a word character or
;; other opening brace. The rationale: it interferes with manual
;; balancing of braces, and is odd form to have s-exps with no
;; whitespace in between, e.g. ()()(). Insert whitespace if
;; genuinely want to start a new form in the middle of a word.
:unless '(sp-point-before-word-p sp-point-before-same-p)))
(sp-local-pair sp-lisp-modes "(" ")" :unless '(:rem sp-point-before-same-p))
;; Don't do square-bracket space-expansion where it doesn't make sense to
(sp-local-pair '(emacs-lisp-mode org-mode markdown-mode markdown-ts-mode gfm-mode)
"[" nil :post-handlers '(:rem ("| " "SPC")))
)
(use-package electric-pair
:ensure nil
:hook elpaca-after-init)
;; Hungry deletion
(use-package hungry-delete
@@ -58,6 +56,7 @@
:test 'equal))
(setq yas-triggers-in-field t)
(setq yas-key-syntaxes '("w" "w_" "w_." "^ " yas-try-key-from-whitespace))
;; Function that tries to autoexpand YaSnippets
;; The double quoting is NOT a typo!

16
lisp/init-org.el
View File

@@ -183,6 +183,10 @@ the element after the #+HEADER: tag."
("BUG" error bold)
("XXX" font-lock-constant-face bold))))
(add-hook 'org-mode-hook
(lambda ()
(yas-activate-extra-mode 'LaTeX-mode)))
(use-package org-latex-preview
:ensure nil
:hook (org-mode . org-latex-preview-mode)
@@ -283,17 +287,7 @@ the element after the #+HEADER: tag."
("C-M-y" . org-download-clipboard))
:config
(setq-default org-download-heading-lvl 1)
(defconst org-download-root-directory "./attachments/")
(defun set-org-download-directory ()
(create-directory-if-not-exists org-download-root-directory)
(make-local-variable 'org-download--dir)
(setq org-download-image-dir (concat org-download-root-directory (buffer-name)))
(setq org-download-heading-lvl nil)
(setq org-attach-directory org-download-image-dir)
(message "set-org-download-directory")
)
(add-hook 'org-mode-hook #'set-org-download-directory)
(defconst org-download-image-dir "./attachments/")
(setq-default org-download-method 'directory))
(use-package valign

2
lisp/init-workspace.el
View File

@@ -37,7 +37,7 @@
;; sessions
(tabspaces-session t)
;; (tabspaces-session-auto-restore t)
(tabspaces-keymap-prefix "C-c TAB")
(tabspaces-keymap-prefix "C-c o")
(tab-bar-new-tab-choice "default")
(with-eval-after-load 'consult

7
snippets/latex-mode/^{} Normal file
View File

@@ -0,0 +1,7 @@
# -*- mode: snippet -*-
# name: ^{}
# key: kj
# condition: (and (texmathp) 'auto)
# group: math
# --
^{$0}

7
snippets/latex-mode/_{} Normal file
View File

@@ -0,0 +1,7 @@
# -*- mode: snippet -*-
# name: _{}
# key: jo
# condition: (and (texmathp) 'auto)
# group: math
# --
_{$0}