2009-01-02 19:06:25 +00:00
|
|
|
;;; sclang.el --- IDE for working with the SuperCollider language
|
|
|
|
|
;; copyright 2003 stefan kersten <steve@k-hornz.de>
|
|
|
|
|
;;
|
|
|
|
|
;; 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
|
2009-04-20 08:38:27 +00:00
|
|
|
;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301
|
2009-01-02 19:06:25 +00:00
|
|
|
;; USA
|
|
|
|
|
|
|
|
|
|
;;; 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
|
