Copying a list for insertion

Copying a list for insertion

[Heime via Users list for the GNU Emacs text editor]

I am printing a list named "cunex" in the messages buffer. I would also like to store what is printed so I can insert
the contents somewhere else, without having to go to the "*Messages*" buffer to copy it.

(message "%s" cunex)

Re: Copying a list for insertion

[Manuel Giraud]

Maybe:
(insert (format "%s" cunex))

But it also depends on what you're trying to do.
-- 
Manuel Giraud

Re: Copying a list for insertion

[Heime]

------- Original Message -------
On Friday, October 21st, 2022 at 2:35 PM, Manuel Giraud <manuel@ledu-giraud.fr> wrote:


> Maybe:
> (insert (format "%s" cunex))
> 
> But it also depends on what you're trying to do.
> --
> Manuel Giraud

I am not planning to actually insert it immediately, but keep in the copy ring, 
so I can insert it with a middle mouse click when appropriate.

Re: Copying a list for insertion

[Teemu Likonen]

[-- Attachment #1: Type: text/plain, Size: 534 bytes --]

* 2022-10-21 14:16:36+0000, Heime via Users list for the wrote:

> I am printing a list named "cunex" in the messages buffer. I would
> also like to store what is printed so I can insert the contents
> somewhere else, without having to go to the "*Messages*" buffer to
> copy it.
>
> (message "%s" cunex)

    (defvar my-store)
    (setq my-store (format "%S" cunex)) % or: "%s"
    (message "%s" cunex)


-- 
/// Teemu Likonen - .-.. https://www.iki.fi/tlikonen/
// OpenPGP: 6965F03973F0D4CA22B9410F0F2CAE0E07608462

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 251 bytes --]

Re: Copying a list for insertion

[Jean Louis]

* Heime via Users list for the GNU Emacs text editor <help-gnu-emacs@gnu.org> [2022-10-21 17:18]:
> I am printing a list named "cunex" in the messages buffer. I would also like to store what is printed so I can insert
> the contents somewhere else, without having to go to the "*Messages*" buffer to copy it.
> 
> (message "%s" cunex)

I use this function:

(defun rcd-kill-new (kill)
  (cond ((stringp kill) (progn 
			  (kill-new kill)
			  (rcd-message "Killed: %s" kill)))
	 (t (rcd-message "😧 WARNING: Nothing to kill."))))

You may change `rcd-message' to message.

If you wish to kill the list, then you need to do something like:

(kill-new (prin1-to-string '(1 2 3 "My" "List" 10 20))) ⇒ t

Then you do C-y:

(1 2 3 "My" "List" 10 20)


-- 
Jean

Take action in Free Software Foundation campaigns:
https://www.fsf.org/campaigns

In support of Richard M. Stallman
https://stallmansupport.org/

Re: Copying a list for insertion

[Heime]

------- Original Message -------
On Friday, October 21st, 2022 at 3:57 PM, Jean Louis <bugs@gnu.support> wrote:


> * Heime via Users list for the GNU Emacs text editor help-gnu-emacs@gnu.org [2022-10-21 17:18]:
> 
> > I am printing a list named "cunex" in the messages buffer. I would also like to store what is printed so I can insert
> > the contents somewhere else, without having to go to the "Messages" buffer to copy it.
> > 
> > (message "%s" cunex)
> 
> 
> I use this function:
> 
> (defun rcd-kill-new (kill)
> (cond ((stringp kill) (progn
> (kill-new kill)
> (rcd-message "Killed: %s" kill)))
> (t (rcd-message "😧 WARNING: Nothing to kill."))))
> 
> You may change `rcd-message' to message.
> 
> If you wish to kill the list, then you need to do something like:
> 
> (kill-new (prin1-to-string '(1 2 3 "My" "List" 10 20))) ⇒ t
> 
> Then you do C-y:
> 
> (1 2 3 "My" "List" 10 20)

Have done so, but doing M-w does not insert the string.

Re: Copying a list for insertion

[Heime]

------- Original Message -------
On Friday, October 21st, 2022 at 4:12 PM, Heime <heimeborgia@protonmail.com> wrote:


> ------- Original Message -------
> On Friday, October 21st, 2022 at 3:57 PM, Jean Louis bugs@gnu.support wrote:
> 
> 
> 
> > * Heime via Users list for the GNU Emacs text editor help-gnu-emacs@gnu.org [2022-10-21 17:18]:
> > 
> > > I am printing a list named "cunex" in the messages buffer. I would also like to store what is printed so I can insert
> > > the contents somewhere else, without having to go to the "Messages" buffer to copy it.
> > > 
> > > (message "%s" cunex)
> > 
> > I use this function:
> > 
> > (defun rcd-kill-new (kill)
> > (cond ((stringp kill) (progn
> > (kill-new kill)
> > (rcd-message "Killed: %s" kill)))
> > (t (rcd-message "😧 WARNING: Nothing to kill."))))
> > 
> > You may change `rcd-message' to message.
> > 
> > If you wish to kill the list, then you need to do something like:
> > 
> > (kill-new (prin1-to-string '(1 2 3 "My" "List" 10 20))) ⇒ t
> > 
> > Then you do C-y:
> > 
> > (1 2 3 "My" "List" 10 20)
> 
> 
> Have done so, but doing M-w does not insert the string.

prin1-to-string inserts double quotes.  Because my list is composed of string
items only, I want to exclude tho double quotes on each list entry.

Re: Copying a list for insertion

[Jean Louis]

* Heime <heimeborgia@protonmail.com> [2022-10-21 20:26]:
> > Have done so, but doing M-w does not insert the string.
> 
> prin1-to-string inserts double quotes.  Because my list is composed of string
> items only, I want to exclude tho double quotes on each list entry.

M-w is to kill, C-y is to yank

So you wish to have list like '("Hello" "There") and to get '(Hello
There)?

(kill-new (format "%s" '("Hello" "There")))

(Hello There)


-- 
Jean

Take action in Free Software Foundation campaigns:
https://www.fsf.org/campaigns

In support of Richard M. Stallman
https://stallmansupport.org/

Re: Copying a list for insertion

[Heime]

------- Original Message -------
On Friday, October 21st, 2022 at 4:12 PM, Heime <heimeborgia@protonmail.com> wrote:


> ------- Original Message -------
> On Friday, October 21st, 2022 at 3:57 PM, Jean Louis bugs@gnu.support wrote:
> 
> 
> 
> > * Heime via Users list for the GNU Emacs text editor help-gnu-emacs@gnu.org [2022-10-21 17:18]:
> > 
> > > I am printing a list named "cunex" in the messages buffer. I would also like to store what is printed so I can insert
> > > the contents somewhere else, without having to go to the "Messages" buffer to copy it.
> > > 
> > > (message "%s" cunex)
> > 
> > I use this function:
> > 
> > (defun rcd-kill-new (kill)
> > (cond ((stringp kill) (progn
> > (kill-new kill)
> > (rcd-message "Killed: %s" kill)))
> > (t (rcd-message "😧 WARNING: Nothing to kill."))))
> > 
> > You may change `rcd-message' to message.
> > 
> > If you wish to kill the list, then you need to do something like:
> > 
> > (kill-new (prin1-to-string '(1 2 3 "My" "List" 10 20))) ⇒ t
> > 
> > Then you do C-y:
> > 
> > (1 2 3 "My" "List" 10 20)

Have wrongly assumed that "kill-new" would pass the string for use to 
"mouse-yank-primary".  Any idea how to pass the string for mouse yank
and keyboard yank with "M-w" ?

Re: Copying a list for insertion

[Jean Louis]

* Heime <heimeborgia@protonmail.com> [2022-10-21 22:27]:
> Have wrongly assumed that "kill-new" would pass the string for use to 
> "mouse-yank-primary".  Any idea how to pass the string for mouse yank
> and keyboard yank with "M-w" ?

Enable select-enable-primary

Then using kill-new will make that.


-- 
Jean

Take action in Free Software Foundation campaigns:
https://www.fsf.org/campaigns

In support of Richard M. Stallman
https://stallmansupport.org/

Re: Copying a list for insertion

[Heime]

------- Original Message -------
On Friday, October 21st, 2022 at 7:26 PM, Heime <heimeborgia@protonmail.com> wrote:


> ------- Original Message -------
> On Friday, October 21st, 2022 at 4:12 PM, Heime heimeborgia@protonmail.com wrote:
> 
> 
> 
> > ------- Original Message -------
> > On Friday, October 21st, 2022 at 3:57 PM, Jean Louis bugs@gnu.support wrote:
> > 
> > > * Heime via Users list for the GNU Emacs text editor help-gnu-emacs@gnu.org [2022-10-21 17:18]:
> > > 
> > > > I am printing a list named "cunex" in the messages buffer. I would also like to store what is printed so I can insert
> > > > the contents somewhere else, without having to go to the "Messages" buffer to copy it.
> > > > 
> > > > (message "%s" cunex)
> > > 
> > > I use this function:
> > > 
> > > (defun rcd-kill-new (kill)
> > > (cond ((stringp kill) (progn
> > > (kill-new kill)
> > > (rcd-message "Killed: %s" kill)))
> > > (t (rcd-message "😧 WARNING: Nothing to kill."))))
> > > 
> > > You may change `rcd-message' to message.
> > > 
> > > If you wish to kill the list, then you need to do something like:
> > > 
> > > (kill-new (prin1-to-string '(1 2 3 "My" "List" 10 20))) ⇒ t
> > > 
> > > Then you do C-y:
> > > 
> > > (1 2 3 "My" "List" 10 20)

Any reason why you use "progn" in the "stringp" condition?

Re: Copying a list for insertion

[Jean Louis]

* Heime <heimeborgia@protonmail.com> [2022-10-22 02:06]:
> Any reason why you use "progn" in the "stringp" condition?

(defun rcd-kill-new (kill)
  (cond ((stringp kill) (progn 
			  (kill-new kill)
			  (rcd-message "Killed: %s" kill)))
	 (t (rcd-message "😧 WARNING: Nothing to kill."))))

I use it to enclose two functions in one body of functions as `cond'
does not allow me to use 2 functions for one condition without
enclosing.

-- 
Jean

Take action in Free Software Foundation campaigns:
https://www.fsf.org/campaigns

In support of Richard M. Stallman
https://stallmansupport.org/

Re: Copying a list for insertion

[Emanuel Berg]

Jean Louis wrote:

>> Any reason why you use "progn" in the "stringp" condition?
>
> (defun rcd-kill-new (kill)
>   (cond ((stringp kill) (progn 
> 			  (kill-new kill)
> 			  (rcd-message "Killed: %s" kill)))
> 	 (t (rcd-message "😧 WARNING: Nothing to kill."))))
>
> I use it to enclose two functions in one body of functions
> as `cond' does not allow me to use 2 functions for one
> condition without enclosing.

(if (not (stringp str)) ... )

You can also do

  (let ((str (format "%s" data))) ...)

But as you know there is already `kill-new' ... `advice-add',
maybe that happens all the time tho so you don't want that?
I guess you'll find out. There is `advice-remove'.

-- 
underground experts united
https://dataswamp.org/~incal

Re: Copying a list for insertion

[Jean Louis]

* Emanuel Berg <incal@dataswamp.org> [2022-10-22 14:08]:
> Jean Louis wrote:
> 
> >> Any reason why you use "progn" in the "stringp" condition?
> >
> > (defun rcd-kill-new (kill)
> >   (cond ((stringp kill) (progn 
> > 			  (kill-new kill)
> > 			  (rcd-message "Killed: %s" kill)))
> > 	 (t (rcd-message "😧 WARNING: Nothing to kill."))))
> >
> > I use it to enclose two functions in one body of functions
> > as `cond' does not allow me to use 2 functions for one
> > condition without enclosing.
> 
> (if (not (stringp str)) ... )

`cond' gives me better overview and I often expand conditions in
future. Long term, `cond' is more flexible then `if'.

> You can also do
> 
>   (let ((str (format "%s" data))) ...)
> 
> But as you know there is already `kill-new' ... `advice-add',
> maybe that happens all the time tho so you don't want that?
> I guess you'll find out. There is `advice-remove'.

Aha, well, I can't use `message' as it does not give me specific
control over my messages. By changing all occurences of `message' to
my specific messaging function, I can then decide what to do with
those messages, for example, I can see them in separate buffer. They
also go in main message buffer, but I like having my separate
buffer. Then I can also choose different buffers for different
purposes, having the actual on the fly log for messages that is
specific to some package or program.

My messaging buffer looks like this:

2022-10-22-14:07:02 RCD DB: updated table `usersdefaults', column `usersdefaults_numberoflatestentries', ID: 1
2022-10-22-14:07:04 Fetching list of people
2022-10-22-14:07:04 Total of 1000 people
2022-10-22-14:08:14 RCD DB: updated table `people', column `people_hyobjects1', ID: 363293

I could as well direct my messages to file for later examination. But
if they are all mixed in one main *Messages* buffer, that is not
enough useful.

-- 
Jean

Take action in Free Software Foundation campaigns:
https://www.fsf.org/campaigns

In support of Richard M. Stallman
https://stallmansupport.org/

Re: Copying a list for insertion

[Emanuel Berg]

Jean Louis wrote:

> Aha, well, I can't use `message' as it does not give me
> specific control over my messages.

The word on the street is that messaging is an underpowered
area of Emacs ...

-- 
underground experts united
https://dataswamp.org/~incal

Re: Copying a list for insertion

[Heime]

Sent with Proton Mail secure email.

------- Original Message -------
On Saturday, October 22nd, 2022 at 12:28 AM, Jean Louis <bugs@gnu.support> wrote:


> * Heime heimeborgia@protonmail.com [2022-10-22 02:06]:
> 
> > Any reason why you use "progn" in the "stringp" condition?
> 
> 
> (defun rcd-kill-new (kill)
> (cond ((stringp kill) (progn
> (kill-new kill)
> (rcd-message "Killed: %s" kill)))
> (t (rcd-message "😧 WARNING: Nothing to kill."))))
> 
> I use it to enclose two functions in one body of functions as `cond'
> does not allow me to use 2 functions for one condition without
> enclosing.

"cond" allows multiple body-forms in one clause.  Thusly no need for "progn".

Re: Copying a list for insertion

[Emanuel Berg]

Heime wrote:

>> I use it to enclose two functions in one body of functions
>> as `cond' does not allow me to use 2 functions for one
>> condition without enclosing.
>
> "cond" allows multiple body-forms in one clause. Thusly no
> need for "progn".

Nor for `cond' ...

-- 
underground experts united
https://dataswamp.org/~incal

Re: Copying a list for insertion

[Jean Louis]

* Heime <heimeborgia@protonmail.com> [2022-10-22 04:03]:
> > * Heime heimeborgia@protonmail.com [2022-10-22 02:06]:
> > 
> > > Any reason why you use "progn" in the "stringp" condition?
> > 
> > 
> > (defun rcd-kill-new (kill)
> > (cond ((stringp kill) (progn
> > (kill-new kill)
> > (rcd-message "Killed: %s" kill)))
> > (t (rcd-message "😧 WARNING: Nothing to kill."))))
> > 
> > I use it to enclose two functions in one body of functions as `cond'
> > does not allow me to use 2 functions for one condition without
> > enclosing.
> 
> "cond" allows multiple body-forms in one clause.  Thusly no need for "progn".

Show me how please. I do not understand it.

-- 
Jean

Take action in Free Software Foundation campaigns:
https://www.fsf.org/campaigns

In support of Richard M. Stallman
https://stallmansupport.org/

Re: Copying a list for insertion

[Heime]

------- Original Message -------
On Saturday, October 22nd, 2022 at 6:43 AM, Jean Louis <bugs@gnu.support> wrote:


> * Heime heimeborgia@protonmail.com [2022-10-22 04:03]:
> 
> > > * Heime heimeborgia@protonmail.com [2022-10-22 02:06]:
> > > 
> > > > Any reason why you use "progn" in the "stringp" condition?
> > > 
> > > (defun rcd-kill-new (kill)
> > > (cond ((stringp kill) (progn
> > > (kill-new kill)
> > > (rcd-message "Killed: %s" kill)))
> > > (t (rcd-message "😧 WARNING: Nothing to kill."))))
> > > 
> > > I use it to enclose two functions in one body of functions as `cond'
> > > does not allow me to use 2 functions for one condition without
> > > enclosing.
> > 
> > "cond" allows multiple body-forms in one clause. Thusly no need for "progn".
> 
> 
> Show me how please. I do not understand it.

(defun rcd-kill-new (kill)

(cond ((stringp kill)

      (kill-new kill)
      (rcd-message "Killed: %s" kill))

(t (rcd-message "😧 WARNING: Nothing to kill."))))

Re: Copying a list for insertion

[Jean Louis]

* Heime <heimeborgia@protonmail.com> [2022-10-22 10:30]:
> > Show me how please. I do not understand it.

> (defun rcd-kill-new (kill)
> 
> (cond ((stringp kill)
> 
>       (kill-new kill)
>       (rcd-message "Killed: %s" kill))
> 
> (t (rcd-message "😧 WARNING: Nothing to kill."))))

I had no idea that it works that way, alright, thanks.

-- 
Jean

Take action in Free Software Foundation campaigns:
https://www.fsf.org/campaigns

In support of Richard M. Stallman
https://stallmansupport.org/

Re: Copying a list for insertion

[tomas]

[-- Attachment #1: Type: text/plain, Size: 749 bytes --]

On Sat, Oct 22, 2022 at 09:43:31AM +0300, Jean Louis wrote:
> * Heime <heimeborgia@protonmail.com> [2022-10-22 04:03]:

[...]

> > "cond" allows multiple body-forms in one clause.  Thusly no need for "progn".
> 
> Show me how please. I do not understand it.

Heime is right:

  (defun do-something (arg)
    (cond
     ((eq arg 'this)
      (message "yes, this")
      (message "did I say this?")
      (message "yes, I said"))
     ((eq arg 'that)
      (message "what was that?")
      (message "this example gets boring"))
     (t
      (message "what?"))))
  
  (do-something 'this)

Besides, the doco says that a clause returns its last espression's
value, so it does behave like many little progn.

Cheers
-- 
t

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 195 bytes --]

Re: Copying a list for insertion

[Emanuel Berg]

Jean Louis wrote:

> (defun rcd-kill-new (kill)
>   (cond ((stringp kill) (progn 
> 			  (kill-new kill)
> 			  (rcd-message "Killed: %s" kill)))
> 	 (t (rcd-message "😧 WARNING: Nothing to kill."))))

;; (advice-add    #'kill-new :after (lambda (&rest str) (message "%s" str)))
;; (advice-remove #'kill-new        (lambda (&rest str) (message "%s" str)))

But it doesn't make sense since you see it before you kill it
anyway ...

-- 
underground experts united
https://dataswamp.org/~incal

Re: Copying a list for insertion

[Jean Louis]

* Emanuel Berg <incal@dataswamp.org> [2022-10-22 14:17]:
> Jean Louis wrote:
> 
> > (defun rcd-kill-new (kill)
> >   (cond ((stringp kill) (progn 
> > 			  (kill-new kill)
> > 			  (rcd-message "Killed: %s" kill)))
> > 	 (t (rcd-message "😧 WARNING: Nothing to kill."))))
> 
> ;; (advice-add    #'kill-new :after (lambda (&rest str) (message "%s" str)))
> ;; (advice-remove #'kill-new        (lambda (&rest str) (message "%s" str)))

WYMINWYS - What you mean is not what you see.

Purpose of my function `rcd-kill-new' is not to send message what was
killed, but in general to be able to intercept information and
eventually record it, track it, or generate statistics out of it,
which in turn gives information how to shorten workflows or which new
functions to make. Imagine many programming lines, without direct
`kill-new' function and much of killing activity. Inspection of what
was killed leads to improvements.

-- 
Jean

Take action in Free Software Foundation campaigns:
https://www.fsf.org/campaigns

In support of Richard M. Stallman
https://stallmansupport.org/

Re: Copying a list for insertion

[Emanuel Berg]

Jean Louis wrote:

> Inspection of what was killed leads to improvements.

Sure, "Look guys, this time it worked!"

-- 
underground experts united
https://dataswamp.org/~incal