Getting text from next non-blank line

Getting text from next non-blank line

[Heime]

This interactive function requests the user to input a string associated with 
the current line number.  I want to change it so that the function picks out
the text on the current line or the text of the next non-blank line.  But also
allow the user to write their own text for the line.

(defun tema-mark (kfrz)
  "Associate line number at cursor position with key phrase KFRZ."
  (interactive "sString: ")

  (let ( (lnum (line-number-at-pos)) )

    (setq-local tema-lugar
                 (append tema-lugar (list (cons kfrz lnum)))) ))

RE: [External] : Getting text from next non-blank line

[Drew Adams]

> This interactive function requests the user to input a string
> associated with
> the current line number.  I want to change it so that the function
> picks out
> the text on the current line or the text of the next non-blank line.
> But also
> allow the user to write their own text for the line.
...
>   (interactive "sString: ")

Don't use that, if you want to provide a 
default value for the user input.

Instead, use a function that accepts a
default value.  E.g., `read-string' or
`completing-read'.

Read how to use `interactive' with a
sexp as argument that returns the list
of args you want `interactive' to pass
to the function body.

https://www.gnu.org/software/emacs/manual/html_node/elisp/Using-Interactive.html

RE: [External] : Getting text from next non-blank line

[Heime]

Sent with Proton Mail secure email.

On Saturday, April 20th, 2024 at 9:04 AM, Drew Adams <drew.adams@oracle.com> wrote:

> > This interactive function requests the user to input a string
> > associated with
> > the current line number. I want to change it so that the function
> > picks out
> > the text on the current line or the text of the next non-blank line.
> > But also
> > allow the user to write their own text for the line.
> 
> ...
> 
> > (interactive "sString: ")
> 
> 
> Don't use that, if you want to provide a
> default value for the user input.
> 
> Instead, use a function that accepts a
> default value. E.g., `read-string' or` completing-read'.
> 
> Read how to use `interactive' with a sexp as argument that returns the list of args you want` interactive' to pass
> to the function body.
> 
> https://www.gnu.org/software/emacs/manual/html_node/elisp/Using-Interactive.html

I not quite sure of the strategy to use.  I want the user to store in a list the text 
of the current line or the text of the next non-blank line.  What would I ask the user?

Elisp does not force me to call completing-read in interactive.

RE: [External] : Getting text from next non-blank line

[Heime]

Sent with Proton Mail secure email.

On Saturday, April 20th, 2024 at 9:04 AM, Drew Adams <drew.adams@oracle.com> wrote:

> > This interactive function requests the user to input a string
> > associated with
> > the current line number. I want to change it so that the function
> > picks out
> > the text on the current line or the text of the next non-blank line.
> > But also
> > allow the user to write their own text for the line.
> 
> ...
> 
> > (interactive "sString: ")
> 
> 
> Don't use that, if you want to provide a
> default value for the user input.
> 
> Instead, use a function that accepts a
> default value. E.g., `read-string' or` completing-read'.
> 
> Read how to use `interactive' with a sexp as argument that returns the list of args you want` interactive' to pass
> to the function body.
> 
> https://www.gnu.org/software/emacs/manual/html_node/elisp/Using-Interactive.html

Have started with this to get the non-blank text.  But still no way for
use to use his own text.

(defun tema-mark (text)
  "Associate line number at cursor position with text."

  (interactive
    (list (if (string-blank-p (thing-at-point 'line t))
                (progn (forward-line)
                       (thing-at-point 'line t))
            (thing-at-point 'line t))))

  (let ( (line-number (line-number-at-pos)) )
    (setq-local tema-lugar
                 (append tema-lugar
                          (list (cons text line-number))))
    ))

Re: [External] : Getting text from next non-blank line

[Stephen Berman]

On Fri, 19 Apr 2024 21:50:12 +0000 Heime <heimeborgia@protonmail.com> wrote:

> Sent with Proton Mail secure email.
>
> On Saturday, April 20th, 2024 at 9:04 AM, Drew Adams <drew.adams@oracle.com> wrote:
>
>> > This interactive function requests the user to input a string
>> > associated with the current line number. I want to change it so
>> > that the function picks out the text on the current line or the
>> > text of the next non-blank line.  But also allow the user to write
>> > their own text for the line.
>>
>> ...
>>
>> > (interactive "sString: ")
>>
>>
>> Don't use that, if you want to provide a
>> default value for the user input.
>>
>> Instead, use a function that accepts a
>> default value. E.g., `read-string' or` completing-read'.
>>
>> Read how to use `interactive' with a sexp as argument that returns the list
>> of args you want` interactive' to pass
>> to the function body.
>>
>> https://www.gnu.org/software/emacs/manual/html_node/elisp/Using-Interactive.html
>
> Have started with this to get the non-blank text.  But still no way for
> use to use his own text.

Follow Drew's advice, e.g. use read-string with your if-sexp as the
default value.  (But what if the next line after a blank line is also
blank?  And the string (thing-at-point 'line t) returns includes the
newline at the end of the line; do you want that?)

Steve Berman

> (defun tema-mark (text)
>   "Associate line number at cursor position with text."
>
>   (interactive
>     (list (if (string-blank-p (thing-at-point 'line t))
>                 (progn (forward-line)
>                        (thing-at-point 'line t))
>             (thing-at-point 'line t))))
>
>   (let ( (line-number (line-number-at-pos)) )
>     (setq-local tema-lugar
>                  (append tema-lugar
>                           (list (cons text line-number))))
>     ))

Re: [External] : Getting text from next non-blank line

[Heime]

On Saturday, April 20th, 2024 at 10:37 AM, Stephen Berman <stephen.berman@gmx.net> wrote:

> On Fri, 19 Apr 2024 21:50:12 +0000 Heime heimeborgia@protonmail.com wrote:
> 
> > Sent with Proton Mail secure email.
> > 
> > On Saturday, April 20th, 2024 at 9:04 AM, Drew Adams drew.adams@oracle.com wrote:
> > 
> > > > This interactive function requests the user to input a string
> > > > associated with the current line number. I want to change it so
> > > > that the function picks out the text on the current line or the
> > > > text of the next non-blank line. But also allow the user to write
> > > > their own text for the line.
> > > 
> > > ...
> > > 
> > > > (interactive "sString: ")
> > > 
> > > Don't use that, if you want to provide a
> > > default value for the user input.
> > > 
> > > Instead, use a function that accepts a
> > > default value. E.g., `read-string' or` completing-read'.
> > > 
> > > Read how to use `interactive' with a sexp as argument that returns the list of args you want` interactive' to pass
> > > to the function body.
> > > 
> > > https://www.gnu.org/software/emacs/manual/html_node/elisp/Using-Interactive.html
> > 
> > Have started with this to get the non-blank text. But still no way for
> > use to use his own text.
> 
> Follow Drew's advice, e.g. use read-string with your if-sexp as the
> default value. (But what if the next line after a blank line is also
> blank? And the string (thing-at-point 'line t) returns includes the
> newline at the end of the line; do you want that?)
> 
> Steve Berman

If the next line after a blank line is also blank, I continue until
I get to the first non-blank line.

I have noticed the newline at the end of the line - I do not want that.
Want to remove leading and trailing blanks as well.
 
My latest version follows. 


 (defun tema-mark ()
  "Store a string with the line number in `my-alist`.
If the current line is blank, move to the next non-blank line."
  (interactive)

  (let* ((initial-line (thing-at-point 'line t))
         (initial-line-number (line-number-at-pos))
         (line (if (string-blank-p initial-line)
                   (progn
                     (forward-line)
                     (while (string-blank-p (thing-at-point 'line t))
                       (forward-line))
                     (thing-at-point 'line t))
                 initial-line))
         (lnum (line-number-at-pos))
         (text (read-string "Enter text to store: " line)))

    (setq-local tema-lugar
                 (append tema-lugar
                          (list (cons text lnum)))) ))

Re: [External] : Getting text from next non-blank line

[Stephen Berman]

On Fri, 19 Apr 2024 23:00:30 +0000 Heime <heimeborgia@protonmail.com> wrote:

> On Saturday, April 20th, 2024 at 10:37 AM, Stephen Berman
> <stephen.berman@gmx.net> wrote:
>
>> On Fri, 19 Apr 2024 21:50:12 +0000 Heime heimeborgia@protonmail.com wrote:
>>
>> > Sent with Proton Mail secure email.
>> >
>> > On Saturday, April 20th, 2024 at 9:04 AM, Drew Adams drew.adams@oracle.com wrote:
>> >
>> > > > This interactive function requests the user to input a string
>> > > > associated with the current line number. I want to change it so
>> > > > that the function picks out the text on the current line or the
>> > > > text of the next non-blank line. But also allow the user to write
>> > > > their own text for the line.
>> > >
>> > > ...
>> > >
>> > > > (interactive "sString: ")
>> > >
>> > > Don't use that, if you want to provide a
>> > > default value for the user input.
>> > >
>> > > Instead, use a function that accepts a
>> > > default value. E.g., `read-string' or` completing-read'.
>> > >
>> > > Read how to use `interactive' with a sexp as argument that returns the
>> > > list of args you want` interactive' to pass
>> > > to the function body.
>> > >
>> > > https://www.gnu.org/software/emacs/manual/html_node/elisp/Using-Interactive.html
>> >
>> > Have started with this to get the non-blank text. But still no way for
>> > use to use his own text.
>>
>> Follow Drew's advice, e.g. use read-string with your if-sexp as the
>> default value. (But what if the next line after a blank line is also
>> blank? And the string (thing-at-point 'line t) returns includes the
>> newline at the end of the line; do you want that?)
>>
>> Steve Berman
>
> If the next line after a blank line is also blank, I continue until
> I get to the first non-blank line.

What happens if the buffer ends in one or more blank lines?

> I have noticed the newline at the end of the line - I do not want that.
> Want to remove leading and trailing blanks as well.

string-trim

Steve Berman

> My latest version follows.
>
>
>  (defun tema-mark ()
>   "Store a string with the line number in `my-alist`.
> If the current line is blank, move to the next non-blank line."
>   (interactive)
>
>   (let* ((initial-line (thing-at-point 'line t))
>          (initial-line-number (line-number-at-pos))
>          (line (if (string-blank-p initial-line)
>                    (progn
>                      (forward-line)
>                      (while (string-blank-p (thing-at-point 'line t))
>                        (forward-line))
>                      (thing-at-point 'line t))
>                  initial-line))
>          (lnum (line-number-at-pos))
>          (text (read-string "Enter text to store: " line)))
>
>     (setq-local tema-lugar
>                  (append tema-lugar
>                           (list (cons text lnum)))) ))

Re: [External] : Getting text from next non-blank line

[Heime]

Sent with Proton Mail secure email.

On Saturday, April 20th, 2024 at 11:12 AM, Stephen Berman <stephen.berman@gmx.net> wrote:

> On Fri, 19 Apr 2024 23:00:30 +0000 Heime heimeborgia@protonmail.com wrote:
> 
> > On Saturday, April 20th, 2024 at 10:37 AM, Stephen Berman
> > stephen.berman@gmx.net wrote:
> > 
> > > On Fri, 19 Apr 2024 21:50:12 +0000 Heime heimeborgia@protonmail.com wrote:
> > > 
> > > > Sent with Proton Mail secure email.
> > > > 
> > > > On Saturday, April 20th, 2024 at 9:04 AM, Drew Adams drew.adams@oracle.com wrote:
> > > > 
> > > > > > This interactive function requests the user to input a string
> > > > > > associated with the current line number. I want to change it so
> > > > > > that the function picks out the text on the current line or the
> > > > > > text of the next non-blank line. But also allow the user to write
> > > > > > their own text for the line.
> > > > > 
> > > > > ...
> > > > > 
> > > > > > (interactive "sString: ")
> > > > > 
> > > > > Don't use that, if you want to provide a
> > > > > default value for the user input.
> > > > > 
> > > > > Instead, use a function that accepts a
> > > > > default value. E.g., `read-string' or` completing-read'.
> > > > > 
> > > > > Read how to use `interactive' with a sexp as argument that returns the list of args you want` interactive' to pass
> > > > > to the function body.
> > > > > 
> > > > > https://www.gnu.org/software/emacs/manual/html_node/elisp/Using-Interactive.html
> > > > 
> > > > Have started with this to get the non-blank text. But still no way for
> > > > use to use his own text.
> > > 
> > > Follow Drew's advice, e.g. use read-string with your if-sexp as the
> > > default value. (But what if the next line after a blank line is also
> > > blank? And the string (thing-at-point 'line t) returns includes the
> > > newline at the end of the line; do you want that?)
> > > 
> > > Steve Berman
> > 
> > If the next line after a blank line is also blank, I continue until
> > I get to the first non-blank line.
> 
> 
> What happens if the buffer ends in one or more blank lines?

In such case I give an empty string to read-string default value LINE,
and the user can insert his own text.
 
> > I have noticed the newline at the end of the line - I do not want that.
> > Want to remove leading and trailing blanks as well.
> 
> string-trim
> 
> Steve Berman
 
There will certainly be a lot of elisp in the interactive part.

> > My latest version follows.
> > 
> > (defun tema-mark ()
> > "Store a string with the line number in `my-alist`.
> > If the current line is blank, move to the next non-blank line."
> > (interactive)
> > 
> > (let* ((initial-line (thing-at-point 'line t))
> > (initial-line-number (line-number-at-pos))
> > (line (if (string-blank-p initial-line)
> > (progn
> > (forward-line)
> > (while (string-blank-p (thing-at-point 'line t))
> > (forward-line))
> > (thing-at-point 'line t))
> > initial-line))
> > (lnum (line-number-at-pos))
> > (text (read-string "Enter text to store: " line)))
> > 
> > (setq-local tema-lugar
> > (append tema-lugar
> > (list (cons text lnum)))) ))

Re: [External] : Getting text from next non-blank line

[Heime]

Sent with Proton Mail secure email.

On Saturday, April 20th, 2024 at 11:12 AM, Stephen Berman <stephen.berman@gmx.net> wrote:

> On Fri, 19 Apr 2024 23:00:30 +0000 Heime heimeborgia@protonmail.com wrote:
> 
> > On Saturday, April 20th, 2024 at 10:37 AM, Stephen Berman
> > stephen.berman@gmx.net wrote:
> > 
> > > On Fri, 19 Apr 2024 21:50:12 +0000 Heime heimeborgia@protonmail.com wrote:
> > > 
> > > > Sent with Proton Mail secure email.
> > > > 
> > > > On Saturday, April 20th, 2024 at 9:04 AM, Drew Adams drew.adams@oracle.com wrote:
> > > > 
> > > > > > This interactive function requests the user to input a string
> > > > > > associated with the current line number. I want to change it so
> > > > > > that the function picks out the text on the current line or the
> > > > > > text of the next non-blank line. But also allow the user to write
> > > > > > their own text for the line.
> > > > > 
> > > > > ...
> > > > > 
> > > > > > (interactive "sString: ")
> > > > > 
> > > > > Don't use that, if you want to provide a
> > > > > default value for the user input.
> > > > > 
> > > > > Instead, use a function that accepts a
> > > > > default value. E.g., `read-string' or` completing-read'.
> > > > > 
> > > > > Read how to use `interactive' with a sexp as argument that returns the list of args you want` interactive' to pass
> > > > > to the function body.
> > > > > 
> > > > > https://www.gnu.org/software/emacs/manual/html_node/elisp/Using-Interactive.html
> > > > 
> > > > Have started with this to get the non-blank text. But still no way for
> > > > use to use his own text.
> > > 
> > > Follow Drew's advice, e.g. use read-string with your if-sexp as the
> > > default value. (But what if the next line after a blank line is also
> > > blank? And the string (thing-at-point 'line t) returns includes the
> > > newline at the end of the line; do you want that?)
> > > 
> > > Steve Berman
> > 
> > If the next line after a blank line is also blank, I continue until
> > I get to the first non-blank line.
> 
> 
> What happens if the buffer ends in one or more blank lines?
> 
> > I have noticed the newline at the end of the line - I do not want that.
> > Want to remove leading and trailing blanks as well.
> 
> 
> string-trim

string-trim should also handle the removal of the ending newline.
 
> Steve Berman
> 
> > My latest version follows.
> > 
> > (defun tema-mark ()
> > "Store a string with the line number in `my-alist`.
> > If the current line is blank, move to the next non-blank line."
> > (interactive)
> > 
> > (let* ((initial-line (thing-at-point 'line t))
> > (initial-line-number (line-number-at-pos))
> > (line (if (string-blank-p initial-line)
> > (progn
> > (forward-line)
> > (while (string-blank-p (thing-at-point 'line t))
> > (forward-line))
> > (thing-at-point 'line t))
> > initial-line))
> > (lnum (line-number-at-pos))
> > (text (read-string "Enter text to store: " line)))
> > 
> > (setq-local tema-lugar
> > (append tema-lugar
> > (list (cons text lnum)))) ))