@higuoxing’s Emacs configuration
(setq gc-cons-threshold 10000000) ;; A large `gc-cons-threshold` may cause freezing and stuttering during long-term interactive use.
(setq inhibit-startup-message t) ;; Disable the welcome message.
(scroll-bar-mode -1) ;; Disable visible scrollbar.
(tool-bar-mode -1) ;; Disable tooltips.
(set-fringe-mode 0) ;; Give some breathing room.
(setq visible-bell t) ;; Set up the visible bell.
(set-face-attribute 'default nil :font "Fira Code" :height 110)
(setq auto-window-vscroll nil) ;; Disable auto window scroll
;; Delete the selected text first before editing.
(delete-selection-mode 1)
;; Don’t compact font caches during GC.
(setq inhibit-compacting-font-caches t)
;; Smooth Scrolling: https://www.emacswiki.org/emacs/SmoothScrolling
;; https://github.com/MatthewZMD/.emacs.d#smooth-scrolling
(setq scroll-conservatively 10000)
;; Vertical Scroll
(setq scroll-step 1)
(setq scroll-margin 1)
(setq scroll-conservatively 101)
(setq scroll-up-aggressively 0.01)
(setq scroll-down-aggressively 0.01)
(setq auto-window-vscroll nil)
(setq fast-but-imprecise-scrolling nil)
(setq mouse-wheel-scroll-amount '(1 ((shift) . 1)))
(setq mouse-wheel-progressive-speed nil)
;; Horizontal Scroll
(setq hscroll-step 1)
(setq hscroll-margin 1)
;; Display the line numbers.
(column-number-mode)
(global-display-line-numbers-mode t)
;; Disable line numbers for some modes.
(dolist (mode '(org-mode-hook
term-mode-hook
eshell-mode-hook
neotree-mode-hook))
(add-hook mode (lambda () (display-line-numbers-mode 0))))
;; Set native compiling logging level.
(setq warning-minimum-level :error) ;; Initialize package sources
(require 'package)
(setq package-archives
'(;; ("gnu" . "http://mirrors.tuna.tsinghua.edu.cn/elpa/gnu/")
;; ("melpa" . "http://mirrors.tuna.tsinghua.edu.cn/elpa/melpa/")
;; ("org" . "http://mirrors.tuna.tsinghua.edu.cn/elpa/org/")))
("gnu" . "https://elpa.gnu.org/packages/")
("melpa" . "https://melpa.org/packages/")
("org" . "http://orgmode.org/elpa/")))
(package-initialize)
(unless package-archive-contents
(package-refresh-contents))
;; Initialize use-package on non-linux platforms
(unless (package-installed-p 'use-package)
(package-install 'use-package))
(require 'use-package)
(setq use-package-always-ensure t)
;; Keep init.el clean.
(setq custom-file (concat user-emacs-directory "/custom.el")) ;; NOTE: If you want to move everything out of the ~/.emacs.d folder
;; reliably, set `user-emacs-directory` before loading `no-littering`.
;; (setq user-emacs-directory "~/.cache/emacs")
(use-package no-littering)
;; Store all backup and autosave files in the tmp dir
;; (setq backup-directory-alist
;; `((".*" . ,temporary-file-directory)))
;; no-littering doesn't set this by default so we must place
;; auto save files in the same path as it uses for sessions.
(setq auto-save-file-name-transforms
`((".*" ,(no-littering-expand-var-file-name "auto-save/") t)))(use-package all-the-icons
:if (display-graphic-p)) ;; Required by doom-modeline
(use-package nyan-mode
:init
(nyan-mode)
:config
(setq nyan-wavy-trail t)
(nyan-start-animation)
:hook
;; Only enable it in prog mode.
prog-mode)
(use-package doom-modeline
:hook
(after-init . doom-modeline-mode)
:custom
((setq doom-modeline-lsp t)
;; Don't compact font caches during GC. Windows Laggy issue.
(setq inhibit-compacting-font-caches t)
;; Whether display icons for buffer states. It respects `doom-modeline-icon'.
(setq doom-modeline-buffer-state-icon t)
(setq doom-modeline-persp-name t)
(setq doom-modeline-display-default-persp-name t)
(setq doom-modeline-env-version t)
(setq doom-modeline-bar-width 5)
(setq doom-modeline-icon t)
(setq doom-modeline-major-mode-icon t)
(setq doom-modeline-major-mode-color-icon t)
(setq doom-modeline-buffer-file-name-style 'truncate-upto-project)
(setq doom-modeline-buffer-state-icon t)
(setq doom-modeline-buffer-modification-icon t)
(setq doom-modeline-minor-modes nil)
(setq doom-modeline-enable-word-count nil)
(setq doom-modeline-buffer-encoding t)
(setq doom-modeline-indent-info t)
(setq doom-modeline-checker-simple-format t)
(setq doom-modeline-vcs-max-length 12)
(setq doom-modeline-env-version t)))
;; If it doesn't work, please evaluate (fira-code-mode-install-fonts)
(use-package fira-code-mode
:if (display-graphic-p)
:custom
(fira-code-mode-disabled-ligatures '("[]" "#{" "#(" "#_" "#_(" "x" ":" "<>"))
:hook
prog-mode)
;; (use-package doom-themes
;; :config
;; (setq doom-themes-enable-bold t)
;; (setq doom-themes-enable-italic t)
;; (load-theme 'doom-dracula t))
(use-package kaolin-themes
:config
(load-theme 'kaolin-galaxy t)
(kaolin-treemacs-theme))
(use-package page-break-lines)
(use-package dashboard
:config
(dashboard-setup-startup-hook)
(setq dashboard-startup-banner 'logo)
(setq dashboard-set-file-icons t)
(setq dashboard-center-content t)
(setq dashboard-set-heading-icons t)
(setq dashboard-items '((recents . 5)
(projects . 3)
(agenda . 4)))
(setq inhibit-startup-message t))
(use-package rainbow-delimiters
:hook (prog-mode . rainbow-delimiters-mode));; Make ESC quit prompts.
(global-set-key (kbd "<esc>") 'keyboard-escape-quit)
;; Magic key.
(define-prefix-command 'magic-key)
(global-set-key (kbd "M-m") 'magic-key)
;; Disabe and remap some Emacs's default keybinding.
(global-unset-key (kbd "C-v")) ;; scroll-up-command
(global-unset-key (kbd "M-v")) ;; scroll-down-command
(global-unset-key (kbd "C-t")) ;; switch char
(global-unset-key (kbd "C-j")) ;; (electric-newline-and-maybe-indent)
(global-set-key (kbd "M-n") 'scroll-up)
(global-set-key (kbd "M-p") 'scroll-down)
;; Use general to manage key bindings.
(use-package general
:config
(general-create-definer my/leader-key
:prefix "M-m"))
;; Split window, keep consistent with my tmux configuration.
(my/leader-key
"|" 'split-window-right
"-" 'split-window-below)
(my/leader-key
"t" '(:ignore t :which-key "Text")
"b" '(:ignore b :which-key "Buffer")
"p" '(:ignore p :which-key "Project")) (use-package all-the-icons-ivy-rich
:ensure t
:init (all-the-icons-ivy-rich-mode 1))
(use-package ivy-rich
:ensure t
:init (ivy-rich-mode 1))
(use-package counsel
:diminish
:bind (("M-x" . counsel-M-x)
("C-c f" . counsel-fzf)
("C-x C-f" . counsel-find-file)
:map counsel-find-file-map
("C-h" . counsel-up-directory)
:map minibuffer-local-map
("C-r" . counsel-minibuffer-history))
:config
(setq ivy-initial-inputs-alist nil) ;; Don't start search with '^'
(my/leader-key
"bb" '(counsel-switch-buffer :which-key "Switch Buffer")))
(use-package swiper)
(use-package ivy
:after swiper
:diminish
:bind (("C-s" . swiper-isearch)
("C-r" . swiper-isearch-backward)
:map ivy-minibuffer-map
("TAB" . ivy-alt-done)
("C-l" . ivy-alt-done)
;; I don't need these two lines since I love emacs key-bindings.
;; ("C-j" . ivy-next-line)
;; ("C-k" . ivy-previous-line)
:map ivy-switch-buffer-map
("C-k" . ivy-previous-line)
("C-l" . ivy-done)
("C-d" . ivy-switch-buffer-kill)
:map ivy-reverse-i-search-map
("C-k" . ivy-previous-line)
("C-d" . ivy-reverse-i-search-kill))
:config (ivy-mode 1))
(use-package ivy-xref
:init
;; xref initialization is different in Emacs 27 - there are two different
;; variables which can be set rather than just one
(when (>= emacs-major-version 27)
(setq xref-show-definitions-function #'ivy-xref-show-defs))
;; Necessary in Emacs <27. In Emacs 27 it will affect all xref-based
;; commands other than xref-find-definitions (e.g. project-find-regexp)
;; as well
(setq xref-show-xrefs-function #'ivy-xref-show-xrefs))
(use-package which-key
:init (which-key-mode)
:diminish which-key-mode
:config (setq which-key-idle-delay 0.05))
(use-package ivy-rich
:after ivy
:init (ivy-rich-mode 1))
(use-package helpful
:commands (helpful-callable helpful-variable helpful-command helpful-key)
:custom
(counsel-describe-function-function #'helpful-callable)
(counsel-describe-variable-function #'helpful-variable)
:bind
([remap describe-function] . counsel-describe-function)
([remap describe-command] . helpful-command)
([remap describe-variable] . counsel-describe-variable)
([remap describe-key] . helpful-key))
;; I don't need to load hydra ASAP.
(use-package hydra
:config
(defhydra hydra-text-scale (:timeout 3) "Scale text"
("k" text-scale-increase "in")
("j" text-scale-decrease "out")
("f" nil "finish" :exit t))
(my/leader-key
"ts" '(hydra-text-scale/body :which-key "Scale text")))
;; Navigate between window.
(use-package windmove
:config
(my/leader-key
"h" '(windmove-left :which-key "Window move left")
"j" '(windmove-down :which-key "Window move down")
"k" '(windmove-up :which-key "Window move up")
"l" '(windmove-right :which-key "Window move right")))
(defun my/neotree-project-dir ()
"Open NeoTree using the git root."
(interactive)
(let ((project-dir (projectile-project-root))
(file-name (buffer-file-name)))
(neotree-toggle)
(if project-dir
(if (neo-global--window-exists-p)
(progn
(neotree-dir project-dir)
(neotree-find file-name)))
(message "Could not find git project root."))))
(use-package neotree
:config
(setq neo-theme (if (display-graphic-p) 'icons 'arrow))
(my/leader-key
"n" '(my/neotree-project-dir :which-key "Neotree toggle")))(use-package sudo-edit
:commands
(sudo-edit))(use-package magit
:commands
magit-status)
(use-package fzf)
(use-package rg)
(use-package projectile)
(use-package counsel-projectile
:after (rg)
:init (counsel-projectile-mode)
:config
(my/leader-key
"pd" '(counsel-projectile-find-dir :which-key "Find dir")
"pf" '(projectile-find-file :which-key "Find file")
"pg" '(magit :which-key "Git")
"ps" '(counsel-projectile-rg :which-key "Ripgrep")
"pp" '(counsel-projectile-switch-project :which-key "Switch project")
"pe" '(projectile-run-eshell :which-key "Run eshell")
"pc" '(projectile-compile-project :which-key "Compile project")
"pt" '(projectile-test-project :which-key "Test project")))(use-package yasnippet
:init
(yas-global-mode 1)
:config
(setq yas-snippet-dirs
'("~/.emacs.d/snippets/")));; Disable hightlight indent.
;; (use-package highlight-indent-guides
;; :if (display-graphic-p)
;; :diminish
;; ;; Enable manually if needed, it a severe bug which potentially core-dumps Emacs
;; ;; https://github.com/DarthFennec/highlight-indent-guides/issues/76
;; :commands (highlight-indent-guides-mode)
;; :hook
;; (prog-mode . highlight-indent-guides-mode)
;; :custom
;; (highlight-indent-guides-method 'character)
;; (highlight-indent-guides-responsive 'top)
;; (highlight-indent-guides-delay 0)
;; (highlight-indent-guides-auto-character-face-perc 7))(use-package company)
(use-package lsp-mode
:init
;; set prefix for lsp-command-keymap (few alternatives - "C-l", "C-c l")
(setq lsp-keymap-prefix "M-m g")
:hook
((python-mode . lsp) ;; pip install python-lsp-server --user
(c-mode . lsp)
(c++-mode . lsp)
(go-mode . lsp)
(rust-mode . lsp)
(tuareg-mode . lsp) ;; opam install ocaml-lsp-server
(lsp-mode . lsp-enable-which-key-integration))
:commands
lsp
:config
;; "M-m g g b": Jump back in lsp-mode.
(define-key lsp-command-map "gb" 'xref-pop-marker-stack))
;; optionally
(use-package lsp-ui
:commands
lsp-ui-mode)
(use-package lsp-ivy
:commands
lsp-ivy-workspace-symbol)
;; (use-package lsp-treemacs
;; :commands
;; lsp-treemacs-errors-list)
;; optionally if you want to use debugger
;; (use-package dap-mode)
;; (use-package dap-LANGUAGE) to load the dap adapter for your language(use-package rust-mode
:config
(setq rust-format-on-save t)
(add-hook 'rust-mode-hook
(lambda () (prettify-symbols-mode))))(use-package go-mode)(use-package yaml-mode)(use-package tuareg
:config
(setq tuareg-match-patterns-aligned t))
(use-package ocamlformat) ;; opam install ocamlformat
;; Have a nice camel as the mode name
;; (add-hook 'before-save-hook 'ocamlformat-before-save)
(add-hook 'tuareg-mode-hook
(lambda() (setq tuareg-mode-name "🐫")))
;; Pretty symbols.
(add-hook 'tuareg-mode-hook
(lambda()
(when (functionp 'prettify-symbols-mode)
(prettify-symbols-mode))))(use-package org-auto-tangle
:hook
(org-mode . org-auto-tangle-mode))(with-eval-after-load 'org
(org-babel-do-load-languages
'org-babel-load-languages '((emacs-lisp . t)
(python . t)))
(setq org-confirm-babel-evaluate nil)
(setq org-startup-with-beamer-mode t)
(setq org-latex-pdf-process '("xelatex -interaction nonstopmode %f"
"xelatex -interaction nonstopmode %f"))
(require 'org-tempo)
(add-to-list 'org-structure-template-alist '("el" . "src emacs-lisp"))
(add-to-list 'org-structure-template-alist '("py" . "src python"))
(add-to-list 'org-structure-template-alist '("cpp" . "src cpp"))
(add-to-list 'org-structure-template-alist '("go" . "src go")));; See: https://github.com/jschaf/esup/issues/54#issuecomment-651247749
(use-package esup
:commands
esup
:config
(setq esup-depth 0))