blob: b17f4a66b742103e14cea9bbf24bf5657bc8ce55 (
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
|
;;; my-settings.el --- Sets a number of defaults -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(require 'url-cookie)
;; set utf-8 as the default encoding
(prefer-coding-system 'utf-8-unix)
(setq locale-coding-system 'utf-8)
(set-language-environment 'utf-8)
(set-terminal-coding-system 'utf-8)
(set-keyboard-coding-system 'utf-8)
;; alias yes-or-no to y-or-n
(fset 'yes-or-no-p 'y-or-n-p)
(setq auto-save-default nil) ;; don't auto save files
(setq auto-save-list-file-prefix nil) ;; no backups
(setq create-lockfiles nil) ;; don't use a lock file
(setq confirm-kill-emacs #'yes-or-no-p) ;; ask before killing emacs
(setq make-backup-files nil) ;; really no backups
(setq minibuffer-message-timeout 0.5) ;; How long to display an echo-area message
(setq next-screen-context-lines 5) ;; scroll 5 lines at a time
(setq require-final-newline t) ;; ensure newline exists at the end of the file
(setq ring-bell-function 'ignore) ;; really no bell
(setq tab-always-indent 'complete) ;; when using TAB, always indent
(setq visible-bell nil) ;; no bell
(setq column-number-mode t) ;; show column number in the mode line
(setq-default indent-tabs-mode nil) ;; turn off tab indentation
(setq-default cursor-type 'box) ;; cursor is a horizontal bar
(setq-default delete-by-moving-to-trash t) ;; delete files by moving them to the trash
(setq initial-scratch-message "") ;; empty scratch buffer
(setq garbage-collection-messages t) ;; log when the gc kicks in
;; where to store cookies
(setq url-cookie-file (expand-file-name "var/url/cookies" user-emacs-directory))
(custom-set-variables
'(use-file-dialog nil)
'(use-dialog-box nil)
'(inhibit-startup-screen t)
'(inhibit-startup-message t)
'(inhibit-startup-echo-area-message t))
(setq user-full-name "Franck Cuny"
user-mail-address "franck@fcuny.net"
add-log-mailing-address "franck@fcuny.net")
(customize-set-variable 'history-length 1000)
(customize-set-variable 'history-delete-duplicates t)
(add-hook 'after-init-hook 'midnight-mode)
(customize-set-variable 'save-place-forget-unreadable-files t)
(add-hook 'after-init-hook #'save-place-mode)
(when (memq window-system '(mac ns))
(require 'exec-path-from-shell)
(exec-path-from-shell-initialize))
(unless (and (fboundp 'server-running-p)
(server-running-p))
(server-start))
(require 'yasnippet)
;; I want the snippets under `etc'
(defvar my/yasnippets (expand-file-name "etc/snippets" user-emacs-directory))
(if (and (file-exists-p my/yasnippets) (not (member my/yasnippets yas-snippet-dirs)))
(setq yas--default-user-snippets-dir my/yasnippets))
;; the default (tab) conflicts with corfu for completion
(define-key yas-minor-mode-map (kbd "C-c y") #'yas-expand)
(yas-global-mode 1)
(provide 'my-settings)
;;; my-settings.el ends here
|
