blob: 8c0390591eefeeb54e4d5bdc41f1523c376c7811 (
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
|
;;; my-buffers.el --- Functions related to buffer manipulations
;;; Commentary:
;;; Code:
(defun my/copy-whole-buffer ()
"Select the buffer and copy it."
(interactive)
(save-excursion
(mark-whole-buffer)
(copy-region-as-kill 1 (buffer-size))))
(defun my/rename-this-buffer-and-file ()
"Renames current buffer and file it is visiting."
(interactive)
(let ((name (buffer-name))
(filename (buffer-file-name))
(read-file-name-function 'read-file-name-default))
(if (not (and filename (file-exists-p filename)))
(error "Buffer '%s' is not visiting a file!" name)
(let ((new-name (read-file-name "New name: " filename)))
(cond ((get-buffer new-name)
(error "A buffer named '%s' already exists!" new-name))
(t
(rename-file filename new-name 1)
(rename-buffer new-name)
(set-visited-file-name new-name)
(set-buffer-modified-p nil)
(message "File '%s' successfully renamed to '%s'" name (file-name-nondirectory new-name))))))))
(defun my/uniquify-region-lines (beg end)
"Remove duplicate adjacent lines in region between BEG and END."
(interactive "*r")
(save-excursion
(goto-char beg)
(while (re-search-forward "^\\(.*\n\\)\\1+" end t)
(replace-match "\\1"))))
(provide 'my-buffers)
;;; my-buffers.el ends here
|
