From d8c8f4949502e07c7672b43beb73243fb0df543e Mon Sep 17 00:00:00 2001 From: lemyx Date: Sat, 28 Dec 2024 10:59:10 +0800 Subject: [PATCH] Initial commit --- .gitignore | 56 +++++++++++++ .gitmodules | 12 +++ README.org | 5 ++ early-init.el | 41 +++++++++ init.el | 44 ++++++++++ install/build-emacs-ubuntu.sh | 117 ++++++++++++++++++++++++++ install/install-macos.sh | 37 +++++++++ install/install-ubuntu.sh | 40 +++++++++ lisp/init-beancount.el | 17 ++++ lisp/init-blog.el | 152 ++++++++++++++++++++++++++++++++++ lisp/init-completion.el | 67 +++++++++++++++ lisp/init-diary.el | 21 +++++ lisp/init-dired.el | 29 +++++++ lisp/init-env.el | 13 +++ lisp/init-gtd.el | 28 +++++++ lisp/init-lsp.el | 40 +++++++++ lisp/init-magit.el | 18 ++++ lisp/init-meow.el | 109 ++++++++++++++++++++++++ lisp/init-onekey.el | 12 +++ lisp/init-org.el | 79 ++++++++++++++++++ lisp/init-package.el | 33 ++++++++ lisp/init-pdf.el | 37 +++++++++ lisp/init-prog.el | 51 ++++++++++++ lisp/init-save.el | 13 +++ lisp/init-tex.el | 41 +++++++++ lisp/init-treemacs.el | 122 +++++++++++++++++++++++++++ lisp/init-ui.el | 85 +++++++++++++++++++ lisp/init-vterm.el | 50 +++++++++++ lisp/init-window.el | 70 ++++++++++++++++ 29 files changed, 1439 insertions(+) create mode 100644 .gitignore create mode 100644 .gitmodules create mode 100644 README.org create mode 100644 early-init.el create mode 100644 init.el create mode 100644 install/build-emacs-ubuntu.sh create mode 100644 install/install-macos.sh create mode 100644 install/install-ubuntu.sh create mode 100644 lisp/init-beancount.el create mode 100644 lisp/init-blog.el create mode 100644 lisp/init-completion.el create mode 100644 lisp/init-diary.el create mode 100644 lisp/init-dired.el create mode 100644 lisp/init-env.el create mode 100644 lisp/init-gtd.el create mode 100644 lisp/init-lsp.el create mode 100644 lisp/init-magit.el create mode 100644 lisp/init-meow.el create mode 100644 lisp/init-onekey.el create mode 100644 lisp/init-org.el create mode 100644 lisp/init-package.el create mode 100644 lisp/init-pdf.el create mode 100644 lisp/init-prog.el create mode 100644 lisp/init-save.el create mode 100644 lisp/init-tex.el create mode 100644 lisp/init-treemacs.el create mode 100644 lisp/init-ui.el create mode 100644 lisp/init-vterm.el create mode 100644 lisp/init-window.el diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..8e10ef4 --- /dev/null +++ b/.gitignore @@ -0,0 +1,56 @@ +# -*- mode: gitignore; -*- +*~ +\#*\# +/.emacs.desktop +/.emacs.desktop.lock +*.elc +auto-save-list +tramp +.\#* + +# Org-mode +.org-id-locations +*_archive + +# flymake-mode +*_flymake.* + +# eshell files +/eshell/history +/eshell/lastdir + +# elpa packages +/elpa/ + +# reftex files +*.rel + +# AUCTeX auto folder +/auto/ + +# cask packages +.cask/ +dist/ + +# Flycheck +flycheck_*.el + +# server auth directory +/server/ + +# projectiles files +.projectile + +# directory configuration +.dir-locals.el + +# network security +/network-security.data + +custom.el +transient/ +site-lisp/ +projects +eln-cache/ +.cache/ +history \ No newline at end of file diff --git a/.gitmodules b/.gitmodules new file mode 100644 index 0000000..9b6a425 --- /dev/null +++ b/.gitmodules @@ -0,0 +1,12 @@ +[submodule "site-lisp/one-key"] + path = site-lisp/one-key + url = https://github.com/manateelazycat/one-key.git +[submodule "site-lisp/lsp-bridge"] + path = site-lisp/lsp-bridge + url = https://github.com/manateelazycat/lsp-bridge.git +[submodule "site-lisp/auto-save"] + path = site-lisp/auto-save + url = https://github.com/manateelazycat/auto-save.git +[submodule "site-lisp/beancount"] + path = site-lisp/beancount + url = https://github.com/beancount/beancount-mode.git diff --git a/README.org b/README.org new file mode 100644 index 0000000..4a82798 --- /dev/null +++ b/README.org @@ -0,0 +1,5 @@ +* Installation +#+begin_src bash + git clone git@github.com:lemyx/.emacs.d.git && cd .emacs.d + bash install.sh +#+end_src diff --git a/early-init.el b/early-init.el new file mode 100644 index 0000000..439182f --- /dev/null +++ b/early-init.el @@ -0,0 +1,41 @@ +;;; early-init.el --- Emacs pre-initialization config -*- lexical-binding: t -*- +;;; Commentary: + +;;; Code: + +;; 设置垃圾回收参数 +(setq gc-cons-threshold most-positive-fixnum) +;; 清空避免加载远程文件的时候分析文件 +(setq file-name-handler-alist nil) + +;; 启动早期不加载`package.el'包管理器 +(setq package-enable-at-startup nil) +;; 不从包缓存中加载 +(setq package-quickstart nil) + +;; 禁止展示菜单栏、工具栏和纵向滚动条 +(push '(menu-bar-lines . 0) default-frame-alist) +(push '(tool-bar-lines . 0) default-frame-alist) +(push '(vertical-scroll-bars) default-frame-alist) + +;; 禁止自动缩放窗口先 +(setq frame-inhibit-implied-resize t) + +;; 禁止菜单栏、工具栏、滚动条模式，禁止启动屏幕和文件对话框 +(menu-bar-mode -1) ; 关闭菜单栏 +(tool-bar-mode -1) ; 关闭工具栏 +(scroll-bar-mode -1) ; 关闭滚动条 +(setq inhibit-splash-screen t) +(setq use-file-dialog nil) + +;; 在这个阶段不编译 +(setq comp-deferred-compilation nil) + +;; 启动时窗口全屏 +(add-to-list 'default-frame-alist '(fullscreen . maximized)) + +(setq type-compile-warnings nil) + +(provide 'early-init) +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; early-init.el ends here diff --git a/init.el b/init.el new file mode 100644 index 0000000..e862f68 --- /dev/null +++ b/init.el @@ -0,0 +1,44 @@ +;;; init.el --- The main init entry for Emacs -*- lexical-binding: t -*- +;;; Commentary: + +;;; Code: + +;; load paths +(dolist (folder '("lisp" "site-lisp")) + (add-to-list 'load-path (expand-file-name folder user-emacs-directory))) + +;; stop emacs automatically editing .emacs +(setq custom-file (expand-file-name "custom.el" user-emacs-directory)) + +;; Generic +(require 'init-package) +(require 'init-onekey) +(require 'init-ui) +(require 'init-treemacs) +(require 'init-save) +(require 'init-window) + +;; Edit +(require 'init-completion) +(require 'init-meow) +(require 'init-dired) + +;; Coding +(require 'init-prog) +(require 'init-magit) +(require 'init-lsp) +(require 'init-env) +(require 'init-vterm) + +;; Writing +(require 'init-org) +(require 'init-beancount) +(require 'init-blog) +(require 'init-gtd) +(require 'init-diary) +(require 'init-tex) +(require 'init-pdf) + +(provide 'init) +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; init.el ends here diff --git a/install/build-emacs-ubuntu.sh b/install/build-emacs-ubuntu.sh new file mode 100644 index 0000000..bd88f64 --- /dev/null +++ b/install/build-emacs-ubuntu.sh @@ -0,0 +1,117 @@ +#!/usr/bin/env bash + +## Author: Abidán Brito +## This script builds GNU Emacs 29.1 with support for native elisp compilation, +## tree-sitter, libjansson (C JSON library), pure GTK and mailutils. + +# Exit on error and print out commands before executing them. +set -euxo pipefail + +# Let's set the number of jobs to something reasonable; keep 2 cores +# free to avoid choking the computer during compilation. +JOBS=`nproc --ignore=2` + +# Clone repo locally and get into it. +git clone --depth 1 git://git.savannah.gnu.org/emacs.git +pushd emacs + +# Get essential dependencies. +sudo apt install -y build-essential \ + texinfo \ + libgnutls28-dev \ + libjpeg-dev \ + libpng-dev \ + libtiff5-dev \ + libgif-dev \ + libxpm-dev \ + libncurses-dev \ + libgtk-3-dev \ + libtree-sitter-dev \ + libmagick++-dev \ + #libwebkit2gtk-4.1-dev \ + +# Get dependencies for gcc-10 and the build process. +sudo apt update -y +sudo apt install -y gcc-11 \ + g++-11 \ + libgccjit0 \ + libgccjit-11-dev \ + autoconf \ + +# Get dependencies for fast JSON. +sudo apt install -y libjansson4 libjansson-dev + +# Get GNU Mailutils (protocol-independent mail framework). +sudo apt install -y mailutils + +# Enable source packages and get dependencies for whatever +# Emacs version Ubuntu supports by default. +# +# Taken from here: +# https://www.masteringemacs.org/article/speed-up-emacs-libjansson-native-elisp-compilation +#sudo sed -i 's/# deb-src/deb-src/' /etc/apt/sources.list \ +# && apt update \ +# && apt build-dep -y emacs + +# Stop debconf from complaining about postfix nonsense. +DEBIAN_FRONTEND=noninteractive + +# Needed for compiling libgccjit or we'll get cryptic error messages. +export CC=/usr/bin/gcc-11 CXX=/usr/bin/g++-11 + +# Configure and run. +# NOTE(abi): binaries should go to /usr/local/bin by default. +# +# Options: +# --with-native-compilation -> use the libgccjit native compiler +# --with-pgtk -> better font rendering +# --with-x-toolkit=gtk3 -> widgets toolkit +# --with-tree-sitter -> syntax parsing +# --with-wide-int -> larger file size limit +# --with-json -> fast JSON +# --with-gnutls -> TLS/SSL +# --with-mailutils -> e-mail +# --without-pop -> no pop3 (insecure channels) +# --with-cairo -> vector graphics backend +# --with-imagemagick -> raster images backend +./autogen.sh \ + && ./configure \ + --with-native-compilation \ + --with-pgtk \ + --with-x-toolkit=gtk3 \ + --with-tree-sitter \ + --with-wide-int \ + --with-json \ + --with-modules \ + --without-dbus \ + --with-gnutls \ + --with-mailutils \ + --without-pop \ + --with-cairo \ + --with-imagemagick \ + + # Other interesting compilation options: + # + #--prefix="" # output binaries location + #--with-x-toolkit=lucid # supposedly more stable + #--with-xwidgets + + # Compiler flags: + # -O2 -> Turn on a bunch of optimization flags. There's also -O3, but it increases + # the instruction cache footprint, which may end up reducing performance. + # -pipe -> Reduce temporary files to the minimum. + # -mtune=native -> Optimize code for the local machine (under ISA constraints). + # -march=native -> Enable all instruction subsets supported by the local machine. + # -fomit-frame-pointer -> Small functions don't need a frame pointer (optimization). + # + # https://lemire.me/blog/2018/07/25/it-is-more-complicated-than-i-thought-mtune-march-in-gcc/ + CFLAGS="-O2 -pipe -mtune=native -march=native -fomit-frame-pointer" + +# Build. +# NOTE(abi): NATIVE_FULL_AOT=1 ensures native compilation ahead-of-time for all +# elisp files included in the distribution. +make -j${JOBS} NATIVE_FULL_AOT=1 \ + && make install + +# Return to the original path. +popd diff --git a/install/install-macos.sh b/install/install-macos.sh new file mode 100644 index 0000000..965da98 --- /dev/null +++ b/install/install-macos.sh @@ -0,0 +1,37 @@ +#!/bin/bash + +if command -v xelatex > /dev/null 2> /dev/null; then + echo "TeX Live is already installed." +else + echo "ERROR! TeX Live has not been installed. Make sure it's installed and environment variables are configured correctly." + echo "Depends on the TeX Live edition, append corresponding environments variables into ~/.zshrc" + echo 'export PATH="/usr/local/texlive/2023/bin/x86_64-linux:$PATH"' + echo 'export MANPATH="/usr/local/texlive/2023/texmf-dist/doc/man:$MANPATH"' + echo 'export INFOPATH="/usr/local/texlive/2023/texmf-dist/doc/info:$INFOPATH"' + exit 1 +fi + +# emacs +brew tap d12frosted/emacs-plus +brew uninstall emacs-plus +brew install emacs-plus --with-xwidgets --with-imagemagick +brew services restart d12frosted/emacs-plus/emacs-plus@29 +osascript -e 'tell application "Finder" to make alias file to posix file "/opt/homebrew/opt/emacs-plus@29/Emacs.app" at POSIX file "/Applications" with properties {name:"Emacs.app"}' + +# fonts +brew tap laishulu/cask-fonts +brew install --cask font-sarasa-nerd +brew install --cask font-symbols-only-nerd-font + +# lsp-bridge +pip3 install epc orjson sexpdata six setuptools paramiko rapidfuzz pynput pyobjc --break-system-packages +brew install node +npm install -g yaml-language-server +npm install -g bash-language-server +npm install -g vscode-langservers-extracted +npm install -g pyright +pip3 install ruff-lsp --break-system-packages +brew install texlab + +# fetch submodules +git submodule update --init diff --git a/install/install-ubuntu.sh b/install/install-ubuntu.sh new file mode 100644 index 0000000..e8fdedd --- /dev/null +++ b/install/install-ubuntu.sh @@ -0,0 +1,40 @@ +#!/bin/bash + +if command -v xelatex > /dev/null 2> /dev/null; then + echo "TeX Live is already installed." +else + echo "ERROR! TeX Live has not been installed. Make sure it's installed and environment variables are configured correctly." + echo "Depends on the TeX Live edition, append corresponding environments variables into ~/.zshrc" + echo 'export PATH="/usr/local/texlive/2023/bin/x86_64-linux:$PATH"' + echo 'export MANPATH="/usr/local/texlive/2023/texmf-dist/doc/man:$MANPATH"' + echo 'export INFOPATH="/usr/local/texlive/2023/texmf-dist/doc/info:$INFOPATH"' + exit 1 +fi + +# emacs +cd +sudo bash ~/.emacs.d/install/build-emacs-ubuntu.sh + +# fonts +wget https://github.com/laishulu/Sarasa-Term-SC-Nerd/releases/download/v2.3.0/SarasaTermSCNerd.ttf.tar.gz && && tar -zxvf SarasaTermSCNerd.ttf.tar.gz && mv SarasaTermSCNerd*.ttf ~/.local/share/fonts +wget https://github.com/ryanoasis/nerd-fonts/releases/download/v3.2.1/NerdFontsSymbolsOnly.zip && unzip NerdFontsSymbolsOnly && mv SymbolsNerdFont*.ttf ~/.local/share/fonts +fc-cache -fv + +# lsp-bridge +pip3 install epc orjson sexpdata six setuptools paramiko rapidfuzz pynput pyobjc --break-system-packages +sudo apt install npm +sudo npm install -g yaml-language-server +sudo npm install -g bash-language-server +sudo npm install -g vscode-langservers-extracted +sudo npm install -g pyright +pip3 install ruff-lsp --break-system-package +curl --proto '=https' --tlsv1.2 -sSf https://sh.rustup.rs | sh +. "$HOME/.cargo/env" +git clone https://github.com/latex-lsp/texlab.git && cd texlab +cargo build --release + +# vterm +sudo apt install cmake libtool-bin libvterm-dev + +# fetch submodules +git submodule update --init diff --git a/lisp/init-beancount.el b/lisp/init-beancount.el new file mode 100644 index 0000000..a6d750a --- /dev/null +++ b/lisp/init-beancount.el @@ -0,0 +1,17 @@ +;;; init-beancount.el --- Beancount settings -*- lexical-binding: t -*- +;;; Commentary: + +;;; Code: + +(add-to-list 'load-path "~/.emacs.d/site-lisp/beancount/") +(require 'beancount) +(add-to-list 'auto-mode-alist '("\\.bean\\'" . beancount-mode)) +(add-hook 'beancount-mode-hook + (lambda () (setq-local electric-indent-chars nil))) +(add-hook 'beancount-mode-hook #'outline-minor-mode) +(define-key beancount-mode-map (kbd "C-c C-n") #'outline-next-visible-heading) +(define-key beancount-mode-map (kbd "C-c C-p") #'outline-previous-visible-heading) + +(provide 'init-beancount) +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; init-beancount.el ends here diff --git a/lisp/init-blog.el b/lisp/init-blog.el new file mode 100644 index 0000000..dfe432f --- /dev/null +++ b/lisp/init-blog.el @@ -0,0 +1,152 @@ +;;; init-blog.el --- Blog settings -*- lexical-binding: t -*- +;;; Commentary: + +;;; Code: + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; org-static-blog for blog +(use-package org-static-blog + :ensure t + :config + (setq org-static-blog-publish-url "https://lemyx.github.io/" + org-static-blog-publish-title "LEMYX") + + (setq org-static-blog-publish-directory "~/blog" ; Store published HTML files + org-static-blog-posts-directory "~/org/blog/posts/" ; Store published org files + org-static-blog-drafts-directory "~/org/blog/drafts/") ; Store unpublished org files + + (setq org-static-blog-index-file "index.html" + org-static-blog-archive-file "archive.html" ; Archive page lists all posts as headlines. + org-static-blog-tags-file "tags.html" ; Tags page lists all posts as headlines. + org-static-blog-rss-file "rss.xml") + + (setq org-static-blog-index-length 100 ; Number of articles to include on index page. + org-static-blog-enable-tags t ; Show tags below posts, and generate tag pages. + org-static-blog-use-preview t ; Use preview versions of posts on multipost pages. + org-static-blog-preview-ellipsis "(...)" ; appended HTML to the preview as hidden part + org-static-blog-preview-link-p t ; Make preview-ellipsis a link to article's page + org-static-blog-preview-date-first-p nil) ; Print post dates before title in preview + + (setq org-export-with-toc nil + org-export-with-section-numbers t) + + (setq org-static-blog-page-header ; HTML to put in the of each page. + " + + + + +") + + (setq org-static-blog-page-preamble ; HTML to put before the content of each page. + "
+Home +Tags +Feeds +About
") + + (defun org-static-blog-get-preview (post-filename) + "Get title, date, tags from POST-FILENAME and get the first paragraph from the rendered HTML. +If the HTML body contains multiple paragraphs, include only the first paragraph, +and display an ellipsis. +Preamble and Postamble are excluded, too." + (with-temp-buffer + (insert-file-contents (org-static-blog-matching-publish-filename post-filename)) + (let ((post-title (org-static-blog-get-title post-filename)) + (post-date (org-static-blog-get-date post-filename)) + (preview-region (org-static-blog--preview-region))) + ;; Put the substrings together. + (let ((title-link + (format "

%s

" + (org-static-blog-get-post-url post-filename) post-title)) + (date-link + (format-time-string (concat "
" + (org-static-blog-gettext 'date-format) + "
") + post-date))) + (concat + title-link + preview-region + date-link + "
" + ))))) + + (defun org-static-blog-assemble-multipost-page (pub-filename post-filenames &optional front-matter) + "Assemble a page that contains multiple posts one after another. +Posts are sorted in descending time." + (setq post-filenames (sort post-filenames (lambda (x y) (time-less-p (org-static-blog-get-date y) + (org-static-blog-get-date x))))) + (org-static-blog-with-find-file + pub-filename + (org-static-blog-template + org-static-blog-publish-title + (concat + (when front-matter front-matter) + (apply 'concat (mapcar + (if org-static-blog-use-preview + 'org-static-blog-get-preview + 'org-static-blog-get-post-content) post-filenames)))))) + + (defun org-static-blog-assemble-multipost-page (pub-filename post-filenames &optional front-matter) + "Assemble a page that contains multiple posts one after another. +Posts are sorted in descending time." + (setq post-filenames (sort post-filenames (lambda (x y) (time-less-p (org-static-blog-get-date y) + (org-static-blog-get-date x))))) + (org-static-blog-with-find-file + pub-filename + (org-static-blog-template + org-static-blog-publish-title + (concat + (when front-matter front-matter) + (apply 'concat (mapcar + (if org-static-blog-use-preview + 'org-static-blog-get-preview + 'org-static-blog-get-post-content) post-filenames)))))) + + (defun org-static-blog-assemble-tags () + "Render the tag archive and tag pages." + (org-static-blog-assemble-tags-archive) + (dolist (tag (org-static-blog-get-tag-tree)) + (org-static-blog-assemble-multipost-page + (concat-to-dir org-static-blog-publish-directory + (concat "tag-" (downcase (car tag)) ".html")) + (cdr tag) + (concat "

" "「" (car tag) "」

")))) + + (defun org-static-blog-assemble-tags-archive () + "Assemble the blog tag archive page. +The archive page contains single-line links and dates for every +blog post, sorted by tags, but no post body." + (let ((tags-archive-filename (concat-to-dir org-static-blog-publish-directory org-static-blog-tags-file)) + (tag-tree (org-static-blog-get-tag-tree))) + (setq tag-tree (sort tag-tree (lambda (x y) (string-greaterp (car y) (car x))))) + (org-static-blog-with-find-file + tags-archive-filename + (org-static-blog-template + org-static-blog-publish-title + (concat + (apply 'concat (mapcar 'org-static-blog-assemble-tags-archive-tag tag-tree))))))) + + (defun org-static-blog-get-post-summary (post-filename) + "Assemble post summary for an archive page. +This function is called for every post on the archive and +tags-archive page. Modify this function if you want to change an +archive headline." + (concat + "

" + "" (org-static-blog-get-title post-filename) "" + "

\n")) + + (defun org-static-blog-assemble-tags-archive-tag (tag) + "Assemble single TAG for all filenames." + (let ((post-filenames (cdr tag))) + (setq post-filenames + (sort post-filenames (lambda (x y) (time-less-p (org-static-blog-get-date x) + (org-static-blog-get-date y))))) + (concat "

" "「" (downcase (car tag)) "」

\n" + (apply 'concat (mapcar 'org-static-blog-get-post-summary post-filenames))))) +) + +(provide 'init-blog) +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; init-blog.el ends here diff --git a/lisp/init-completion.el b/lisp/init-completion.el new file mode 100644 index 0000000..3d0683c --- /dev/null +++ b/lisp/init-completion.el @@ -0,0 +1,67 @@ +;;; init-completion.el --- Completion settings -*- lexical-binding: t -*- +;;; Commentary: + +;;; Code: + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; which-key +(use-package which-key + :config + (which-key-mode 1)) + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; vertico +;; performant and minimalistic vertical completion UI based on the default completion system +;; Persist history over Emacs restarts. Vertico sorts by history position. +(use-package savehist + :init + (savehist-mode)) + +(use-package vertico + :init + (vertico-mode) + + ;; Different scroll margin + (setq vertico-scroll-margin 0) + ;; Show more candidates + (setq vertico-count 20) + ;; Grow and shrink the Vertico minibuffer + (setq vertico-resize t) + ;; Optionally enable cycling for `vertico-next' and `vertico-previous'. + (setq vertico-cycle t) + ) + +(use-package orderless + :custom + (completion-styles '(orderless basic)) + (completion-category-overrides '((file (styles basic partial-completion))))) + +(use-package marginalia + ;; Bind `marginalia-cycle' locally in the minibuffer. To make the binding + ;; available in the *Completions* buffer, add it to the + ;; `completion-list-mode-map'. + :bind (:map minibuffer-local-map + ("M-A" . marginalia-cycle)) + + ;; The :init section is always executed. + :init + + ;; Marginalia must be activated in the :init section of use-package such that + ;; the mode gets enabled right away. Note that this forces loading the + ;; package. + (marginalia-mode)) + +(use-package nerd-icons-completion + :after marginalia + :config + (nerd-icons-completion-mode) + (add-hook 'marginalia-mode-hook #'nerd-icons-completion-marginalia-setup)) + +;; Enhance M-x +(use-package amx + :init + (setq amx-history-length 20)) + +(provide 'init-completion) +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; init-completion.el ends here diff --git a/lisp/init-diary.el b/lisp/init-diary.el new file mode 100644 index 0000000..a4d26fb --- /dev/null +++ b/lisp/init-diary.el @@ -0,0 +1,21 @@ +;;; init-diary.el --- Diary settings -*- lexical-binding: t -*- +;;; Commentary: + +;;; Code: + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; org-journal for diary +(use-package org-journal + :ensure t + :init + ;; Change default prefix key; needs to be set before loading org-journal + (setq org-journal-prefix-key "C-c j ") + :config + (setq org-journal-dir "~/org/journal/" + org-journal-date-format "%A, %d %B %Y" + org-journal-file-format "%Y-%m-W%W.org" + org-journal-file-type 'weekly)) + +(provide 'init-diary) +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; init-diary.el ends here diff --git a/lisp/init-dired.el b/lisp/init-dired.el new file mode 100644 index 0000000..06bb50f --- /dev/null +++ b/lisp/init-dired.el @@ -0,0 +1,29 @@ +;;; init-dired.el --- dired settings -*- lexical-binding: t -*- +;;; Commentary: + +;;; Code: + +;; allow dired to delete or copy dir +;; 'top means ask every time +;; 'always means no asking +(setq dired-recursive-copies 'top) +(setq dired-recursive-deletes 'top) + +;; smart suggest target directory +(setq dired-dwim-target t) + +;; make dired use the same buffer for viewing directory +(setq dired-kill-when-opening-new-dired-buffer t) + +;; show human readable file size +;; https://github.com/d12frosted/homebrew-emacs-plus/issues/383#issuecomment-899157143 +(setq insert-directory-program "gls" dired-use-ls-dired t) +(setq dired-listing-switches "-al --group-directories-first") + +(use-package nerd-icons-dired + :hook + (dired-mode . nerd-icons-dired-mode)) + +(provide 'init-dired) +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; init-dired.el ends here diff --git a/lisp/init-env.el b/lisp/init-env.el new file mode 100644 index 0000000..7d5fdad --- /dev/null +++ b/lisp/init-env.el @@ -0,0 +1,13 @@ +;;; init-env.el --- Environment settings -*- lexical-binding: t -*- +;;; Commentary: + +;;; Code: + +(use-package exec-path-from-shell + :demand t + :config + (exec-path-from-shell-initialize)) + +(provide 'init-env) +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; init-env.el ends here diff --git a/lisp/init-gtd.el b/lisp/init-gtd.el new file mode 100644 index 0000000..ad5ccfd --- /dev/null +++ b/lisp/init-gtd.el @@ -0,0 +1,28 @@ +;;; init-gtd.el --- GTD settings -*- lexical-binding: t -*- +;;; Commentary: + +;;; Code: + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; org-static-blog for blog +(use-package org-gtd + :init + (setq org-gtd-update-ack "3.0.0") + :after org + :demand t + :custom + (org-gtd-directory "~/org/gtd") + (org-edna-use-inheritance t) + (org-gtd-organize-hooks '(org-gtd-set-area-of-focus org-set-tags-command)) + :config + (org-edna-mode) + :bind + (("C-c d c" . org-gtd-capture) + ("C-c d e" . org-gtd-engage) + ("C-c d p" . org-gtd-process-inbox) + :map org-gtd-clarify-map + ("C-c c" . org-gtd-organize))) + +(provide 'init-gtd) +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; init-gtd.el ends here diff --git a/lisp/init-lsp.el b/lisp/init-lsp.el new file mode 100644 index 0000000..cbd9d44 --- /dev/null +++ b/lisp/init-lsp.el @@ -0,0 +1,40 @@ +;;; init-lsp.el --- LSP settings -*- lexical-binding: t -*- +;;; Commentary: + +;;; Code: + +(use-package markdown-mode + :mode ("README\\.md\\'" . gfm-mode) + :init (setq markdown-command "multimarkdown") + :bind (:map markdown-mode-map + ("C-c C-e" . markdown-do))) + +(use-package yasnippet + :init + (yas-global-mode 1)) + +(add-to-list 'load-path "~/.emacs.d/site-lisp/lsp-bridge") +(require 'lsp-bridge) +(global-lsp-bridge-mode) +(setq acm-enable-doc t) +(setq acm-enable-copilot nil) +(setq lsp-bridge-enable-hover-diagnostic t) +(setq lsp-bridge-enable-completion-in-string t) +(setq lsp-bridge-enable-completion-in-minibuffer t) +(setq lsp-bridge-enable-with-tramp t) +(setq lsp-bridge-python-lsp-server "pyright") +(setq lsp-bridge-tex-lsp-server "texlab") +(setq lsp-bridge-python-command "/usr/bin/python3") + +(one-key-create-menu + "LSP" + '((("a" . "lsp-bridge-code-action") . lsp-bridge-code-action) + (("f" . "lsp-bridge-find-def") . lsp-bridge-find-def) + (("b" . "lsp-bridge-find-def-return") . lsp-bridge-find-def-return) + (("h" . "lsp-bridge-popup-documentation") . lsp-bridge-popup-documentation) + (("s" . "lsp-bridge-toggle-sdcv-helper") . lsp-bridge-toggle-sdcv-helper)) + t) + +(provide 'init-lsp) +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; init-lsp.el ends here diff --git a/lisp/init-magit.el b/lisp/init-magit.el new file mode 100644 index 0000000..f3d166d --- /dev/null +++ b/lisp/init-magit.el @@ -0,0 +1,18 @@ +;;; init-magit.el --- Magit settings -*- lexical-binding: t -*- +;;; Commentary: + +;;; Code: + +(use-package magit) + +(use-package diff-hl + :hook + ((magit-pre-refresh . diff-hl-magit-pre-refresh) + (magit-post-refresh . diff-hl-magit-post-refresh)) + :init + (global-diff-hl-mode t)) + +(provide 'init-magit) + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; init-magit.el ends here diff --git a/lisp/init-meow.el b/lisp/init-meow.el new file mode 100644 index 0000000..7f7463d --- /dev/null +++ b/lisp/init-meow.el @@ -0,0 +1,109 @@ +;;; init-meow.el --- Meow settings -*- lexical-binding: t -*- +;;; Commentary: + +;;; Code: + +(defun meow-setup () + (setq meow-cheatsheet-layout meow-cheatsheet-layout-qwerty) + (meow-motion-overwrite-define-key + '("j" . meow-next) + '("k" . meow-prev) + '("" . ignore)) + (meow-leader-define-key + ;; SPC j/k will run the original command in MOTION state. + '("j" . "H-j") + '("k" . "H-k") + ;; Use SPC (0-9) for digit arguments. + '("1" . meow-digit-argument) + '("2" . meow-digit-argument) + '("3" . meow-digit-argument) + '("4" . meow-digit-argument) + '("5" . meow-digit-argument) + '("6" . meow-digit-argument) + '("7" . meow-digit-argument) + '("8" . meow-digit-argument) + '("9" . meow-digit-argument) + '("0" . meow-digit-argument) + '("/" . meow-keypad-describe-key) + '("?" . meow-cheatsheet) + ;; one-key group + '("l" . one-key-menu-lsp) + ) + (meow-normal-define-key + '("0" . meow-expand-0) + '("9" . meow-expand-9) + '("8" . meow-expand-8) + '("7" . meow-expand-7) + '("6" . meow-expand-6) + '("5" . meow-expand-5) + '("4" . meow-expand-4) + '("3" . meow-expand-3) + '("2" . meow-expand-2) + '("1" . meow-expand-1) + '("-" . negative-argument) + '(";" . meow-reverse) + '("," . meow-inner-of-thing) + '("." . meow-bounds-of-thing) + '("[" . meow-beginning-of-thing) + '("]" . meow-end-of-thing) + '("a" . meow-append) + '("A" . meow-open-below) + '("b" . meow-back-word) + '("B" . meow-back-symbol) + '("c" . meow-change) + '("d" . meow-delete) + '("D" . meow-backward-delete) + '("e" . meow-next-word) + '("E" . meow-next-symbol) + '("f" . meow-find) + '("g" . meow-cancel-selection) + '("G" . meow-grab) + '("h" . meow-left) + '("H" . meow-left-expand) + '("i" . meow-insert) + '("I" . meow-open-above) + '("j" . meow-next) + '("J" . meow-next-expand) + '("k" . meow-prev) + '("K" . meow-prev-expand) + '("l" . meow-right) + '("L" . meow-right-expand) + '("m" . meow-join) + '("n" . meow-search) + '("o" . meow-block) + '("O" . meow-to-block) + '("p" . meow-yank) + '("q" . meow-quit) + '("Q" . meow-goto-line) + '("r" . meow-replace) + '("R" . meow-swap-grab) + '("s" . meow-kill) + '("t" . meow-till) + '("u" . meow-undo) + '("U" . meow-undo-in-selection) + '("v" . meow-visit) + '("w" . meow-mark-word) + '("W" . meow-mark-symbol) + '("x" . meow-line) + '("X" . meow-goto-line) + '("y" . meow-save) + '("Y" . meow-sync-grab) + '("z" . meow-pop-selection) + '("'" . repeat) + '("" . ignore))) + +(use-package meow + :demand nil + :init + (meow-global-mode 1) + :config + ; custom function + (meow-setup) + ; hack cursor position @ https://github.com/meow-edit/meow/discussions/87 + (setq meow-use-cursor-position-hack t) + (setq meow-use-clipboard t) + (setq meow-use-enhanced-selection-effect t)) + +(provide 'init-meow) +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; init-meow.el ends here diff --git a/lisp/init-onekey.el b/lisp/init-onekey.el new file mode 100644 index 0000000..494b2b1 --- /dev/null +++ b/lisp/init-onekey.el @@ -0,0 +1,12 @@ +;;; init-onekey.el --- One-key settings -*- lexical-binding: t -*- +;;; Commentary: + +;;; Code: + +;; one-key +(add-to-list 'load-path "~/.emacs.d/site-lisp/one-key/") +(require 'one-key) + +(provide 'init-onekey) +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; init-onekey.el ends here diff --git a/lisp/init-org.el b/lisp/init-org.el new file mode 100644 index 0000000..c6d4a51 --- /dev/null +++ b/lisp/init-org.el @@ -0,0 +1,79 @@ +;;; init-org.el --- Org settings -*- lexical-binding: t -*-;;; Commentary: + +;;; Code: + +(use-package org + :config + ; Line Truncation @ https://www.gnu.org/software/emacs/manual/html_node/emacs/Line-Truncation.html + (add-hook 'org-mode-hook (lambda () (setq truncate-lines nil))) + ; Dynamic Headline Numbering @ https://orgmode.org/manual/Dynamic-Headline-Numbering.html + (setq org-startup-numerated t) + ; Hide emphasis markup characters in buffers @ https://orgmode.org/manual/Emphasis-and-Monospace.html + (setq org-hide-emphasis-markers t) + ; https://orgmode.org/manual/Fast-access-to-TODO-states.html + ; https://orgmode.org/guide/Progress-Logging.html + (setq org-todo-keywords + '((sequence "TODO(t)" "HOLD(h!)" "WIP(i!)" "WAIT(w!)" "|" "DONE(d!)" "CANCELLED(c@/!)") + (sequence "REPORT(r)" "BUG(b)" "KNOWNCAUSE(k)" "|" "FIXED(f!)"))) + ; https://orgmode.org/manual/Faces-for-TODO-keywords.html + (setq org-todo-keyword-faces + '(("TODO" . (:foreground "#7c7c75" :weight bold)) + ("HOLD" . (:foreground "#feb24c" :weight bold)) + ("WIP" . (:foreground "#0098dd" :weight bold)) + ("WAIT" . (:foreground "#9f7efe" :weight bold)) + ("DONE" . (:foreground "#50a14f" :weight bold)) + ("CANCELLED" . (:foreground "#ff6480" :weight bold)) + ("REPORT" . (:foreground "magenta" :weight bold)) + ("BUG" . (:foreground "red" :weight bold)) + ("KNOWNCAUSE" . (:foreground "yellow" :weight bold)) + ("FIXED" . (:foreground "green" :weight bold)))) + ) + +(use-package org-modern + :hook (after-init . (lambda () + (setq org-modern-hide-stars 'leading) + (global-org-modern-mode t))) + :config + (setq org-modern-table nil)) + +(use-package org-appear + :hook + (org-mode . org-appear-mode) + :config + (setq org-appear-autolinks t) + (setq org-appear-autosubmarkers t) + (setq org-appear-autoentities t) + (setq org-appear-autokeywords t) + (setq org-appear-inside-latex t) + ) + +(use-package org-bars + :vc (org-bars :url "https://github.com/tonyaldon/org-bars.git" + :rev :newest) + :hook (org-mode . org-bars-mode)) + +;; org-mode 导出为 markdown @ https://emacs-china.org/t/org-mode-markdown/17393/3 +;; 如果将 #+begin_src #+end_src 紧跟标题, 则导出效果正常 (workaround) +(use-package ox-gfm + :after org + :config + (setq org-export-with-sub-superscripts nil) + (setq org-export-headline-levels 5) + (setq org-export-coding-system 'utf-8) + (setq org-export-with-broken-links 'mark) + (setq org-link-file-path-type 'relative) + + ;; 定义自动导出为 Markdown 的函数 + (defun export-org-to-markdown-if-org-mode () + "Export current org-mode buffer to a markdown file if in org-mode." + (when (eq major-mode 'org-mode) ; 确保当前缓冲区是 org-mode + (org-gfm-export-to-markdown))) + + ;; 添加到 org-mode 的保存钩子中 + (add-hook 'org-mode-hook + (lambda () + (add-hook 'after-save-hook 'export-org-to-markdown-if-org-mode nil 'make-it-local)))) + +(provide 'init-org) +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; init-org.el ends here diff --git a/lisp/init-package.el b/lisp/init-package.el new file mode 100644 index 0000000..fc6b351 --- /dev/null +++ b/lisp/init-package.el @@ -0,0 +1,33 @@ +;;; init-package.el --- The main init entry for Emacs -*- lexical-binding: t -*- +;;; Commentary: + +;;; Code: + +;; configure package archives +(require 'package) +(setq package-check-signature nil) +(setq package-archives + '(("melpa" . "https://melpa.org/packages/") + ("melpa-stable" . "https://stable.melpa.org/packages/") + ("gnu" . "https://elpa.gnu.org/packages/") + ("nongnu" . "https://elpa.nongnu.org/nongnu/"))) +(unless (bound-and-true-p package--initialized) + (package-initialize)) + +;; configure use-package +(require 'use-package) +(eval-and-compile + (setq use-package-always-ensure t) + (setq use-package-always-defer t)) + +;; configure vc-use-package +; As of 2023-05-16, vc-use-package has been merged into Emacs master! Thus, if you are using a recent enough version of Emacs 30+, you don't need to install this package and can instead use use-packages own :vc keyword. +; Note that the keyword syntax differs in the core differs from that used in this package! Instead of a MELPA-style :vc (:fetcher github :repo oantolin/math-delimiters), the built-in keyword uses ELPA-style :vc (:url "https://github.com/oantolin/math-delimiters") package specifications. +(when (< emacs-major-version 30) + (unless (package-installed-p 'vc-use-package) + (package-vc-install "https://github.com/slotThe/vc-use-package")) + (require 'vc-use-package)) + +(provide 'init-package) +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; init-package.el ends here diff --git a/lisp/init-pdf.el b/lisp/init-pdf.el new file mode 100644 index 0000000..49c4b26 --- /dev/null +++ b/lisp/init-pdf.el @@ -0,0 +1,37 @@ +;;; init-pdf.el --- pdf settings -*- lexical-binding: t -*- +;;; Commentary: + +;;; Code: + +(use-package pdf-tools + :mode ("\\.pdf\\'" . pdf-view-mode) ; pdf 文件默认打开方式 + :bind + (:map pdf-view-mode-map + ("d" . pdf-view-next-page-command) + ("a" . pdf-view-previous-page-command) + ("s" . pdf-view-scroll-up-or-next-page) + ("w" . pdf-view-scroll-down-or-previous-page) + :map pdf-history-minor-mode-map + ("b" . pdf-history-backward) + :map pdf-annot-minor-mode-map + ("C-a a" . pdf-annot-add-highlight-markup-annotation) + ("C-a s" . pdf-annot-add-squiggly-markup-annotation) + ("C-a u" . pdf-annot-add-underline-markup-annotation) + ("C-a d" . pdf-annot-delete)) + :custom + (pdf-view-midnight-colors '("#000000" . "#9bCD9b")) ; 夜间模式设置绿色底色 + :config + (pdf-tools-install) + (setq native-comp-deferred-compilation-deny-list '(".*pdf.*")) + (setq TeX-view-program-selection '((output-pdf "PDF Tools"))) ; 设置 pdf-tools 打开 pdf + (require 'pdf-annot) ; 设置 pdf-annot-mimor-mode-map + (require 'pdf-history) ; 设置 pdf-history-minor-mode-map + (add-hook 'pdf-view-mode-hook 'pdf-view-fit-width-to-window) ; 默认适应页宽 + ; (add-hook 'pdf-view-mode-hook 'pdf-view-midnight-minor-mode) ; 默认夜间模式 + (add-hook 'TeX-after-compilation-finished-functions + #'TeX-revert-document-buffer) ; 完成编译后刷新 pdf 文件 + ) + +(provide 'init-pdf) +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; init-pdf.el ends here diff --git a/lisp/init-prog.el b/lisp/init-prog.el new file mode 100644 index 0000000..c42b702 --- /dev/null +++ b/lisp/init-prog.el @@ -0,0 +1,51 @@ +;;; init-prog.el --- Programming settings -*- lexical-binding: t -*- +;;; Commentary: + +;;; Code: + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; Fluently Edit Large Files +;; https://emacs-china.org/t/topic/25811/6 +(setq-default bidi-display-reordering nil) +(setq-default bidi-paragraph-direction 'left-to-right) +(setq bidi-inhibit-bpa t + long-line-threshold 1000 + large-hscroll-threshold 1000 + syntax-wholeline-max 1000) + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; Line Numbers +(use-package display-line-numbers + :ensure nil + :init + (setq display-line-numbers-width-start t) + (setq-default display-line-numbers t) + :config + (dolist (mode '(org-mode-hook + term-mode-hook + eshell-mode-hook)) + (add-hook mode (lambda () (display-line-numbers-mode 0))))) + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; indent-bars +(use-package indent-bars + ; reference: https://elpa.gnu.org/devel/doc/use-package.html + :vc (indent-bars :url "https://github.com/jdtsmith/indent-bars.git" + :rev :newest) + :hook (prog-mode . indent-bars-mode) + :config + (setq indent-bars-display-on-blank-lines t) + (setq indent-bars-width-frac 0.2) + (setq indent-bars-color '(highlight :face-bg t :blend 0.2)) + (setq indent-bars-zigzag nil) + (setq indent-bars-highlight-current-depth nil) + (setq indent-bars-prefer-character t)) + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; rainbow-delimiters +(use-package rainbow-delimiters + :hook (prog-mode . rainbow-delimiters-mode)) + +(provide 'init-prog) +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; init-prog.el ends here diff --git a/lisp/init-save.el b/lisp/init-save.el new file mode 100644 index 0000000..cbfa74c --- /dev/null +++ b/lisp/init-save.el @@ -0,0 +1,13 @@ +;;; init-save.el --- Save settings -*- lexical-binding: t -*- +;;; Commentary: + +;;; Code: + +(add-to-list 'load-path "~/.emacs.d/site-lisp/auto-save/") +(require 'auto-save) +(auto-save-enable) +(setq auto-save-silent t) + +(provide 'init-save) +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; init-save.el ends here diff --git a/lisp/init-tex.el b/lisp/init-tex.el new file mode 100644 index 0000000..5364dbe --- /dev/null +++ b/lisp/init-tex.el @@ -0,0 +1,41 @@ +;;; init-tex.el --- TeX settings -*- lexical-binding: t -*- +;;; Commentary: + +;;; Code: + +;; cdlatex +(use-package cdlatex + :after tex) + +;; TeX Core +(use-package tex + :ensure auctex + :demand t + :custom + ; 自动解析新文件 (usepackage, bibliograph, newtheorem) 等信息 + (TeX-parse-selt t) + (TeX-PDF-mode t) + ; 正反向搜索 + (TeX-source-correlate-mode t) + (TeX-source-correlate-method 'synctex) + ; 使用 pdf-tools 预览 + (TeX-view-program-selection '((output-pdf "PDF Tools"))) + :config + (add-to-list 'auto-mode-alist '("\\.tex$" . LaTeX-mode)) + (setq TeX-auto-save t) + (setq TeX-save-query nil) + (setq TeX-show-compilation t) + ; 编译时问询主文件名称 + (setq-default TeX-master nil) + (add-hook 'LaTeX-mode-hook (lambda () + (cdlatex-mode) + (reftex-mode) + (prettify-symbols-mode t) + (outline-minor-mode) + (outline-hide-body) + (add-to-list 'TeX-command-list '("XeLaTeX" "%`xelatex --synctex=1%(mode)%' %t" TeX-run-TeX nil t)) + ))) + +(provide 'init-tex) +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; init-tex.el ends here diff --git a/lisp/init-treemacs.el b/lisp/init-treemacs.el new file mode 100644 index 0000000..056cba6 --- /dev/null +++ b/lisp/init-treemacs.el @@ -0,0 +1,122 @@ +;; init-treemacs.el --- Treemacs settings -*- lexical-binding: t -*- + +;;; Commentary: + +;;; Code: + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; Treemacs +;;; https://github.com/Alexander-Miller/treemacs?tab=readme-ov-file#installation +(use-package treemacs + :ensure t + :defer t + :init + (with-eval-after-load 'winum + (define-key winum-keymap (kbd "M-0") #'treemacs-select-window)) + :config + (progn + (setq treemacs-collapse-dirs (if treemacs-python-executable 3 0) + treemacs-deferred-git-apply-delay 0.5 + treemacs-directory-name-transformer #'identity + treemacs-display-in-side-window t + treemacs-eldoc-display 'simple + treemacs-file-event-delay 2000 + treemacs-file-extension-regex treemacs-last-period-regex-value + treemacs-file-follow-delay 0.2 + treemacs-file-name-transformer #'identity + treemacs-follow-after-init t + treemacs-expand-after-init t + treemacs-find-workspace-method 'find-for-file-or-pick-first + treemacs-git-command-pipe "" + treemacs-goto-tag-strategy 'refetch-index + treemacs-header-scroll-indicators '(nil . "^^^^^^") + treemacs-hide-dot-git-directory t + treemacs-indentation 2 + treemacs-indentation-string " " + treemacs-is-never-other-window nil + treemacs-max-git-entries 5000 + treemacs-missing-project-action 'ask + treemacs-move-files-by-mouse-dragging t + treemacs-move-forward-on-expand nil + treemacs-no-png-images nil + treemacs-no-delete-other-windows t + treemacs-project-follow-cleanup nil + treemacs-persist-file (expand-file-name ".cache/treemacs-persist" user-emacs-directory) + treemacs-position 'left + treemacs-read-string-input 'from-child-frame + treemacs-recenter-distance 0.1 + treemacs-recenter-after-file-follow nil + treemacs-recenter-after-tag-follow nil + treemacs-recenter-after-project-jump 'always + treemacs-recenter-after-project-expand 'on-distance + treemacs-litter-directories '("/node_modules" "/.venv" "/.cask") + treemacs-project-follow-into-home nil + treemacs-show-cursor nil + treemacs-show-hidden-files t + treemacs-silent-filewatch nil + treemacs-silent-refresh nil + treemacs-sorting 'alphabetic-asc + treemacs-select-when-already-in-treemacs 'move-back + treemacs-space-between-root-nodes t + treemacs-tag-follow-cleanup t + treemacs-tag-follow-delay 1.5 + treemacs-text-scale nil + treemacs-user-mode-line-format nil + treemacs-user-header-line-format nil + treemacs-wide-toggle-width 70 + treemacs-width 35 + treemacs-width-increment 1 + treemacs-width-is-initially-locked t + treemacs-workspace-switch-cleanup nil) + + ;; The default width and height of the icons is 22 pixels. If you are + ;; using a Hi-DPI display, uncomment this to double the icon size. + ;;(treemacs-resize-icons 44) + + (treemacs-follow-mode t) + (treemacs-filewatch-mode t) + (treemacs-fringe-indicator-mode 'always) + (when treemacs-python-executable + (treemacs-git-commit-diff-mode t)) + + (pcase (cons (not (null (executable-find "git"))) + (not (null treemacs-python-executable))) + (`(t . t) + (treemacs-git-mode 'deferred)) + (`(t . _) + (treemacs-git-mode 'simple))) + + (treemacs-hide-gitignored-files-mode nil)) + :bind + (:map global-map + ("M-0" . treemacs-select-window) + ("C-x t 1" . treemacs-delete-other-windows) + ("C-x t t" . treemacs) + ("C-x t d" . treemacs-select-directory) + ("C-x t B" . treemacs-bookmark) + ("C-x t C-t" . treemacs-find-file) + ("C-x t M-t" . treemacs-find-tag))) + +(use-package treemacs-nerd-icons + :ensure t + :config + (treemacs-load-theme "nerd-icons")) + +(use-package treemacs-icons-dired + :hook (dired-mode . treemacs-icons-dired-enable-once) + :ensure t) + +(use-package treemacs-magit + :after (treemacs magit) + :ensure t) + +(use-package treemacs-tab-bar ;;treemacs-tab-bar if you use tab-bar-mode + :after (treemacs) + :ensure t + :config (treemacs-set-scope-type 'Tabs)) + +(treemacs-start-on-boot) + +(provide 'init-treemacs) +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; init-treemacs.el ends here diff --git a/lisp/init-ui.el b/lisp/init-ui.el new file mode 100644 index 0000000..2c061d3 --- /dev/null +++ b/lisp/init-ui.el @@ -0,0 +1,85 @@ +;; init-ui.el --- UI settings -*- lexical-binding: t -*- + +;;; Commentary: + +;;; Code: + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; Theme +(use-package circadian + :hook + (emacs-startup . circadian-setup) + :config + (setq calendar-latitude 40.0) + (setq calendar-longitude 116.4) + (setq circadian-themes '((:sunrise . ( + ;; modus-operandi + adwaita + )) + (:sunset . ( + modus-vivendi + )) + ))) + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; Font +(set-face-attribute 'default nil :font (font-spec :family "Sarasa Term SC Nerd" :size 14)) + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; Tab Bar +(use-package tab-bar + :hook + (window-setup . tab-bar-mode) + :custom + (tab-bar-new-tab-to 'rightmost) + (tab-bar-close-button-show nil) + (tab-bar-tab-hints t) + (tab-bar-separator "") + (tab-bar-new-tab-choice "*scratch*") + (tab-bar-tab-name-truncated-max 20) + (tab-bar-auto-width nil) + :config + (customize-set-variable 'tab-bar-select-tab-modifiers '(super)) + (setq tab-bar-tab-name-format-function + (lambda (tab i) + (let ((face (funcall tab-bar-tab-face-function tab))) + (concat + (propertize " " 'face face) + (propertize (number-to-string i) 'face `(:inherit ,face :weight ultra-bold :underline t)) + (propertize (concat " " (alist-get 'name tab) " ") 'face face))))) + (setq tab-bar-tab-name-function + (lambda () (let* ((raw-tab-name (buffer-name (window-buffer (minibuffer-selected-window)))) + (count (length (window-list-1 nil 'nomini))) + (truncated-tab-name (if (< (length raw-tab-name) + tab-bar-tab-name-truncated-max) + raw-tab-name + (truncate-string-to-width raw-tab-name + tab-bar-tab-name-truncated-max + nil nil tab-bar-tab-name-ellipsis)))) + (if (> count 1) + (concat truncated-tab-name "(" (number-to-string count) ")") + truncated-tab-name)))) + (when (daemonp) + (add-hook 'after-make-frame-functions + #'(lambda (&rest _) (force-mode-line-update)))) + ) + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; Icons +(use-package nerd-icons + :custom + ;; The Nerd Font you want to use in GUI + ;; "Symbols Nerd Font Mono" is the default and is recommended + ;; but you can use any other Nerd Font if you want + (nerd-icons-font-family "Symbols Nerd Font Mono") + ) + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; Modeline +(use-package doom-modeline + :ensure t + :hook (after-init . doom-modeline-mode)) + +(provide 'init-ui) +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; init-ui.el ends here diff --git a/lisp/init-vterm.el b/lisp/init-vterm.el new file mode 100644 index 0000000..f406b17 --- /dev/null +++ b/lisp/init-vterm.el @@ -0,0 +1,50 @@ +;;; init-vterm.el --- vterm settings -*- lexical-binding: t -*- +;;; Commentary: + +;;; Code: + +(use-package vterm + :when (memq window-system '(mac ns x pgtk)) + :bind (:map vterm-mode-map + ("C-y" . vterm-yank) + ("M-y" . vterm-yank-pop) + ("C-k" . vterm-send-C-k-and-kill)) + :init + (setq vterm-shell "zsh") + :config + (setq vterm-always-compile-module t) + (defun vterm-send-C-k-and-kill () + "Send `C-k' to libvterm, and put content in kill-ring." + (interactive) + (kill-ring-save (point) (vterm-end-of-line)) + (vterm-send-key "k" nil nil t))) + +(use-package vterm-toggle + :when (memq window-system '(mac ns x pgtk)) + :bind (([f8] . vterm-toggle) + ([f9] . vterm-compile) + :map vterm-mode-map + ([f8] . vterm-toggle) + ([(control return)] . vterm-toggle-insert-cd)) + :config + (setq vterm-toggle-cd-auto-create-buffer nil) + (defvar vterm-compile-buffer nil) + (defun vterm-compile () + "Compile the program including the current buffer in `vterm'." + (interactive) + (setq compile-command (compilation-read-command compile-command)) + (let ((vterm-toggle-use-dedicated-buffer t) + (vterm-toggle--vterm-dedicated-buffer (if (vterm-toggle--get-window) + (vterm-toggle-hide) + vterm-compile-buffer))) + (with-current-buffer (vterm-toggle-cd) + (setq vterm-compile-buffer (current-buffer)) + (rename-buffer "*vterm compilation*") + (compilation-shell-minor-mode 1) + (vterm-send-M-w) + (vterm-send-string compile-command t) + (vterm-send-return))))) + +(provide 'init-vterm) +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; init-vterm.el ends here diff --git a/lisp/init-window.el b/lisp/init-window.el new file mode 100644 index 0000000..c1e3c47 --- /dev/null +++ b/lisp/init-window.el @@ -0,0 +1,70 @@ +;;; init-window.el --- Window settings -*- lexical-binding: t -*- +;;; Commentary: + +;;; Code: + +(use-package shackle + :ensure t + :hook (after-init . shackle-mode) + :init + (setq shackle-lighter "") + (setq shackle-select-reused-windows nil) ; default nil + (setq shackle-default-alignment 'below) ; default below + (setq shackle-rules + ;; CONDITION(:regexp) :select :inhibit-window-quit :size+:align|:other :same|:popup + '((compilation-mode :ignore t) + ("\\*Async Shell.*\\*" :regexp t :ignore t) + ("\\*corfu.*\\*" :regexp t :ignore t) + ("*eshell*" :select t :size 0.4 :align t :popup t) + ("*vterm*" :select t :size 0.4 :align t :popup t) + (helpful-mode :select t :size 0.6 :align right :popup t) + ("*Messages*" :select t :size 0.4 :align t :popup t) + ("*Calendar*" :select t :size 0.3 :align t :popup t) + ("*info*" :select t :same t) + (magit-status-mode :select t :inhibit-window-quit t :same t) + (magit-log-mode :select t :inhibit-window-quit t :same t) + )) + ) + +(use-package popper + :ensure t + :bind (("C-`" . popper-toggle-latest) + ("M-" . popper-cycle) + ("M-\\" . popper-toggle-type) + ) + :init + (setq popper-reference-buffers + '("\\*Messages\\*" + "\\*Async Shell Command\\*" + help-mode + helpful-mode + occur-mode + pass-view-mode + "^\\*eshell.*\\*$" eshell-mode ;; eshell as a popup + "^\\*shell.*\\*$" shell-mode ;; shell as a popup + "^\\*vterm*\\*$" vterm-mode ;; vterm as a popup + ("\\*corfu\\*" . hide) + (compilation-mode . hide) + ;; derived from `fundamental-mode' and fewer than 10 lines will be considered a popup + (lambda (buf) (with-current-buffer buf + (and (derived-mode-p 'fundamental-mode) + (< (count-lines (point-min) (point-max)) + 10)))) + ) + ) + (popper-mode +1) + (popper-echo-mode +1) + :config + ;; group by project.el, projectile, directory or perspective + (setq popper-group-function nil) + + ;; pop in child frame or not + (setq popper-display-function #'display-buffer-in-child-frame) + + ;; use `shackle.el' to control popup + (setq popper-display-control nil) + ) + +(provide 'init-window) +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; init-window.el ends here