diff --git a/modules/prelude-shell.el b/modules/prelude-shell.el new file mode 100644 index 0000000..b28eeab --- /dev/null +++ b/modules/prelude-shell.el @@ -0,0 +1,51 @@ +;;; prelude-shell.el --- Emacs Prelude: sh-mode configuration. +;; +;; Copyright © 2011-2014 Bozhidar Batsov +;; +;; Author: Bozhidar Batsov +;; URL: https://github.com/bbatsov/prelude +;; Version: 1.0.0 +;; Keywords: convenience + +;; This file is not part of GNU Emacs. + +;;; Commentary: + +;; Some basic configuration for cc-mode and the modes derived from it. + +;;; License: + +;; This program is free software; you can redistribute it and/or +;; modify it under the terms of the GNU General Public License +;; as published by the Free Software Foundation; either version 3 +;; of the License, or (at your option) any later version. +;; +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. +;; +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to the +;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. + +;;; Code: + +(require 'sh-script) + +;; recognize pretzo files as zsh scripts +(defvar prelude-pretzo-files '("zlogin" "zlogin" "zlogout" "zpretzorc" "zprofile" "zshenv" "zshrc")) + +(mapc (lambda (file) + (add-to-list 'auto-mode-alist `(,(format "\\%s\\'" file) . sh-mode))) + prelude-pretzo-files) + +(add-hook 'sh-mode-hook + (lambda () + (if (and buffer-file-name + (member (file-name-nondirectory buffer-file-name) prelude-pretzo-files)) + (sh-set-shell "zsh")))) + +(provide 'prelude-shell) +;;; prelude-shell.el ends here diff --git a/sample/prelude-modules.el b/sample/prelude-modules.el index 73e3ef7..8dea72e 100644 --- a/sample/prelude-modules.el +++ b/sample/prelude-modules.el @@ -23,6 +23,7 @@ ;; (require 'prelude-ruby) ;; (require 'prelude-scala) (require 'prelude-scheme) +(require 'prelude-shell) ;; (require 'prelude-scss) ;; (require 'prelude-web) ;; Emacs mode for web templates (require 'prelude-xml)