14157663b0
The issue manifests when sclang is compiled. Steps to reproduce in real emacs config: 1. Install the package and compile it 2. Open a file with a `.sc` or `.scd` extension 3. Witness the error `(void-function sclang-make-buffer-name)` Steps to reproduce with the test: 0. install [eldev](https://github.com/doublep/eldev#installation) 1. `eldev compile` 2. `eldev test`
77 lines
2.4 KiB
EmacsLisp
77 lines
2.4 KiB
EmacsLisp
;;; sclang.el --- IDE for working with the SuperCollider language
|
|
;; Copyright 2003 stefan kersten <steve@k-hornz.de>
|
|
;; 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
|
|
;; published by the Free Software Foundation; either version 2 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 this program; if not, write to the Free Software
|
|
;; 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."
|
|
:group 'languages)
|
|
|
|
(defgroup sclang-mode nil
|
|
"Major mode for working with SuperCollider source code."
|
|
:group 'sclang)
|
|
|
|
(defgroup sclang-minor-mode nil
|
|
"Minor mode for working with SuperCollider source code."
|
|
:group 'sclang)
|
|
|
|
(defgroup sclang-interface nil
|
|
"Interface to the SuperCollider process."
|
|
:group 'sclang)
|
|
|
|
(defgroup sclang-programs nil
|
|
"Paths to programs used by sclang-mode."
|
|
:group 'sclang-interface)
|
|
|
|
(defgroup sclang-options nil
|
|
"Options for the SuperCollider process."
|
|
:group 'sclang-interface)
|
|
|
|
(defun sclang-customize ()
|
|
"Customize sclang variables."
|
|
(interactive)
|
|
(customize-group 'sclang))
|
|
|
|
(eval-and-compile
|
|
(let ((load-path
|
|
(if (and (boundp 'byte-compile-dest-file)
|
|
(stringp byte-compile-dest-file))
|
|
(cons (file-name-directory byte-compile-dest-file) load-path)
|
|
load-path)))
|
|
(require 'sclang-util)
|
|
(require 'sclang-browser)
|
|
(require 'sclang-interp)
|
|
(require 'sclang-language)
|
|
(require 'sclang-document)
|
|
(require 'sclang-mode)
|
|
(require 'sclang-minor-mode)
|
|
(require 'sclang-help)
|
|
(require 'sclang-server)
|
|
(require 'sclang-widgets)))
|
|
|
|
(provide 'sclang)
|
|
|
|
;;; sclang.el ends here
|