blob: 61b44cf97735799db3a599e5c8cc1ac27db672e6 (
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
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
|
;; install packages
(require-packages '(move-text whole-line-or-region))
(require 'move-text)
(require 'whole-line-or-region)
(require 'misc)
(require 'whitespace)
;; disable backup files
(setq make-backup-files nil)
;; preserve point position when scrolling
(setq scroll-preserve-screen-position 'always)
;; enable electric-indent-mode
(electric-indent-mode 1)
;; use sh-mode for various zsh files
(add-to-list 'auto-mode-alist
'("z\\(sh[^/]*\\|login\\|logout\\|profile\\|preztorc\\)\\'"
. sh-mode))
;; cut or copy the currrent line if no region is active
(whole-line-or-region-mode 1)
;; bind keys for moving lines up and down
(global-set-key (kbd "M-<up>") 'move-text-up)
(global-set-key (kbd "M-<down>") 'move-text-down)
;; use zap-up-to-char instead of zap-to-char
(global-set-key (kbd "M-z") 'zap-up-to-char)
;; swap RET and C-j
(global-set-key (kbd "RET") 'newline-and-indent)
(global-set-key (kbd "C-j") 'newline)
;; C-x k kills current buffer
(global-set-key (kbd "C-x k") 'kill-this-buffer)
;; C-c . repeats last command
(global-set-key (kbd "C-c .") 'repeat)
(defun show-file-name ()
"Show the full path file name in the minibuffer."
(interactive)
(message buffer-file-name))
(global-set-key (kbd "C-c f") 'show-file-name)
;; bind hippie-expand
(global-set-key (kbd "C-c e") 'hippie-expand)
;; whitespace cleanup
(defun untabify-buffer ()
(interactive)
(untabify (point-min) (point-max)))
(defun indent-buffer ()
(interactive)
(indent-region (point-min) (point-max)))
(defun cleanup-buffer ()
"Perform a bunch of operations on the whitespace content of a buffer.
Including indent-buffer, which should not be called automatically on save."
(interactive)
(if (eq 'go-mode major-mode)
(message "Skipping untabify-buffer in go-mode.")
(untabify-buffer))
(whitespace-cleanup)
(if (or (eq 'python-mode major-mode) (eq 'yaml-mode major-mode))
(message "Skipping indent-buffer in %s." major-mode)
(indent-buffer)))
(global-set-key (kbd "C-c c") 'cleanup-buffer)
;; keybindings for navigating elisp sources
(defun call-interactively-other-window (function &optional noselect)
"Call FUNCTION interactively. Restore the current window if
NOSELECT is non-nil."
(let ((current-window (selected-window)))
(call-interactively function)
(when noselect
(select-window current-window))))
(define-key 'help-command (kbd "C-f")
(lambda ()
(interactive)
(call-interactively-other-window 'find-function-other-window t)))
(define-key 'help-command (kbd "C-k")
(lambda ()
(interactive)
(call-interactively-other-window 'find-function-on-key t)))
;; join line
(global-set-key (kbd "M-j") (lambda () (interactive) (join-line -1)))
(defun rename-file-and-buffer (new-name)
"Renames both current buffer and file it's visiting to NEW-NAME."
(interactive "sNew name: ")
(let ((name (buffer-name))
(filename (buffer-file-name)))
(if (not filename)
(message "Buffer '%s' is not visiting a file!" name)
(if (get-buffer new-name)
(message "A buffer named '%s' already exists!" new-name)
(progn
(rename-file name new-name 1)
(rename-buffer new-name)
(set-visited-file-name new-name)
(set-buffer-modified-p nil))))))
(global-set-key (kbd "C-c n") 'rename-file-and-buffer)
;; navigating to top/bottom of buffer
(global-set-key (kbd "C-x t") 'beginning-of-buffer)
(global-set-key (kbd "C-x e") 'end-of-buffer)
(provide 'init-editing)
|
