branch: elpa/crux
commit 139eb6f1504b6885c86c658fd33c6d59bfac0a8c
Author: Martin Polden <mpol...@mpolden.no>
Commit: Bozhidar Batsov <bozhidar.bat...@gmail.com>
Add crux-kill-buffer-truename
Make it easy to kill the path of file visited in the current buffer.
---
CHANGELOG.md | 1 +
README.md | 1 +
crux.el | 10 ++++++++++
3 files changed, 12 insertions(+)
diff --git a/CHANGELOG.md b/CHANGELOG.md
index 8d5b16c..4b7604e 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -5,6 +5,7 @@
### New features
* [#65](https://github.com/bbatsov/crux/pull/65): Add a configuration option
to move using visual lines in `crux-move-to-mode-line-start`.
+* [#72](https://github.com/bbatsov/crux/pull/72): Add
`crux-kill-buffer-truename`. Kills path of file visited by current buffer.
### Bugs fixed
diff --git a/README.md b/README.md
index 64427e4..103c5f7 100644
--- a/README.md
+++ b/README.md
@@ -67,6 +67,7 @@ Command |
Suggested Keybinding(s)
`crux-kill-whole-line` | <kbd>Super-k</kbd> |
Kill whole line
`crux-kill-line-backwards` | <kbd>C-Backspace</kbd> |
Kill line backwards
`crux-kill-and-join-forward` | <kbd>C-S-Backspace</kbd>
or <kbd>C-k</kbd> | If at end of line, join with following; otherwise kill line.
+`crux-kill-buffer-truename ` | <kbd>C-c P</kbd> | Kill
absolute path of file visited in current buffer.
`crux-ispell-word-then-abbrev` | <kbd>C-c i</kbd> | Fix
word using `ispell` and then save to `abbrev`.
`crux-upcase-region` | <kbd>C-x C-u</kbd> |
`upcase-region` when `transient-mark-mode` is on and region is active.
`crux-downcase-region` | <kbd>C-x C-l</kbd> |
`downcase-region` when `transient-mark-mode` is on and region is active.
diff --git a/crux.el b/crux.el
index eaf3a56..1603d5a 100644
--- a/crux.el
+++ b/crux.el
@@ -661,6 +661,16 @@ Doesn't mess with special buffers."
(delete (current-buffer) (seq-filter #'buffer-file-name (buffer-list))))))
;;;###autoload
+(defun crux-kill-buffer-truename ()
+ "Kill absolute path of file visited in current buffer."
+ (interactive)
+ (if buffer-file-name
+ (let ((truename (file-truename buffer-file-name)))
+ (kill-new truename)
+ (message "Added %s to kill ring." truename))
+ (message "Buffer is not visiting a file.")))
+
+;;;###autoload
(defun crux-create-scratch-buffer ()
"Create a new scratch buffer."
(interactive)
