blob: 80622164314bd45d19b24b65251447ff620671bf (
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
|
;;; my-settings.el --- Sets a number of defaults -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
;; 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
(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)
(customize-set-variable 'savehist-save-minibuffer-history t)
(add-hook 'after-init-hook #'savehist-mode)
(add-hook 'after-init-hook 'midnight-mode)
(customize-set-variable 'save-place-forget-unreadable-files t)
(add-hook 'after-init-hook #'save-place-mode)
(unless (and (fboundp 'server-running-p)
(server-running-p))
(server-start))
(when (memq window-system '(mas ns))
(require 'exec-path-from-shell)
(add-hook 'emacs-startup-hook (lambda () (exec-path-from-shell-initialize))))
(require 'yasnippet)
;; I want the snippets under `etc'
(setq yas-snippet-dirs (expand-file-name "etc/snippets" user-emacs-directory))
;; the default (tab) conflicts with corfu for completion
(define-key yas-minor-mode-map (kbd "C-c y") #'yas-expand)
(provide 'my-settings)
;;; my-settings.el ends here
|
