How to define a new font inserting command in AucTeX?

How to define a new font inserting command in AucTeX?

[Gerald Wildgruber]

Can anyone help me with the definition of a new font command in AucTeX; I
would like to make 

C-c C-f C-g

insert the string

\textgreek{}

in analogy to the other font commands (like `C-c C-f C-e' for `\emph{}'),
with text between point an mark being placed inbetween the brackets.

How can I achieve this?

Thanks for your help,

Gerald.

Re: How to define a new font inserting command in AucTeX?

[Kai Großjohann]

Gerald Wildgruber <gwil.remove.this.phrase@lrz.uni-muenchen.de> writes:

> Can anyone help me with the definition of a new font command in AucTeX

(add-to-list 'TeX-font-list (list ?d "\\DefTerm{" "}" "\\text{" "}"))

I'm sure you can adapt this.
-- 
A turnip curses Elvis

Re: How to define a new font inserting command in AucTeX?

[Adam P.]

Gerald Wildgruber <gwil.remove.this.phrase@lrz.uni-muenchen.de> writes:

> Can anyone help me with the definition of a new font command in AucTeX; I
> would like to make 
>
> C-c C-f C-g
>
> insert the string
>
> \textgreek{}
>
> in analogy to the other font commands (like `C-c C-f C-e' for `\emph{}'),
> with text between point an mark being placed inbetween the brackets.
>
> How can I achieve this?

Does this work?

(setq LaTeX-font-list 
  '((?\C-a ""              ""  "\\mathcal{"    "}")
    (?\C-b "\\textbf{"     "}" "\\mathbf{"     "}")
    (?\C-c "\\textsc{"     "}")
    (?\C-e "\\emph{"       "}")
    (?\C-f "\\textsf{"     "}" "\\mathsf{"     "}")
    (?\C-i "\\textit{"     "}" "\\mathit{"     "}")
    (?\C-m "\\textmd{"     "}")
    (?\C-n "\\textnormal{" "}" "\\mathnormal{" "}")
    (?\C-r "\\textrm{"     "}" "\\mathrm{"     "}")
    (?\C-s "\\textsl{"     "}")
    (?\C-t "\\texttt{"     "}" "\\mathtt{"     "}")
    (?\C-u "\\textup{"     "}")
    (?\C-d "" "" t)
;; Note the line below
    (?\C-g "\\textgreek{" "}" "\\textgreek{" "}") 
    )
  )

  Adam
-- 
Name and address in X-Real...

Re: How to define a new font inserting command in AucTeX?

[Gerald Wildgruber]

Hello Adam and Kai,

thanks for your suggestions; I'm using now something like:

(add-hook 'LaTeX-mode-hook
	  '(lambda () (add-to-list 'TeX-font-list (list ?g "\\textgreek{" "}"))))


and it works fine.

Gerald.

Re: How to define a new font inserting command in AucTeX?

[David Kastrup]

Gerald Wildgruber <gwil.remove.this.phrase@lrz.uni-muenchen.de> writes:

> Hello Adam and Kai,
> 
> thanks for your suggestions; I'm using now something like:
> 
> (add-hook 'LaTeX-mode-hook '(lambda () (add-to-list 'TeX-font-list
> 	  (list ?g "\\textgreek{" "}"))))

It would make sense to do the add-to-list in a local style file
triggered for whatever style/option it is that provides the
\textgreek command.

-- 
David Kastrup, Kriemhildstr. 15, 44793 Bochum

Re: How to define a new font inserting command in AucTeX?

[Piet van Oostrum]

>>>>> David Kastrup <dak@gnu.org> (DK) wrote:

DK> Gerald Wildgruber <gwil.remove.this.phrase@lrz.uni-muenchen.de> writes:
>> Hello Adam and Kai,
>> 
>> thanks for your suggestions; I'm using now something like:
>> 
>> (add-hook 'LaTeX-mode-hook '(lambda () (add-to-list 'TeX-font-list
>> (list ?g "\\textgreek{" "}"))))

DK> It would make sense to do the add-to-list in a local style file
DK> triggered for whatever style/option it is that provides the
DK> \textgreek command.

The following worked for me and defines the key only in "myslides" class
documents:

; myslides.el
(TeX-add-style-hook "myslides"
 (function
  (lambda ()
    (add-to-list 'TeX-font-list (list ?g "\textgreek{" "}"))
....
-- 
Piet van Oostrum <piet@cs.uu.nl>
URL: http://www.cs.uu.nl/~piet [PGP]
Private email: P.van.Oostrum@hccnet.nl