From: Reuben D. B. <tec...@vo...> - 2003-07-04 23:56:48
|
Hi,=20 I am trying to do this and haven't figure out a way. Is there a way to do= the=20 following in joe: 1. Search for text with '["???"]' (excluding the outside single quote) wh= ere=20 ??? can be any number of characters. So this will search for anything ins= ide=20 the [" "] (square bracket with quote) 2. Replace the whatever characters inside that bracket with the UPPER cas= e eg.=20 ["hello"] --> ["HELLO"] ["world"] --> ["WORLD"] ["HelloWorld"] --> ["HELLOWORLD"] I am not very good at regex but I've read the manual an still can't figur= e=20 this out, so any help will be greatly appreciated. Thanks. Reuben D. Budiardja |
From: Mikhael G. <mi...@ho...> - 2003-07-05 11:52:04
|
On 04 Jul 2003 20:08:09 -0400, Reuben D. Budiardja wrote: > > I am trying to do this and haven't figure out a way. Is there a way to do the > following in joe: > > 1. Search for text with '["???"]' (excluding the outside single quote) where > ??? can be any number of characters. So this will search for anything inside > the [" "] (square bracket with quote) The search pattern for what you want is: ["\*"] > 2. Replace the whatever characters inside that bracket with the UPPER case > > eg. > ["hello"] --> ["HELLO"] > ["world"] --> ["WORLD"] > ["HelloWorld"] --> ["HELLOWORLD"] I defined these 4 bindings in my joerc (or jpicorc): :def upperword psh,nextword,markk,prevword,markb,filt,"perl -e 'printuc(<>)'",rtn,nextword :def lowerword psh,nextword,markk,prevword,markb,filt,"perl -e 'printlc(<>)'",rtn,nextword :def lo4upword psh,nextword,markk,prevword,markb,filt,"perl -e '$_=<>;print /^[a-z]/? uc($_): lc($_)'",rtn :def capitword psh,nextword,markk,prevword,markb,filt,"perl -e 'print ucfirst(lc(<>))'",rtn,nextword upperword ^[ ' u lowerword ^[ ' l lo4upword ^[ ' e capitword ^[ ' c Esc-'-u does what you want, there are also 3 other handy bindings here. Regrrds, Mikhael. |
From: H S R. <hsr...@ii...> - 2003-07-05 14:10:01
|
Today at 11:51am -0000 Mikhael Goikhman wrote: > I defined these 4 bindings in my joerc (or jpicorc): > > :def upperword psh,nextword,markk,prevword,markb,filt,"perl -e > :'printuc(<>)'",rtn,nextword > > upperword ^[ ' u It did not work for me. On "Escape ' u" it typed `u'. Then changed binding like: upperword ^[ U but, it appears that it is not doing any thing. No case conversion. I am using Joe V2.9.8 on RH 7.1. -- H.S.Rai |
From: Reuben D. B. <tec...@vo...> - 2003-07-05 14:57:33
|
On Saturday 05 July 2003 10:19 am, H S Rai wrote: > Today at 11:51am -0000 Mikhael Goikhman wrote: > > I defined these 4 bindings in my joerc (or jpicorc): > > :def upperword psh,nextword,markk,prevword,markb,filt,"perl -e > > :'printuc(<>)'",rtn,nextword > > > > upperword ^[ ' u > > It did not work for me. On "Escape ' u" it typed `u'. Then changed > binding like: > > =09upperword ^[ U > > but, it appears that it is not doing any thing. No case conversion. I > am using Joe V2.9.8 on RH 7.1. Yeah, it doesn't work for me either. :( I have the same version of joe. RDB |
From: Mikhael G. <mi...@ho...> - 2003-07-05 21:17:04
|
On 05 Jul 2003 11:08:58 -0400, Reuben D. Budiardja wrote: > > On Saturday 05 July 2003 10:19 am, H S Rai wrote: > > Today at 11:51am -0000 Mikhael Goikhman wrote: > > > I defined these 4 bindings in my joerc (or jpicorc): > > > :def upperword psh,nextword,markk,prevword,markb,filt,"perl -e > > > :'printuc(<>)'",rtn,nextword I hope this second colon was just a reformatting typo, you didn't really divided this to 2 lines in .joerc, it should be 1 line like I wrote. I also can't explain where the space inside "printuc" above was lost. I hope you placed it into the section with the existing "spellfile" definition and binding. > > > upperword ^[ ' u > > > > It did not work for me. On "Escape ' u" it typed `u'. Like I wrote, you should press 3 keys here: Esc ' u. With some terms a shortcut is possible, Alt-' produces 2 keys Esc and '. > > Then changed > > binding like: > > > > upperword ^[ U > > > > but, it appears that it is not doing any thing. No case conversion. I > > am using Joe V2.9.8 on RH 7.1. > > Yeah, it doesn't work for me either. :( I have the same version of joe. I don't know. Works for me on any system with any joe version. I hope you have perl installed. It is possible to program this without perl, using for example sed or awk or tr. Regards, Mikhael. |
From: Reuben D. B. <tec...@vo...> - 2003-07-05 21:42:52
|
On Saturday 05 July 2003 05:16 pm, Mikhael Goikhman wrote: > On 05 Jul 2003 11:08:58 -0400, Reuben D. Budiardja wrote: > > On Saturday 05 July 2003 10:19 am, H S Rai wrote: > > > Today at 11:51am -0000 Mikhael Goikhman wrote: > > > > I defined these 4 bindings in my joerc (or jpicorc): > > > > :def upperword psh,nextword,markk,prevword,markb,filt,"perl -e > > > > :'printuc(<>)'",rtn,nextword > > I hope this second colon was just a reformatting typo, you didn't reall= y > divided this to 2 lines in .joerc, it should be 1 line like I wrote. > I also can't explain where the space inside "printuc" above was lost. what spacein printuc? In your original message, I don't see any space. I = just=20 copied and pasted your original e-mail, all in one line. > I hope you placed it into the section with the existing "spellfile" > definition and binding. Okay, I tried to move it around, and now I got Undefined subroutine &main::printuc called at -e line 1, <> line 1. <snip> > I don't know. Works for me on any system with any joe version. > I hope you have perl installed. It is possible to program this without > perl, using for example sed or awk or tr. yes, I have perl installed also. Do you mind sending me a copy of your joerc for this? You can attach it a= nd=20 send it off list (techlist at voyager.phys.utk.edu) if you don't mind. Thanks a lot for the help RDB --=20 Reuben D. Budiardja |
From: Mikhael G. <mi...@ho...> - 2003-07-05 22:55:45
|
On 05 Jul 2003 17:54:17 -0400, Reuben D. Budiardja wrote: > > On Saturday 05 July 2003 05:16 pm, Mikhael Goikhman wrote: > > On 05 Jul 2003 11:08:58 -0400, Reuben D. Budiardja wrote: > > > On Saturday 05 July 2003 10:19 am, H S Rai wrote: > > > > Today at 11:51am -0000 Mikhael Goikhman wrote: > > > > > I defined these 4 bindings in my joerc (or jpicorc): > > > > > :def upperword psh,nextword,markk,prevword,markb,filt,"perl -e > > > > > :'printuc(<>)'",rtn,nextword > > > > I hope this second colon was just a reformatting typo, you didn't really > > divided this to 2 lines in .joerc, it should be 1 line like I wrote. > > I also can't explain where the space inside "printuc" above was lost. > > what spacein printuc? In your original message, I don't see any space. I just > copied and pasted your original e-mail, all in one line. > > > > I hope you placed it into the section with the existing "spellfile" > > definition and binding. > > Okay, I tried to move it around, and now I got > > Undefined subroutine &main::printuc called at -e line 1, <> line 1. It should be "print uc" of course, these are 2 perl functions. uc means "upper case". Just visited my original message, yes, it was my own paste and copy typo, sorry. Regards, Mikhael. |
From: H S R. <hsr...@ii...> - 2003-07-06 04:59:16
|
Yesterday at 10:55pm -0000 Mikhael Goikhman wrote: > It should be "print uc" of course, these are 2 perl functions. uc > means "upper case". Just visited my original message, yes, it was > my own paste and copy typo, sorry. Now, it worked. Another mistake I was committing, was to paste at the end of .joerc file. On placing next to spell section, it worked. Thankyou for good tip. Earlier I was using `vi' to convert case :-( -- H.S.Rai |