blob: 5ff81d1dc0784b6445adc5d9229702a71414ff8c (
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
|
;;; 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'
(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)))
(add-to-list 'yas-snippet-dirs 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
|
