|
|
@ -34,17 +34,17 @@ |
|
|
|
|
|
|
|
|
(require 'sh-script) |
|
|
(require 'sh-script) |
|
|
|
|
|
|
|
|
;; recognize pretzo files as zsh scripts |
|
|
|
|
|
(defvar prelude-pretzo-files '("zlogin" "zlogin" "zlogout" "zpretzorc" "zprofile" "zshenv" "zshrc")) |
|
|
|
|
|
|
|
|
;; recognize prezto files as zsh scripts |
|
|
|
|
|
(defvar prelude-prezto-files '("zlogin" "zlogin" "zlogout" "zpreztorc" "zprofile" "zshenv" "zshrc")) |
|
|
|
|
|
|
|
|
(mapc (lambda (file) |
|
|
(mapc (lambda (file) |
|
|
(add-to-list 'auto-mode-alist `(,(format "\\%s\\'" file) . sh-mode))) |
|
|
(add-to-list 'auto-mode-alist `(,(format "\\%s\\'" file) . sh-mode))) |
|
|
prelude-pretzo-files) |
|
|
|
|
|
|
|
|
prelude-prezto-files) |
|
|
|
|
|
|
|
|
(add-hook 'sh-mode-hook |
|
|
(add-hook 'sh-mode-hook |
|
|
(lambda () |
|
|
(lambda () |
|
|
(if (and buffer-file-name |
|
|
(if (and buffer-file-name |
|
|
(member (file-name-nondirectory buffer-file-name) prelude-pretzo-files)) |
|
|
|
|
|
|
|
|
(member (file-name-nondirectory buffer-file-name) prelude-prezto-files)) |
|
|
(sh-set-shell "zsh")))) |
|
|
(sh-set-shell "zsh")))) |
|
|
|
|
|
|
|
|
(provide 'prelude-shell) |
|
|
(provide 'prelude-shell) |
|
|
|