change textheight and set position

change textheight and set position

[Fabian Braennstroem]

Hello,

I'm looking for a way to copy some text and yank it with a different font-size
in the middle of the line.
I tried using 'set-face-font', but that changes the font for some existing
faces. It would be the best, if I would be able to choose just a different font
style before I yank the text, e.g. Info-title-1-face. Does anybody have an idea?

Greetings!
-- 
Fabian Braennstroem
Duesseldorf/Berlin

Re: change textheight and set position

[Jesper Harder]

Fabian Braennstroem <f.braennstroem@gmx.de> writes:

> I'm looking for a way to copy some text and yank it with a different
> font-size in the middle of the line.  I tried using 'set-face-font',
> but that changes the font for some existing faces. It would be the
> best, if I would be able to choose just a different font style
> before I yank the text, e.g. Info-title-1-face. Does anybody have an
> idea?

You could do something like this:

(defun my-yank (face)
  (interactive (list (read-face-name "Use face")))
  (save-restriction
    (narrow-to-region (point) (point))
    (yank)
    (put-text-property (point-min) (point-max) 'face face)))

-- 
Jesper Harder                                <http://purl.org/harder/>

Re: change textheight and set position

[Fabian Braennstroem]

Hi,

Jesper Harder <harder@myrealbox.com> writes:

> Fabian Braennstroem <f.braennstroem@gmx.de> writes:
>
>> I'm looking for a way to copy some text and yank it with a different
>> font-size in the middle of the line.  I tried using 'set-face-font',
>> but that changes the font for some existing faces. It would be the
>> best, if I would be able to choose just a different font style
>> before I yank the text, e.g. Info-title-1-face. Does anybody have an
>> idea?
>
> You could do something like this:
>
> (defun my-yank (face)
>   (interactive (list (read-face-name "Use face")))
>   (save-restriction
>     (narrow-to-region (point) (point))
>     (yank)
>     (put-text-property (point-min) (point-max) 'face face)))

Thanks! I think this is exactly what I want, but when I choose some face,
e.g. 'italic' or 'Info-title-2-face', there is no change in my
text-property. It does not change compared to the old one.

One question to this function. Shouldn't I be able to call the function
'put-text-property' with 'M-x'? I can't find it... Ah, I see, probably just
because it is a build-in function!?

Greetings!
-- 
Fabian Braennstroem
Duesseldorf/Berlin

Re: change textheight and set position

[Jesper Harder]

Fabian Braennstroem <f.braennstroem@gmx.de> writes:

> Jesper Harder <harder@myrealbox.com> writes:
>
>> (defun my-yank (face)
>>   (interactive (list (read-face-name "Use face")))
>>   (save-restriction
>>     (narrow-to-region (point) (point))
>>     (yank)
>>     (put-text-property (point-min) (point-max) 'face face)))
>
> Thanks! I think this is exactly what I want, but when I choose some
> face, e.g. 'italic' or 'Info-title-2-face', there is no change in my
> text-property. It does not change compared to the old one.

Strange, it works for me.

> One question to this function. Shouldn't I be able to call the
> function 'put-text-property' with 'M-x'?

No.  It's not an interactive function.

> Ah, I see, probably just because it is a build-in function!?

It doesn't matter if it's built-in or not.  It's only a question about
if it's interactive or non-interactive.

-- 
Jesper Harder                                <http://purl.org/harder/>

Re: change textheight and set position

[Fabian Braennstroem]

Jesper Harder <harder@myrealbox.com> writes:

> Fabian Braennstroem <f.braennstroem@gmx.de> writes:
>
>> Jesper Harder <harder@myrealbox.com> writes:
>>
>>> (defun my-yank (face)
>>>   (interactive (list (read-face-name "Use face")))
>>>   (save-restriction
>>>     (narrow-to-region (point) (point))
>>>     (yank)
>>>     (put-text-property (point-min) (point-max) 'face face)))
>>
>> Thanks! I think this is exactly what I want, but when I choose some
>> face, e.g. 'italic' or 'Info-title-2-face', there is no change in my
>> text-property. It does not change compared to the old one.
>
> Strange, it works for me.


Now, it works for me too :-) The first time I tried it in the scratch-buffer;
probably I should not do that.


>> One question to this function. Shouldn't I be able to call the
>> function 'put-text-property' with 'M-x'?
>
> No.  It's not an interactive function.
>
>> Ah, I see, probably just because it is a build-in function!?
>
> It doesn't matter if it's built-in or not.  It's only a question about
> if it's interactive or non-interactive.

Thanks I didn't know this!

Greetings!
-- 
Fabian Braennstroem
Duesseldorf/Berlin

Re: change textheight and set position

[Kai Grossjohann]

Fabian Braennstroem <f.braennstroem@gmx.de> writes:

> I'm looking for a way to copy some text and yank it with a different
> font-size in the middle of the line.  I tried using 'set-face-font',
> but that changes the font for some existing faces. It would be the
> best, if I would be able to choose just a different font style
> before I yank the text, e.g. Info-title-1-face. Does anybody have an
> idea?

Suggestion: yank the text with C-y.  Then reactivate the region with
C-x C-x.  Then use M-g to apply some text properties you like.  For
example, M-g o Info-title-1-face RET might do something you like.

Note, however, that if the buffer where you yank has font-lock
activated, then font-lock will override this manually specified
face.  This is a consequence of how font-lock works.  Perhaps it
helps to switch the buffer to enriched-mode before M-g.

Kai