Вопрос ESS-Emacs23: Как автоматизировать несколько основных шагов после загрузки скрипта R - PullRequest
Новая
       11

Вопрос ESS-Emacs23: Как автоматизировать несколько основных шагов после загрузки скрипта R

2 голосов
/ 22 сентября 2010

Я использую ESS-Emacs для редактирования моих R-скриптов.

Каждый раз, когда я загружаю R-скрипт, за ним всегда следуют:

  1. Cx 3 (я предпочитаю это разделение)
  2. Mx R (Opens R)

Есть ли способ автоматизировать шаги 1. и 2. каждый раз, когда я печатаю на терминале:

emacs misc_r_file.r

Просто чтобы прояснить ситуацию - мне не нужны ни 1, ни 2, если я уже открыл R-скрипт в emacs.Шаги 1 и 2 должны выполняться только когда я открываю новый процесс emacs.

Заранее благодарю за помощь.

Ответы [ 2 ]

1 голос
/ 22 сентября 2010

Вас может заинтересовать этот код от FelipeCsaszar, который использует Shift-Enter, чтобы делать то, что вы хотите, при загрузке файла R, плюс еще немного, кроме того, как только он загружен (если запущен R и регионподсвечивается, shift-enter отправляет область на R для оценки. Если R работает, а область не выделена, shift-enter отправляет текущую строку на R. Многократное нажатие на shift-enter в файле R проходит по каждой строке(отправляя его в R), пропуская закомментированные строки. Курсор также перемещается вниз в нижнюю часть буфера R после каждой оценки.) 

;; Use shift-enter to split window & launch R (if not running), execute highlighted
;; region (if R running & area highlighted), or execute current line
;; (and move to next line, skipping comments). Nice. 
;; See http://www.emacswiki.org/emacs/EmacsSpeaksStatistics,
;; FelipeCsaszar. Adapted to spilit vertically instead of
;; horizontally. 

(setq ess-ask-for-ess-directory nil)
  (setq ess-local-process-name "R")
  (setq ansi-color-for-comint-mode 'filter)
  (setq comint-scroll-to-bottom-on-input t)
  (setq comint-scroll-to-bottom-on-output t)
  (setq comint-move-point-for-output t)
  (defun my-ess-start-R ()
    (interactive)
    (if (not (member "*R*" (mapcar (function buffer-name) (buffer-list))))
      (progn
    (delete-other-windows)
    (setq w1 (selected-window))
    (setq w1name (buffer-name))
    (setq w2 (split-window w1 nil t))
    (R)
    (set-window-buffer w2 "*R*")
    (set-window-buffer w1 w1name))))
  (defun my-ess-eval ()
    (interactive)
    (my-ess-start-R)
    (if (and transient-mark-mode mark-active)
    (call-interactively 'ess-eval-region)
      (call-interactively 'ess-eval-line-and-step)))
  (add-hook 'ess-mode-hook
        '(lambda()
           (local-set-key [(shift return)] 'my-ess-eval)))
  (add-hook 'inferior-ess-mode-hook
        '(lambda()
           (local-set-key [C-up] 'comint-previous-input)
           (local-set-key [C-down] 'comint-next-input)))
  (require 'ess-site)

Разделение, выполненное в этом коде, является Cx-3вы хотите --- Я всегда забываю, что в Emacs горизонтальное / вертикальное разделение - это обратное от того, как многие люди (включая меня) понимают это, ссылаясь на направление, в котором "движется" линия разделения, а не на ориентацию самой линии разделения.

1 голос
/ 22 сентября 2010

Есть ли способ сделать это? Конечно, это просто программирование. 

(defvar r-file-loaded-p nil
   "non-nil if an R file has been opened")

(defun maybe-setup-r ()
   (when (not r-file-loaded-p)
       (split-window-horizontally)
       (R)
       (setf r-file-loaded-p t)))

(add-hook 'r-mode-hook #'maybe-setup-r)

Почему бы вам не сохранить сеанс Emacs?

...