blob: bf54efd06ac749f7cc02e50305cc57f262011f78 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
|
;;; init.el --- emacs init file -*- lexical-binding: t; -*-
;;; Code:
;; Setup package.el and `use-package'.
(require 'package)
(setq package-archives '(("melpa" . "https://melpa.org/packages/")
("elpa" . "https://elpa.gnu.org/packages/")
("nongnu" . "https://elpa.nongnu.org/nongnu/")))
(when (version< emacs-version "27")
(package-initialize)
(load (concat user-emacs-directory "early-init.el")))
;; Bootstrap `use-package'.
(unless (package-installed-p 'use-package)
(package-refresh-contents)
(package-install 'use-package))
(require 'use-package)
(setq use-package-always-ensure t)
;;; Package Imports
;; Load custom modules.
(add-to-list 'load-path '"~/.emacs.d/lisp")
(require 'td-common)
(require 'td-dired)
(require 'td-functions)
(require 'td-meow)
(require 'td-mu4e)
(require 'td-org)
(require 'td-present)
(require 'td-programming)
(require 'td-writing)
;;; Sane Defaults
(column-number-mode) ; Display columns in our modeline.
(global-display-line-numbers-mode t) ; Display line numbers in the buffer/modeline.
(prefer-coding-system 'utf-8) ; Always default to `utf-8'.
(save-place-mode 1) ; Save our place in the file.
(fset 'yes-or-no-p 'y-or-n-p) ; Do I even have to explain this one?
(setq-default indent-tabs-mode nil) ; Disable tab indentation.
(setq-default tab-width 2) ; Set tabs to two spaces.
(setq inhibit-startup-message t) ; Don't show a startup message.
(setq echo-keystrokes 0.1) ; Don't wait long before showing keystrokes.
(setq ring-bell-function 'ignore) ; Don't make a sound when something goes south.
(setq use-dialog-box nil) ; Get rid of the dialog box.
(setq native-comp-async-report-warnings-errors nil) ; Silence compiler warnings.
(setq large-file-warning-threshold nil) ; Don't warn when opening large files.
(setq vc-follow-symlinks t) ; Always follow symlinks.
(setq async-shell-command-display-buffer nil) ; Only display a buffer if the command returns something.
(setq inhibit-x-resources t) ; Fix emacsclient issues.
(setq frame-resize-pixelwise t) ; Pixel perfect window resize.
(setq make-pointer-invisible t) ; This should hide the mouse... doesn't always work.
(setq word-wrap t) ; Don't wrap in the middle of a word.
(setq save-place-forget-unreadable-files nil) ; Always save our place in the file.
(setq display-line-numbers-type 'relative) ; Show relative line numbers.
;;; Keybinds
;; Make escape quit prompts.
(global-set-key (kbd "<escape>") 'keyboard-escape-quit)
;; Increment/decrement a number at point, similar to vim's `C-a' and `C-x'.
(global-set-key (kbd "C-x n a") 'td/increment-number-at-point)
(global-set-key (kbd "C-x n x") 'td/decrement-number-at-point)
;;; Hooks
;; Display startup stats.
(add-hook 'emacs-startup-hook #'td/display-startup-time)
;; Delete all trailing whitespace.
(add-hook 'before-save-hook #'delete-trailing-whitespace)
;; Fix font issues when running as a daemon.
(if (daemonp)
(add-hook 'after-make-frame-functions (lambda (frame)
(with-selected-frame frame
(td/set-font))))
(td/set-font))
;; Disable line numbers for some modes.
(dolist (mode '(eat-mode-hook
eshell-mode-hook
dired-mode-hook
olivetti-mode-hook
org-mode-hook
shell-mode-hook
term-mode-hook
vterm-mode-hook))
(add-hook mode (lambda ()
(display-line-numbers-mode 0))))
;; Prettify the lambda symbol.
(dolist (mode '(emacs-lisp-mode-hook
lisp-mode-hook
scheme-mode-hook))
(add-hook mode 'prettify-symbols-mode))
;;; init.el ends here
|
