From: Ivan Sokolov <ivan-p-sokolov@ya.ru>
To: Eli Zaretskii <eliz@gnu.org>
Cc: 64531@debbugs.gnu.org
Subject: bug#64531: [PATCH v2] Add new command vc-dir-copy-filename-as-kill
Date: Tue, 08 Aug 2023 16:44:56 +0300 [thread overview]
Message-ID: <87bkfhy7fr.fsf_-_@ya.ru> (raw)
In-Reply-To: <83jzvadabq.fsf@gnu.org> (Eli Zaretskii's message of "Sat, 08 Jul 2023 12:25:13 +0300")
[-- Attachment #1: Type: text/plain, Size: 516 bytes --]
Eli Zaretskii <eliz@gnu.org> writes:
> However, new commands should be called out in NEWS, and commands that
> are important enough should also be mentioned in the user manual.
Added entry in NEWS, but not in the user manual, there is no such for
vc-dir afaik.
>> +(defun vc-dir-copy-filename-as-kill (&optional absolutep)
>> + "Copy names of marked files (or file under cursor) into the kill ring.
>
> This sentence is too general: it doesn't mention VC Dir, although
> AFAIU it is specific to vc-dir.
Fixed.
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: v2-0001-Add-new-command-vc-dir-copy-filename-as-kill.patch --]
[-- Type: text/x-patch, Size: 2386 bytes --]
From 88cb2e3407adf0245bc15a88896e1cd611d559c8 Mon Sep 17 00:00:00 2001
From: Ivan Sokolov <ivan-p-sokolov@ya.ru>
Date: Tue, 11 Jul 2023 18:19:57 +0300
Subject: [PATCH v2] Add new command vc-dir-copy-filename-as-kill
* lisp/vc/vc-dir.el (vc-dir-copy-filename-as-kill): New command.
(vc-dir-mode-map): Bind vc-dir-copy-filename-as-kill to `w'.
---
etc/NEWS | 3 +++
lisp/vc/vc-dir.el | 18 ++++++++++++++++++
2 files changed, 21 insertions(+)
diff --git a/etc/NEWS b/etc/NEWS
index 1a86c9e55e2..da3672e068b 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -154,6 +154,9 @@ This is a string or a list of strings that specifies the Git log
switches for shortlogs, such as the one produced by 'C-x v L'.
'vc-git-log-switches' is no longer used for shortlogs.
+*** New command 'vc-dir-copy-filename-as-kill'.
+This works like 'dired-copy-filename-as-kill' but in vc-dir buffers.
+
** Diff Mode
+++
diff --git a/lisp/vc/vc-dir.el b/lisp/vc/vc-dir.el
index 53d58870b32..dc25467a3e9 100644
--- a/lisp/vc/vc-dir.el
+++ b/lisp/vc/vc-dir.el
@@ -353,6 +353,7 @@ See `run-hooks'."
(define-key map (kbd "M-s a C-s") #'vc-dir-isearch)
(define-key map (kbd "M-s a M-C-s") #'vc-dir-isearch-regexp)
(define-key map "G" #'vc-dir-ignore)
+ (define-key map "w" #'vc-dir-copy-filename-as-kill)
(let ((branch-map (make-sparse-keymap)))
(define-key map "b" branch-map)
@@ -930,6 +931,23 @@ system."
(interactive)
(view-file (vc-dir-current-file)))
+(defun vc-dir-copy-filename-as-kill (&optional absolutep)
+ "Copy filenames from the `vc-dir' buffer into the kill ring.
+If there are marked files, copy their names, otherwise copy the
+file at point. Names will be separated by a space, each will be
+quoted using `shell-quote-argument'. If ABSOLUTEP use absolute
+names, otherwise names are relative to the `default-directory'."
+ (interactive "P")
+ (let ((files (or (vc-dir-marked-files)
+ (list (vc-dir-current-file)))))
+ (unless absolutep
+ (setq files (mapcar #'file-relative-name files)))
+ (let ((string (mapconcat #'shell-quote-argument files " ")))
+ (if (eq last-command 'kill-region)
+ (kill-append string nil)
+ (kill-new string))
+ (message "%s" string))))
+
(defun vc-dir-isearch ()
"Search for a string through all marked buffers using Isearch."
(interactive)
--
2.41.0
next prev parent reply other threads:[~2023-08-08 13:44 UTC|newest]
Thread overview: 13+ messages / expand[flat|nested] mbox.gz Atom feed top
2023-07-08 7:51 bug#64531: [PATCH] Add new command vc-dir-copy-filename-as-kill Ivan Sokolov
2023-07-08 9:25 ` Eli Zaretskii
2023-08-08 13:44 ` Ivan Sokolov [this message]
2023-08-08 13:56 ` bug#64531: [PATCH v2] " Eli Zaretskii
2023-08-19 8:06 ` Eli Zaretskii
2023-08-19 23:12 ` Ivan Sokolov
2023-08-20 6:20 ` Eli Zaretskii
2023-08-19 23:33 ` Dmitry Gutov
2023-08-20 6:26 ` Eli Zaretskii
2023-08-20 10:26 ` Dmitry Gutov
2023-09-04 20:08 ` bug#64531: [PATCH v3] Add new commands for copying VC filenames Ivan Sokolov
2023-09-05 11:01 ` Eli Zaretskii
2023-10-19 23:39 ` Dmitry Gutov
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87bkfhy7fr.fsf_-_@ya.ru \
--to=ivan-p-sokolov@ya.ru \
--cc=64531@debbugs.gnu.org \
--cc=eliz@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).