org-babel src块中的缩进代码

Question

在一个组织模式文件中，使用如下代码：

#+begin_src emacs-lisp
(add-to-list 'org-tab-before-tab-emulation-hook
             (lambda ()
               (when (within-the-body-of-a-begin-src-block)
                 (indent-for-tab-command--as-if-in-lisp-mode))))
#+end_src

我希望TAB键缩进代码，就像它在lisp模式下处于缓冲区一样。

我需要的是：

• 一种判断光标是否位于src块内的方法。它不需要触发时，在标题行本身，在这种情况下，默认的组织折叠应该发生。
• 根据标头中指定的模式(在本例中为emacs)缩进代码的方法。

Org已经可以根据模式高亮显示src块，并且TAB钩子在那里。这个看起来是可行的。

Answer 1

由于Emacs24.1，现在可以设置以下选项：

(setq org-src-tab-acts-natively t)

应该处理所有src块的...and。

Answer 2

只需将点移到代码块中，然后按C-c‘

这将弹出一个缓冲区在elisp模式，语法高度和所有.

Answer 3

以下是一个粗略的解决方案：

(defun indent-org-src-block-line ()
  "Indent the current line of emacs lisp code."
  (interactive)
  (let ((info (org-babel-get-src-block-info 'light)))
    (when info
      (let ((lang (nth 0 info)))
        (when (string= lang "emacs-lisp")
          (let ((indent-line-function 'lisp-indent-line))
            (indent-for-tab-command)))))))

(add-to-list 'org-tab-before-tab-emulation-hook
             'indent-org-src-block-line)

它只处理emacs块。我只对src块进行了测试，没有缩进(不是org默认值)。

一般来说，让一种模式在另一种模式中工作是很困难的--许多键盘命令将发生冲突。但是，一些更基本的笔画，如缩进选项卡、换行符、注释(org将用#注释lisp代码，这是错误的)似乎可以让它们工作，并且会产生最大的影响。