mirrors
/
ambevar-dotfiles
mirror of https://gitlab.com/ambrevar/dotfiles/
1
0
Fork 0
Code Issues Releases Wiki Activity

Emacs: TeX skels

master
Pierre Neidhardt 2014-03-10 12:59:51 +01:00
parent 49754cb591
commit 3642ae514e
2 changed files with 37 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
.emacs.d/mode-latex.el
View File

@ -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."

32
.emacs.d/mode-tex.el
View File

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