J'ai juste ça que j'avais rédigé il y a bien longtemps.
Je ne sais pas si ça correspond à ta demande
Dans mon .emacs
(add-hook 'tex-mode-hook '(lambda ()(require 'latex)))
Pour charger latex.el
Le 2 mars 2018 à 17:11, Bernard Schoenacker
<bernard.schoenac...@free.fr> a écrit :
> bonjour,
>
> désolé pour le troll poilu ...
>
> je recherche un ensemble de .emacs à employer
> pour:
>
> LaTeX (auctex ?) (muktilingue et bidi)
> mh-e (mail)
>
> c'est pour mettre le pied à l'étrier à un préadolescent précoce
> et pour moi
>
> slt
> bernard
>
(setq tex-compile-defaul "make")
(setq compile-command "make")
(setq compilation-read-command nil)
(local-set-key [(f5)] 'compile)
;; Ferme la fenêtre de compilation s'il n'y a pas d'erreur
(defun compilation-exit-autoclose (status code msg)
;; Si compile retourne 0
(when (and (eq status 'exit) (zerop code))
;; the *compilation* buffer, so that C-x b doesn't go there
(bury-buffer)
;; and delete the *compilation* window
(delete-window (get-buffer-window (get-buffer "*compilation*"))))
;; Always return the anticipated result of compilation-exit-message-function
(cons msg code))
;; Specify my function (maybe I should have done a lambda function)
(setq compilation-exit-message-function 'compilation-exit-autoclose)
(defun insertdescription ()
"Insert un bllock description LaTeX."
(interactive)
(insert "\\begin{description}")
(insert "\n\\item[]")
(insert "\n\\item[]")
(insert "\n\\item[]")
(insert "\n\\item[]")
(insert "\n\\item[]")
(insert "\n\\item[]")
(insert "\n\\end{description}")
(backward-char 59)
)
(local-set-key [(alt d)] 'insertdescription)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun insertitemize ()
"Insert un block itemize LaTeX."
(interactive)
(insert "\\begin{itemize}")
(insert "\n\\item ")
(insert "\n\\item ")
(insert "\n\\item ")
(insert "\n\\item ")
(insert "\n\\item ")
(insert "\n\\item ")
(insert "\n\\end{itemize}")
(backward-char 49)
)
(local-set-key [(alt i)] 'insertitemize)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun insertenumerate ()
"Insert un block enumerate LaTeX."
(interactive)
(insert "\\begin{enumerate}")
(insert "\n\\item ")
(insert "\n\\item ")
(insert "\n\\item ")
(insert "\n\\item ")
(insert "\n\\item ")
(insert "\n\\item ")
(insert "\n\\end{enumerate}")
(backward-char 51)
)
(local-set-key [(alt e)] 'insertenumerate)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun insertchapter()
"Insert un chapter LaTeX."
(interactive)
(insert "\\chapter{}")
(backward-char 1)
)
(local-set-key [(alt c)] 'insertchapter)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun insertsection()
"Insert une section LaTeX."
(interactive)
(insert "\\section{}\\label{}%")
(backward-char 10)
)
(local-set-key [(alt s)] 'insertsection)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun insertsubsection()
"Insert une subsection LaTeX."
(interactive)
(insert "\\subsection{}")
(backward-char 1)
)
(local-set-key [(alt S)] 'insertsubsection)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun insertsubsubsection()
"Insert une subsubsection LaTeX."
(interactive)
(insert "\\subsubsection{}")
(backward-char 1)
)
(local-set-key [(A M s)] 'insertsubsubsection)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun insertparagraph()
"Insert un paragraph LaTeX."
(interactive)
(insert "\\paragraph{}")
(backward-char 1)
)
(local-set-key [(alt p)] 'insertparagraph)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun insertsubparagraph()
"Insert un subparagraph LaTeX."
(interactive)
(insert "\\subparagraph{}")
(backward-char 1)
)
(local-set-key [(alt P)] 'insertsubparagraph)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun insertfigure()
"Insert une figure LaTeX."
(interactive)
(insert "\\begin{figure}[!h]")
(insert "\n\\centering")
(insert "\n\\includegraphics{}%")
(insert "\n\\caption{}%")
(insert "\n\\label{}%")
(insert "\n\\end{figure}\\FloatBarrier")
(previous-line 3)
(backward-char 2)
)
(local-set-key [(alt f)] 'insertfigure)
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun insertincludegraphics()
"Insert un includegraphics LaTeX."
(interactive)
(insert "\n\\includegraphics{}%")
(backward-char 2)
)
(local-set-key [(alt G)] 'insertincludegraphics)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun insertlabel()
"Insert un label LaTeX."
(interactive)
(insert "\\label{}%")
(backward-char 2)
)
(local-set-key [(alt l)] 'insertlabel)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun insertvref()
"Insert une référence LaTeX."
(interactive)
(insert "\\vref{}")
(backward-char 1)
)
(local-set-key [(alt v)] 'insertvref)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun insertvpageref()
"Insert une référence de page LaTeX."
(interactive)
(insert "\\vpageref{}")
(backward-char 1)
)
(local-set-key [(alt V)] 'insertvpageref)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun insertTextbf()
"Met en gars."
(interactive)
(insert "\\textbf{}")
(backward-char 1)
)
(local-set-key [(alt b)] 'insertTextbf)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; (defun insert()
;; "Insert un LaTeX."
;; (interactive)
;; (insert "\\{}")
;; (backward-char 1)
;; )
;; (local-set-key [()] ')
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; (defun insert()
;; "Insert un LaTeX."
;; (interactive)
;; (insert "\\{}")
;; (backward-char 1)
;; )
;; (local-set-key [()] ')
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; (defun insert()
;; "Insert un LaTeX."
;; (interactive)
;; (insert "\\{}")
;; (backward-char 1)
;; )
;; (local-set-key [()] ')
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(provide 'latex)
