blob: 41b0fae3126360bfcee2465c70cea525ac29c07a (
plain)
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
|
;;; -*- lexical-binding: t; -*-
;;; Commentary:
;;; Code:
;;;; standard bindings
(keymap-global-unset "C-z")
(keymap-global-unset "C-x C-z")
(global-set-key (kbd "C-x C-b") 'ibuffer)
(global-set-key (kbd "C-z =") 'text-scale-increase)
(global-set-key (kbd "C-z -") 'text-scale-decrease)
(setopt text-scale-mode-step 1.1)
;;;; UI
(setopt inhibit-startup-message t
initial-major-mode 'eshell-mode
initial-scratch-message nil)
(tooltip-mode -1)
(defun pulse-line (&rest _)
"Pulse the current line."
(pulse-momentary-highlight-one-line (point)))
(dolist (command '(scroll-up-command scroll-down-command
recenter-top-bottom other-window))
(advice-add command :after #'pulse-line))
;;;; insecure passwording
(use-package pinentry
:config
(pinentry-start)
:custom
(pinentry-popup-prompt-window nil))
(defun pinentry-toggle ()
"Stops and starts Pinentry service. Workaround
for a bug I've encountered."
(interactive)
(pinentry-stop)
(pinentry-start))
;;;; defaults
;; basic editing
(setopt kill-whole-line t
sentence-end-double-space nil)
(setq-default tab-width 8)
(global-hl-line-mode 1)
(global-visual-line-mode t)
(setopt next-line-add-newlines t)
;;;; buffers
(global-auto-revert-mode 1)
(setopt global-auto-revert-non-file-buffers t
auto-revert-interval 30)
(setopt scroll-up-aggressively '0.50
scroll-down-aggressively '0.50)
(setopt Man-notify-method 'pushy)
(provide 'bd--essentials)
;;; bd-essentials ends here
|
