;http://ess.r-project.org/refcard.pdf
(require 'ess-R-object-tooltip)

(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()
           (key-chord-define-global "jj" '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)))
(add-hook 'Rnw-mode-hook
          '(lambda()
            (key-chord-define-global "jj" 'my-ess-eval)))
(require 'ess-site)

(add-hook 'ess-mode-hook
 (lambda ()
  (ess-set-style 'DEFAULT 'quiet)))

(fset 'pdf-run-line-dev
   (lambda (&optional arg) "Keyboard macro." (interactive "p") (kmacro-exec-ring-item (quote ([134217788 19 112 100 102 13 S-return 21 67108896 21 67108896 S-return 134217790 18 100 101 118 46 111 102 102 13 S-return 21 67108896 21 67108896 21 67108896] 0 "%d")) arg)))

(fset 'new-file-graphics
   (lambda (&optional arg) "Keyboard macro." (interactive "p") (kmacro-exec-ring-item (quote ([112 100 102 40 102 105 108 101 61 34 34 left f7 102 25 backspace 112 100 102 right right return return 100 101 118 46 111 102 102 40 up] 0 "%d")) arg)))

(define-key ess-mode-map (kbd "C-c j") 'pdf-run-line-dev)
(define-key ess-mode-map (kbd "C-c n") 'new-file-graphics)

(require 'r-autoyas)
(add-hook 'ess-mode-hook 'r-autoyas-ess-activate)

;in a pop up information about the objects
(require 'ess-R-object-popup)

;(setq-default ess-dialect "R")
(key-chord-define ess-mode-map "vv" 'ess-R-object-popup)

(add-hook 'ess-noweb-mode-hook 'local-set-key "TAB" 'yas-expand)