Re: bien configurer son .emacs

[Benoit B <benoitlst@gmail.com>]

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.schoenacker@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)