elisp q: what functions do I need to *visually* replace string foo with bar

elisp q: what functions do I need to *visually* replace string foo with bar

[Mirko]

Hello group,

I would like to simplify the looks of my program files (programing
language is called IDL from ITT Visual Solutions).  In these I have
many variable references of the type

*self.foo

I would like emacs to display them (when in font lock mode) with just
foo, but foo being italicized.

Could someone please point me to the relevant elisp functions that can
get me going?

Thank you,

Mirko

Re: elisp q: what functions do I need to *visually* replace string foo with bar

[anoop aryal]

On Wednesday 07 February 2007 10:00, Mirko wrote:
> Hello group,
>
> I would like to simplify the looks of my program files (programing
> language is called IDL from ITT Visual Solutions).  In these I have
> many variable references of the type
>
> *self.foo
>
> I would like emacs to display them (when in font lock mode) with just
> foo, but foo being italicized.
>
> Could someone please point me to the relevant elisp functions that can
> get me going?

this is not exactly what you are looking for but you may want to check out the  
glasses mode to see how they do what they do. what you are trying to do seems 
silimar albeit with different set of operands.

>
> Thank you,
>
> Mirko
>
> _______________________________________________
> help-gnu-emacs mailing list
> help-gnu-emacs@gnu.org
> http://lists.gnu.org/mailman/listinfo/help-gnu-emacs

-- 

anoop aryal
aaryal@foresightint.com

Re: elisp q: what functions do I need to *visually* replace string foo with bar

[rgb]

On Feb 7, 10:00 am, "Mirko" <mvuko...@nycap.rr.com> wrote:
> Hello group,
>
> I would like to simplify the looks of my program files (programing
> language is called IDL from ITT Visual Solutions).  In these I have
> many variable references of the type
>
> *self.foo
>
> I would like emacs to display them (when in font lock mode) with just
> foo, but foo being italicized.
>
> Could someone please point me to the relevant elisp functions that can
> get me going?
>
> Thank you,
>
> Mirko

Making foo italic is pretty easy.
(setq font-lock-defaults
      '((("\\*self\\.\\(\\(?:\\s_\\|\\sw\\)+\\)" 1 my-italic-face))))

But making the reset invisible requires that you put the invisible
property
on the text which requires you to write a function.

For a quick fix you could just make the text invisible by just giving
it a
a face you make with foreground and background the same...

(setq font-lock-defaults
      '((("\\*self\\.\\(\\(?:\\s_\\|\\sw\\)+\\)" 1 my-italic-face)
        ("\\(\\*self\\.\\)\\(?:\\s_\\|\\sw\\)+" 1 my-invisible-face))
       ))

Perhaps someone else has an example of putting properties onto
text under font-lock control....
I don't have one handy.

Re: elisp q: what functions do I need to *visually* replace string foo with bar

[David Hansen]

On 7 Feb 2007 09:34:04 -0800 rgb wrote:

> Perhaps someone else has an example of putting properties onto
> text under font-lock control....
> I don't have one handy.

Maybe this can be extended (but not sure):

http://www.emacswiki.org/cgi-bin/wiki/PrettyLambda

using overlays or text-properties may be a bit complicated as you
have to remove them if the text changes (though it might be hard to
edit this invisible text).

If the OP wants a simple solution I'd suggest using the "invisible
face" method (i would prefer something like darkgrey on black).

David

Re: elisp q: what functions do I need to *visually* replace string foo with bar

[Stefan Monnier]

> (setq font-lock-defaults
>       '((("\\*self\\.\\(\\(?:\\s_\\|\\sw\\)+\\)" 1 my-italic-face)
>         ("\\(\\*self\\.\\)\\(?:\\s_\\|\\sw\\)+" 1 my-invisible-face))
>        ))

This can be advantageously merged:

 (setq font-lock-keywords
       '(("\\(\\*self\\.\\)\\(\\(?:\\s_\\|\\sw\\)+\\)"
          (1 'my-invisible-face)
          (2 'italic))))

And instead of a special transparent face, you can use:

 (setq font-lock-keywords
       '(("\\(\\*self\\.\\)\\(\\(?:\\s_\\|\\sw\\)+\\)"
          (1 '(face nil invisible t))
          (2 'italic))))

but then you'll also have to add `invisible' to
`font-lock-extra-managed-props'.

And the above setting of `font-lock-keywords' is of course incorrect since
it erases any other font-lock rules of the major mode.  Maybe something like

  (add-hook 'my-idl-mode-hook
             (lambda ()
               (font-lock-add-keywords nil
                 '(("\\(\\*self\\.\\)\\(\\(?:\\s_\\|\\sw\\)+\\)"
                    (1 'my-invisible-face)
                    (2 'italic))))
               (add-to-list 'font-lock-extra-managed-props 'invisible)))

Of course the above has not been tested at all.


        Stefan

Re: elisp q: what functions do I need to *visually* replace string foo with bar

[Mirko]

On Feb 7, 10:12 pm, Stefan Monnier <monn...@iro.umontreal.ca> wrote:
> > (setq font-lock-defaults
> >       '((("\\*self\\.\\(\\(?:\\s_\\|\\sw\\)+\\)" 1 my-italic-face)
> >         ("\\(\\*self\\.\\)\\(?:\\s_\\|\\sw\\)+" 1 my-invisible-face))
> >        ))
>
> This can be advantageously merged:
>
>  (setq font-lock-keywords
>        '(("\\(\\*self\\.\\)\\(\\(?:\\s_\\|\\sw\\)+\\)"
>           (1 'my-invisible-face)
>           (2 'italic))))
>
> And instead of a special transparent face, you can use:
>
>  (setq font-lock-keywords
>        '(("\\(\\*self\\.\\)\\(\\(?:\\s_\\|\\sw\\)+\\)"
>           (1 '(face nil invisible t))
>           (2 'italic))))
>
> but then you'll also have to add `invisible' to
> `font-lock-extra-managed-props'.
>
> And the above setting of `font-lock-keywords' is of course incorrect since
> it erases any other font-lock rules of the major mode.  Maybe something like
>
>   (add-hook 'my-idl-mode-hook
>              (lambda ()
>                (font-lock-add-keywords nil
>                  '(("\\(\\*self\\.\\)\\(\\(?:\\s_\\|\\sw\\)+\\)"
>                     (1 'my-invisible-face)
>                     (2 'italic))))
>                (add-to-list 'font-lock-extra-managed-props 'invisible)))
>
> Of course the above has not been tested at all.
>
>         Stefan

All of you have given me something to play with.  I'll try it over the
weekend.

Thank you very much,

Mirko