Copy whitespace-delimited text to variable

Copy whitespace-delimited text to variable

[Tim Johnson]

GNU Emacs 25.1. on ubuntu 14.04

Is there an elisp function which would return the whitespace
delimited text preceding the cursor?

Example: in elpy
g.args (where cursor is at or following 's')
(current-word) would just return 'args', I need 'g.args'
and I don't wish to modify the syntax table.

Before I roll my own, I'd rather not re-invent the wheel...
thanks
-- 
Tim 
http://www.akwebsoft.com, http://www.tj49.com

Re: Copy whitespace-delimited text to variable

[Emanuel Berg]

Tim Johnson wrote:

> Example: in elpy
> g.args (where cursor is at or following 's')
> (current-word) would just return 'args', I need 'g.args'
> and I don't wish to modify the syntax table.
>
> Before I roll my own, I'd rather not
> re-invent the wheel...

Why not? To quote the barrel racer, just try -
and you will fly :)

(defun previous-word ()
  (interactive)
  (save-excursion
    (let((word-stop (progn (backward-word 1)
                           (forward-word  1)
                           (point) ))
         (word-start (re-search-backward "[[:space:]]" (point-min) t)) )
      (when word-start
        (message
         (string-trim
          (buffer-substring-no-properties word-start word-stop) ))))))

-- 
underground experts united
http://user.it.uu.se/~embe8573

Re: Copy whitespace-delimited text to variable

[Emanuel Berg]

Before you try and fly, for `string-trim', do
(require 'subr-x) first.

-- 
underground experts united
http://user.it.uu.se/~embe8573

Re: Copy whitespace-delimited text to variable

[Tim Johnson]

* Emanuel Berg <moasen@zoho.com> [180307 21:27]:
> Tim Johnson wrote:
> 
> > Example: in elpy
> > g.args (where cursor is at or following 's')
> > (current-word) would just return 'args', I need 'g.args'
> > and I don't wish to modify the syntax table.
> >
> > Before I roll my own, I'd rather not
> > re-invent the wheel...
> 
> Why not? To quote the barrel racer, just try -
> and you will fly :)
> 
> (defun previous-word ()
>   (interactive)
>   (save-excursion
>     (let((word-stop (progn (backward-word 1)
>                            (forward-word  1)
>                            (point) ))
>          (word-start (re-search-backward "[[:space:]]" (point-min) t)) )
>       (when word-start
>         (message
>          (string-trim
>           (buffer-substring-no-properties word-start word-stop) ))))))
  :) I'm ready to fly ... and have already been using subr-x
  thanks, Emanuel
-- 
Tim 
http://www.akwebsoft.com, http://www.tj49.com

Re: Copy whitespace-delimited text to variable

[Emanuel Berg]

Tim Johnson wrote:

> :) I'm ready to fly ... and have already been
> using subr-x thanks, Emanuel

That was a fun piece of code to write, but in
all honesty your own suggestion of modifying
the syntax table is much better, especially if
you can do it temporarily so it is used
transparently and won't affect anything else.

-- 
underground experts united
http://user.it.uu.se/~embe8573

Re: Copy whitespace-delimited text to variable

[Tim Johnson]

* Emanuel Berg <moasen@zoho.com> [180308 21:51]:
> Tim Johnson wrote:
> 
> > :) I'm ready to fly ... and have already been
> > using subr-x thanks, Emanuel
> 
> That was a fun piece of code to write, but in
> all honesty your own suggestion of modifying
> the syntax table is much better, especially if
> you can do it temporarily so it is used
> transparently and won't affect anything else.
  Hmm! Interesting that you brought that up. Been thinking of the
  same. I hate messing with the '.' in python, 'cuz I don't want to mess
  up elpy.

  Having said that, just now am looking at Xah Lee's code at
  http://ergoemacs.org/emacs/elisp_modify_syntax_table_temporarily.html

-- 
Tim 
http://www.akwebsoft.com, http://www.tj49.com

Re: Copy whitespace-delimited text to variable

[Emanuel Berg]

Tim Johnson wrote:

> Hmm! Interesting that you brought that up.
> Been thinking of the same. I hate messing
> with the '.' in python, 'cuz I don't want to
> mess up elpy.

(defun backward-word-experiment ()
  (interactive)
  (let ((temp-st (make-syntax-table)))
    (modify-syntax-entry ?. "w" temp-st)
    (with-syntax-table temp-st
      (backward-word 1) )))
(defalias 'bwe 'backward-word-experiment)
;; never fear, g.args is here
                    ^^ try me


"Pacquiao hits Marquez like a typhoon across
the Pacific!"
"And Marquez has never seen anything like
it before!"
"Who has?"
...
"If this levels out, it can be a tremendous
turn of events!"
"Marquez is fighting the fight of his life,
because this is the fight of his life."

-- 
underground experts united
http://user.it.uu.se/~embe8573

Re: Copy whitespace-delimited text to variable

[Tim Johnson]

* Emanuel Berg <moasen@zoho.com> [180310 15:31]:
> Tim Johnson wrote:
> 
> > Hmm! Interesting that you brought that up.
> > Been thinking of the same. I hate messing
> > with the '.' in python, 'cuz I don't want to
> > mess up elpy.
> 
> (defun backward-word-experiment ()
>   (interactive)
>   (let ((temp-st (make-syntax-table)))
>     (modify-syntax-entry ?. "w" temp-st)
>     (with-syntax-table temp-st
>       (backward-word 1) )))
> (defalias 'bwe 'backward-word-experiment)
> ;; never fear, g.args is here
>                     ^^ try me
> 
  This one is definitely the Bee's Knees.
  Adding to moi library.
  tack
-- 
Tim 
http://www.akwebsoft.com, http://www.tj49.com

Re: Copy whitespace-delimited text to variable

[Emanuel Berg]

Tim Johnson wrote:

>> (defun backward-word-experiment ()
>>   (interactive)
>>   (let ((temp-st (make-syntax-table)))
>>     (modify-syntax-entry ?. "w" temp-st)
>>     (with-syntax-table temp-st
>>       (backward-word 1) )))
>> (defalias 'bwe 'backward-word-experiment)
>> ;; never fear, g.args is here
>>                     ^^ try me
> 
> This one is definitely the Bee's Knees.

Marle: How do we get home?

Lucca: Your Highness, er, Princess... we...

Marle: Please call me Marle!

Lucca: Well then, Marle... Observe!

    (gate opens)

Marle: Wow! Lucca! You're amazing!

Lucca: Ain't it the truth! Oh, um... I mean...


http://www.cot.drackir.com/script3.htm

-- 
underground experts united
http://user.it.uu.se/~embe8573