[LaTeX]Поделитесь с опытом

;;====================================
;;                 LaTeX
;;====================================
;;
;; auctex - очень круто !!! - LaTeX, однако
;;
;; Если текст разбит на несколько частей, то во всех файлах
;;следует добавить строчку типа:
;;% -*- mode: latex; TeX-master: "<Главный файл>"; -*-
;;
(require 'tex-site)
(setq TeX-auto-save t)
(setq TeX-parse-self t)
(setq-default TeX-master nil)
;; forward search (xdvi only?)
(setq TeX-source-specials-mode 1)
(setq TeX-source-specials-view-start-server t)
;; определяем кодировку по latexenc
(add-to-list 'file-coding-system-alist
      '("\\.\\(tex\\|ltx\\|dtx\\|drv\\)\\'" . latexenc-find-file-coding-system))
;; Переопределение функции из font-latex.el (auctex)
;; для того, чтобы правильно выделялись русские кавычки ,,лапки``
(defun font-latex-match-quotation (limit)
  "Used for patterns like:
``this is a normal quote'' and these are multilingual quoted strings:
\"< french \"> and \"`german\"' quotes, << french >> and 8-bit french."
  (when (re-search-forward
	 (eval-when-compile
	   (concat "\\(,,\\)\\|\\(``\\)\\|\\(\"<\\)\\|\\(\"`\\)\\|\\(<<\\)\\|"
		   "\\(" (char-to-string 171) "\\)")) ; An 8-bit "<<"
	 limit t)
    (let ((beg (match-beginning 0)))
      (search-forward
       (cond ((match-beginning 1) "``")
	     ((match-beginning 2) "''")
	     ((match-beginning 3) "\">")
	     ((match-beginning 4) "\"'")
	     ((match-beginning 5) ">>")
	     ((match-beginning 6) (eval-when-compile (char-to-string 187))))
       limit 'move)
      (store-match-data (list beg (point)))
      t)))

;; Автовставка кавычек по нажатию клавиши "
;;(setq TeX-open-quote "«")
;;(setq TeX-close-quote "»")
(setq TeX-open-quote "<<")
(setq TeX-close-quote ">>")

;;
;; reftex - ref, labels и т.д. в LaTeX
;;
(add-hook 'LaTeX-mode-hook 'turn-on-reftex)   ; with AUCTeX LaTeX mode
(setq reftex-plug-into-AUCTeX t)   ;plug in AucTex

;; Автовставка для пустого TeX файла
;;"% -*- mode: latex; TeX-master: \""
;;		(file-name-nondirectory f-name)
;;		"\"; -*-\n"
;;                "%Created: " (current-time-string) "\n"
(add-hook 'find-file-not-found-hooks 'AutoInsertLaTeXHeader)
(defun AutoInsertLaTeXHeader ()
  (let ((f-name (buffer-file-name)))
    (if (string-match "\\.tex$" f-name)
	(insert  "%% -*- coding: utf-8 -*-\n"
                 "\\documentclass[a4paper,12pt]{scrartcl} \n"
		"\\usepackage[T2A]{fontenc}\n"
		"\\usepackage[utf8]{inputenc}\n"
		"\\usepackage[english,russian]{babel}\n"
		"\\usepackage{indentfirst}%first paragraph indent\n"
		"\\usepackage{misccorr}\n"
		"\\usepackage{cmap}\n"
		"\\usepackage[unicode=true]{hyperref}\n"
		"\\usepackage{graphicx}\n"
		"\\usepackage{amssymb}\n"
		"\\usepackage{amsmath}\n"
		"\\usepackage{srcltx}\n"
		"\\usepackage{textcomp}\n"
		"\\usepackage{wrapfig}\n"
		"\\usepackage{afterpage}\n"
		"\\usepackage{ccaption}\n"
		"\\captiondelim{. }\n"
		"\\usepackage{xspace}\n"
		"%научные символы и смайлики \\smiley \\frownie\n"
		"\\usepackage{wasysym}\n"
		"%подавление висячих строк.\n"
		"\\clubpenalty=10000 \\widowpenalty=10000\n"
		"\n"
		"%backslash\n"
		"\\newcommand{\\bs}{\\symbol{'134}}\n"
		"%degree\n"
		"\\newcommand{\\grad}{\\ensuremath{{}^{\\circ}}\\xspace}\n"
		"\\begin{document}\n\n\n"
		"%\\begin{thebibliography}{9}\n"
		"%\\bibitem{}\n"
		"%\\newblock\n"
		"%\\end{thebibliography}\n"
		"\\end{document}\n"
		))))