emacs lisp中关联列表中的匹配键

Question

我在 emacs 中使用折叠模式，并试图创建一个函数来根据模式插入适当的折叠标记（开始或结束）。到目前为止我有

(defun insert-folding-mode-mark ()
  (interactive)
  (let ((st "##{{{")
        (en "##}}}") 
        string-to-insert)
    (save-excursion
      (setq string-to-insert
            (let ((here (point))
                  sp ep)
              (setq sp (search-backward st))
              (goto-char here)
              (setq ep (search-backward en))
              (if (< sp ep) st en))))
    (insert string-to-insert)))

这会在（点）处插入“##{{{”，除非“##{{{”在它之前，在这种情况下它会插入“##}}}”。 我想用确定开始和结束标记的东西替换第一个（let）分配

(let* ((match (assoc (intern mode-name) folding-mode-marks-alist))
       (st (nth 1 match))
       (en (nth 2 match)))

[是（实习生）应该以这种方式调用吗？] 我的折叠模式标记列表的截断版本看起来像

((ess-mode "##{{{" "##}}}")
 (tex-mode "%{{{" "%}}}")
 (python-mode "# {{{" "# }}}")
 (emacs-lisp-mode ";;{{{" ";;}}}")
 (TeX-mode "%{{{" "%}}}")
 (LaTeX-mode "%{{{" "%}}}"))

而从各种模式返回的模式名称是 {"Emacs-Lisp", "ESS[S]", "PDFLaTeX", "Python", ...}。似乎我可能想使用（小写），（concat x“-mode”）等对字符串进行一些部分匹配，但想知道emacs lisp中是否有一种惯用的方式来进行这种与键的匹配是一个alist，还是我只需要一个单独的代码块来提取带有(mapcar 'car folding-mode-marks-alist)的键并将每个符号转换为字符串（如何？）进行匹配？

非常感谢！

Answer 1

Emacs Lisp 有一个destructuring-bind 工具，在这里可能会有所帮助。还利用命名当前主模式的符号可通过变量major-mode 获得这一事实，您可以编写如下内容：

(destructuring-bind (st en) (cdr (assoc major-mode folding-mode-marks-alist))
  ; do stuff
  )

请注意，如果 (assoc major-mode folding-mode-marks-alist) 返回 nil，这将不起作用，因此最好将其替换为调用一些能够返回合理默认值的自定义函数。

Answer 2

除了这里的major-mode 比mode-name 更合适之外，如果光标和缓冲区开头之间没有折叠标记，上面列出的函数insert-folding-mode-mark 会抛出错误。这是一个没有那个怪癖的修订：

(require 'cl)

(defun insert-folding-mode-mark ()
  (interactive)
  (flet ((fn (s) (save-excursion (or (search-backward s () t) 0))))
    (destructuring-bind (mode st en)
        (or (assoc major-mode folding-mode-marks-alist) '(nil "" ""))
      (insert (if (<= (fn st) (fn en)) st en)))))

编辑：修复评论中指出的问题。

Answer 3

您可能有兴趣知道comment-start 和comment-end 变量应该已经包含基于主要模式所需的信息。像

(search-backward (concat comment-start "{{{"))
...
(insert comment-start "{{{" comment-end)

应该足够了。当然，对于 lisp 模式，comment-start 是 ";"，所以你可能想要做你正在做的事情来获得 ";;"，但对于其他模式，你可以使用 comment-start。你也可以(setq comment-start ";;") 虽然我不完全确定这对 lisp 模式有什么影响。