Emacs: TeX skels
parent
49754cb591
commit
3642ae514e
|
@ -57,15 +57,15 @@
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
;; Skeletons
|
;; Skeletons
|
||||||
|
|
||||||
(define-skeleton latex-emph "Insert emph command." nil "\\emph{" _ "}")
|
(define-skeleton latex-emph "Insert emph command." nil "\\emph{" @ _ "}" @)
|
||||||
(define-skeleton latex-slanted "Insert textsl command." nil "\\textsl{" _ "}")
|
(define-skeleton latex-slanted "Insert textsl command." nil "\\textsl{" @ _ "}" @)
|
||||||
|
|
||||||
(define-skeleton latex-paragraph "Insert paragraph command." nil "\\paragraph{" _ "}" \n)
|
(define-skeleton latex-paragraph "Insert paragraph command." nil "\\paragraph{" @ _ "}" \n)
|
||||||
(define-skeleton latex-subparagraph "Insert subparagraph command." nil "\\subparagraph{" _ "}" \n)
|
(define-skeleton latex-subparagraph "Insert subparagraph command." nil "\\subparagraph{" @ _ "}" \n)
|
||||||
|
|
||||||
(define-skeleton latex-section "Insert section command." nil "\\section{" _ "}" \n)
|
(define-skeleton latex-section "Insert section command." nil "\\section{" @ _ "}" \n)
|
||||||
(define-skeleton latex-subsection "Insert section command." nil "\\subsection{" _ "}" \n)
|
(define-skeleton latex-subsection "Insert section command." nil "\\subsection{" @ _ "}" \n)
|
||||||
(define-skeleton latex-subsubsection "Insert section command." nil "\\subsubsection{" _ "}" \n)
|
(define-skeleton latex-subsubsection "Insert section command." nil "\\subsubsection{" @ _ "}" \n)
|
||||||
|
|
||||||
(define-skeleton latex-article
|
(define-skeleton latex-article
|
||||||
"Insert article template."
|
"Insert article template."
|
||||||
|
|
|
@ -88,7 +88,7 @@ but there is no warranty."
|
||||||
(interactive)
|
(interactive)
|
||||||
(require 'tool-pdf)
|
(require 'tool-pdf)
|
||||||
(hack-local-variables)
|
(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)))
|
(pdf-compress local-master)))
|
||||||
|
|
||||||
(defun tex-pdf-view ()
|
(defun tex-pdf-view ()
|
||||||
|
@ -96,7 +96,7 @@ but there is no warranty."
|
||||||
(interactive)
|
(interactive)
|
||||||
(require 'tool-pdf)
|
(require 'tool-pdf)
|
||||||
(hack-local-variables)
|
(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)))
|
(pdf-view local-master)))
|
||||||
|
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
@ -120,4 +120,32 @@ but there is no warranty."
|
||||||
(setq tex-command "pdftex")
|
(setq tex-command "pdftex")
|
||||||
(tex-set-compiler)))
|
(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)
|
(provide 'mode-tex)
|
||||||
|
|
Loading…
Reference in New Issue