blob: 5cfcaf1584752e14ead267919cec212758d9738f (
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
|
;; use zap-up-to-char instead of zap-to-char
(use-package misc
:ensure nil ;; package is bundled with emacs
:bind ("M-z" . zap-up-to-char))
;; enable subword-mode in prog-mode
(use-package subword
:ensure nil ;; package is bundled with emacs
:diminish subword-mode
:hook ((prog-mode . subword-mode)))
;; use sh-mode for various zsh files
(use-package sh-script
:ensure nil ;; package is bundled with emacs
:mode ("z\\(sh[^/]*\\|login\\|logout\\|profile\\)\\'" . sh-mode))
;; find function definitions
(use-package find-func
:ensure nil ;; package is bundled with emacs
:bind (("C-h C-f" . find-function-other-window)
("C-h C-k" . find-function-on-key))
:config
;; make source files read-only when visiting
(setq find-function-after-hook (lambda () (read-only-mode 1))))
(defun show-file-name ()
"Show the full path file name in the minibuffer and add it to the kill ring."
(interactive)
(when buffer-file-name
(message buffer-file-name)
(kill-new (file-truename buffer-file-name))))
;; source:
;; http://emacsredux.com/blog/2013/05/04/rename-file-and-buffer/
;; https://github.com/bbatsov/prelude/blob/master/core/prelude-core.el
(defun rename-buffer-and-file ()
"Rename current buffer and if the buffer is visiting a file, rename it too."
(interactive)
(let ((filename (buffer-file-name)))
(if (not (and filename (file-exists-p filename)))
(rename-buffer (read-from-minibuffer "New name: " (buffer-name)))
(let ((new-name (read-file-name "New name: " filename)))
(cond
((vc-backend filename) (vc-rename-file filename new-name))
(t
(rename-file filename new-name t)
(set-visited-file-name new-name t t)))))))
;; C-x k kills current buffer
(global-set-key (kbd "C-x k") 'kill-this-buffer)
;; C-c w shows the path of the current file
(global-set-key (kbd "C-c w") 'show-file-name)
;; join line
(global-set-key (kbd "M-j") (lambda () (interactive) (join-line -1)))
;; C-c n renames the current buffer and file
(global-set-key (kbd "C-c n") 'rename-buffer-and-file)
;; C-x g goes to line (as in mg)
(global-set-key (kbd "C-x g") 'goto-line)
;; C-- undoes
(global-set-key (kbd "C--") 'undo)
;; kill line also kills newline character
(setq kill-whole-line t)
(provide 'init-editing)
|
