blob: b03d0d465e7dc23501e60b0120b2e21649f3806a (
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
|
;;; ycp-basic.el -- My config for basic stuff -*- lexical-binding: t -*-
;; Copyright (C) 2023 Free Software Foundation.
;; Author: Yuchen Pei <id@ypei.org>
;; Package-Requires: ((emacs "28.2"))
;; This file is part of dotfiles.
;; dotfiles is free software: you can redistribute it and/or modify it
;; under the terms of the GNU Affero General Public License as
;; published by the Free Software Foundation, either version 3 of the
;; License, or (at your option) any later version.
;; dotfiles is distributed in the hope that it will be useful, but
;; WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; Affero General Public License for more details.
;; You should have received a copy of the GNU Affero General Public
;; License along with dotfiles. If not, see
;; <https://www.gnu.org/licenses/>.
;;; Commentary:
;; My config for basic stuff.
;;; Code:
(my-configure
(my-keybind global-map
"C-x C-c" nil
"C-x C-c C-c" #'save-buffers-kill-emacs
"C-x C-z" nil
)
(my-keybind special-event-map
"<sigusr1>" 'my-quit-emacs)
(setq auth-source-save-behavior nil)
(setq use-short-answers t)
(setq use-dialog-box nil)
(prefer-coding-system 'utf-8)
(set-default-coding-systems 'utf-8)
(set-terminal-coding-system 'utf-8)
(set-keyboard-coding-system 'utf-8)
(set-language-environment 'utf-8)
(setq load-prefer-newer t)
(setq message-log-max 16384)
(setq attempt-stack-overflow-recovery nil)
(setq confirm-kill-processes nil)
(setq attempt-orderly-shutdown-on-fatal-signal nil)
)
(my-package my-utils
(:delay 5)
(my-setq-from-local my-audio-incoming-dir my-video-incoming-dir
my-document-incoming-dir)
(my-keybind global-map
"C-c <f2>" #'my-rename-file-and-buffer
"C-c <delete>" #'my-delete-file-and-kill-buffer
"C-g" #'my-keyboard-quit-dwim
)
)
(provide 'ycp-basic)
;;; ycp-basic.el ends here
|
