From 3642ae514ee7ab9e0856ad627aae400b6bdaf28c Mon Sep 17 00:00:00 2001
From: Pierre Neidhardt <ambrevar@gmail.com>
Date: Mon, 10 Mar 2014 12:59:51 +0100
Subject: [PATCH] Emacs: TeX skels

---
 .emacs.d/mode-latex.el | 14 +++++++-------
 .emacs.d/mode-tex.el   | 32 ++++++++++++++++++++++++++++++--
 2 files changed, 37 insertions(+), 9 deletions(-)

diff --git a/.emacs.d/mode-latex.el b/.emacs.d/mode-latex.el
index a00a3312..fe6a4fa7 100644
--- a/.emacs.d/mode-latex.el
+++ b/.emacs.d/mode-latex.el
@@ -57,15 +57,15 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Skeletons
 
-(define-skeleton latex-emph "Insert emph command." nil "\\emph{" _ "}")
-(define-skeleton latex-slanted "Insert textsl command." nil "\\textsl{" _ "}")
+(define-skeleton latex-emph "Insert emph command." nil "\\emph{" @ _ "}" @)
+(define-skeleton latex-slanted "Insert textsl command." nil "\\textsl{" @ _ "}" @)
 
-(define-skeleton latex-paragraph "Insert paragraph command." nil "\\paragraph{" _ "}" \n)
-(define-skeleton latex-subparagraph "Insert subparagraph command." nil "\\subparagraph{" _ "}" \n)
+(define-skeleton latex-paragraph "Insert paragraph command." nil "\\paragraph{" @ _ "}" \n)
+(define-skeleton latex-subparagraph "Insert subparagraph command." nil "\\subparagraph{" @ _ "}" \n)
 
-(define-skeleton latex-section "Insert section command." nil "\\section{" _ "}" \n)
-(define-skeleton latex-subsection "Insert section command." nil "\\subsection{" _ "}" \n)
-(define-skeleton latex-subsubsection "Insert section command." nil "\\subsubsection{" _ "}" \n)
+(define-skeleton latex-section "Insert section command." nil "\\section{" @ _ "}" \n)
+(define-skeleton latex-subsection "Insert section command." nil "\\subsection{" @ _ "}" \n)
+(define-skeleton latex-subsubsection "Insert section command." nil "\\subsubsection{" @ _ "}" \n)
 
 (define-skeleton latex-article
   "Insert article template."
diff --git a/.emacs.d/mode-tex.el b/.emacs.d/mode-tex.el
index a4b8ca7a..f96ad5eb 100644
--- a/.emacs.d/mode-tex.el
+++ b/.emacs.d/mode-tex.el
@@ -88,7 +88,7 @@ but there is no warranty."
   (interactive)
   (require 'tool-pdf)
   (hack-local-variables)
-  (let ((local-master (if (not masterfile) buffer-file-name masterfile)))
+  (let ((local-master (if masterfile masterfile buffer-file-name)))
     (pdf-compress local-master)))
 
 (defun tex-pdf-view ()
@@ -96,7 +96,7 @@ but there is no warranty."
   (interactive)
   (require 'tool-pdf)
   (hack-local-variables)
-  (let ((local-master (if (not masterfile) buffer-file-name masterfile)))
+  (let ((local-master (if masterfile masterfile buffer-file-name)))
     (pdf-view local-master)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -120,4 +120,32 @@ but there is no warranty."
    (setq tex-command "pdftex")
    (tex-set-compiler)))
 
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Skeletons
+
+(define-skeleton tex-array
+  "Insert skel."
+  "Format: "
+  "$$\\begin{array}{" @ str "}" \n
+  _ \n
+  "\\end{array}$$" > \n)
+
+(define-skeleton tex-bf "Insert skel." nil "{\\bf{" @ _ "}" @)
+(define-skeleton tex-binom "Insert skel." nil "\\binom{" @ _ "}{" @ _ "}" @)
+(define-skeleton tex-coprod "Insert skel." nil "\\coprod_{" @ _ "}^{" @ _ "}" @)
+(define-skeleton tex-em "Insert skel." nil "{\\em{" @ _ "}" @)
+(define-skeleton tex-footnote "Insert skel." nil "\\footnote{" @ _ "}" @)
+(define-skeleton tex-href "Insert skel." "Desc: " "\\href{" @ _ "}{" @ str "}" @)
+(define-skeleton tex-it "Insert skel." nil "{\\it{" @ _ "}" @)
+
+(define-skeleton tex-main "Insert skel." nil
+  "\\input eplain" \n
+  @ > _ \n
+    "\\bye" > @)
+
+(define-skeleton tex-prod "Insert skel." nil "\\prod_{" @ _ "}^{" @ _ "}" @)
+(define-skeleton tex-sum "Insert skel." nil "\\sum_{" @ _ "}^{" @ _ "}" @)
+(define-skeleton tex-tt "Insert skel." nil "{\\tt{" @ _ "}" @)
+(define-skeleton tex-url "Insert skel." nil "\\url{" @ _ "}" @)
+
 (provide 'mode-tex)