[R-br] ESS do emacs indentando o código - desabilitar

[Fernando Mayer]

Qual a versão do Emacs, ESS e R? Como você instalou o ESS (via apt, github,
...)?

Aqui uso

Emacs 24.3.1
ESS 14.11 (versão em desenvolvimento no github)
R 3.1.2

e funciona normalmente. Basicamente não precisaria de mais nada no .emacs
para ele funcionar de maneira padrão...




---
Fernando de Pol Mayer
Laboratório de Estatística Ambiental - LEA
Instituto de Matemática, Estatística e Física - IMEF
Universidade Federal do Rio Grande - FURG
URL: http://fernandomayer.github.io
e-mail: fernando.mayer [@] {gmail.com, furg.br}

On Tue, Feb 10, 2015 at 8:08 PM, Marcelo Laia <marcelolaia em gmail.com> wrote:

> Uso o Emacs com ESS para rodar meus scripts. No entanto, a partir de
> uma atualização do sistema (tive que instalar o Debian do zero), ele
> passou a indentar tudo.
>
> Algo do tipo:
>
> xyplot(Morte ~ log10(Dose)|Isolado, data = data01)
>
> Se eu clicar no final da linha acima e der enter, acontece o seguinte:
>
>                xyplot(Morte ~ log10(Dose)|Isolado, data = data01)
>                [local do cursos]
>
> Ele indenta a linha 14 colunas a frente e o curso vai para logo abaixo
> da primeira letra da linha.
>
> Já inseri os códigos abaixo no meu ~/emacs.d/init.el e nada de resolver.
>
> (setq-default indent-tabs-mode nil)
> (setq auto-indent-assign-indent-level-variables nil)
> (setq standard-indent 2)
>
> (which-func-mode)
> (add-to-list 'which-func-modes 'ess-mode)
>
> (setq-default mode-line-format
>  '("L%l C%c %b"
>    global-mode-string " (" mode-name minor-mode-alist "%n)"
>    (which-func-mode (" " which-func-format ""))))
>
> (add-hook 'ess-mode-hook
>           (lambda ()
>             (local-set-key (kbd "RET") 'newline)))
>   (setq ess-ask-for-ess-directory nil)
>   (setq ess-local-process-name "R")
>   (setq ansi-color-for-comint-mode 'filter)
>   (setq comint-prompt-read-only t)
>   (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))
>         (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)
>
>
>   (add-hook 'ess-mode-hook
>             '(lambda ()
>                (outline-minor-mode)
>                (setq outline-regexp "\\(^#\\{4,5\\}
> \\)\\|\\(^[a-zA-Z0-9_\.]+ ?<- ?function(.*{\\)")
>                (defun outline-level
>                  (lambda () (interactive) (cond ((looking-at "^##### ")
> 1)((looking-at "^#### ") 2)((looking-at "^[a-zA-Z0-9_\.]+ ?<-
> ?function(.*{") 3) (t 1000)))
>                )))
>
> Alguma luz?
>
> --
> Marcelo
> _______________________________________________
> R-br mailing list
> R-br em listas.c3sl.ufpr.br
> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
> Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça
> código mínimo reproduzível.
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150210/c04a5d6e/attachment.html>