xemacs, mmmmode . ESS statweave, , ESS sybntax statweave . SAS, stata R , .
( "mmm-mode" )
( "mmm-vars" )
( , setq mmm-global-mode)
(setq mmm-subode-decoration-level-level 1)
(- "-" ((- : r- : mmm-code-subode-face : - nil : front "begin {Rcode}" : back "end {Rcode}" : back-offset (- char -1) : insert ((? R R-tag nil @ "\ begin {Rcode}" @ "\n" _ "\n" @ "\ end {Rcode}" @)) ) (STA- : STA- : mmm-code-subode-face : - nil : front "begin {Statacode}" : back "end {Statacode}" : back-offset (-char -1) : insert ((? S STATA-tag nil @ "\ begin {Statacode}" @ "\n" _ "\n" @ "\ end {Statacode}" @)) )))
( 'mmm-mode-ext-classes-alist '(nil "-swv.tex" -))
SAS- ( , , )
latex.el( init.el)
(
[ ( f1)]
'(() () ( (string-match "\.tex" buffer-file-name)
(progn (let ( file-name1 file-name-wihoutswv) ( setq (--)) (setq _1 ( -- )) (setq file-name-wihoutswv (replace-regexp-in-string "-swv" "" -name1)) (setq file-name-wihoutswv (replace-regexp-in-string "\.tex" " " -wihoutswv)) ( (string-match" -swv \.tex "buffer-file-name) (find-file-other-window (concat file-name-wihoutswv".tex"))
(find-file-other-window (concat file-name-wihoutswv "-swv.tex" ))
) ) ) ( " Latex, swv TeX. tex sweave" )
)))
( - [f1]
'(() () (-) ( (string-match "-swv \.tex" buffer-file-name) (progn () (-) ;; (---) (-) (Mylatex--) (-) (save-window-excursion (run-current-statweave-file))
; (Mylatex-) ) ( (string-match "\.tex" buffer-file-name) (progn () (-) ; (---) (-) (-PDF)
; (Mylatex-) ) ( " TeX SWV , , , . " ) )) )
)
(defun run-current-statweave-file() " statweave -swv.tex evince " () (let ( file-name1 --wihoutswv cmd1-str cmd2-str status) ( setq (--)) (setq _1 ( -- )) (setq file-name-wihoutswv (replace-regexp-in-string "-swv \.tex "".pdf" file-name1))
;; (setq cmd1-str (concat "statweave" file-name1 "& evince" file-name-wihoutswv "&" )) (setq cmd1-str (concat "statweave" file-name1)) (setq cmd2-str (concat "evince" file-name-wihoutswv "&" ))
;; ( cmd1-str) (setq output-buffer "swvoutput" ) (save-window-excursion ( setq (shell-command cmd1-str output-buffer)));; ( )
;; (let (status) ((shell- cmd1-str output-buffer)))))
))
, lisp, , , .