My Emacs Configuration
This emacs configuration is written in org-mode. The source code is available at: https://github.com/meiyopeng/dot-config/blob/master/emacs/config.org
Join the Church of Emacs.
Hold the holy M-x butterfly.
Unleash the powers of the butterfly.
Emacs saves you time when you work, and takes it back when you play with it.
init.el
Use M-x org-babel-tangle or C-c C-v t to manually extract lisp code.
Personal Information
name and mail address
(setq user-full-name "Meiyo Peng"
user-mail-address "[email protected]")
Id
(setq my-gmail-address "[email protected]")
(setq my-irc-nick "meiyopeng")
Bootstrap
Enforce minimum Emacs version
(let ((min-version "26.0.50"))
(when (version< emacs-version min-version)
(error "Gnu Emacs %s or newer is required" min-version)))
(setq load-prefer-newer t)
Emacs server
Detect existing emacs server and switch to it if possible
(require 'server)
(defun my-server-shunt ()
"Shunts to emacsclient"
(let ((args (append '("emacsclient" "-a" "\"\"" "-n")
(cdr command-line-args))))
(shell-command (substring (format "%S" args) 1 -1))
(kill-emacs)))
;; Keep only one Emacs server instance
(if (server-running-p)
(if (daemonp)
(error "Another running emacs server detected, abort")
(my-server-shunt))
(server-start))
XDG specification
Define XDG directories
(require 'xdg)
(defvar user-emacs-config-dir
(expand-file-name "emacs" (xdg-config-home)))
(defvar user-emacs-data-dir
(expand-file-name "emacs" (xdg-data-home)))
(defvar user-emacs-cache-dir
(expand-file-name "emacs" (xdg-cache-home)))
user-emacs-directory
(setq user-emacs-directory (concat user-emacs-data-dir "/"))
Package manager
(require 'package)
(setq package-archives '(("gnu" . "https://elpa.gnu.org/packages/")))
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/"))
(add-to-list 'package-archives '("org" . "https://orgmode.org/elpa/"))
(package-initialize)
Bootstrap use-package
(unless (package-installed-p 'use-package)
(package-refresh-contents)
(package-install 'use-package))
(eval-when-compile
(require 'use-package))
(require 'bind-key)
(setq use-package-verbose t)
;; Disable lazy loading in daemon mode
(if (daemonp)
(setq use-package-always-demand t))
custom.el
Variables configured via the interactive ‘customize’ interface
(setq custom-file (expand-file-name "custom.el" user-emacs-config-dir))
(load custom-file 'noerror)
Core
Emacs built-in features
environment
Determine operating system type
(defconst *os-is-gnu* (eq system-type 'gnu/linux))
(defconst *os-is-mac* (eq system-type 'darwin))
(defconst *os-is-windows* (eq system-type 'windows-nt))
Language
(set-language-environment "UTF-8")
Locale
set-locale-environment changes the default coding system, so it should be called before setting coding system.
(if *os-is-gnu*
(set-locale-environment "en_US.UTF-8"))
(if *os-is-mac*
(set-locale-environment "en_US.UTF-8"))
(if *os-is-windows*
(set-locale-environment "ENU"))
Encoding
;;(set-default-coding-systems 'utf-8-unix)
(prefer-coding-system 'utf-8-unix)
Use hexadecimal instead of octal for quoted-insert (C-q).
(setq read-quoted-char-radix 16)
Font
(defun my-font-available-p (font)
"Detect if a font is available"
(if (find-font (font-spec :family font))
t
nil))
(require 'cl)
(defun my-set-font (font-list &optional font-size)
"Set default font to the first available font in FONT-LIST"
(let ((font (cl-find-if #'my-font-available-p font-list)))
(if (null font)
(user-error "No font is available in FONT-LIST"))
(message "Set default font to %s" font)
(set-face-font 'default
(font-spec :family font :size font-size))))
My preferred fonts
(when (display-graphic-p)
(my-set-font '("DejaVu Sans Mono" "Menlo" "Consolas" "Monospace")))
basic interface
*scratch* buffer’s default content
(setq initial-scratch-message nil)
hide all kinds of bars
(menu-bar-mode -1)
(if (fboundp 'tool-bar-mode)
(tool-bar-mode -1))
(if (fboundp 'scroll-bar-mode)
(scroll-bar-mode -1))
mode line
(line-number-mode t)
(column-number-mode t)
(size-indication-mode t)
ring
(setq ring-bell-function 'ignore)
buffer name
(require 'uniquify)
(setq uniquify-buffer-name-style 'forward)
(setq uniquify-separator "/")
(setq uniquify-after-kill-buffer-p t)
(setq uniquify-ignore-buffers-re "^\\*")
frame name
;; show either a file or a buffer name
(setq frame-title-format
'("" invocation-name " - "
(:eval (if (buffer-file-name)
(abbreviate-file-name (buffer-file-name))
"%b"))))
key bindings
yes-or-no-p
(defalias 'yes-or-no-p 'y-or-n-p)
bind C-x k to kill-this-buffer
(global-set-key (kbd "C-x k") 'kill-this-buffer)
expand text
(global-set-key (kbd "M-/") 'hippie-expand)
upcase or downcase text
(global-set-key (kbd "M-u") 'upcase-dwim)
(global-set-key (kbd "M-l") 'downcase-dwim)
shell
(global-set-key (kbd "C-c s") 'eshell)
editing
fill column
(setq-default fill-column 80)
final new line
(setq require-final-newline t)
delete the selection with a key press
(delete-selection-mode t)
smart tab key behavior, indent or complete
(setq tab-always-indent 'complete)
indentation
;; don't use tabs to indent
(setq-default indent-tabs-mode nil)
(setq-default tab-width 8)
Revert buffers automatically when underlying files are changed externally
(global-auto-revert-mode t)
Automatically save buffers to file when losing focus
(defun my-save-buffers ()
"Save all file-visiting buffers"
(save-some-buffers t nil))
(add-hook 'focus-out-hook 'my-save-buffers)
Automatically make a shell script executable on save
(add-hook 'after-save-hook
'executable-make-buffer-file-executable-if-script-p)
highlight
(blink-cursor-mode -1)
;; highlight the current line
(global-hl-line-mode 1)
;; highlight matching parentheses when the point is on them
(show-paren-mode t)
(setq blink-matching-paren nil)
whitespace-mode
(require 'whitespace)
(setq whitespace-style '(face empty trailing lines-tail indentation))
(setq whitespace-line-column 80)
(defun my-whitespace-mode-setup ()
(whitespace-mode 1)
(add-hook 'before-save-hook 'whitespace-cleanup nil t))
basic major modes
text-mode
(add-hook 'text-mode-hook 'auto-fill-mode)
(add-hook 'text-mode-hook 'my-whitespace-mode-setup)
prog-mode
(add-hook 'prog-mode-hook 'abbrev-mode)
(add-hook 'prog-mode-hook 'my-whitespace-mode-setup)
(defun my-prog-mode-setup ()
(which-function-mode 1)
(setq-local comment-auto-fill-only-comments t)
(auto-fill-mode 1)
;; highlight a bunch of well known comment annotations
(font-lock-add-keywords
nil
'(("\\<\\(\\(FIX\\(ME\\)?\\|TODO\\|OPTIMIZE\\|HACK\\|REFACTOR\\):\\)"
1 font-lock-warning-face t))))
(add-hook 'prog-mode-hook 'my-prog-mode-setup)
tramp
(require 'tramp)
(setq tramp-default-method "ssh")
dired
(setq dired-recursive-copies 'always)
(setq dired-recursive-deletes 'always)
(require 'dired-x)
bookmark
(require 'bookmark)
(setq bookmark-save-flag 1)
internet
Don’t send anything in HTTP header field
(setq url-privacy-level 'paranoid)
Proxy
SOCKS 5 proxy
(setq url-gateway-method 'socks)
(setq socks-server '("Default server" "localhost" 1080 5))
HTTP proxy
(setq url-proxy-services
'(("no_proxy" . "^\\(localhost\\|10\\..*\\|192\\.168\\..*\\)")
("http" . "localhost:1081")
("https" . "localhost:1081")))
Browser
eww
(global-set-key (kbd "C-c w") 'eww)
(global-set-key (kbd "C-c b") 'eww-list-bookmarks)
message mode
;; Turn on PGP
(add-hook 'message-mode-hook 'epa-mail-mode)
;; Message signature
(setq message-signature-directory
(expand-file-name "signature" (xdg-config-home)))
(setq message-signature-file "personal")
;; Don't keep message buffer after sending a message.
(setq message-kill-buffer-on-exit t)
SMTP
(setq message-send-mail-function 'message-smtpmail-send-it)
(setq smtpmail-smtp-server "smtp.mailgun.com"
smtpmail-stream-type 'ssl ;; StartTLS is evil.
smtpmail-smtp-service 465)
sendmail
(setq message-send-mail-function 'message-send-mail-with-sendmail)
;; Use the "From:" address in mail header as envelope-from address.
(setq mail-specify-envelope-from t
mail-envelope-from 'header)
(setq message-sendmail-envelope-from 'header)
msmtp
(setq sendmail-program "msmtp")
security
GPG
Query passphrase through the minibuffer, instead of the pinentry program
(setq epg-pinentry-mode 'loopback)
auth-source
(setq auth-sources
(list (expand-file-name "auth/netrc.gpg" (xdg-data-home))))
Get secret from auth-source
(defun my-get-secret (&rest spec &key domain port user &allow-other-keys)
(let ((record (nth 0 (auth-source-search :max 1
:host domain
:port port
:user user
:require '(:secret)))))
(if record
(let ((secret (plist-get record :secret)))
(if (functionp secret)
(funcall secret)
secret))
nil)))
session
desktop
(setq desktop-path (list user-emacs-data-dir)
desktop-auto-save-timeout 600)
(desktop-save-mode t)
recent files
(require 'recentf)
(setq recentf-auto-cleanup 'never)
(setq recentf-exclude '("/gnu" "/tmp" "/ssh:" "~/.cache"))
(add-to-list 'recentf-exclude
(expand-file-name "elpa/.*" user-emacs-directory))
(recentf-mode 1)
minibuffer history
(savehist-mode 1)
auto-save
(setq auto-save-list-file-prefix
(expand-file-name "auto-save-list/" user-emacs-cache-dir))
backup
(let ((backup-dir (expand-file-name "backup" user-emacs-cache-dir)))
(setq-default backup-directory-alist `((".*" . ,backup-dir))))
Theme
theme
(use-package zenburn-theme
:ensure t
:config
(load-theme 'zenburn))
transparency
alpha ‘(
(set-frame-parameter (selected-frame) 'alpha '(95 . 60))
(add-to-list 'default-frame-alist '(alpha . (98 . 80)))
mode line
(use-package diminish
:ensure t
:config
(diminish 'abbrev-mode)
(diminish 'auto-fill-function)
(diminish 'auto-revert-mode)
(diminish 'eldoc-mode)
(diminish 'whitespace-mode))
cursor
highlight the cursor whenever the window scrolls
(use-package beacon
:ensure t
:diminish beacon-mode
:config
(beacon-mode t))
Utilities
helm
(use-package helm
:ensure t
:defer 3
:diminish helm-mode
:bind-keymap ("C-c h" . helm-command-map)
:bind (("C-c f" . helm-recentf)
("C-h a" . helm-apropos)
("C-x b" . helm-mini)
("C-x C-b" . helm-buffers-list)
("C-x C-d" . helm-browse-project)
("C-x C-f" . helm-find-files)
("M-x" . helm-M-x)
("M-y" . helm-show-kill-ring)
("M-s o" . helm-occur)
:map helm-command-map
("g" . helm-do-grep-rg)
("M-g g" . helm-do-grep-rg))
:init
(defalias 'helm-do-grep-rg 'helm-do-grep-ag)
:config
(require 'helm-config)
(helm-mode 1)
(setq helm-move-to-line-cycle-in-source t)
;; fuzzy matching
(setq helm-mode-fuzzy-match t)
(setq helm-completion-in-region-fuzzy-match t)
(setq helm-M-x-fuzzy-match t
helm-buffers-fuzzy-matching t
helm-recentf-fuzzy-match t)
(add-to-list 'helm-mini-default-sources 'helm-source-bookmarks 'append)
(setq helm-ff-file-name-history-use-recentf t)
(setq helm-ff-skip-boring-files t)
;; ripgrep
(setq helm-grep-ag-command "rg --color=always --colors 'match:fg:black' --colors 'match:bg:yellow' --smart-case --no-heading --line-number %s %s %s")
(setq helm-grep-ag-pipe-cmd-switches '("--colors 'match:fg:black'" "--colors 'match:bg:yellow'"))
)
helm-ls-git
(use-package helm-ls-git
:ensure t
:after helm)
projectile
(use-package projectile
:ensure t
:defer 10
:diminish projectile-mode
:bind-keymap (("C-c p" . projectile-command-map)
("s-p" . projectile-command-map))
:config
(projectile-global-mode t)
(setq projectile-project-search-path '("~/Projects"))
;; Search method
(setq projectile-indexing-method 'alien)
(setq projectile-generic-command "fd . -0")
(setq projectile-git-command "fd . -0"))
(use-package helm-projectile
:ensure t
:after (helm projectile)
:config
(helm-projectile-on))
file explorer
(use-package dired-sidebar
:ensure t
:commands (dired-sidebar-toggle-sidebar))
crux
(use-package crux
:ensure t
:bind (("C-a" . crux-move-beginning-of-line)
("C-c d" . crux-duplicate-current-line-or-region)
("C-c D" . crux-delete-file-and-buffer)
("C-c e" . crux-eval-and-replace)
("C-c I" . crux-find-user-init-file)
("C-c o o" . crux-open-with)
("C-c o r" . crux-sudo-edit)
("C-c r n" . crux-rename-file-and-buffer)
("C-c TAB" . crux-indent-defun)
("C-x K" . crux-kill-other-buffers)
("C-^" . crux-top-join-line)
("C-<BACKSPACE>" . crux-kill-line-backwards)
("C-S-<BACKSPACE>" . crux-kill-whole-line)))
key map
which-key
(use-package which-key
:ensure t
:defer 10
:diminish which-key-mode
:config
(which-key-mode 1))
discover-my-major
(use-package discover-my-major
:ensure t
:commands (discover-my-major discover-my-mode)
:bind ("C-h m" . discover-my-major))
undo-tree
(use-package undo-tree
:ensure t
:diminish undo-tree-mode
:bind ("C-x u" . undo-tree-visualize)
:config
(global-undo-tree-mode t))
move cursor
avy
jump to visible text using a char-based decision tree
(use-package avy
:ensure t
:bind (("C-c j" . avy-goto-char-timer)
("M-g g" . avy-goto-line))
:config
(setq avy-background t))
ace-window
select a window
(use-package ace-window
:ensure t
:bind ("C-x o" . ace-window))
multiple cursors
(use-package multiple-cursors
:ensure t
:bind (("C-|" . mc/edit-lines)
("C->" . mc/mark-next-like-this)
("C-<" . mc/mark-previous-like-this)
("C-S-<mouse-1>" . mc/add-cursor-on-click)))
search
anzu-mode enhances isearch & query-replace by showing total matches and current match position in the mode-line
(use-package anzu
:ensure t
:diminish anzu-mode
:bind (("M-%" . anzu-query-replace)
("C-M-%" . anzu-query-replace-regexp))
:config
(global-anzu-mode t))
alert
(use-package alert
:ensure nil
:config
(setq alert-default-style 'libnotify))
version control
Git
magit
(use-package magit
:ensure t
:mode ("/\\(\
\\(\\(COMMIT\\|NOTES\\|PULLREQ\\|TAG\\)_EDIT\\|MERGE_\\|\\)MSG\
\\|\\(BRANCH\\|EDIT\\)_DESCRIPTION\\)\\'" . git-commit-mode)
:bind ("C-x g" . magit-status))
git modes
(use-package gitconfig-mode
:ensure t
:mode ("/\\.gitconfig\\'" "/\\.git/config\\'" "/git/config\\'"
"/\\.gitmodules\\'"))
(use-package gitignore-mode
:ensure t
:mode ("/\\.gitignore\\'" "/\\.git/info/exclude\\'" "/git/ignore\\'"))
diff-hl
(use-package diff-hl
:ensure t
:defer 10
:config
(global-diff-hl-mode t)
(add-hook 'dired-mode-hook 'diff-hl-dired-mode)
(add-hook 'magit-post-refresh-hook 'diff-hl-magit-post-refresh))
completion
(use-package company
:ensure t
:defer 10
:diminish company-mode
:config
(global-company-mode 1))
spell checking
flyspell
(use-package flyspell
:ensure t
:defer 10
:diminish flyspell-mode
:preface
(defvar my-enable-flyspell nil)
(cond
((executable-find "aspell")
(setq ispell-program-name "aspell")
(setq my-enable-flyspell t))
((executable-find "hunspell")
(setq ispell-program-name "hunspell")
(setq ispell-dictionary "en_US")
(setq my-enable-flyspell t))
(t
(message "Neither aspell nor hunspell found")))
:if my-enable-flyspell
:hook ((text-mode . flyspell-mode)
(prog-mode . flyspell-prog-mode)))
Programming
parenthesis
smart parens
(use-package smartparens
:ensure t
:defer 10
:diminish smartparens-mode
:hook (prog-mode . smartparens-strict-mode)
:config
(require 'smartparens-config)
(show-smartparens-global-mode 1))
colorful parens
(use-package rainbow-delimiters
:ensure t
:hook (prog-mode . rainbow-delimiters-mode))
flycheck
(use-package flycheck
:ensure t
:diminish flycheck-mode
:hook (prog-mode . flycheck-mode)
:config
(setq flycheck-display-errors-function
'flycheck-display-error-messages-unless-error-list))
language server protocol
lsp-mode
(use-package lsp-mode
:ensure t
:commands (lsp))
lsp-ui
(use-package lsp-ui
:ensure t
:after (lsp-mode)
:commands (lsp-ui-mode))
company-lsp
(use-package company-lsp
:ensure t
:after (company lsp-mode)
:commands (company-lsp))
yasnippet
(use-package yasnippet
:ensure t
:diminish yas-minor-mode
:config
(add-to-list 'yas-snippet-dirs "~/Projects/guix/etc/snippets")
(yas-global-mode 1))
Lisp
indentation
(use-package aggressive-indent
:ensure t
:diminish aggressive-indent-mode
:hook ((emacs-lisp-mode scheme-mode) . aggressive-indent-mode))
Scheme
geiser
(use-package geiser
:ensure t
:hook (scheme-mode . geiser-mode--maybe-activate)
:config
(setq geiser-active-implementations '(guile))
(setq geiser-mode-start-repl-p t)
(setq geiser-repl-history-filename
(expand-file-name "geiser_history" user-emacs-data-dir)))
guix
(use-package guix
:ensure t
;; :hook (scheme-mode . guix-devel-mode)
)
Python
Prefer Python 3
(setq python-shell-interpreter "python3")
python mode
(defun my-python-mode-setup ()
(add-hook 'post-self-insert-hook
'electric-layout-post-self-insert-function
nil t))
(add-hook 'python-mode-hook 'my-python-mode-setup)
anaconda-mode
(use-package anaconda-mode
:ensure t
:hook ((python-mode . anaconda-mode)
(python-mode . anaconda-eldoc-mode)))
(use-package company-anaconda
:ensure t
:after (company anaconda-mode)
:config
(push 'company-anaconda company-backends))
Language Server Protocol
(add-hook 'python-mode-hook 'lsp)
Install python language server
pip3 install python-language-server[all]
Go
(use-package go-mode
:ensure t
:mode ("\\.go\\'" . go-mode))
(use-package go-eldoc
:ensure t
:after (go-mode)
:hook (go-mode . go-eldoc-setup))
(defun my-go-mode-setup ()
(add-hook 'before-save-hook 'gofmt-before-save nil t))
(add-hook 'go-mode-hook 'my-go-mode-setup)
Language Server Protocol
(add-hook 'go-mode-hook 'lsp)
Install go language server
# See https://github.com/saibing/bingo/wiki/Install
C
(setq c-default-style "linux")
(setq-default c-basic-offset 4)
Language Server Protocol
(add-hook 'c-mode-hook 'lsp)
(add-hook 'c++-mode-hook 'lsp)
Install C language server
# Install clangd.
clang-format
(use-package clang-format
:ensure t
:commands (clang-format-buffer))
(defun clang-format-buffer-smart ()
"Reformat buffer if .clang-format exists in the projectile root"
(when (f-exists? (expand-file-name ".clang-format" (projectile-project-root)))
(clang-format-buffer)))
(defun my-c-mode-setup ()
(add-hook 'before-save-hook 'clang-format-buffer-smart nil t))
(add-hook 'c-mode-hook 'my-c-mode-setup)
(add-hook 'c++-mode-hook 'my-c-mode-setup)
Java
Language Server Protocol
(use-package lsp-java
:ensure nil
:after lsp-mode)
C
csharp-mode
(use-package csharp-mode
:ensure nil
:mode ("\\.cs\\'" . csharp-mode)
:config
(defun my-csharp-mode-setup ()
(c-set-style "c#"))
(add-hook 'csharp-mode-hook 'my-csharp-mode-setup))
OmniSharp
(use-package omnisharp
:ensure nil
:hook (csharp-mode . omnisharp-mode))
Install OmniSharp server: M-x omnisharp-install-server
fish shell
(use-package fish-mode
:ensure t
:mode ("\\.fish\\'" . fish-mode)
:interpreter ("fish"))
Markup Languages
Org Mode
org
(use-package org
:ensure org-plus-contrib
:defer 10
:mode ("\\.org\\'" . org-mode)
:bind (("C-c C-," . org-insert-structure-template)
("C-c c" . org-capture)
("C-c l" . org-store-link)
("C-c a" . org-agenda))
:config
(setq org-directory "~/Sync/Org")
(setq org-agenda-files (list org-directory)
org-agenda-file-regexp "\\`[^.].*\\.org\\'")
(setq org-default-notes-file
(expand-file-name "Organizer.org" org-directory))
;; Align tags' right edge with 80th column
(setq org-tags-column -80)
(setq org-agenda-default-appointment-duration 60)
(setq org-log-done t)
(setq org-catch-invisible-edits 'show)
(setq org-fast-tag-selection-single-key 'expert)
;; Do not store org id
(setq org-id-track-globally nil)
(setq org-support-shift-select t)
(setq org-use-sub-superscripts '{})
(setq my-org-inbox-file (expand-file-name "Inbox.org" org-directory))
;;; org-capture
(setq org-capture-templates
`(("t" "todo"
entry (file+olp org-default-notes-file "Agenda")
"* TODO %?\n :PROPERTIES:\n :Captured_at: %U\n :END:\n")
("j" "journal"
entry (file+olp org-default-notes-file "Journal")
"* %u\n%?\n")))
(add-to-list 'org-structure-template-alist '("se" . "src emacs-lisp"))
(add-to-list 'org-structure-template-alist '("ss" . "src sh"))
;;; org-babel
(org-babel-do-load-languages
'org-babel-load-languages
'((dot . t)
(latex . t)
(ledger . t)
(shell . t)
(python . t)))
;; prefer python3
(setq org-babel-python-command "python3")
;; disable emacs-lisp-checker for org-src-mode
(add-hook 'org-src-mode-hook
(lambda ()
(setq-local flycheck-disabled-checkers
'(emacs-lisp-checkdoc))))
;;; org-export
(setq org-export-with-toc nil)
(setq org-export-with-section-numbers nil)
(setq org-export-with-sub-superscripts '{})
(setq org-export-exclude-tags '("noexport" "private"))
;;; org-html
(setq org-html-validation-link nil)
(setq org-html-doctype "html5")
(setq org-html-html5-fancy-p t)
;;; org-latex
(add-to-list 'org-latex-packages-alist '("" "listings"))
(add-to-list 'org-latex-packages-alist '("" "color"))
(setq org-latex-listings t
org-latex-listings-options '(("basicstyle" "\\small")
("frame" "single")))
;;; org-icalendar
;; Include tasks that are not in DONE state.
(setq org-icalendar-include-todo t)
;; Whether to make events from plain time stamps.
(setq org-icalendar-with-timestamps 'active)
;; Include scheduled and deadline events.
(setq org-icalendar-use-scheduled
'(event-if-todo event-if-not-todo todo-start))
(setq org-icalendar-use-deadline
'(event-if-todo event-if-not-todo todo-due))
;; Trigger alarm 60 minutes before the event.
(setq org-icalendar-alarm-time 60)
(setq org-icalendar-exclude-tags
'("noexport" "private" "archive" "journal"))
(setq org-icalendar-combined-agenda-file
(concat org-directory "/agenda.ics"))
;;; the following section is stolen from Purcell
;;; To-do settings
(setq org-todo-keywords
(quote ((sequence "TODO(t)" "NEXT(n)" "|" "DONE(d!/!)" "CANCELLED([email protected]/!)")
(sequence "PROJECT(p)" "|" "DONE(d!/!)" "CANCELLED([email protected]/!)")
(sequence "WAITING([email protected]/!)" "DELEGATED(e!)" "HOLD(h)" "|" "CANCELLED([email protected]/!)")))
org-todo-repeat-to-state "NEXT")
(setq org-todo-keyword-faces
(quote (("NEXT" :inherit warning)
("PROJECT" :inherit font-lock-string-face))))
;;; Agenda views
(setq-default org-agenda-clockreport-parameter-plist '(:link t :maxlevel 3))
(let ((active-project-match "-INBOX/PROJECT"))
(setq org-stuck-projects
`(,active-project-match ("NEXT")))
(setq org-agenda-compact-blocks t
org-agenda-sticky t
org-agenda-start-on-weekday nil
org-agenda-span 'day
org-agenda-include-diary nil
org-agenda-sorting-strategy
'((agenda habit-down time-up user-defined-up effort-up category-keep)
(todo category-up effort-up)
(tags category-up effort-up)
(search category-up))
org-agenda-window-setup 'current-window
org-agenda-custom-commands
`(("N" "Notes" tags "NOTE"
((org-agenda-overriding-header "Notes")
(org-tags-match-list-sublevels t)))
("g" "GTD"
((agenda "" nil)
(tags "INBOX"
((org-agenda-overriding-header "Inbox")
(org-tags-match-list-sublevels nil)))
(stuck ""
((org-agenda-overriding-header "Stuck Projects")
(org-agenda-tags-todo-honor-ignore-options t)
(org-tags-match-list-sublevels t)
(org-agenda-todo-ignore-scheduled 'future)))
(tags-todo "-INBOX"
((org-agenda-overriding-header "Next Actions")
(org-agenda-tags-todo-honor-ignore-options t)
(org-agenda-todo-ignore-scheduled 'future)
(org-agenda-skip-function
'(lambda ()
(or (org-agenda-skip-subtree-if 'todo '("HOLD" "WAITING"))
(org-agenda-skip-entry-if 'nottodo '("NEXT")))))
(org-tags-match-list-sublevels t)
(org-agenda-sorting-strategy
'(todo-state-down effort-up category-keep))))
(tags-todo ,active-project-match
((org-agenda-overriding-header "Projects")
(org-tags-match-list-sublevels t)
(org-agenda-sorting-strategy
'(category-keep))))
(tags-todo "-INBOX/-NEXT"
((org-agenda-overriding-header "Orphaned Tasks")
(org-agenda-tags-todo-honor-ignore-options t)
(org-agenda-todo-ignore-scheduled 'future)
(org-agenda-skip-function
'(lambda ()
(or (org-agenda-skip-subtree-if 'todo '("PROJECT" "HOLD" "WAITING" "DELEGATED"))
(org-agenda-skip-subtree-if 'nottododo '("TODO")))))
(org-tags-match-list-sublevels t)
(org-agenda-sorting-strategy
'(category-keep))))
(tags-todo "/WAITING"
((org-agenda-overriding-header "Waiting")
(org-agenda-tags-todo-honor-ignore-options t)
(org-agenda-todo-ignore-scheduled 'future)
(org-agenda-sorting-strategy
'(category-keep))))
(tags-todo "/DELEGATED"
((org-agenda-overriding-header "Delegated")
(org-agenda-tags-todo-honor-ignore-options t)
(org-agenda-todo-ignore-scheduled 'future)
(org-agenda-sorting-strategy
'(category-keep))))
(tags-todo "-INBOX"
((org-agenda-overriding-header "On Hold")
(org-agenda-skip-function
'(lambda ()
(or (org-agenda-skip-subtree-if 'todo '("WAITING"))
(org-agenda-skip-entry-if 'nottodo '("HOLD")))))
(org-tags-match-list-sublevels nil)
(org-agenda-sorting-strategy
'(category-keep))))
;; (tags-todo "-NEXT"
;; ((org-agenda-overriding-header "All other TODOs")
;; (org-match-list-sublevels t)))
)))))
(add-hook 'org-agenda-mode-hook 'hl-line-mode)
;;; Org clock
;; Save the running clock and all clock history when exiting Emacs, load it on startup
(org-clock-persistence-insinuate)
(setq org-clock-persist t)
(setq org-clock-in-resume t)
;; Save clock data and notes in the LOGBOOK drawer
(setq org-clock-into-drawer t)
;; Save state changes in the LOGBOOK drawer
(setq org-log-into-drawer t)
;; Removes clocked tasks with 0:00 duration
(setq org-clock-out-remove-zero-time-clocks t)
;; Show clock sums as hours and minutes, not "n days" etc.
(setq org-time-clocksum-format
'(:hours "%d" :require-hours t :minutes ":%02d" :require-minutes t))
)
org-alert
Notifications for org agenda items
(use-package org-alert
:ensure t
:defer 20
:config
(setq org-alert-interval 600)
(org-alert-enable))
ox-hugo
(use-package ox-hugo
:ensure t
:after ox)
Add UUID to all org headlines
(defun my-add-uuid-to-org-headlines-in-buffer ()
"Add ID properties to all headlines in the current buffer."
(interactive)
(org-map-entries 'org-id-get-create))
HTML
htmlize – Convert buffer text and decorations to HTML
(use-package htmlize
:ensure t
:defer 10)
rainbow mode
(use-package rainbow-mode
:ensure t
:hook ((html-mode css-mode) . rainbow-mode))
YAML
(use-package yaml-mode
:ensure t
:mode ("\\.yaml\\'" "\\.yml\\'"))
CSV
(use-package csv-mode
:ensure t
:mode ("\\.csv\\'" . csv-mode))
Ledger
(use-package ledger-mode
:ensure nil
:mode ("\\.ledger\\'" . ledger-mode)
:config
(use-package flycheck-ledger
:ensure t))
TeX
auctex
(use-package auctex
:ensure nil
:mode ("\\.tex\\'" . latex-mode)
:config
(setq TeX-auto-save t
TeX-parse-self t
TeX-PDF-mode t)
(setq-default TeX-master nil)
(defun my-latex-mode-setup ()
(LaTeX-preview-setup)
(LaTeX-math-mode))
(add-hook 'latex-mode-hook 'my-latex-mode-setup)
(use-package company-auctex
:ensure t
:after (company auctex)
:hook (latex-mode . company-auctex-init))
(use-package reftex
:ensure t
:hook (latex-mode . turn-on-reftex)
:config
(setq reftex-plug-into-AUCTeX t))
)
Markdown
(use-package markdown-mode
:ensure nil
:mode (("\\.md\\'" . markdown-mode)
("\\.markdown\\'" . markdown-mode)
("README\\.md\\'" . gfm-mode)))
restclient
(use-package restclient
:ensure t
:mode ("\\.restclient\\'" . restclient-mode))
org-babel restclient
(use-package ob-restclient
:ensure t
:after (ob restclient))
Internet
Gnus
(use-package gnus
:commands (gnus)
:config
;; Email servers
(setq my--gnus-local '(nnmaildir "local"
(directory "~/Mail")
(get-new-mail nil)))
;; Usenet servers
(setq my--gnus-gmane
'(nntp "gmane"
(nntp-address "news.gmane.org")
(nntp-port-number 563)
(nntp-open-connection-function nntp-open-tls-stream))
my--gnus-aioe
'(nntp "aioe"
(nntp-address "nntp.aioe.org")
(nntp-port-number 563)
(nntp-open-connection-function nntp-open-tls-stream)))
(setq gnus-select-method my--gnus-local)
;; (setq gnus-secondary-select-methods
;; (list my--gnus-gmane my--gnus-aioe))
)
mu4e
(setq mail-user-agent 'mu4e-user-agent)
(use-package mu4e
:ensure nil
:bind (("C-c m" . mu4e))
:config
(setq mu4e-confirm-quit nil)
;; Don't save message to Sent folder if IMAP takes care of this.
;; (setq mu4e-sent-messages-behavior 'delete)
;; Fetch email.
(setq mu4e-get-mail-command "offlineimap")
;; Default context.
(setq mu4e-maildir "~/Mail")
(setq mu4e-drafts-folder "/drafts")
(setq mu4e-refile-folder "/archive")
(setq mu4e-sent-folder "/sent")
(setq mu4e-trash-folder "/trash")
;; ;; Contexts
;; (setq mu4e-contexts
;; (list
;; (make-mu4e-context
;; :name "gmail"
;; :match-func
;; (lambda (msg)
;; (when msg
;; (string-prefix-p "/Gmail"
;; (mu4e-message-field msg :maildir))))
;; :vars
;; `((mu4e-drafts-folder . "/Gmail/[Gmail].Drafts")
;; (mu4e-sent-folder . "/Gmail/[Gmail].Sent Mail")
;; (mu4e-trash-folder . "/Gmail/[Gmail].Trash")
;; (mu4e-refile-folder . "/Gmail/[Gmail].All Mail")
;; (user-mail-address . ,my-gmail-address)
;; (message-signature-file . "personal")))))
;; Setup some handy shortcuts.
;; Jump to Inbox by pressing `ji'.
;; Move email to Archive folder by pressing `ma'.
(setq mu4e-maildir-shortcuts
'(("/archive" . ?a)
("/drafts" . ?d)
("/INBOX" . ?i)
("/sent" . ?s)
("/spam" . ?j)
("/trash" . ?t))))
IRC
ERC
(use-package erc
:commands (erc my-erc-start-or-switch)
:config
(setq erc-nick "meiyopeng")
(setq erc-autojoin-channels-alist
'((".*\\.freenode.net" "#emacs")))
(erc-autojoin-mode t)
;; spell checking
(erc-spelling-mode 1)
;; logging
(setq erc-log-channels-directory
(expand-file-name "erc" (xdg-data-home)))
(setq erc-save-buffer-on-part t)
;; fallback to auth-source
(setq erc-prompt-for-password nil)
;; Kill buffers for channels after /part
(setq erc-kill-buffer-on-part t)
;; Kill buffers for private queries after quitting the server
(setq erc-kill-queries-on-quit t)
;; Kill buffers for server messages after quitting the server
(setq erc-kill-server-buffer-on-quit t)
;; open query buffers in the current window
(setq erc-query-display 'buffer)
(setq erc-auto-reconnect nil)
(erc-track-mode t)
(setq erc-track-exclude-types '("JOIN" "NICK" "PART" "QUIT" "MODE"
"324" "329" "332" "333" "353" "477"))
(defun my-erc-start-or-switch ()
"Connect to ERC, or switch to last active buffer"
(interactive)
(if (get-buffer "irc.freenode.net:6697")
(erc-track-switch-buffer 1)
(when (y-or-n-p "Start ERC? ")
(erc-tls :server "irc.freenode.net" :port 6697
:nick my-irc-nick)))))
RSS feed
elfeed
(use-package elfeed
:ensure t
:bind (("C-c n" . my-elfeed-open))
:config
(setq elfeed-db-directory
(expand-file-name "elfeed" (xdg-data-home)))
(use-package elfeed-org
:ensure t
:after (elfeed)
:config
(setq rmh-elfeed-org-files
(list (expand-file-name "elfeed.org" user-emacs-config-dir)))
(elfeed-org))
(defun my-elfeed-open ()
"Wrapper to load the elfeed db from disk before opening"
(interactive)
(elfeed-db-load)
(elfeed)))
lookup Wikipedia
(require 'browse-url)
(defun my-lookup-wikipedia ()
"Look up the word under cursor in Wikipedia.
If there is a text selection, use that."
(interactive)
(let (word)
(setq word
(if (use-region-p)
(buffer-substring-no-properties (region-beginning) (region-end))
(current-word)))
(setq word (replace-regexp-in-string " " "_" word))
(browse-url (concat "http://en.wikipedia.org/wiki/" word))))
lookup Wiktionary
(autoload 'ispell-get-word "ispell")
(defun my-lookup-wiktionary (word)
(interactive (list (save-excursion (car (ispell-get-word nil)))))
(browse-url (format "http://en.wiktionary.org/wiki/%s" word)))
(global-set-key (kbd "M-#") 'my-lookup-wiktionary)
Media
pdf-tools
(use-package pdf-tools
:ensure nil
:mode ("\\.pdf\\'" . pdf-view-mode)
:config
(pdf-loader-install))
Developer Tools
debbugs
(use-package debbugs
:ensure nil
:commands (debbugs-gnu
debbugs-org
debbugs-gnu-bugs
debbugs-org-bugs
debbugs-gnu-search
debbugs-org-search)
:config
(setq debbugs-gnu-default-packages '("guix")))
Chinese compatibility hack
Chinese Font
To align Chinese characters with English characters vertically, the Chinese font size should be rescaled.
chinese_font_size = 1.2 * english_font_zise
chinese_character_width = 2 * english_character_width
(defun my-set-chinese-font (font-list &optional font-size)
"Set Chinese font to the first available font in FONT-LIST."
(let ((chinese-font (cl-find-if #'my-font-available-p font-list)))
(if (null chinese-font)
(user-error "No font is available in FONT-LIST"))
(message "Set Chinese font to %s" chinese-font)
(dolist (charset '(han cjk-misc))
(set-fontset-font t charset
(font-spec :family chinese-font :size font-size)))
;; Rescale Chinese fonts
(setq face-font-rescale-alist
'((".*WenQuanYi.*" . 1.2)
(".*Heiti.*" . 1.2)
(".*Yahei.*" . 1.2)))
))
My preferred fonts
(when (display-graphic-p)
(my-set-chinese-font
'("WenQuanYi Micro Hei" "WenQuanYi Zen Hei" "Heiti SC" "STHeiti" "Microsoft Yahei")))
Fix line break in Chinese paragraph
by zwz.github.io
(defun clear-single-linebreak-in-cjk-string (string)
"clear single line-break between cjk characters that is usually soft
line-breaks"
(let* ((cjk-char "[\u3000-\u303F]\\|[\u4E00-\u9FFF]\\|[\uFF01-\uFF5E]")
(regexp (concat "\\(" cjk-char "\\)\n\\(" cjk-char "\\)"))
(start (string-match regexp string)))
(while start
(setq string (replace-match "\\1\\2" nil nil string)
start (string-match regexp string start))))
string)
(defun ox-html-clear-single-linebreak-for-cjk (string backend info)
(when (org-export-derived-backend-p backend 'html)
(clear-single-linebreak-in-cjk-string string)))
(eval-after-load "ox"
'(add-to-list 'org-export-filter-final-output-functions
'ox-html-clear-single-linebreak-for-cjk))
init-local.el
Load an optional local init file
(load (expand-file-name "init-local.el" user-emacs-config-dir) 'noerror)