;; ============================ ;; End of Options Menu Settings
(require 'tex-site) ;AucTex
(require 'vc) ; require version control support
(add-hook 'LaTeX-mode-hook 'turn-on-font-lock) (add-hook 'TeXinfo-mode-hook 'turn-on-font-lock) (add-hook 'bibtex-mode-hook 'turn-on-font-lock) (add-hook 'tex-mode-hook 'turn-on-font-lock) (font-lock-use-default-maximal-decoration)
; use outline minor mode in LaTeX mode (add-hook 'TeXinfo-mode-hook 'outline-minor-mode) (add-hook 'LaTeX-mode-hook 'outline-minor-mode)I implemented a function to shrink completely a file and see only the outline the way I like:
; further function in outline
(defun hide-all-leaves ()
"Hide all leaves in the whole document."
(interactive)
(save-excursion
(show-all)
(goto-char (point-min))
(while (outline-next-heading)
(hide-leaves))
(goto-char (point-max))
(search-backward "^L" nil t)
(show-entry)
(goto-char (point-min))
)
)
; use hide all leaves in LaTeX mode (add-hook 'TeXinfo-mode-hook 'hide-all-leaves) (add-hook 'LaTeX-mode-hook 'hide-all-leaves) (defun outline-minor-mode-personal () "Outline Minor Mode personal key bindings." (define-key outline-minor-mode-map 'f1 'hide-leaves) (define-key outline-minor-mode-map 'f2 'show-entry) (define-key outline-minor-mode-map 'f3 'hide-all-leaves) (define-key outline-minor-mode-map 'f4 'show-all) ) ; there is no outline-mode-hook ?! ; let's use the AucTeX ones, then (add-hook 'TeXinfo-mode-hook 'outline-minor-mode-personal) (add-hook 'LaTeX-mode-hook 'outline-minor-mode-personal)
%---------------------------------------------------------------------------
\section{My beautiful section} \label{sec:beautiful}
which also helps identifying sectioning commands in nonoutlined
documents.
(setq TeX-printer-list
'(
("mantra")
("dilaser")
("chagall")
("picasso")
("renoir")
("vangogh")
)
)
(setq TeX-printer-default "dilaser")
; better TeX comments (defun set-TeX-comment-start () "Overrides the contents of the variable comment-start in TeX documents." (setq comment-start "% ") ) (add-hook 'TeXinfo-mode-hook 'set-TeX-comment-start) (add-hook 'LaTeX-mode-hook 'set-TeX-comment-start)
; ispell dictionaries definitions
(setq ispell-dictionary-alist
'(
(nil
"[A-Za-z]" "[^A-Za-z]" "[']" nil
("-B")
nil)
("american"
"[A-Za-z]" "[^A-Za-z]" "[']" nil
("-B" "-d" "american")
nil)
("english"
"[A-Za-z]" "[^A-Za-z]" "[']" nil
("-B")
nil)
("british"
"[A-Za-z]" "[^A-Za-z]" "[']" nil
("-B" "-d" "british")
nil)
("francais"
"[A-Za-zÀÂÆÇÈÉÊËÎÏÔÙÛÜàâçèéêëîïôùûü]"
"[^A-Za-zÀÂÆÇÈÉÊËÎÏÔÙÛÜàâçèéêëîïôùûü]" "[---']" t
nil
"~list")
("francais-tex"
"[A-Za-zÀÂÆÇÈÉÊËÎÏÔÙÛÜàâçèéêëîïôùûü\\]"
"[^A-Za-zÀÂÆÇÈÉÊËÎÏÔÙÛÜàâçèéêëîïôùûü\\]" "[---'^`\"]" t
("-d" "francais")
"~tex")
)
)
(define-key global-map '(meta s) 'ispell-word)
\usepackage[latin1]{inputenc}
; webster definitions (define-key global-map '(meta w) 'webster) (defun webster-set-variables () "Set Webster variables from WEBSTER_PATH in the shell environment." (interactive) (string-match "\\([^@]*\\)@\\([^:]*\\)" (getenv "WEBSTER_PATH")) (setq webster-port (match-string 1 (getenv "WEBSTER_PATH"))) (setq webster-host (match-string 2 (getenv "WEBSTER_PATH")))) (webster-set-variables)
(setq line-number-mode t)
^L % Local Variables: % TeX-master: "thesis.tex" % End:
C-h a latex RET
Pour des commentaires et modifications adressez-vous à : Paolo Ienne López