41 lines
1.3 KiB
EmacsLisp
41 lines
1.3 KiB
EmacsLisp
(require 'org)
|
|
|
|
(add-to-list 'auto-mode-alist '("\\.[SRsr][Oo]rg\\'" . org-mode))
|
|
(setq org-edit-src-region-extra
|
|
'(
|
|
;; Use muse-style tags
|
|
("<[sr]>[ \t]*\n?" "\n?[ \t]*</[sr]>" "r") ; not
|
|
; understood by
|
|
; SweaveSyntaxOrg
|
|
; at this point.
|
|
; Maybe make
|
|
; SweaveSyntaxMuse?
|
|
|
|
|
|
;; R-environments when using SweaveSyntaxLatex
|
|
("^[ \t]*\\\\begin{[sr]code}\\s-*"
|
|
"\n[ \t]*\\\\end{[sr]code}\\s-*"
|
|
"r") ;Scode environment in raw LaTeX
|
|
("^#\\+latex:[ \t]*\\\\begin{[sr]code}\\s-*"
|
|
"\n#\\+latex:[ \t]*\\\\end{[sr]code}\\s-*"
|
|
"r") ;Scode environment in a #+latex block
|
|
("\\\\Sexpr{"
|
|
"}"
|
|
"r") ; embed [SR] expressions in text
|
|
|
|
;; R environments when using SweaveSyntaxOrg
|
|
("^#\\+begin_[sr]\\s-*"
|
|
"\n#\\+end_[sr]\\s-*"
|
|
"r") ; an S code block in SweaveSyntaxOrg
|
|
("^#\\+[sr]_file:?[ \t]*"
|
|
"\n"
|
|
"r")
|
|
("\\\\[sr]{"
|
|
"}"
|
|
"r")
|
|
))
|
|
|
|
(setq org-export-latex-append-header "\\usepackage{Sweave}")
|
|
|
|
(provide 'org-sweave)
|