diff --git a/oni-scheme.el b/oni-scheme.el index 817bab9..a53934f 100644 --- a/oni-scheme.el +++ b/oni-scheme.el @@ -4,7 +4,7 @@ ;; Author: Tom Willemse ;; Keywords: local -;; Version: 2019.1210.231332 +;; Version: 2020.0106.200514 ;; Package-Requires: (oni-company oni-paredit oni-fci rainbow-delimiters) ;; This program is free software; you can redistribute it and/or modify @@ -37,6 +37,7 @@ (add-hook 'scheme-mode-hook 'rainbow-delimiters-mode) (add-hook 'scheme-mode-hook 'oni-scheme--auto-fill-mode) +;;;###autoload (add-to-list 'interpreter-mode-alist '("scsh" . scheme-mode)) ;;;###autoload(with-eval-after-load 'scheme (require 'oni-scheme)) diff --git a/test/oni-scheme.bats b/test/oni-scheme.bats new file mode 100644 index 0000000..acfa53d --- /dev/null +++ b/test/oni-scheme.bats @@ -0,0 +1,23 @@ +#!/usr/bin/env bats + +@test "Opening a scheme file loads oni-scheme" { + run emacs -batch -l package -f package-initialize \ + -visit test.scm \ + -eval "(prin1 (featurep 'oni-scheme))" + + [ "$output" = "t" ] +} + +@test "Opening a file with the SCSH interpreter loads scheme-mode" { + filename="$(mktemp)" + + echo "#!/usr/bin/scsh -s" > "$filename" + + run emacs -batch -l package -f package-initialize \ + -visit "$filename" \ + -eval "(prin1 major-mode)" + + rm "$filename" + + [ "$output" = "scheme-mode" ] +}