bb6bce1671
This is actually pretty boring. It replaces calls to obsolete aliases with the properly namespaced functions from the cl-lib package. This raises our minimal Emacs version requirement to 24.3 (2013-03-10). However, people using earlier versions can install the cl-lib package from the Emacs package system. While at it: * remove function `sclang-document-list' which was really useless. * fix `sclang-format-pseq' which needed to use `cl-labels' instead of `cl-flet' to actually work. * (cl-reduce (lambda (a b) (or a b)) (mapcar function list)) is much better written as (and now properly short-circuits): (cl-some function list) * (cl-remove-if 'null list) should be written as (remq nil list)
69 lines
2.1 KiB
EmacsLisp
69 lines
2.1 KiB
EmacsLisp
;;; 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
|
|
;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301
|
|
;; 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
|