Fix weird `setup' bug with `:file-match'

This commit is contained in:
Case Duckworth 2021-08-25 23:06:37 -05:00
parent 0507910bf8
commit 76d52ffcab
1 changed files with 12 additions and 11 deletions

23
init.el
View File

@ -1316,7 +1316,7 @@ successive invocations."
(setup (:straight fennel-mode) (setup (:straight fennel-mode)
(:needs "fennel") (:needs "fennel")
(autoload 'fennel-repl "fennel-mode" nil t) (autoload 'fennel-repl "fennel-mode" nil t)
(:file-match "\\.fnl\\'")) (add-to-list 'auto-mode-alist '("\\.fnl\\'" . fennel-mode)))
(setup (:straight gcmh) (setup (:straight gcmh)
(:option gcmh-idle-delay 'auto) (:option gcmh-idle-delay 'auto)
@ -1327,7 +1327,7 @@ successive invocations."
(setup (:straight (gemini-mode (setup (:straight (gemini-mode
:host nil :host nil
:repo "https://git.carcosa.net/jmcbray/gemini.el.git")) :repo "https://git.carcosa.net/jmcbray/gemini.el.git"))
(:file-match "\\.\\(gemini\\|gmi\\)\\'") (add-to-list 'auto-mode-alist '("\\.\\(gemini\\|gmi\\)\\'" . gemini-mode))
(:hook turn-off-auto-fill)) (:hook turn-off-auto-fill))
(setup gforth (setup gforth
@ -1371,7 +1371,7 @@ successive invocations."
(:needs "ledger")) (:needs "ledger"))
(setup (:straight lua-mode) (setup (:straight lua-mode)
(:file-match "\\.lua\\'")) (add-to-list 'auto-mode-alist '("\\.lua\\'" . lua-mode)))
(setup (:straight magit) (setup (:straight magit)
(:global "C-c g" magit-status) (:global "C-c g" magit-status)
@ -1417,7 +1417,7 @@ successive invocations."
(setup (:straight nov) (setup (:straight nov)
(:option nov-text-width fill-column) (:option nov-text-width fill-column)
(:file-match "\\.epub\\'")) (add-to-list 'auto-mode-alist '("\\.epub\\'" . nov-mode)))
(setup (:straight package-lint)) (setup (:straight package-lint))
@ -1768,13 +1768,14 @@ successive invocations."
(:option css-level-offset 2 (:option css-level-offset 2
js-indent-level 2 js-indent-level 2
sgml-indent-offset 2) sgml-indent-offset 2)
(:file-match "\\.\\(p\\|dj\\)?html\\'" (dolist (ext '("\\.\\(p\\|dj\\)?html\\'"
"\\.html?\\'" "\\.html?\\'"
"\\.\\(tpl\\.\\)?php\\'" "\\.\\(tpl\\.\\)?php\\'"
"\\.[agj]sp\\'" "\\.[agj]sp\\'"
"\\.as[cp]x\\'" "\\.as[cp]x\\'"
"\\.erb\\'" "\\.erb\\'"
"\\.mustache\\'")) "\\.mustache\\'"))
(add-to-list 'auto-mode-alist `(,ext . web-mode))))
(setup (:straight which-key) (setup (:straight which-key)
(:option which-key-show-early-on-C-h t (:option which-key-show-early-on-C-h t