diff --git a/.gitignore b/.gitignore index e43b0f9..4aee566 100644 --- a/.gitignore +++ b/.gitignore @@ -1 +1,4 @@ .DS_Store +*.elc +.eldev +/el/sclang-autoloads.el diff --git a/el/Eldev b/el/Eldev new file mode 100644 index 0000000..9c887bf --- /dev/null +++ b/el/Eldev @@ -0,0 +1,7 @@ +; -*- mode: emacs-lisp; lexical-binding: t -*- + +;; Uncomment some calls below as needed for your project. +;(eldev-use-package-archive 'gnu) +;(eldev-use-package-archive 'melpa) + +(eldev-use-plugin 'autoloads) diff --git a/el/sclang.el b/el/sclang.el index 3550287..9bbedcc 100644 --- a/el/sclang.el +++ b/el/sclang.el @@ -1,5 +1,7 @@ ;;; sclang.el --- IDE for working with the SuperCollider language -;; copyright 2003 stefan kersten +;; Copyright 2003 stefan kersten +;; Version: 1.0.0 +;; URL: https://github.com/supercollider/scel ;; ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as @@ -16,6 +18,13 @@ ;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 ;; USA +;;; Commentary: +;; +;; This package provides code for interfacing with sclang and scsynth. +;; In order to be useful you need to install SuperCollider and the +;; sc-el Quark. See the README or https://github.com/supercollider/scel +;; for more information. + ;;; Code: (defgroup sclang nil "IDE for working with the SuperCollider language." diff --git a/el/test/fixtures/super-boring.scd b/el/test/fixtures/super-boring.scd new file mode 100644 index 0000000..a8b058e --- /dev/null +++ b/el/test/fixtures/super-boring.scd @@ -0,0 +1 @@ +{ WhiteNoise.ar(0.2!2); }.play; \ No newline at end of file diff --git a/el/test/sclang-mode-test.el b/el/test/sclang-mode-test.el new file mode 100644 index 0000000..1273019 --- /dev/null +++ b/el/test/sclang-mode-test.el @@ -0,0 +1,7 @@ +;; -*- no-byte-compile: t; lexical-binding: t; -*- +;;; test/sclang-mode-test.el + +(ert-deftest sclang-major-mode-init-test () + "Loading a file with an scd extension should init sclang-mode" + (find-file "fixtures/super-boring.scd") + (should (eq 'sclang-mode major-mode)))