blob: 62c2d8bf31365ef9b9bc1e4903318362b8ad23b2 (
plain) (
blame)
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
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
|
(package-initialize)
(require 'package)
(setq package-archives
'(("melpa" . "https://melpa.org/packages/")
("gnu" . "https://elpa.gnu.org/packages/")))
(defvar --backup-directory (concat user-emacs-directory "backups"))
(if (not (file-exists-p --backup-directory))
(make-directory --backup-directory t))
(setq backup-directory-alist `(("." . ,--backup-directory)))
(setq make-backup-files t ; backup of a file the first time it is saved.
backup-by-copying t ; don't clobber symlinks
version-control t ; version numbers for backup files
delete-old-versions t ; delete excess backup files silently
delete-by-moving-to-trash t
kept-old-versions 6 ; oldest versions to keep when a new numbered backup is made (default: 2)
kept-new-versions 9 ; newest versions to keep when a new numbered backup is made (default: 2)
auto-save-default t ; auto-save every buffer that visits a file
auto-save-timeout 20 ; number of seconds idle time before auto-save (default: 30)
auto-save-interval 200 ; number of keystrokes between auto-saves (default: 300)
)
(let ((default-directory
(concat user-emacs-directory
(convert-standard-filename "elisp/"))))
(normal-top-level-add-to-load-path '("."))
(normal-top-level-add-subdirs-to-load-path))
(require 'use-package)
(load "server")
(unless (server-running-p) (server-start))
(setq custom-file
(concat user-emacs-directory
(convert-standard-filename "custom.el")))
(load custom-file :noerror)
(use-package color-theme-sanityinc-tomorrow
:ensure t
:config (color-theme-sanityinc-tomorrow-blue))
(use-package yaml-mode
:mode "\\.yml\\'")
(if (< emacs-major-version 26)
(use-package linum-relative
:ensure t
:config
(linum-mode)
(linum-relative-global-mode)
(setq linum-relative-current-symbol ""))
(setq-default display-line-numbers 'relative))
(add-to-list 'auto-mode-alist '("/mutt" . mail-mode))
(add-to-list 'auto-mode-alist '("/neomutt" . mail-mode))
(add-hook 'mail-mode-hook 'turn-on-auto-fill)
(add-hook 'mail-mode-hook 'mail-text)
(use-package tex
:config
(setq TeX-auto-save t)
(setq TeX-parse-self t)
(setq fill-column 80))
(use-package auctex-latexmk
:config
(auctex-latexmk-setup))
(setq reftex-plug-into-AUCTeX t)
(use-package muttrc-mode
:mode "/muttrc")
(use-package rust-mode
:mode "\\.rs\\'")
(load-library "git-commit")
(setq tramp-default-method "ssh")
(setq column-number-mode t)
(global-set-key (kbd "C-x C-k") 'kill-this-buffer)
(global-set-key (kbd "C-M-y") '(lambda ()
(interactive)
(save-excursion (insert (gui-get-primary-selection)))))
;;; Mail
(setq message-kill-buffer-on-exit t
message-sendmail-envelope-from 'header
message-send-mail-function 'message-send-mail-with-sendmail
notmuch-mua-user-agent-function 'notmuch-mua-user-agent-full
notmuch-always-prompt-for-sender t)
(use-package gnus-alias
:ensure t
:config
(setq gnus-alias-identity-alist
'(("Chaotikum"
nil
"Thomas Schneider <qsx@chaotikum.eu>"
nil
(("Fcc" . "Chaotikum/Sent"))
nil
nil)
("RWTH"
"Chaotikum"
"Thomas Schneider <thomas.schneider@informatik.rwth-aachen.de>"
"RWTH Aachen"
nil
nil
nil)
("FSMPI"
nil
"Thomas Schneider <thomas@fsmpi.rwth-aachen.de>"
"Fachschaft I/1 der RWTH Aachen"
(("Fcc" . "FSMPI/Sent"))
nil
"~/.signature-fsmpi")
("AStA"
nil
"Thomas Schneider <tschneider@asta.rwth-aachen.de>"
"AStA der RWTH Aachen"
(("Fcc" . "AStA/Sent"))
nil
"~/.signature-asta")
("Automata"
nil
"Thomas Schneider <schneider@automata.rwth-aachen.de>"
"Lehrstuhl für Informatik 7, RWTH Aachen"
(("Fcc" . "\"Automata/Sent Items\""))
nil
"~/.signature-automata")
("CCCAC"
nil
"qsx <qsx@aachen.ccc.de>"
nil
(("Fcc" . "CCCAC/Sent"))
nil
nil))
gnus-alias-default-identity "Chaotikum"
gnus-alias-identity-rules
'(("FSMPI" ("from" "fsmpi" both) "FSMPI")
("AStA" ("from" "asta" both) "AStA")
("Automata" ("from" "automata" both) "Automata")
("RWTH" ("from" "rwth-aachen" both) "RWTH")
("CCCAC" ("from" "aachen\.ccc\.de" both) "CCCAC")))
(add-hook 'message-setup-hook 'gnus-alias-determine-identity))
(add-hook 'message-setup-hook
(lambda ()
(make-local-variable 'message-user-fqdn)
(setq message-user-fqdn
(car (reverse (split-string
(car (mail-header-parse-address
(message-field-value "From")))
"@"))))))
(setq mu4e-maildir "~/.maildir")
|
