|
|
@ -181,16 +181,6 @@ point reaches the beginning or end of the buffer, stop there." |
|
|
'display '(left-fringe right-triangle)) |
|
|
'display '(left-fringe right-triangle)) |
|
|
'modification-hooks '(prelude-todo-ov-evaporate))) |
|
|
'modification-hooks '(prelude-todo-ov-evaporate))) |
|
|
|
|
|
|
|
|
(defun prelude-copy-file-name-to-clipboard () |
|
|
|
|
|
"Copy the current buffer file name to the clipboard." |
|
|
|
|
|
(interactive) |
|
|
|
|
|
(let ((filename (if (equal major-mode 'dired-mode) |
|
|
|
|
|
default-directory |
|
|
|
|
|
(buffer-file-name)))) |
|
|
|
|
|
(when filename |
|
|
|
|
|
(kill-new filename) |
|
|
|
|
|
(message "Copied buffer file name '%s' to the clipboard." filename)))) |
|
|
|
|
|
|
|
|
|
|
|
(defun prelude-get-positions-of-line-or-region () |
|
|
(defun prelude-get-positions-of-line-or-region () |
|
|
"Return positions (beg . end) of the current line |
|
|
"Return positions (beg . end) of the current line |
|
|
or region." |
|
|
or region." |
|
|
|