Question

我试图从Boo中获取python.el（当前官方gnu）的新emacs模式，我在修改缩进时遇到了麻烦。有没有人对如何最好地处理这个有任何建议？我不需要彻底改变任何东西，只需添加一些新的块形式和东西。

例如，由于这是针对Boo的，因此try / except语法使用“ensure”而不是“finally”。我可以通过改变python-rx-constituents的block-start def在python.el中轻松地改变它。但是，我似乎无法在派生模式下覆盖它，因为python-rx-constituents后来被宏，python-rx使用，我想一旦python.el加载时定义了这两个东西（因为我必须这样做，因为我不能再在加载后或在钩子中覆盖它？因为在python.el加载和后加载语句中，我确实在内存和钩子中更改了它，并且它们都不起作用。虽然直接改变python.el工作正常。

以下是python.el中的代码：

(eval-when-compile
  (defconst python-rx-constituents
    `((block-start          . ,(rx symbol-start
                                   (or "def" "class" "if" "elif" "else" "try"
                                       "except" "finally" "for" "while" "with"
                                       )
                                   symbol-end))
      (decorator            . ,(rx line-start (* space) ?@ (any letter ?_)
                                   (* (any word ?_))))
      (defun                . ,(rx symbol-start (or "def" "class") symbol-end))
      (if-name-main         . ,(rx line-start "if" (+ space) "__name__"
                                   (+ space) "==" (+ space)
                                   (any ?' ?\") "__main__" (any ?' ?\")
                                   (* space) ?:))
      (symbol-name          . ,(rx (any letter ?_) (* (any word ?_))))
      (open-paren           . ,(rx (or "{" "[" "(")))
      (close-paren          . ,(rx (or "}" "]" ")")))
      (simple-operator      . ,(rx (any ?+ ?- ?/ ?& ?^ ?~ ?| ?* ?< ?> ?= ?%)))
      ;; FIXME: rx should support (not simple-operator).
      (not-simple-operator  . ,(rx
                                (not
                                 (any ?+ ?- ?/ ?& ?^ ?~ ?| ?* ?< ?> ?= ?%))))
      ;; FIXME: Use regexp-opt.
      (operator             . ,(rx (or "+" "-" "/" "&" "^" "~" "|" "*" "<" ">"
                                       "=" "%" "**" "//" "<<" ">>" "<=" "!="
                                       "==" ">=" "is" "not")))
      ;; FIXME: Use regexp-opt.
      (assignment-operator  . ,(rx (or "=" "+=" "-=" "*=" "/=" "//=" "%=" "**="
                                       ">>=" "<<=" "&=" "^=" "|=")))
      (string-delimiter . ,(rx (and
                                ;; Match even number of backslashes.
                                (or (not (any ?\\ ?\' ?\")) point
                                    ;; Quotes might be preceded by a escaped quote.
                                    (and (or (not (any ?\\)) point) ?\\
                                         (* ?\\ ?\\) (any ?\' ?\")))
                                (* ?\\ ?\\)
                                ;; Match single or triple quotes of any kind.
                                (group (or  "\"" "\"\"\"" "'" "'''"))))))
    "Additional Python specific sexps for `python-rx'")

  (defmacro python-rx (&rest regexps)
    "Python mode specialized rx macro.
This variant of `rx' supports common python named REGEXPS."
    (let ((rx-constituents (append python-rx-constituents rx-constituents)))
      (cond ((null regexps)
             (error "No regexp"))
            ((cdr regexps)
             (rx-to-string `(and ,@regexps) t))
            (t
             (rx-to-string (car regexps) t))))))

我想更改python-rx-constituent，以便block-start包含“ensure”而不是finally。

Answer 1

如上所述，使用派生模式并不适用于此：您无法反向更改宏。同样重新定义它是不可取的：加载/评估的顺序将决定哪一个有效 - 在更大的范围内意味着陷入混乱。

复制文件，以boo.el存储，用“boo-”替换前缀，重新加载并编辑需要更改的内容。

您的担忧表达IMO是不合理的，因为允许复制，更改和重新发布更改的代码是GPL的核心。

Answer 2

实际上，复制文件是一个坏主意，因为跟踪python.el的演变会让人感到痛苦。派生也不是一个好主意，因为Boo实际上不是Python的扩展或变体，所以你可能想要重用它的一些缩进机制和一些代码来理解重要的缩进，但不是更多不止于此。

您可能希望联系python.el的作者（使用Cc到emacs-devel）来查看是否可以调整python.el以使您的生活更轻松。例如也许可以将公共代码提取到可以在两者之间共享的辅助文件。理想情况下，此文件可用于cofferscript模式，也可用于Haskell模式。

Emacs：在派生模式下改变python.el缩进

2 个答案: