r - 为 ESS jags 模式添加一些快捷方式

Question

我对 emacs 和贝叶斯数据分析以及 JAGS 软件比较陌生。我想修改 ess jags-d.el 文件，以便为 <- 提供 F8 快捷方式，就像在使用 ESS 的 R 模式中一样。可能吗 ？

我希望我的问题很清楚，抱歉我的英语不好。

Answer 1

不幸的是ess-smart-underscore将不会在错误模式下工作。

简单的回答是:

(define-key ess-bugs-mode-map [f8] (lambda() (interactive) (insert " <- ")))

这只是绑定(bind) f8 以插入 <- .

要在错误中实现与在 ess 中完全相同的行为，请将以下内容放入您的 .emacs 中:

(define-key ess-bugs-mode-map (kbd "_") 'bugs-smart-underscore)

(defun bugs-smart-underscore ()
  (interactive)
  (let ((assign-len (length ess-S-assign)))
    (if (and
         (>= (point) (+ assign-len (point-min))) ;check that we can move back
         (save-excursion
           (backward-char assign-len)
           (looking-at ess-S-assign)))
        ;; If we are currently looking at ess-S-assign, replace it with _
        (progn
          (delete-backward-char assign-len)
          (insert "_"))
      (delete-horizontal-space)
      (insert ess-S-assign))))

现在，按一次_ 会得到<- , 两次 - _ .