如何将自己的对列表列入自动模式中? [英] How can I cons a list of pairs on to auto-mode-alist?
问题描述
(setq auto-mode-alist(cons' auto-mode-alist)
(setq auto-mode-alist(cons'(\.thor $。ruby-mode)auto-mode-alist) )
(setq auto-mode-alist(cons'(Gemfile $。ruby-mode)auto-mode-alist))
(setq auto-mode-alist(cons'(Rakefile $ ruby-mode)auto-mode-alist)
(setq auto-mode-alist(cons'(Crushfile $。ruby-mode)auto-mode-alist))
(setq auto-mode-alist(cons'(Capfile $。ruby-mode)auto-mode-alist))
这似乎对我来说是重复的。有没有办法我可以定义一对的列表,并循环或直接将它们消除到 auto-mode-alist
?我试过
(cons'((\\.rake。ruby-mode)
(\\thth,ruby-mode))auto-mode-alist)
但这似乎不起作用任何建议?
您只需要一个正则表达式(因此在 auto-mode-alist
)以匹配所有这些选项,您可以让 regexp-opt
为您建立它的工作。
(let *((ruby-files'(.rake.thorGemfileRakefileCrushfile Capfile))
(ruby-regexp(concat(regexp-opt ruby-files t)\\')))
(add-to-list'auto-mode- alist(cons ruby-regexp'ruby-mode)))
如果你特别想要单独的条目,你可能会这样做:
(mapc
(lambda(file)
(add-to-list'auto-mode-alist
(cons(concat(regexp-quote file)\\')'ruby-mode)))
'( .rake.thorGemfileRakefileCrushfileCapfile))
I have a long list of files and file extensions which I would like to have Emacs open automatically in ruby-mode. From using Google, the most basic solution that works is this:
(setq auto-mode-alist (cons '("\.rake$" . ruby-mode) auto-mode-alist))
(setq auto-mode-alist (cons '("\.thor$" . ruby-mode) auto-mode-alist))
(setq auto-mode-alist (cons '("Gemfile$" . ruby-mode) auto-mode-alist))
(setq auto-mode-alist (cons '("Rakefile$" . ruby-mode) auto-mode-alist))
(setq auto-mode-alist (cons '("Crushfile$" . ruby-mode) auto-mode-alist))
(setq auto-mode-alist (cons '("Capfile$" . ruby-mode) auto-mode-alist))
Which seems way repetitive to me. Is there a way I could define the list of pairs once and either loop or cons it directly onto auto-mode-alist
? I've tried
(cons '(("\\.rake" . ruby-mode)
("\\.thor" . ruby-mode)) auto-mode-alist)
but that doesn't seem to work. Any suggestions?
You only need a single regexp (and hence entry in auto-mode-alist
) to match all those options, and you can let regexp-opt
do the work of building it for you.
(let* ((ruby-files '(".rake" ".thor" "Gemfile" "Rakefile" "Crushfile" "Capfile"))
(ruby-regexp (concat (regexp-opt ruby-files t) "\\'")))
(add-to-list 'auto-mode-alist (cons ruby-regexp 'ruby-mode)))
If you especially want individual entries, you might do something like this:
(mapc
(lambda (file)
(add-to-list 'auto-mode-alist
(cons (concat (regexp-quote file) "\\'") 'ruby-mode)))
'(".rake" ".thor" "Gemfile" "Rakefile" "Crushfile" "Capfile"))
这篇关于如何将自己的对列表列入自动模式中?的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!