How to put default-directory into kill-ring?

How to put default-directory into kill-ring?

[Marcin Borkowski]

Hi list,

quite often I want to put some full path to some file (usually
init.el).  It would be quite convenient for M-x pwd (or maybe C-u M-x
pwd?) to put its output into the kill ring, which is does not.  So: is
there any function to do this?  (I can easily write it myself, but
don't want to reinvent the wheel.)  If not, could this be considered a
feature request?

Best,

-- 
Marcin Borkowski
http://octd.wmi.amu.edu.pl/en/Marcin_Borkowski
Adam Mickiewicz University

Re: How to put default-directory into kill-ring?

[Thorsten Jolitz]

Marcin Borkowski <mbork@wmi.amu.edu.pl> writes:

Hi Marcin,

> quite often I want to put some full path to some file (usually
> init.el).  It would be quite convenient for M-x pwd (or maybe C-u M-x
> pwd?) to put its output into the kill ring, which is does not.  So: is
> there any function to do this?  (I can easily write it myself, but
> don't want to reinvent the wheel.)  If not, could this be considered a
> feature request?

I use this in dired (typing '0 w' with point on a file/dir):

,-----------------------------------------------------------------------------
| w runs the command dired-copy-filename-as-kill, which is an
| interactive compiled Lisp function in `dired.el'.
| 
| It is bound to w, <menu-bar> <operate> <kill-ring>.
| 
| (dired-copy-filename-as-kill &optional ARG)
| 
| Copy names of marked (or next ARG) files into the kill ring.
| The names are separated by a space.
| With a zero prefix arg, use the absolute file name of each marked file.
| With C-u, use the file name relative to the dired buffer's
| `default-directory'.  (This still may contain slashes if in a subdirectory.)
`-----------------------------------------------------------------------------

-- 
cheers,
Thorsten

Re: How to put default-directory into kill-ring?

[Marcin Borkowski]

Dnia 2014-02-04, o godz. 12:46:25
Thorsten Jolitz <tjolitz@gmail.com> napisał(a):

> Marcin Borkowski <mbork@wmi.amu.edu.pl> writes:
> 
> Hi Marcin,
> 
> > quite often I want to put some full path to some file (usually
> > init.el).  It would be quite convenient for M-x pwd (or maybe C-u
> > M-x pwd?) to put its output into the kill ring, which is does not.
> > So: is there any function to do this?  (I can easily write it
> > myself, but don't want to reinvent the wheel.)  If not, could this
> > be considered a feature request?
> 
> I use this in dired (typing '0 w' with point on a file/dir):

Thanks, I didn't know that!

Best,

-- 
Marcin Borkowski
http://octd.wmi.amu.edu.pl/en/Marcin_Borkowski
Adam Mickiewicz University

RE: How to put default-directory into kill-ring?

[Drew Adams]

> is there any function to do this?

M-x cd RET C-x DEL C-g

`cd' changes directory, and the default is `default-directory'.
`C-x DEL' is `backward-kill-sentence', which kills the dir
in the minibuffer.  You can alternatively use `C-a C-k' to do
this.  (DEL is Backspace.)

If you have `insert-default-directory' = nil then  do `M-n'
after `M-x cd RET', to get the default dir in the minibuffer.

And yes, if you do this often, you could simply define a
command and key for it.

Re: How to put default-directory into kill-ring?

[Marcin Borkowski]

Dnia 2014-02-04, o godz. 06:01:14
Drew Adams <drew.adams@oracle.com> napisał(a):

> > is there any function to do this?
> 
> M-x cd RET C-x DEL C-g
> 
> `cd' changes directory, and the default is `default-directory'.
> `C-x DEL' is `backward-kill-sentence', which kills the dir
> in the minibuffer.  You can alternatively use `C-a C-k' to do
> this.  (DEL is Backspace.)
> 
> If you have `insert-default-directory' = nil then  do `M-n'
> after `M-x cd RET', to get the default dir in the minibuffer.

This is a bit lengthy, but thanks nonetheless.

> And yes, if you do this often, you could simply define a
> command and key for it.

Of course.

Thanks!

-- 
Marcin Borkowski
http://octd.wmi.amu.edu.pl/en/Marcin_Borkowski
Adam Mickiewicz University

Re: How to put default-directory into kill-ring?

[Leo Liu]

On 2014-02-04 19:07 +0800, Marcin Borkowski wrote:
> quite often I want to put some full path to some file (usually
> init.el).  It would be quite convenient for M-x pwd (or maybe C-u M-x
> pwd?) to put its output into the kill ring, which is does not.  So: is
> there any function to do this?  (I can easily write it myself, but
> don't want to reinvent the wheel.)  If not, could this be considered a
> feature request?

A small package for many such tasks: https://github.com/leoliu/easy-kill

M-w b copies buffer-file-name or default-directory with the following
keys modifies the kill:

-: remove the basename
0: remove the directory name
+: full path

Leo

Re: How to put default-directory into kill-ring?

[Barry OReilly]

> quite often I want to put some full path to some file (usually
> init.el). It would be quite convenient for M-x pwd (or maybe C-u M-x
> pwd?) to put its output into the kill ring, which is does not. So:
> is there any function to do this? (I can easily write it myself, but
> don't want to reinvent the wheel.) If not, could this be considered
> a feature request?

I usually go to buffer-menu and copy the buffer name, path, whatever.
I bind buffer-menu to 'f' in an Evil keymap because of how often I use
it. So in this setup, the typed keys for copying the absolute
directory path containing the current file would be: f$?/ then RET
then vBy .

Re: How to put default-directory into kill-ring?

[Stefan Monnier]

>> quite often I want to put some full path to some file (usually
>> init.el). It would be quite convenient for M-x pwd (or maybe C-u M-x
>> pwd?) to put its output into the kill ring, which is does not. So:
>> is there any function to do this? (I can easily write it myself, but
>> don't want to reinvent the wheel.) If not, could this be considered
>> a feature request?

We could provide such a feature, of course.  If you have a good UI for
it, please tell.

When I need such a thing, I usually use something like C-x C-f
then copy the part I want, then C-g.


        Stefan

Re: How to put default-directory into kill-ring?

[Marcin Borkowski]

Dnia 2014-02-12, o godz. 10:14:24
Stefan Monnier <monnier@iro.umontreal.ca> napisał(a):

> >> quite often I want to put some full path to some file (usually
> >> init.el). It would be quite convenient for M-x pwd (or maybe C-u
> >> M-x pwd?) to put its output into the kill ring, which is does not.
> >> So: is there any function to do this? (I can easily write it
> >> myself, but don't want to reinvent the wheel.) If not, could this
> >> be considered a feature request?
> 
> We could provide such a feature, of course.  If you have a good UI for
> it, please tell.

Thanks!

Well, as I wrote: M-x pwd currently does *nothing* with its prefix
argument, and only outputs the default directory in the minibuffer.  So
C-u M-x pwd is basically "wasted".

Another possible use case might be to have my current directory in the
kill ring so that I can `cd' to it in an eshell buffer (assuming I
don't want to open a new one).  Or even in an xterm, for that matter.

> When I need such a thing, I usually use something like C-x C-f
> then copy the part I want, then C-g.

This is not exactly the same, since then I'm stuck with the "~/" prefix
for my home directory, which may or may not be what is wanted.  Also,
in case of us Ido users, this requires one more keypress (it's one more
C-f, so not *that* inconvenient, but still).

Best,

-- 
Marcin Borkowski
http://octd.wmi.amu.edu.pl/en/Marcin_Borkowski
Adam Mickiewicz University

Re: How to put default-directory into kill-ring?

[Stefan Monnier]

> Well, as I wrote: M-x pwd currently does *nothing* with its prefix
> argument, and only outputs the default directory in the minibuffer.
> So C-u M-x pwd is basically "wasted".

I guess that would be OK.  Please M-x report-emacs-bug requesting this
as a new feature, to see what other developers think about it (and so
it's not forgotten until the trunk is unfrozen).

I think M-: would also benefit from changing its "C-u means to insert at
point" to "C-u means to stash in the kill-ring".  Tho, if we could find
a generic way to "get the message from this command and stash it in the
kill-ring" it might be even better.

> Also, in case of us Ido users, this requires one more keypress (it's
> one more C-f, so not *that* inconvenient, but still).

Yup, one of the reasons why Ido will never be the default completion UI.


        Stefan

Re: How to put default-directory into kill-ring?

[Nicolas Richard]

Stefan Monnier <monnier@iro.umontreal.ca> writes:

>> Well, as I wrote: M-x pwd currently does *nothing* with its prefix
>> argument, and only outputs the default directory in the minibuffer.
>> So C-u M-x pwd is basically "wasted".
>
> I guess that would be OK.  Please M-x report-emacs-bug requesting this
> as a new feature, to see what other developers think about it (and so
> it's not forgotten until the trunk is unfrozen).
>
> I think M-: would also benefit from changing its "C-u means to insert at
> point" to "C-u means to stash in the kill-ring".  Tho, if we could find
> a generic way to "get the message from this command and stash it in the
> kill-ring" it might be even better.

As a related question, I wish I had something for getting what's in the
echo area. I currently uses the following heuristic:
(defun yf/save-current-or-last-echo-area ()
  "Save current message in echo area as kill"
  (interactive)
  (let ((candidates
         (list
          (with-current-buffer " *Echo Area 1*"
            (buffer-string))
          (with-current-buffer " *Echo Area 0*"
            (buffer-string))
          (with-current-buffer "*Messages*"
            (save-excursion
              (goto-char
               (point-max))
              (skip-chars-backward "\n")
              (buffer-substring-no-properties
               (point)
               (progn
                 (skip-chars-backward "^\n")
                 (point))))))))
    (kill-new (car (remove "" candidates)))))
(bind-key "<f5>" 'yf/save-current-or-last-echo-area)

I have no idea why it's sometimes Echo Area 1 and sometimes 0, nor if I
might miss an Echo Area 2.

-- 
Nico.

Re: How to put default-directory into kill-ring?

[Stefan Monnier]

> As a related question, I wish I had something for getting what's in the
> echo area.

Right, that's one solution.

> I have no idea why it's sometimes Echo Area 1 and sometimes 0,

IIRC Emacs alternates between the two for a reason that escapes me just now.

> nor if I might miss an Echo Area 2.

No, there are only 2 (contrary to the *Minibuffer-N*).


        Stefan

Re: How to put default-directory into kill-ring?

[Marcin Borkowski]

Dnia 2014-02-14, o godz. 14:40:03
Nicolas Richard <theonewiththeevillook@yahoo.fr> napisał(a):

> Stefan Monnier <monnier@iro.umontreal.ca> writes:
> 
> >> Well, as I wrote: M-x pwd currently does *nothing* with its prefix
> >> argument, and only outputs the default directory in the minibuffer.
> >> So C-u M-x pwd is basically "wasted".
> >
> > I guess that would be OK.  Please M-x report-emacs-bug requesting
> > this as a new feature, to see what other developers think about it
> > (and so it's not forgotten until the trunk is unfrozen).
> >
> > I think M-: would also benefit from changing its "C-u means to
> > insert at point" to "C-u means to stash in the kill-ring".  Tho, if
> > we could find a generic way to "get the message from this command
> > and stash it in the kill-ring" it might be even better.
> 
> As a related question, I wish I had something for getting what's in
> the echo area. I currently uses the following heuristic:
> (defun yf/save-current-or-last-echo-area ()
>   "Save current message in echo area as kill"
>   (interactive)
>   (let ((candidates
>          (list
>           (with-current-buffer " *Echo Area 1*"
>             (buffer-string))
>           (with-current-buffer " *Echo Area 0*"
>             (buffer-string))
>           (with-current-buffer "*Messages*"
>             (save-excursion
>               (goto-char
>                (point-max))
>               (skip-chars-backward "\n")
>               (buffer-substring-no-properties
>                (point)
>                (progn
>                  (skip-chars-backward "^\n")
>                  (point))))))))
>     (kill-new (car (remove "" candidates)))))
> (bind-key "<f5>" 'yf/save-current-or-last-echo-area)
> 
> I have no idea why it's sometimes Echo Area 1 and sometimes 0, nor if
> I might miss an Echo Area 2.

I like this approach a lot!  BTW, is checking " *Echo Area [01]*" even
necessary?  I mean, its contents should be in "*Messages*" anyway,
right?

Best,

-- 
Marcin Borkowski
http://octd.wmi.amu.edu.pl/en/Marcin_Borkowski
Adam Mickiewicz University

Re: How to put default-directory into kill-ring?

[Nicolas Richard]

Marcin Borkowski <mbork@wmi.amu.edu.pl> writes:
> Nicolas Richard <theonewiththeevillook@yahoo.fr> napisał(a):
>> As a related question, I wish I had something for getting what's in
>> the echo area. I currently uses the following heuristic:
>> [...]
> I like this approach a lot!  BTW, is checking " *Echo Area [01]*" even
> necessary?  I mean, its contents should be in "*Messages*" anyway,
> right?

Some commands bind message-log-max to nil for various reasons, so it's
not always the same content (or might slightly differ, ISTR I have seen
that on occasions).

-- 
Nico.

Re: How to put default-directory into kill-ring?

[Marcin Borkowski]

Dnia 2014-02-14, o godz. 08:24:36
Stefan Monnier <monnier@iro.umontreal.ca> napisał(a):

> > Well, as I wrote: M-x pwd currently does *nothing* with its prefix
> > argument, and only outputs the default directory in the minibuffer.
> > So C-u M-x pwd is basically "wasted".
> 
> I guess that would be OK.  Please M-x report-emacs-bug requesting this
> as a new feature, to see what other developers think about it (and so
> it's not forgotten until the trunk is unfrozen).

Thanks, I'll do it!

> I think M-: would also benefit from changing its "C-u means to insert
> at point" to "C-u means to stash in the kill-ring".  Tho, if we could
> find a generic way to "get the message from this command and stash it
> in the kill-ring" it might be even better.

Certainly.

> > Also, in case of us Ido users, this requires one more keypress (it's
> > one more C-f, so not *that* inconvenient, but still).
> 
> Yup, one of the reasons why Ido will never be the default completion
> UI.

Obvious.  Ido can be *very* annoying, having it as a default would be
an extremely bad idea.

>         Stefan

Best,

-- 
Marcin Borkowski
http://octd.wmi.amu.edu.pl/en/Marcin_Borkowski
Adam Mickiewicz University

Re: How to put default-directory into kill-ring?

[Michael Heerdegen]

Stefan Monnier <monnier@iro.umontreal.ca> writes:

> We could provide such a feature, of course.  If you have a good UI for
> it, please tell.

FWIW, my two cents: There are surely different use cases.  Another
scenario, which is probably different from Marcin's: Getting paths to
other window system applications.  That can even be another Emacs
instance where you want to try and load a file you edited in the first
instance.  But most often, I need the path of a file or directory to be
pasted into another application, e.g. for opening or save-to dialogues.

My approach for that problem is the following:

Double clicking on the buffer name in the mode-line pushes its path into
the kill-ring and into the primary selection.  Double clicking on a file
in dired does the same.  Using the mouse for this is quite convenient,
because you can continue switching to the other application and paste
the path there without switching input device.

Michael.

Re: How to put default-directory into kill-ring?

[Marcin Borkowski]

Dnia 2014-02-14, o godz. 13:59:06
Michael Heerdegen <michael_heerdegen@web.de> napisał(a):

> Stefan Monnier <monnier@iro.umontreal.ca> writes:
> 
> > We could provide such a feature, of course.  If you have a good UI
> > for it, please tell.
> 
> FWIW, my two cents: There are surely different use cases.  Another
> scenario, which is probably different from Marcin's: Getting paths to
> other window system applications.  That can even be another Emacs
> instance where you want to try and load a file you edited in the first
> instance.  But most often, I need the path of a file or directory to
> be pasted into another application, e.g. for opening or save-to
> dialogues.
> 
> My approach for that problem is the following:
> 
> Double clicking on the buffer name in the mode-line pushes its path
> into the kill-ring and into the primary selection.  Double clicking
> on a file in dired does the same.  Using the mouse for this is quite
> convenient, because you can continue switching to the other
> application and paste the path there without switching input device.

Interesting.  I hate using the mouse (even for switching applications),
so definitely not for me.

Best,

-- 
Marcin Borkowski
http://octd.wmi.amu.edu.pl/en/Marcin_Borkowski
Adam Mickiewicz University