changes for MELPA compatibility
This commit is contained in:
parent
36eae66a3c
commit
53d3959e1b
17 changed files with 1471 additions and 1225 deletions
15
README.md
15
README.md
|
|
@ -7,8 +7,9 @@ SuperCollider/Emacs interface
|
|||
There are 3 options for installation:
|
||||
|
||||
1. Using SuperCollider Quarks (recommended)
|
||||
2. From debian package `supercollider-emacs`
|
||||
3. From source
|
||||
2. Using an Emacs package manager
|
||||
3. From debian package `supercollider-emacs`
|
||||
4. From source
|
||||
|
||||
Option #1 is the best cross-platform option, and is recommended. Whatever option
|
||||
you choose, *make sure not to mix installation methods*. In particular, do not
|
||||
|
|
@ -61,9 +62,11 @@ exec-path.
|
|||
(setq exec-path (append exec-path '("/Applications/SuperCollider.app/Contents/MacOS/")))
|
||||
```
|
||||
|
||||
#### Installing with an emacs package manager
|
||||
### Install Option 2: Emacs package manager
|
||||
|
||||
It's completely possible to install with
|
||||
The `sclang` package can be installed from [MELPA](https://melpa.org/#/sclang) and configured with [use-package](https://github.com/jwiegley/use-package).
|
||||
|
||||
It's possible to install with
|
||||
[straight.el](https://github.com/raxod502/straight.el),
|
||||
[use-package](https://github.com/jwiegley/use-package),
|
||||
[doom](https://github.com/hlissner/doom-emacs), etc. Instructions for doing so
|
||||
|
|
@ -71,7 +74,7 @@ are beyond the scope of this README, but note that `autoloads` are implemented
|
|||
for entry-point functions so if you like to have a speedy start-up time you can
|
||||
use the `:defer t` option.
|
||||
|
||||
### Install Option 2: Debian package
|
||||
### Install Option 3: Debian package
|
||||
|
||||
There is a debian package which provides emacs integration called
|
||||
`supercollider-emacs`. Option #1 will likely be more recent, but
|
||||
|
|
@ -81,7 +84,7 @@ if you prefer you can install the package with:
|
|||
sudo apt install supercollider-emacs
|
||||
```
|
||||
|
||||
### Install Option 3: Installing from source
|
||||
### Install Option 4: Installing from source
|
||||
|
||||
If you are building SuperCollider from source, you can optionally compile and
|
||||
install this library along with it. The cmake `-DSC_EL` flag controls whether
|
||||
|
|
|
|||
1
el/Eldev
1
el/Eldev
|
|
@ -4,3 +4,4 @@
|
|||
;; We use it for package development and running tests
|
||||
|
||||
(eldev-use-plugin 'autoloads)
|
||||
(eldev-use-package-archive 'melpa)
|
||||
|
|
|
|||
|
|
@ -1,5 +1,9 @@
|
|||
;; copyright 2003 stefan kersten <steve@k-hornz.de>
|
||||
;;; sclang-browser.el --- SuperCollider documentation browser -*- coding: utf-8; lexical-binding: t -*-
|
||||
;;
|
||||
;; Copyright 2003 stefan kersten <steve@k-hornz.de>
|
||||
|
||||
;;; License:
|
||||
|
||||
;; 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
|
||||
|
|
@ -15,31 +19,40 @@
|
|||
;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301
|
||||
;; USA
|
||||
|
||||
(require 'sclang-util)
|
||||
(require 'view nil t)
|
||||
;;; Commentary:
|
||||
;; Browser for SuperCollider documentation.
|
||||
|
||||
;; TODO: better factoring
|
||||
;; derive from view mode, make mode-map pluggable
|
||||
;; define derived mode for completion, definition, help
|
||||
;; - derive from view mode, make mode-map pluggable
|
||||
;; - define derived mode for completion, definition, help
|
||||
;; - update 'display-buffer-reuse-frames'
|
||||
;; - update ‘view-return-to-alist’
|
||||
|
||||
(defun sclang-browser-fill-keymap (map)
|
||||
(require 'sclang-util)
|
||||
(require 'view)
|
||||
|
||||
;;; Code:
|
||||
|
||||
(defun sclang-browser-fill-keymap ()
|
||||
"Create keymap and bindings."
|
||||
(let ((map (make-sparse-keymap)))
|
||||
(set-keymap-parent map view-mode-map)
|
||||
(define-key map "\r" 'sclang-browser-follow-link)
|
||||
(define-key map [mouse-2] 'sclang-browser-mouse-follow-link)
|
||||
(define-key map "\t" 'sclang-browser-next-link)
|
||||
(define-key map [backtab] 'sclang-browser-previous-link)
|
||||
(define-key map [(shift tab)] 'sclang-browser-previous-link)
|
||||
(define-key map [?q] 'sclang-browser-quit)
|
||||
map)
|
||||
map))
|
||||
|
||||
(defvar sclang-browser-mode-map (sclang-browser-fill-keymap (make-sparse-keymap)))
|
||||
(defvar sclang-browser-mode-map (sclang-browser-fill-keymap))
|
||||
(defvar sclang-browser-mode-hook nil)
|
||||
(defvar sclang-browser-show-hook nil)
|
||||
(defvar sclang-browser-link-function nil
|
||||
"buffer local")
|
||||
(defvar sclang-browser-return-method nil
|
||||
"buffer local")
|
||||
(defvar sclang-browser-link-function nil)
|
||||
(defvar sclang-browser-return-method nil)
|
||||
|
||||
(defun sclang-browser-beginning-of-link ()
|
||||
"Beginning of link."
|
||||
(interactive)
|
||||
(when (get-text-property (point) 'sclang-browser-link)
|
||||
(while (and (not (bobp))
|
||||
|
|
@ -49,6 +62,7 @@
|
|||
(point)))
|
||||
|
||||
(defun sclang-browser-next-link (&optional n)
|
||||
"Next link (or N further)."
|
||||
(interactive)
|
||||
(let* ((n (or n 1))
|
||||
(prop 'sclang-browser-link)
|
||||
|
|
@ -73,10 +87,12 @@
|
|||
(setq pos (point)))))))
|
||||
|
||||
(defun sclang-browser-previous-link ()
|
||||
"Previous link."
|
||||
(interactive)
|
||||
(sclang-browser-next-link -1))
|
||||
|
||||
(defun sclang-browser-follow-link (&optional pos)
|
||||
"Follow link (optionally POS)."
|
||||
(interactive)
|
||||
(let* ((pos (or pos (point)))
|
||||
(data (get-text-property pos 'sclang-browser-link)))
|
||||
|
|
@ -89,6 +105,7 @@
|
|||
(error (sclang-message "Error in link function") nil)))))))
|
||||
|
||||
(defun sclang-browser-mouse-follow-link (event)
|
||||
"Link. click. EVENT."
|
||||
(interactive "e")
|
||||
(let* ((start (event-start event))
|
||||
(window (car start))
|
||||
|
|
@ -97,53 +114,54 @@
|
|||
(sclang-browser-follow-link pos))))
|
||||
|
||||
(defun sclang-browser-mode ()
|
||||
"Major mode for viewing hypertext and navigating references in it.
|
||||
Entry to this mode runs the normal hook `sclang-browser-mode-hook'.
|
||||
"Major mode for viewing hypertext and navigating references.
|
||||
Entry to this mode runs the normal hook `sclang-browser-mode-hook'
|
||||
|
||||
Commands:
|
||||
\\{sclang-browser-mode-map}"
|
||||
(interactive)
|
||||
(view-mode)
|
||||
(kill-all-local-variables)
|
||||
(use-local-map sclang-browser-mode-map)
|
||||
(set-keymap-parent sclang-browser-mode-map view-mode-map)
|
||||
(setq mode-name "Browser")
|
||||
(setq major-mode 'sclang-browser-mode)
|
||||
(set (make-local-variable 'sclang-browser-link-function) nil)
|
||||
(set (make-local-variable 'sclang-browser-return-method) nil)
|
||||
(set (make-local-variable 'font-lock-defaults) nil)
|
||||
(view-mode)
|
||||
(set (make-local-variable 'minor-mode-overriding-map-alist)
|
||||
(list (cons 'view-mode sclang-browser-mode-map)))
|
||||
(set (make-local-variable 'view-no-disable-on-exit) t)
|
||||
(run-hooks 'sclang-browser-mode-hook))
|
||||
|
||||
(defun sclang-browser-mode-setup ()
|
||||
"Setup sclang-browser-mode."
|
||||
(sclang-browser-mode)
|
||||
(setq buffer-read-only nil))
|
||||
|
||||
(defun sclang-browser-mode-finish ()
|
||||
(toggle-read-only 1)
|
||||
(setq view-return-to-alist
|
||||
(list (cons (selected-window) sclang-browser-return-method)))
|
||||
"Finish sclang-browser-mode."
|
||||
(read-only-mode)
|
||||
;; ‘view-return-to-alist’ is an obsolete variable (as of 24.1)
|
||||
;;(setq view-return-to-alist
|
||||
;; (list (cons (selected-window) sclang-browser-return-method)))
|
||||
(view-mode -1)
|
||||
(run-hooks 'sclang-browser-show-hook))
|
||||
|
||||
(defun sclang-browser-quit ()
|
||||
"Quit the sclang help browser."
|
||||
(interactive)
|
||||
(when (eq major-mode 'sclang-browser-mode)
|
||||
(kill-buffer (current-buffer))))
|
||||
|
||||
(defun sclang-browser-make-link (link-text &optional link-data link-function)
|
||||
(let ((map (make-sparse-keymap)))
|
||||
"Make a link using LINK-TEXT (optional LINK-DATA and LINK-FUNCTION)."
|
||||
(propertize link-text
|
||||
'mouse-face 'highlight
|
||||
;;'help-echo "mouse-2: follow link"
|
||||
;;'keymap map
|
||||
'sclang-browser-link (cons link-function link-data)
|
||||
;;'sclang-browser-link-data link-data
|
||||
;;'sclang-browser-link-function link-function)))
|
||||
)))
|
||||
'sclang-browser-link (cons link-function link-data)))
|
||||
|
||||
(defun sclang-display-browser (buffer-name output-function)
|
||||
"header: what to insert in the buffer
|
||||
"Display browser using BUFFER-NAME and OUTPUT-FUNCTION.
|
||||
header: what to insert in the buffer.
|
||||
link-list: list of (link-text link-function link-data)
|
||||
link-function: function with args (link-text link-data)"
|
||||
(let ((temp-buffer-setup-hook '(sclang-browser-mode-setup))
|
||||
|
|
@ -160,18 +178,25 @@ Commands:
|
|||
;; Secondly, the buffer has not been displayed yet,
|
||||
;; so we don't know whether its frame will be selected.
|
||||
(cons (selected-window) t))
|
||||
(display-buffer-reuse-frames
|
||||
(cons (selected-window) 'quit-window))
|
||||
;; display-buffer-reuse-frames is obsolete since 24.3
|
||||
;; replace with something like
|
||||
;;+ (add-to-list 'display-buffer-alist
|
||||
;;+ '("." nil (reusable-frames . t)))
|
||||
;;- (display-buffer-reuse-frames
|
||||
;;- (cons (selected-window) 'quit-window))
|
||||
((not (one-window-p t))
|
||||
(cons (selected-window) 'quit-window))
|
||||
(pop-up-windows
|
||||
(cons (selected-window) t))
|
||||
;; This variable is provided mainly for backward compatibility
|
||||
;; and should not be used in new code.
|
||||
;; (pop-up-windows
|
||||
;; (cons (selected-window) t))
|
||||
(t
|
||||
(list (selected-window) (window-buffer)
|
||||
(window-start) (window-point)))))
|
||||
(funcall output-function)))))
|
||||
|
||||
(defmacro with-sclang-browser (buffer-name &rest body)
|
||||
"Display browser in BUFFER-NAME and run BODY."
|
||||
`(sclang-display-browser ,buffer-name (lambda () ,@body)))
|
||||
|
||||
;; =====================================================================
|
||||
|
|
@ -180,4 +205,4 @@ Commands:
|
|||
|
||||
(provide 'sclang-browser)
|
||||
|
||||
;; EOF
|
||||
;;; sclang-browser.el ends here
|
||||
|
|
|
|||
|
|
@ -1,3 +1,9 @@
|
|||
;;; sclang-dev.el --- IDE for working with SuperCollider -*- coding: utf-8;
|
||||
;;
|
||||
;; Copyright 2003 stefan kersten <steve@k-hornz.de>
|
||||
|
||||
;;; License:
|
||||
|
||||
;; 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
|
||||
|
|
@ -13,32 +19,25 @@
|
|||
;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301
|
||||
;; USA
|
||||
|
||||
|
||||
;;; Commentary:
|
||||
;; Edit SuperCollider help files.
|
||||
|
||||
(require 'sclang-util)
|
||||
(require 'sclang-interp)
|
||||
|
||||
;;; Code:
|
||||
|
||||
(sclang-set-command-handler
|
||||
'openDevSource
|
||||
(lambda (file)
|
||||
)
|
||||
)
|
||||
(lambda (file)))
|
||||
|
||||
(defun sclang-edit-dev-source ()
|
||||
"Edit the help file at the development location."
|
||||
; (sclang-document-name . (prSetTitle (buffer-name)))
|
||||
(interactive)
|
||||
(sclang-perform-command 'openDevSource (buffer-file-name))
|
||||
)
|
||||
;; (sclang-document-name . (prSetTitle (buffer-name)))
|
||||
(sclang-perform-command 'openDevSource (buffer-file-name)))
|
||||
|
||||
(provide 'sclang-dev)
|
||||
|
||||
;(defun sclang-open-dev-source (file)
|
||||
; "Open the help file at the development location."
|
||||
; (if (sclang-html-file-p file)
|
||||
; (html-mode)
|
||||
; ;; (find-file file)
|
||||
; )
|
||||
; (if ( sclang-sc-file-p file )
|
||||
; (sclang-mode)
|
||||
; )
|
||||
; )
|
||||
|
||||
;;; sclang-dev.el ends here
|
||||
|
|
|
|||
|
|
@ -1,5 +1,9 @@
|
|||
;; copyright 2003 stefan kersten <steve@k-hornz.de>
|
||||
;;; sclang-document.el --- IDE for working with SuperCollider -*- coding: utf-8;
|
||||
;;
|
||||
;; Copyright 2003 stefan kersten <steve@k-hornz.de>
|
||||
|
||||
;;; License:
|
||||
|
||||
;; 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
|
||||
|
|
@ -15,6 +19,12 @@
|
|||
;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301
|
||||
;; USA
|
||||
|
||||
|
||||
;;; Commentary:
|
||||
;; ???
|
||||
|
||||
;;; Code:
|
||||
|
||||
(provide 'sclang-document)
|
||||
|
||||
;; EOF
|
||||
;;; sclang-document.el ends here
|
||||
|
|
|
|||
|
|
@ -1,5 +1,9 @@
|
|||
;; copyright 2003 stefan kersten <steve@k-hornz.de>
|
||||
;;; sclang-help.el --- IDE for working with SuperCollider -*- coding: utf-8;
|
||||
;;
|
||||
;; Copyright 2003 stefan kersten <steve@k-hornz.de>
|
||||
|
||||
;;; License:
|
||||
|
||||
;; 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
|
||||
|
|
@ -15,11 +19,17 @@
|
|||
;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301
|
||||
;; USA
|
||||
|
||||
;;; Commentary:
|
||||
;; Access SuperCollider help files.
|
||||
|
||||
;;; Code:
|
||||
|
||||
(eval-when-compile
|
||||
(require 'font-lock))
|
||||
|
||||
;; (require 'w3m) ;; not needed during compilation
|
||||
(require 'w3m)
|
||||
(require 'cl-lib)
|
||||
|
||||
(require 'sclang-util)
|
||||
(require 'sclang-interp)
|
||||
(require 'sclang-language)
|
||||
|
|
@ -87,12 +97,15 @@
|
|||
(defcustom sclang-help-filters
|
||||
'(("p\\.p\\([0-9]+\\)" . "#p\\1")
|
||||
("<p class=\"\\(.*\\)\">\\(.*\\)</p>" . "<div id=\"\\1\">\\2</div>"))
|
||||
"list of pairs of (regexp . filter) defining html-tags to be replaced by the function sclang-help-substitute-for-filters"
|
||||
"Filters to replace html tags.
|
||||
List of pairs of (regexp . filter) defining html-tags to be replaced
|
||||
using the function `sclang-help-substitute-for-filters'."
|
||||
:group 'sclang-interface
|
||||
:type '(repeat (cons (string :tag "match") (string :tag "replacement"))))
|
||||
|
||||
(defun sclang-help-substitute-for-filters (&rest args)
|
||||
"substitute various tags in SCs html-docs"
|
||||
"Substitute various tags in SCs html-docs.
|
||||
Optional argument ARGS unused?"
|
||||
(mapcar #'(lambda (filter)
|
||||
(let ((regexp (car filter))
|
||||
(to-string (cdr filter)))
|
||||
|
|
@ -104,12 +117,12 @@
|
|||
;; w3m's content-filtering system
|
||||
(setq w3m-use-filter t)
|
||||
|
||||
;; checks if w3m-filter is loaded. Is `eval-after-load' necessary here?
|
||||
(eval-after-load "w3m-filter"
|
||||
'(add-to-list 'w3m-filter-rules
|
||||
;; run on all files read by w3m...
|
||||
'(".*" sclang-help-substitute-for-filters)))
|
||||
|
||||
|
||||
(defvar sclang-help-topic-alist nil
|
||||
"Alist mapping help topics to file names.")
|
||||
|
||||
|
|
@ -136,38 +149,49 @@
|
|||
;; =====================================================================
|
||||
|
||||
(defun sclang-get-help-file (topic)
|
||||
"Get the help file for TOPIC."
|
||||
(let ((topic (or (cdr (assoc topic sclang-special-help-topics)) topic)))
|
||||
(cdr (assoc topic sclang-help-topic-alist))))
|
||||
|
||||
(defun sclang-get-help-topic (file)
|
||||
"Get the help topic for FILE."
|
||||
(let ((topic (car (rassoc file sclang-help-topic-alist))))
|
||||
(or (car (rassoc topic sclang-special-help-topics)) topic)))
|
||||
|
||||
(defun sclang-help-buffer-name (topic)
|
||||
"Set the help buffer name to TOPIC."
|
||||
(sclang-make-buffer-name (concat "Help:" topic)))
|
||||
|
||||
;; file predicate functions
|
||||
|
||||
(defun sclang-rtf-file-p (file)
|
||||
"Does an rtf FILE exist?"
|
||||
(let ((case-fold-search t))
|
||||
(string-match ".*\\.rtf$" file)))
|
||||
|
||||
;; ========= ADDITION for HTML help files
|
||||
(defun sclang-html-file-p (file)
|
||||
"Does an html FILE exist?"
|
||||
(let ((case-fold-search t))
|
||||
(string-match ".*\\.html?$" file)))
|
||||
|
||||
(defun sclang-sc-file-p (file)
|
||||
"Does an sc FILE exist?"
|
||||
(let ((case-fold-search t))
|
||||
(string-match ".*\\.sc$" file)))
|
||||
|
||||
(defun sclang-scd-file-p (file)
|
||||
"Does an scd FILE exist?"
|
||||
(let ((case-fold-search t))
|
||||
(string-match ".*\\.scd$" file)))
|
||||
|
||||
(defun sclang-help-file-p (file)
|
||||
"Is FILE a help file?"
|
||||
(string-match sclang-help-file-regexp file))
|
||||
|
||||
|
||||
(defun sclang-help-topic-name (file)
|
||||
(if (string-match sclang-help-file-regexp file)
|
||||
"Get the help topic from FILE."
|
||||
(when (string-match sclang-help-file-regexp file)
|
||||
(cons (file-name-nondirectory (replace-match "" nil nil file 1))
|
||||
file)))
|
||||
|
||||
|
|
@ -178,7 +202,7 @@
|
|||
(defconst sclang-rtf-face-change-token "\0")
|
||||
|
||||
(defun sclang-fill-rtf-syntax-table (table)
|
||||
;; character quote
|
||||
"Fill RTF syntax TABLE."
|
||||
(modify-syntax-entry ?\\ "/" table)
|
||||
(modify-syntax-entry ?\" "." table)
|
||||
(modify-syntax-entry ?\{ "(" table)
|
||||
|
|
@ -204,13 +228,16 @@
|
|||
(defun sclang-code-p (pos) (not (rtf-p pos))))
|
||||
|
||||
(defmacro with-sclang-rtf-state-output (state &rest body)
|
||||
"Wrap rtf STATE output around BODY."
|
||||
`(with-current-buffer (sclang-rtf-state-output ,state)
|
||||
,@body))
|
||||
|
||||
(defmacro sclang-rtf-state-add-font (state font-id font-name)
|
||||
"Add font to STATE font table using FONT-ID and FONT-NAME."
|
||||
`(push (cons ,font-id (intern ,font-name)) (sclang-rtf-state-font-table ,state)))
|
||||
|
||||
(defmacro sclang-rtf-state-apply (state)
|
||||
"Apply STATE to rtf output."
|
||||
(let ((pos (cl-gensym))
|
||||
(font (cl-gensym))
|
||||
(face (cl-gensym)))
|
||||
|
|
@ -230,11 +257,13 @@
|
|||
(setf (sclang-rtf-state-pos ,state) (point)))))))
|
||||
|
||||
(defmacro sclang-rtf-state-set-font (state font)
|
||||
"Set FONT in STATE."
|
||||
`(progn
|
||||
(sclang-rtf-state-apply ,state)
|
||||
(setf (sclang-rtf-state-font ,state) ,font)))
|
||||
|
||||
(defmacro sclang-rtf-state-push-face (state face)
|
||||
"Push FACE to STATE."
|
||||
(let ((list (cl-gensym)))
|
||||
`(let ((,list (sclang-rtf-state-face state)))
|
||||
(sclang-rtf-state-apply ,state)
|
||||
|
|
@ -243,12 +272,14 @@
|
|||
(append ,list (list ,face)))))))
|
||||
|
||||
(defmacro sclang-rtf-state-pop-face (state face)
|
||||
"Pop FACE from STATE."
|
||||
(let ((list (cl-gensym)))
|
||||
`(let* ((,list (sclang-rtf-state-face ,state)))
|
||||
(sclang-rtf-state-apply ,state)
|
||||
(setf (sclang-rtf-state-face ,state) (delq ,face ,list)))))
|
||||
|
||||
(defun sclang-parse-rtf (state)
|
||||
"Parse rtf STATE."
|
||||
(while (not (eobp))
|
||||
(cond ((looking-at "{")
|
||||
;; container
|
||||
|
|
@ -278,6 +309,7 @@
|
|||
(forward-char 1)))))
|
||||
|
||||
(defun sclang-parse-rtf-container (state)
|
||||
"Parse RTF container. STATE."
|
||||
(cond ((looking-at "\\\\rtf1") ; document
|
||||
(goto-char (match-end 0))
|
||||
(sclang-parse-rtf state))
|
||||
|
|
@ -295,10 +327,10 @@
|
|||
(insert-image image)
|
||||
(sclang-rtf-state-push-face state 'italic)
|
||||
(insert file)
|
||||
(sclang-rtf-state-pop-face state 'italic)))))
|
||||
))
|
||||
(sclang-rtf-state-pop-face state 'italic)))))))
|
||||
|
||||
(defun sclang-parse-rtf-control (state ctrl)
|
||||
"Parse RTF control chars. STATE CTRL."
|
||||
(let ((char (aref ctrl 0)))
|
||||
(cond ((memq char '(?{ ?} ?\\))
|
||||
(with-sclang-rtf-state-output state (insert char)))
|
||||
|
|
@ -318,10 +350,10 @@
|
|||
((string= ctrl "b0")
|
||||
(sclang-rtf-state-pop-face state 'bold))
|
||||
((string-match "^f[0-9]+$" ctrl)
|
||||
(sclang-rtf-state-set-font state ctrl))
|
||||
)))
|
||||
(sclang-rtf-state-set-font state ctrl)))))
|
||||
|
||||
(defun sclang-convert-rtf-buffer (output)
|
||||
"Convert rtf buffer. OUTPUT."
|
||||
(let ((case-fold-search nil)
|
||||
(fill-column sclang-help-fill-column))
|
||||
(save-excursion
|
||||
|
|
@ -337,14 +369,17 @@
|
|||
;; =====================================================================
|
||||
|
||||
(defun sclang-fill-help-syntax-table (table)
|
||||
"Fill help syntax TABLE."
|
||||
;; make ?- be part of symbols for selection and sclang-symbol-at-point
|
||||
(modify-syntax-entry ?- "_" table))
|
||||
|
||||
(defun sclang-fill-help-mode-map (map)
|
||||
"Fill sclang help mode keymap MAP."
|
||||
(define-key map "\C-c}" 'bury-buffer)
|
||||
(define-key map "\C-c\C-v" 'sclang-edit-help-file))
|
||||
|
||||
(defmacro sclang-help-mode-limit-point-to-code (&rest body)
|
||||
"Limit point to code BODY."
|
||||
(let ((min (cl-gensym))
|
||||
(max (cl-gensym))
|
||||
(res (cl-gensym)))
|
||||
|
|
@ -360,14 +395,17 @@
|
|||
(t ,res)))))))
|
||||
|
||||
(defun sclang-help-mode-beginning-of-defun (&optional arg)
|
||||
"Move to beginning of function (or back ARG)."
|
||||
(interactive "p")
|
||||
(sclang-help-mode-limit-point-to-code (sclang-beginning-of-defun arg)))
|
||||
|
||||
(defun sclang-help-mode-end-of-defun (&optional arg)
|
||||
"Move to end of function (or forward ARG)."
|
||||
(interactive "p")
|
||||
(sclang-help-mode-limit-point-to-code (sclang-end-of-defun arg)))
|
||||
|
||||
(defun sclang-help-mode-fontify-region (start end loudly)
|
||||
"Fontify region from START to END and LOUDLY."
|
||||
(cl-flet ((fontify-code
|
||||
(start end loudly)
|
||||
(funcall 'font-lock-default-fontify-region start end loudly))
|
||||
|
|
@ -395,6 +433,7 @@
|
|||
|
||||
|
||||
(defun sclang-help-mode-indent-line ()
|
||||
"Indent sclang code in documentation."
|
||||
(if (sclang-code-p (point))
|
||||
(sclang-indent-line)
|
||||
(insert "\t")))
|
||||
|
|
@ -415,7 +454,7 @@
|
|||
(unwind-protect
|
||||
(progn
|
||||
(sclang-convert-rtf-buffer tmp-buffer)
|
||||
(toggle-read-only 0)
|
||||
(read-only-mode)
|
||||
(erase-buffer)
|
||||
(insert-buffer-substring tmp-buffer))
|
||||
(and (buffer-modified-p) (not modified-p) (set-buffer-modified-p nil))
|
||||
|
|
@ -425,8 +464,7 @@
|
|||
(append font-lock-defaults
|
||||
'((font-lock-fontify-region-function . sclang-help-mode-fontify-region))))
|
||||
(set (make-local-variable 'beginning-of-defun-function) 'sclang-help-mode-beginning-of-defun)
|
||||
(set (make-local-variable 'indent-line-function) 'sclang-help-mode-indent-line)
|
||||
))
|
||||
(set (make-local-variable 'indent-line-function) 'sclang-help-mode-indent-line)))
|
||||
|
||||
;; =====================================================================
|
||||
;; help file access
|
||||
|
|
@ -436,7 +474,8 @@
|
|||
"Answer t if PATH should be skipped during help file indexing."
|
||||
(let ((directory (file-name-nondirectory path)))
|
||||
(cl-some (lambda (regexp) (string-match regexp directory))
|
||||
'("^\.$" "^\.\.$" "^CVS$" "^\.svn$" "^_darcs$"))))
|
||||
;; skip "." ".." "CVS" ".svn" and "_darcs" directories
|
||||
'("\\.\\'" "\\.\\.\\'" "^CVS\\'" "^\\.svn$" "^_darcs\\'"))))
|
||||
|
||||
(defun sclang-filter-help-directories (list)
|
||||
"Remove paths to be skipped from LIST of directories."
|
||||
|
|
@ -446,7 +485,7 @@
|
|||
list))
|
||||
|
||||
(defun sclang-directory-files-save (directory &optional full match nosort)
|
||||
"Return a list of names of files in DIRECTORY, or nil on error."
|
||||
"List files in DIRECTORY (optionally FULL MATCH NOSORT) or nil."
|
||||
(condition-case nil
|
||||
(directory-files directory full match nosort)
|
||||
(error nil)))
|
||||
|
|
@ -505,20 +544,17 @@
|
|||
"Edit the help file associated with the current buffer.
|
||||
Switches w3m to edit mode (actually HTML mode)."
|
||||
(interactive)
|
||||
(w3m-edit-current-url)
|
||||
)
|
||||
(w3m-edit-current-url))
|
||||
|
||||
(defun sclang-edit-help-code ()
|
||||
"Edit the help file to make code variations.
|
||||
Switches to text mode with sclang-minor-mode."
|
||||
Switches to text mode with `sclang-minor-mode'."
|
||||
(interactive)
|
||||
(w3m-copy-buffer)
|
||||
;; (text-mode)
|
||||
(sclang-mode)
|
||||
(toggle-read-only)
|
||||
(rename-buffer "*SC_Help:CodeEdit*")
|
||||
)
|
||||
|
||||
(read-only-mode)
|
||||
(rename-buffer "*SC_Help:CodeEdit*"))
|
||||
|
||||
(defun sclang-edit-help-file ()
|
||||
"Edit the help file associated with the current buffer.
|
||||
|
|
@ -552,7 +588,7 @@ Either visit file internally (.sc) or start external editor (.rtf)."
|
|||
sclang-help-topic-alist))))))
|
||||
|
||||
(defun sclang-goto-help-browser ()
|
||||
"Switch to the *w3m* buffer to browse help files"
|
||||
"Switch to the *w3m* buffer to browse help files."
|
||||
(interactive)
|
||||
(let* ((buffer-name "*w3m*")
|
||||
(buffer (get-buffer buffer-name)))
|
||||
|
|
@ -564,24 +600,15 @@ Either visit file internally (.sc) or start external editor (.rtf)."
|
|||
(if buffer2
|
||||
(switch-to-buffer buffer2)
|
||||
;; else
|
||||
(sclang-find-help "Help")
|
||||
)
|
||||
)
|
||||
)
|
||||
(sclang-find-help "Help"))))
|
||||
(if buffer
|
||||
(with-current-buffer buffer
|
||||
(rename-buffer "*SC_Help:w3m*")
|
||||
(sclang-help-minor-mode)
|
||||
;;(setq buffer-read-only false)
|
||||
)
|
||||
)
|
||||
; (if buffer
|
||||
;
|
||||
; )
|
||||
)
|
||||
)
|
||||
(sclang-help-minor-mode)))))
|
||||
|
||||
(defun sclang-find-help (topic)
|
||||
"Find help for TOPIC."
|
||||
(interactive
|
||||
(list
|
||||
(let ((topic (or (and mark-active (buffer-substring-no-properties (region-beginning) (region-end)))
|
||||
|
|
@ -609,17 +636,15 @@ Either visit file internally (.sc) or start external editor (.rtf)."
|
|||
(set-buffer-modified-p nil)))
|
||||
(switch-to-buffer buffer))
|
||||
(if (sclang-html-file-p file)
|
||||
(sclang-goto-help-browser))
|
||||
)
|
||||
(sclang-goto-help-browser)))
|
||||
(sclang-message "Help file not found") nil)
|
||||
(sclang-message "No help for \"%s\"" topic) nil)))
|
||||
|
||||
|
||||
(defun sclang-open-help-gui ()
|
||||
"Open SCDoc Help Browser"
|
||||
"Open SCDoc Help Browser."
|
||||
(interactive)
|
||||
(sclang-eval-string (sclang-format "Help.gui"))
|
||||
)
|
||||
(sclang-eval-string (sclang-format "Help.gui")))
|
||||
|
||||
(defvar sclang-scdoc-topics (make-hash-table :size 16385)
|
||||
"List of all scdoc topics.")
|
||||
|
|
@ -629,24 +654,23 @@ Either visit file internally (.sc) or start external editor (.rtf)."
|
|||
(lambda (list-of-symbols)
|
||||
(mapcar (lambda (arg)
|
||||
(puthash arg nil sclang-scdoc-topics))
|
||||
list-of-symbols)
|
||||
))
|
||||
list-of-symbols)))
|
||||
|
||||
(defun sclang-find-help-in-gui (topic)
|
||||
"Search for topic in SCDoc Help Browser"
|
||||
"Search for TOPIC in Help Browser."
|
||||
(interactive
|
||||
(list
|
||||
(let ((topic (sclang-symbol-at-point)))
|
||||
(completing-read (format "Help topic%s: " (if topic
|
||||
(completing-read
|
||||
(format "Help topic%s: " (if topic
|
||||
(format " (default %s)" topic)
|
||||
""))
|
||||
sclang-scdoc-topics nil nil nil 'sclang-help-topic-history topic)))
|
||||
)
|
||||
sclang-scdoc-topics nil nil nil 'sclang-help-topic-history topic))))
|
||||
(if topic
|
||||
(sclang-eval-string (sclang-format "HelpBrowser.openHelpFor(%o)" topic))
|
||||
(sclang-eval-string (sclang-format "Help.gui"))
|
||||
)
|
||||
)
|
||||
(sclang-eval-string
|
||||
(sclang-format "HelpBrowser.openHelpFor(%o)" topic))
|
||||
(sclang-eval-string
|
||||
(sclang-format "Help.gui"))))
|
||||
|
||||
|
||||
;; =====================================================================
|
||||
|
|
@ -664,16 +688,18 @@ Either visit file internally (.sc) or start external editor (.rtf)."
|
|||
(lambda ()
|
||||
(clrhash sclang-scdoc-topics)))
|
||||
|
||||
(add-to-list 'auto-mode-alist '("\\.rtf$" . sclang-help-mode))
|
||||
(add-to-list 'auto-mode-alist '("\\.rtf\\'" . sclang-help-mode))
|
||||
|
||||
;; ========= ADDITION for HTML help files?? ============
|
||||
;; (add-to-list 'auto-mode-alist '("\\.html$" . sclang-help-mode))
|
||||
;; (setq mm-text-html-renderer 'w3m)
|
||||
;; (setq mm-inline-text-html-with-images t)
|
||||
;; (setq mm-inline-text-html-with-w3m-keymap nil)
|
||||
;; =====================================================
|
||||
|
||||
(sclang-fill-help-syntax-table sclang-help-mode-syntax-table)
|
||||
(sclang-fill-help-mode-map sclang-help-mode-map)
|
||||
|
||||
(provide 'sclang-help)
|
||||
|
||||
;; EOF
|
||||
;;; sclang-help.el ends here
|
||||
|
|
|
|||
|
|
@ -1,5 +1,9 @@
|
|||
;; copyright 2003-2005 stefan kersten <steve@k-hornz.de>
|
||||
;;; sclang-interp.el --- IDE for working with SuperCollider -*- coding: utf-8;
|
||||
;;
|
||||
;; Copyright 2003 stefan kersten <steve@k-hornz.de>
|
||||
|
||||
;;; License:
|
||||
|
||||
;; 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
|
||||
|
|
@ -15,6 +19,10 @@
|
|||
;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301
|
||||
;; USA
|
||||
|
||||
|
||||
;;; Commentary:
|
||||
;; SuperCollider interpreter interface
|
||||
|
||||
(require 'sclang-util)
|
||||
(require 'compile)
|
||||
|
||||
|
|
@ -24,6 +32,8 @@
|
|||
|
||||
;; FIXME: everything will fail when renaming the post buffer!
|
||||
|
||||
;;; Code:
|
||||
|
||||
(defconst sclang-post-buffer (sclang-make-buffer-name "PostBuffer")
|
||||
"Name of the SuperCollider process output buffer.")
|
||||
|
||||
|
|
@ -34,7 +44,7 @@
|
|||
"Character for highlighting errors (utf-8).")
|
||||
|
||||
(defconst sclang-parse-error-regexp
|
||||
"^\\(WARNING\\|ERROR\\): .*\n[\t ]*in file '\\([^']\+\\)'\n[\t ]*line \\([0-9]\+\\) char \\([0-9]\+\\)"
|
||||
"^\\(WARNING\\|ERROR\\): .*\n[\t ]*in file '\\([^']+\\)'\n[\t ]*line \\([0-9]+\\) char \\([0-9]+\\)"
|
||||
"Regular expression matching parse errors during library compilation.")
|
||||
|
||||
(defcustom sclang-max-post-buffer-size 0
|
||||
|
|
@ -52,9 +62,11 @@ Default behavior is to only scroll when point is not at end of buffer."
|
|||
:type 'boolean)
|
||||
|
||||
(defun sclang-get-post-buffer ()
|
||||
"Get or create the sclang post buffer."
|
||||
(get-buffer-create sclang-post-buffer))
|
||||
|
||||
(defmacro with-sclang-post-buffer (&rest body)
|
||||
"BODY in the sclang post buffer."
|
||||
`(with-current-buffer (sclang-get-post-buffer)
|
||||
,@body))
|
||||
|
||||
|
|
@ -115,13 +127,14 @@ If EOB-P is non-nil, positions cursor at end of buffer."
|
|||
(lambda (&rest args)))
|
||||
;; setup compilation mode
|
||||
(compilation-minor-mode)
|
||||
(set (make-variable-buffer-local 'compilation-error-screen-columns) nil)
|
||||
(set (make-variable-buffer-local 'compilation-error-regexp-alist)
|
||||
;; see elisp docs for `make-variable-buffer-local' and `make-local-variable' use cases
|
||||
(set (make-local-variable 'compilation-error-screen-columns) nil)
|
||||
(set (make-local-variable 'compilation-error-regexp-alist)
|
||||
(cons (list sclang-parse-error-regexp 2 3 4) compilation-error-regexp-alist))
|
||||
(set (make-variable-buffer-local 'compilation-parse-errors-function)
|
||||
(set (make-local-variable 'compilation-parse-errors-function)
|
||||
(lambda (limit-search find-at-least)
|
||||
(compilation-parse-errors limit-search find-at-least)))
|
||||
(set (make-variable-buffer-local 'compilation-parse-errors-filename-function)
|
||||
(set (make-local-variable 'compilation-parse-errors-filename-function)
|
||||
(lambda (file-name)
|
||||
file-name)))
|
||||
(sclang-clear-post-buffer)
|
||||
|
|
@ -189,6 +202,7 @@ If EOB-P is non-nil, positions cursor at end of buffer."
|
|||
;; =====================================================================
|
||||
|
||||
(defun sclang-get-process ()
|
||||
"Return the current sclang process."
|
||||
(get-process sclang-process))
|
||||
|
||||
;; =====================================================================
|
||||
|
|
@ -217,16 +231,19 @@ If EOB-P is non-nil, positions cursor at end of buffer."
|
|||
;; initialization
|
||||
|
||||
(defun sclang-library-initialized-p ()
|
||||
"Is sclang library initialized?"
|
||||
(and (sclang-get-process)
|
||||
sclang-library-initialized-p))
|
||||
|
||||
(defun sclang-on-library-startup ()
|
||||
"Initialize sclang library."
|
||||
(sclang-message "Initializing library...")
|
||||
(setq sclang-library-initialized-p t)
|
||||
(run-hooks 'sclang-library-startup-hook)
|
||||
(sclang-message "Initializing library...done"))
|
||||
|
||||
(defun sclang-on-library-shutdown ()
|
||||
"Library shutdown."
|
||||
(when sclang-library-initialized-p
|
||||
(run-hooks 'sclang-library-shutdown-hook)
|
||||
(setq sclang-library-initialized-p nil)
|
||||
|
|
@ -237,6 +254,7 @@ If EOB-P is non-nil, positions cursor at end of buffer."
|
|||
;; =====================================================================
|
||||
|
||||
(defun sclang-process-sentinel (proc msg)
|
||||
"Process sentinel PROC MSG."
|
||||
(with-sclang-post-buffer
|
||||
(goto-char (point-max))
|
||||
(insert
|
||||
|
|
@ -248,6 +266,7 @@ If EOB-P is non-nil, positions cursor at end of buffer."
|
|||
(sclang-stop-command-process)))
|
||||
|
||||
(defun sclang-process-filter (process string)
|
||||
"Process filter PROCESS STRING."
|
||||
(let ((buffer (process-buffer process)))
|
||||
(with-current-buffer buffer
|
||||
(when (and (> sclang-max-post-buffer-size 0)
|
||||
|
|
@ -275,13 +294,16 @@ If EOB-P is non-nil, positions cursor at end of buffer."
|
|||
;; =====================================================================
|
||||
|
||||
(defun sclang-memory-option-p (string)
|
||||
"Is STRING an sclang memory option?"
|
||||
(let ((case-fold-search nil))
|
||||
(string-match "^[1-9][0-9]*[km]?$" string)))
|
||||
|
||||
(defun sclang-port-option-p (number)
|
||||
"Is NUMBER a valid sclang port?"
|
||||
(and (integerp number) (>= number 0) (<= number #XFFFF)))
|
||||
|
||||
(defun sclang-make-options ()
|
||||
"Make options."
|
||||
(let ((default-directory ""))
|
||||
(nconc
|
||||
(when (and sclang-runtime-directory
|
||||
|
|
@ -346,8 +368,7 @@ If EOB-P is non-nil, positions cursor at end of buffer."
|
|||
"Recompile class library."
|
||||
(interactive)
|
||||
(when (sclang-get-process)
|
||||
(process-send-string sclang-process "\x18")
|
||||
))
|
||||
(process-send-string sclang-process "\x18")))
|
||||
|
||||
;; =====================================================================
|
||||
;; command process
|
||||
|
|
@ -371,23 +392,26 @@ Change this if \"cat\" has a non-standard name or location."
|
|||
"Subprocess for receiving command results from sclang.")
|
||||
|
||||
(defconst sclang-cmd-helper-proc "SCLang Command Helper"
|
||||
"Dummy subprocess that will keep the command fifo open for writing
|
||||
so reading does not fail automatically when sclang closes its own
|
||||
writing end of the fifo")
|
||||
"Dummy subprocess that will keep the command fifo open for writing.
|
||||
This is needed so reading does not automatically fail when sclang
|
||||
closes its own writing end of the fifo.")
|
||||
|
||||
(defvar sclang-command-fifo nil
|
||||
"FIFO for communicating with the subprocess.")
|
||||
|
||||
(defun sclang-delete-command-fifo ()
|
||||
"Delete the command fifo."
|
||||
(and sclang-command-fifo
|
||||
(file-exists-p sclang-command-fifo)
|
||||
(delete-file sclang-command-fifo)))
|
||||
|
||||
(defun sclang-release-command-fifo ()
|
||||
"Release the command fifo."
|
||||
(sclang-delete-command-fifo)
|
||||
(setq sclang-command-fifo nil))
|
||||
|
||||
(defun sclang-create-command-fifo ()
|
||||
"Create the command fifo."
|
||||
(setq sclang-command-fifo (make-temp-name
|
||||
(expand-file-name
|
||||
"sclang-command-fifo." temporary-file-directory)))
|
||||
|
|
@ -400,6 +424,7 @@ Change this if \"cat\" has a non-standard name or location."
|
|||
(setq sclang-command-fifo nil))))
|
||||
|
||||
(defun sclang-start-command-process ()
|
||||
"Start the command process."
|
||||
(sclang-create-command-fifo)
|
||||
(when sclang-command-fifo
|
||||
;; start the dummy process to keep the fifo open
|
||||
|
|
@ -423,6 +448,7 @@ Change this if \"cat\" has a non-standard name or location."
|
|||
(message "SCLang: Couldn't start command process"))))
|
||||
|
||||
(defun sclang-stop-command-process ()
|
||||
"Stop the command process."
|
||||
(when (get-process sclang-cmd-helper-proc)
|
||||
(kill-process sclang-cmd-helper-proc)
|
||||
(delete-process sclang-cmd-helper-proc))
|
||||
|
|
@ -434,6 +460,7 @@ Change this if \"cat\" has a non-standard name or location."
|
|||
"Unprocessed command process output.")
|
||||
|
||||
(defun sclang-command-process-filter (proc string)
|
||||
"Command process filter PROC STRING."
|
||||
(when sclang-command-process-previous
|
||||
(setq string (concat sclang-command-process-previous string)))
|
||||
(let (end)
|
||||
|
|
@ -452,27 +479,31 @@ Change this if \"cat\" has a non-standard name or location."
|
|||
;; symbol property: sclang-command-handler
|
||||
|
||||
(defun sclang-set-command-handler (symbol function)
|
||||
"Set command handler SYMBOL to FUNCTION."
|
||||
(put symbol 'sclang-command-handler function))
|
||||
|
||||
(defun sclang-perform-command (symbol &rest args)
|
||||
"Eval command SYMBOL with ARGS."
|
||||
(sclang-eval-string (sclang-format
|
||||
"Emacs.lispPerformCommand(%o, %o, true)"
|
||||
symbol args)))
|
||||
|
||||
(defun sclang-perform-command-no-result (symbol &rest args)
|
||||
"Eval command SYMBOL with ARGS. No result."
|
||||
(sclang-eval-string (sclang-format
|
||||
"Emacs.lispPerformCommand(%o, %o, false)"
|
||||
symbol args)))
|
||||
|
||||
(defun sclang-default-command-handler (fun arg)
|
||||
"Default command handler.
|
||||
"Default command handler for FUN with ARG.
|
||||
Displays short message on error."
|
||||
(condition-case nil
|
||||
(condition-case err
|
||||
(funcall fun arg)
|
||||
(error (sclang-message "Error in command handler") nil)))
|
||||
(error (sclang-message
|
||||
(format "Error in command handler: %s" err)) nil)))
|
||||
|
||||
(defun sclang-debug-command-handler (fun arg)
|
||||
"Debugging command handler.
|
||||
"Debugging command handler for FUN with ARG.
|
||||
Enters debugger on error."
|
||||
(let ((debug-on-error t)
|
||||
(debug-on-signal t))
|
||||
|
|
@ -482,20 +513,21 @@ Enters debugger on error."
|
|||
"Function called when handling command result.")
|
||||
|
||||
(defun sclang-toggle-debug-command-handler (&optional arg)
|
||||
"Toggle debugging of command handler.
|
||||
With arg, activate debugging iff arg is positive."
|
||||
"Toggle debugging of command handler (or set with ARG).
|
||||
Activate debugging iff ARG is positive."
|
||||
(interactive "P")
|
||||
(setq sclang-command-handler
|
||||
(if (or (and arg (> arg 0))
|
||||
(eq sclang-command-handler 'sclang-debug-command-handler))
|
||||
'sclang-default-command-handler
|
||||
'sclang-default-command-handler))
|
||||
'sclang-debug-command-handler))
|
||||
(sclang-message "Command handler debugging %s."
|
||||
(if (eq sclang-command-handler 'sclang-debug-command-handler)
|
||||
"enabled"
|
||||
"disabled")))
|
||||
|
||||
(defun sclang-handle-command-result (list)
|
||||
"Handle command result LIST."
|
||||
(condition-case nil
|
||||
(let ((fun (get (nth 0 list) 'sclang-command-handler))
|
||||
(arg (nth 1 list))
|
||||
|
|
@ -520,25 +552,26 @@ With arg, activate debugging iff arg is positive."
|
|||
:type 'boolean)
|
||||
|
||||
(defun sclang-send-string (token string &optional force)
|
||||
"Send TOKEN STRING to sclang (optionally FORCE)."
|
||||
(let ((proc (sclang-get-process)))
|
||||
(when (and proc (or (sclang-library-initialized-p) force))
|
||||
(process-send-string proc (concat string token))
|
||||
string)))
|
||||
|
||||
(defun sclang-eval-string (string &optional print-p)
|
||||
"Send STRING to the sclang process for evaluation and print the result
|
||||
if PRINT-P is non-nil. Return STRING if successful, otherwise nil."
|
||||
"Evaluate STRING with sclang and print the result if PRINT-P is non-nil.
|
||||
Return STRING if successful, otherwise nil."
|
||||
(sclang-send-string
|
||||
(if print-p sclang-token-interpret-print-cmd-line sclang-token-interpret-cmd-line)
|
||||
string))
|
||||
|
||||
(defun sclang-eval-expression (string &optional silent-p)
|
||||
"Execute STRING as SuperCollider code."
|
||||
"Evaluate STRING as SuperCollider code (suppress output if SILENT-P is non-nil)."
|
||||
(interactive "sEval: \nP")
|
||||
(sclang-eval-string string (not silent-p)))
|
||||
|
||||
(defun sclang-eval-line (&optional silent-p)
|
||||
"Execute the current line as SuperCollider code."
|
||||
"Evaluate current line with sclang (suppress output if SILENT-P is non-nil)."
|
||||
(interactive "P")
|
||||
(let ((string (sclang-line-at-point)))
|
||||
(when string
|
||||
|
|
@ -549,32 +582,39 @@ if PRINT-P is non-nil. Return STRING if successful, otherwise nil."
|
|||
string))
|
||||
|
||||
(defun sclang-eval-region (&optional silent-p)
|
||||
"Execute the region as SuperCollider code."
|
||||
"Evaluate current region with sclang (suppress output if SILENT-P is non-nil)."
|
||||
(interactive "P")
|
||||
(sclang-eval-string
|
||||
(buffer-substring-no-properties (region-beginning) (region-end))
|
||||
(not silent-p)))
|
||||
|
||||
(defun sclang-eval-region-or-line (&optional silent-p)
|
||||
"Evaluate current line or region (suppress output if SILENT-P is non-nil)."
|
||||
(interactive "P")
|
||||
(if (and transient-mark-mode mark-active)
|
||||
(sclang-eval-region silent-p)
|
||||
(sclang-eval-line silent-p)))
|
||||
|
||||
(defun sclang-eval-defun (&optional silent-p)
|
||||
"Evaluate current function definition (suppress output if SILENT-P is non-nil)."
|
||||
(interactive "P")
|
||||
(let ((string (sclang-defun-at-point)))
|
||||
(when (and string (string-match "^(" string))
|
||||
(sclang-eval-string string (not silent-p))
|
||||
string)))
|
||||
|
||||
(defun sclang-eval-dwim ()
|
||||
"Evaluate line, region, function or buffer."
|
||||
(interactive "P")
|
||||
(or (sclang-eval-defun)
|
||||
(sclang-eval-region-or-line)))
|
||||
|
||||
(defun sclang-eval-document (&optional silent-p)
|
||||
"Execute the whole document as SuperCollider code."
|
||||
"Evaluate current buffer with sclang (suppress output if SILENT-P is non-nil)."
|
||||
(interactive "P")
|
||||
(save-excursion
|
||||
(mark-whole-buffer)
|
||||
(sclang-eval-string
|
||||
(buffer-substring-no-properties (region-beginning) (region-end))
|
||||
(buffer-substring-no-properties (point-min) (point-max))
|
||||
(not silent-p))))
|
||||
|
||||
(defvar sclang-eval-results nil
|
||||
|
|
@ -585,7 +625,7 @@ if PRINT-P is non-nil. Return STRING if successful, otherwise nil."
|
|||
(lambda (arg) (push arg sclang-eval-results)))
|
||||
|
||||
(defun sclang-eval-sync (string)
|
||||
"Eval STRING in sclang and return result as a lisp value."
|
||||
"Eval STRING in sclang and return result as a Lisp value."
|
||||
(let ((proc (get-process sclang-command-process)))
|
||||
(if (and (processp proc) (eq (process-status proc) 'run))
|
||||
(let ((time (current-time)) (tick 10000) elt)
|
||||
|
|
@ -653,15 +693,18 @@ if PRINT-P is non-nil. Return STRING if successful, otherwise nil."
|
|||
(defconst sclang-workspace-buffer (sclang-make-buffer-name "Workspace"))
|
||||
|
||||
(defun sclang-fill-workspace-mode-map (map)
|
||||
"Fill the workspace keymap MAP."
|
||||
(define-key map "\C-c}" 'bury-buffer))
|
||||
|
||||
(defun sclang-switch-to-workspace ()
|
||||
"Switch to SuperCollider workspace buffer."
|
||||
(interactive)
|
||||
(let ((buffer (get-buffer sclang-workspace-buffer)))
|
||||
(unless buffer
|
||||
(setq buffer (get-buffer-create sclang-workspace-buffer))
|
||||
(with-current-buffer buffer
|
||||
(sclang-mode)
|
||||
;; why a buffer local keymap?
|
||||
(let ((map (make-sparse-keymap)))
|
||||
(set-keymap-parent map sclang-mode-map)
|
||||
(sclang-fill-workspace-mode-map map)
|
||||
|
|
@ -690,10 +733,12 @@ if PRINT-P is non-nil. Return STRING if successful, otherwise nil."
|
|||
;; =====================================================================
|
||||
|
||||
(defun sclang-main-run ()
|
||||
"Run sclang process."
|
||||
(interactive)
|
||||
(sclang-eval-string "thisProcess.run"))
|
||||
|
||||
(defun sclang-main-stop ()
|
||||
"Stop sclang process."
|
||||
(interactive)
|
||||
(sclang-eval-string "thisProcess.stop"))
|
||||
|
||||
|
|
@ -739,6 +784,7 @@ if PRINT-P is non-nil. Return STRING if successful, otherwise nil."
|
|||
(sclang-mode)
|
||||
(switch-to-buffer (current-buffer))))))))
|
||||
|
||||
|
||||
(provide 'sclang-interp)
|
||||
|
||||
;; EOF
|
||||
;;; sclang-interp.el ends here
|
||||
|
|
|
|||
|
|
@ -1,5 +1,9 @@
|
|||
;; copyright 2003 stefan kersten <steve@k-hornz.de>
|
||||
;;; sclang-keys.el --- IDE for working with SuperCollider -*- coding: utf-8;
|
||||
;;
|
||||
;; Copyright 2003 stefan kersten <steve@k-hornz.de>
|
||||
|
||||
;;; License:
|
||||
|
||||
;; 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
|
||||
|
|
@ -15,6 +19,15 @@
|
|||
;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301
|
||||
;; USA
|
||||
|
||||
|
||||
;;; Commentary:
|
||||
;; Read & send keys between Emacs and SuperCollider
|
||||
|
||||
;;; Code:
|
||||
(eval-and-compile (require 'sclang-util)
|
||||
(require 'sclang-interp))
|
||||
|
||||
|
||||
;; (defvar sclang-key-table (make-char-table 'foo))
|
||||
|
||||
;; (defun sclang-define-key (char beg end)
|
||||
|
|
@ -25,10 +38,9 @@
|
|||
;; (defun sclang-execute-key (char)
|
||||
;; (sclang-eval-string (sclang-format "Emacs.executeKey(%o)" char)))
|
||||
|
||||
(eval-and-compile (require 'sclang-util)
|
||||
(require 'sclang-interp))
|
||||
|
||||
(defun sclang-read-keys ()
|
||||
"Read and send keys between Emacs and SuperCollider."
|
||||
(interactive)
|
||||
(let (char)
|
||||
(clear-this-command-keys)
|
||||
|
|
@ -39,5 +51,7 @@
|
|||
(message "%s (%d)" (char-to-string char) char)
|
||||
(sclang-eval-string (format "Emacs.keys.at(%d).value(%d)" char char))))))
|
||||
|
||||
;; EOF
|
||||
|
||||
(provide 'sclang-keys)
|
||||
|
||||
;;; sclang-keys.el ends here
|
||||
|
|
|
|||
|
|
@ -1,5 +1,9 @@
|
|||
;; copyright 2003-2005 stefan kersten <steve@k-hornz.de>
|
||||
;;; sclang-language.el --- IDE for working with SuperCollider -*- coding: utf-8;
|
||||
;;
|
||||
;; Copyright 2003 stefan kersten <steve@k-hornz.de>
|
||||
|
||||
;;; License:
|
||||
|
||||
;; 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
|
||||
|
|
@ -15,14 +19,20 @@
|
|||
;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301
|
||||
;; USA
|
||||
|
||||
|
||||
;;; Commentary:
|
||||
;; Utilities for SuperCollider syntax
|
||||
|
||||
(require 'cl-lib)
|
||||
(require 'sclang-browser)
|
||||
(require 'sclang-interp)
|
||||
(require 'sclang-util)
|
||||
|
||||
;; =====================================================================
|
||||
;; ===================================================================
|
||||
;; regexp utilities
|
||||
;; =====================================================================
|
||||
;; ===================================================================
|
||||
|
||||
;;; Code:
|
||||
|
||||
(defun sclang-regexp-group (regexp &optional addressable)
|
||||
"Enclose REGEXP in grouping parentheses.
|
||||
|
|
@ -37,9 +47,9 @@ separately after matching."
|
|||
The expressions are joined as alternatives with the \\| operator."
|
||||
(mapconcat 'sclang-regexp-group regexps "\\|"))
|
||||
|
||||
;; =====================================================================
|
||||
;; ===================================================================
|
||||
;; some useful regular expressions
|
||||
;; =====================================================================
|
||||
;; ===================================================================
|
||||
|
||||
(defconst sclang-symbol-regexp
|
||||
"\\(?:\\sw\\|\\s_\\)*"
|
||||
|
|
@ -119,9 +129,9 @@ enclosed by parenthesis (`sclang-block-regexp').")
|
|||
|
||||
A specification is of the form <class-name>-<method-name>.")
|
||||
|
||||
;; =====================================================================
|
||||
;; ===================================================================
|
||||
;; regexp building
|
||||
;; =====================================================================
|
||||
;; ===================================================================
|
||||
|
||||
(defun sclang-make-class-definition-regexp (name)
|
||||
"Return a regular expression matching the class definition NAME."
|
||||
|
|
@ -138,9 +148,9 @@ A specification is of the form <class-name>-<method-name>.")
|
|||
"Return a regular expression matching the method definition NAME."
|
||||
(concat "\\(" (regexp-quote name) "\\)\\s *{"))
|
||||
|
||||
;; =====================================================================
|
||||
;; ===================================================================
|
||||
;; string matching
|
||||
;; =====================================================================
|
||||
;; ===================================================================
|
||||
|
||||
(defun sclang-string-match (regexp string)
|
||||
"Match REGEXP with STRING while preserving case."
|
||||
|
|
@ -148,48 +158,57 @@ A specification is of the form <class-name>-<method-name>.")
|
|||
(string-match regexp string)))
|
||||
|
||||
(defun sclang-symbol-match (symbol-regexp string)
|
||||
"Match SYMBOL-REGEXP in STRING."
|
||||
(sclang-string-match (concat "^" symbol-regexp "$") string))
|
||||
|
||||
;; =====================================================================
|
||||
;; ===================================================================
|
||||
;; symbol name predicates
|
||||
;; =====================================================================
|
||||
;; ===================================================================
|
||||
|
||||
(defun sclang-class-name-p (string)
|
||||
"Is STRING an sclang class name?"
|
||||
(sclang-symbol-match sclang-class-name-regexp string))
|
||||
|
||||
(defun sclang-meta-class-name-p (string)
|
||||
"Is STRING an sclang meta class name?"
|
||||
(and (sclang-class-name-p string)
|
||||
(sclang-string-match "^Meta_" string)))
|
||||
|
||||
(defun sclang-method-name-p (string)
|
||||
"Is STRING an sclang method name?"
|
||||
(sclang-symbol-match sclang-method-name-regexp string))
|
||||
|
||||
(defun sclang-symbol-name-p (string)
|
||||
"Is STRING an sclang symbol name?"
|
||||
(sclang-symbol-match sclang-symbol-name-regexp string))
|
||||
|
||||
(defun sclang-method-name-setter-p (method-name)
|
||||
"Is METHOD-NAME an sclang method name setter?"
|
||||
(string-match "_$" method-name))
|
||||
|
||||
(defun sclang-method-name-getter-p (method-name)
|
||||
"Is METHOD-NAME an sclang method name getter?"
|
||||
(not (sclang-method-name-setter-p method-name)))
|
||||
|
||||
;; =====================================================================
|
||||
;; ===================================================================
|
||||
;; symbol name manipulation
|
||||
;; =====================================================================
|
||||
;; ===================================================================
|
||||
|
||||
(defun sclang-method-name-setter (method-name)
|
||||
"Return a method name setter for METHOD-NAME."
|
||||
(if (sclang-method-name-setter-p method-name)
|
||||
method-name
|
||||
(concat method-name "_")))
|
||||
|
||||
(defun sclang-method-name-getter (method-name)
|
||||
"Return a method name getter for METHOD-NAME."
|
||||
(if (sclang-method-name-setter-p method-name)
|
||||
(substring method-name 0 (1- (length method-name)))
|
||||
method-name))
|
||||
|
||||
;; =====================================================================
|
||||
;; ===================================================================
|
||||
;; symbol table access
|
||||
;; =====================================================================
|
||||
;; ===================================================================
|
||||
|
||||
(defcustom sclang-use-symbol-table t
|
||||
"*Retrieve symbol table upon library initialization.
|
||||
|
|
@ -238,17 +257,21 @@ low-resource systems."
|
|||
(sclang-update-font-lock)))
|
||||
|
||||
(defun sclang-get-symbol-completion-table ()
|
||||
"Get symbol completion table."
|
||||
(mapcar (lambda (s) (cons s nil)) sclang-symbol-table))
|
||||
|
||||
(defun sclang-make-symbol-completion-predicate (predicate)
|
||||
"Make symbol completion PREDICATE."
|
||||
(and predicate (lambda (assoc) (funcall predicate (car assoc)))))
|
||||
|
||||
(defun sclang-get-symbol (string)
|
||||
"Get symbol named STRING."
|
||||
(if (and sclang-use-symbol-table sclang-symbol-table)
|
||||
(car (member string sclang-symbol-table))
|
||||
string))
|
||||
|
||||
(defun sclang-read-symbol (prompt &optional default predicate require-match inherit-input-method)
|
||||
"Read symbol PROMPT (options DEFAULT PREDICATE REQUIRE-MATCH and INHERIT-INPUT-METHOD)."
|
||||
(if sclang-use-symbol-table
|
||||
(cl-flet ((make-minibuffer-local-map
|
||||
(parent-keymap)
|
||||
|
|
@ -271,14 +294,12 @@ low-resource systems."
|
|||
(read-string (sclang-make-prompt-string prompt default) nil
|
||||
'sclang-symbol-history default inherit-input-method)))
|
||||
|
||||
;; =====================================================================
|
||||
;; ===================================================================
|
||||
;; buffer movement
|
||||
;; =====================================================================
|
||||
;; ===================================================================
|
||||
|
||||
(defun sclang-point-in-comment-p ()
|
||||
"Return non-nil if point is inside a comment.
|
||||
|
||||
Use font-lock information if font-lock-mode is enabled."
|
||||
"Return non-nil if point is inside a comment."
|
||||
(if (and (boundp 'font-lock-mode) (eval 'font-lock-mode))
|
||||
;; use available information in font-lock-mode
|
||||
(eq (get-text-property (point) 'face) 'font-lock-comment-face)
|
||||
|
|
@ -289,6 +310,7 @@ Use font-lock information if font-lock-mode is enabled."
|
|||
(not (null (nth 4 (parse-partial-sexp (point) beg))))))))
|
||||
|
||||
(defun sclang-beginning-of-defun (&optional arg)
|
||||
"Move to beginning of function (optionally ARG)."
|
||||
(interactive "p")
|
||||
(let ((case-fold-search nil)
|
||||
(arg (or arg (prefix-numeric-value current-prefix-arg)))
|
||||
|
|
@ -324,6 +346,7 @@ Return value is nil or (beg end) of defun."
|
|||
(list beg end)))))
|
||||
|
||||
(defun sclang-end-of-defun (&optional arg)
|
||||
"Move to end of function (optionally ARG)."
|
||||
(interactive "p")
|
||||
(let ((case-fold-search nil)
|
||||
(arg (or arg (prefix-numeric-value current-prefix-arg)))
|
||||
|
|
@ -351,9 +374,9 @@ Return value is nil or (beg end) of defun."
|
|||
(when success
|
||||
(forward-line 1) t)))
|
||||
|
||||
;; =====================================================================
|
||||
;; ===================================================================
|
||||
;; buffer object access
|
||||
;; =====================================================================
|
||||
;; ===================================================================
|
||||
|
||||
(defun sclang-symbol-at-point (&optional symbol-name-regexp)
|
||||
"Return the symbol at point, or nil if not a valid symbol.
|
||||
|
|
@ -394,9 +417,9 @@ A defun may either be a class definition or a code block, see
|
|||
(cl-multiple-value-bind (beg end) (sclang-point-in-defun-p)
|
||||
(and beg end (buffer-substring-no-properties beg end))))))
|
||||
|
||||
;; =====================================================================
|
||||
;; ===================================================================
|
||||
;; symbol completion
|
||||
;; =====================================================================
|
||||
;; ===================================================================
|
||||
|
||||
(defun sclang-complete-symbol (&optional predicate)
|
||||
"Perform completion on symbol preceding point.
|
||||
|
|
@ -471,9 +494,9 @@ are considered."
|
|||
:exclusive 'no
|
||||
:company-docsig #'identity)))
|
||||
|
||||
;; =====================================================================
|
||||
;; ===================================================================
|
||||
;; introspection
|
||||
;; =====================================================================
|
||||
;; ===================================================================
|
||||
|
||||
(defcustom sclang-definition-marker-ring-length 32
|
||||
"*Length of marker ring `sclang-definition-marker-ring'."
|
||||
|
|
@ -492,6 +515,7 @@ are considered."
|
|||
(make-ring sclang-definition-marker-ring-length))))
|
||||
|
||||
(defun sclang-open-definition (name file pos &optional pos-func)
|
||||
"Open definition NAME in FILE at POS (optionally POS-FUNC)."
|
||||
(let ((buffer (find-file file)))
|
||||
(when (bufferp buffer)
|
||||
(with-current-buffer buffer
|
||||
|
|
@ -512,6 +536,7 @@ are considered."
|
|||
(set-marker marker nil nil))))
|
||||
|
||||
(defun sclang-browse-definitions (name definitions buffer-name header &optional pos-func)
|
||||
"Browse definitions. NAME DEFINITIONS BUFFER-NAME HEADER (optionally POS-FUNC)."
|
||||
(if (cdr definitions)
|
||||
(let ((same-window-buffer-names (list buffer-name)))
|
||||
(with-sclang-browser
|
||||
|
|
@ -630,7 +655,7 @@ are considered."
|
|||
(sclang-message "No references to '%s'" name)))))
|
||||
|
||||
(defun sclang-show-method-args ()
|
||||
"whooha. in full effect."
|
||||
"Show method args."
|
||||
(interactive)
|
||||
(let ((regexp (concat
|
||||
sclang-class-name-regexp
|
||||
|
|
@ -683,9 +708,9 @@ are considered."
|
|||
class 'sclang-class-name-p t))))
|
||||
(sclang-eval-string (format "%s.dumpInterface" class)))
|
||||
|
||||
;; =====================================================================
|
||||
;; ===================================================================
|
||||
;; cscope interface
|
||||
;; =====================================================================
|
||||
;; ===================================================================
|
||||
|
||||
(defcustom sclang-source-directory nil
|
||||
"Toplevel SuperCollider source directory.
|
||||
|
|
@ -698,7 +723,7 @@ database."
|
|||
:options '(must-match))
|
||||
|
||||
(defun sclang-find-primitive (name)
|
||||
"Find primitive name a cscope database.
|
||||
"Find primitive NAME in a cscope database.
|
||||
|
||||
The database is searched in `sclang-source-directory', or the
|
||||
current-directory, iff `sclang-source-directoy' is nil."
|
||||
|
|
@ -708,23 +733,26 @@ current-directory, iff `sclang-source-directoy' is nil."
|
|||
nil nil default))))
|
||||
(if (require 'xcscope nil t)
|
||||
(let ((cscope-initial-directory sclang-source-directory))
|
||||
;; only fboundp when xcscope is loaded
|
||||
(cscope-find-this-text-string
|
||||
(if (string-match "^_" name) name (concat "_" name))))
|
||||
(sclang-message "cscope not available")))
|
||||
|
||||
;; =====================================================================
|
||||
;; ===================================================================
|
||||
;; sc-code formatting
|
||||
;; =====================================================================
|
||||
;; ===================================================================
|
||||
|
||||
(defun sclang-list-to-string (list)
|
||||
"Convert sclang LIST to string."
|
||||
(mapconcat 'sclang-object-to-string list ", "))
|
||||
|
||||
(defconst false 'false)
|
||||
(defconst sclang-false 'false)
|
||||
|
||||
(defun sclang-object-to-string (obj)
|
||||
"Convert sclang object OBJ to string."
|
||||
(cond ((null obj)
|
||||
"nil")
|
||||
((eq false obj)
|
||||
((eq sclang-false obj)
|
||||
"false")
|
||||
((eq t obj)
|
||||
"true")
|
||||
|
|
@ -735,7 +763,7 @@ current-directory, iff `sclang-source-directoy' is nil."
|
|||
(t (format "%S" obj))))
|
||||
|
||||
(defun sclang-format (string &rest args)
|
||||
"format chars:
|
||||
"Format STRING using ARGS.
|
||||
%s - print string
|
||||
%o - print object
|
||||
%l - print argument list"
|
||||
|
|
@ -798,7 +826,8 @@ want smart pattern guessing, use `sclang-format' directly to format your Pseq."
|
|||
(cl-decf i))))
|
||||
(cl-decf rep)))
|
||||
(accept-process-output nil 0 100)
|
||||
(message "Processed...%S" ret) ;; invent better progress info
|
||||
;; invent better progress info
|
||||
(message "Processed...%S" ret)
|
||||
(setq r (append r (list ret))
|
||||
items (nthcdr skip items))))
|
||||
r))
|
||||
|
|
@ -816,10 +845,10 @@ want smart pattern guessing, use `sclang-format' directly to format your Pseq."
|
|||
(mapconcat #'elem-to-string compressed ", ")
|
||||
" ], 1)")))))
|
||||
|
||||
;; =====================================================================
|
||||
;; ===================================================================
|
||||
;; module setup
|
||||
;; =====================================================================
|
||||
;; ===================================================================
|
||||
|
||||
(provide 'sclang-language)
|
||||
|
||||
;; EOF
|
||||
;;; sclang-language.el ends here
|
||||
|
|
|
|||
|
|
@ -1,5 +1,9 @@
|
|||
;; copyright 2003 stefan kersten <steve@k-hornz.de>
|
||||
;;; sclang-menu.el --- IDE for working with SuperCollider -*- coding: utf-8;
|
||||
;;
|
||||
;; Copyright 2003 stefan kersten <steve@k-hornz.de>
|
||||
|
||||
;;; License:
|
||||
|
||||
;; 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
|
||||
|
|
@ -15,9 +19,16 @@
|
|||
;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301
|
||||
;; USA
|
||||
|
||||
;;; Commentary:
|
||||
;; Menus
|
||||
|
||||
;;; Code:
|
||||
|
||||
;; (sclang-set-command-handler
|
||||
;; '_updateMenu
|
||||
;; (lambda (arg)
|
||||
;; (message "menu: %s" arg)))
|
||||
|
||||
(provide 'sclang-menu)
|
||||
|
||||
;;; sclang-menu.el ends here
|
||||
|
|
|
|||
|
|
@ -1,7 +1,9 @@
|
|||
;;; sclang-minor-mode for use in help files
|
||||
;;; SuperCollider
|
||||
;;; (c) 2007, Marije Baalman - nescivi <nescivi@gmail.com>
|
||||
;;;
|
||||
;;; sclang-minor-mode.el --- IDE for working with SuperCollider -*- coding: utf-8;
|
||||
;;
|
||||
;; Copyright (c) 2007, Marije Baalman - nescivi <nescivi@gmail.com>
|
||||
|
||||
;;; License:
|
||||
|
||||
;;; 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
|
||||
|
|
@ -16,6 +18,12 @@
|
|||
;;; along with this program; if not, write to the Free Software
|
||||
;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
|
||||
|
||||
|
||||
;;; Commentary:
|
||||
;;
|
||||
;; sclang-minor-mode for use in help files
|
||||
|
||||
;;; Code:
|
||||
(require 'sclang-util)
|
||||
(require 'sclang-mode)
|
||||
|
||||
|
|
@ -25,53 +33,55 @@ With no argument, this command toggles the mode.
|
|||
Non-null prefix argument turns on the mode.
|
||||
Null prefix argument turns off the mode.
|
||||
|
||||
When sclang-minor-mode is enabled, you can execute
|
||||
sclang code with the normal command C-c C-c and C-c C-d."
|
||||
When sclang-minor-mode is enabled, you can use the key sequences
|
||||
\\<sclang-minor-mode-map>\\[sclang-eval-region-or-line] or \\<sclang-minor-mode-map>\\[sclang-eval-region] to eval sclang code."
|
||||
;; The initial value.
|
||||
nil
|
||||
:init-value nil
|
||||
;; The indicator for the mode line.
|
||||
" sclang"
|
||||
:lighter " sclang"
|
||||
;; The minor mode bindings.
|
||||
'(("\C-c\C-c" . sclang-eval-region-or-line)
|
||||
:keymap '(("\C-c\C-c" . sclang-eval-region-or-line)
|
||||
("\C-c\C-d" . sclang-eval-region)
|
||||
("\C-\M-x" . sclang-eval-defun)
|
||||
("\C-c\C-h" . sclang-find-help)
|
||||
("\C-\M-h" . sclang-goto-help-browser)
|
||||
("\C-c\C-s" . sclang-main-stop)
|
||||
("\C-c\C-k" . sclang-edit-dev-source)
|
||||
))
|
||||
("\C-c\C-k" . sclang-edit-dev-source)))
|
||||
|
||||
(provide 'sclang-minor-mode)
|
||||
|
||||
|
||||
(easy-mmode-define-minor-mode sclang-help-minor-mode
|
||||
"Toggle sclang-minor-mode.
|
||||
With no argument, this command toggles the mode.
|
||||
Non-null prefix argument turns on the mode.
|
||||
Null prefix argument turns off the mode.
|
||||
|
||||
When sclang-help-minor-mode is enabled, you can execute
|
||||
sclang code with the normal command C-c C-c and C-c C-d."
|
||||
When sclang-help-minor-mode is enabled, you can use the key sequences
|
||||
\\<sclang-minor-mode-map>\\[sclang-eval-region-or-line] or \\<sclang-minor-mode-map>\\[sclang-eval-region] to eval sclang code."
|
||||
;; The initial value.
|
||||
nil
|
||||
:init-value nil
|
||||
;; The indicator for the mode line.
|
||||
" sclang-help"
|
||||
:lighter " sclang-help"
|
||||
;; The minor mode bindings.
|
||||
'(("\C-c\C-c" . sclang-eval-region-or-line)
|
||||
:keymap '(("\C-c\C-c" . sclang-eval-region-or-line)
|
||||
("\C-c\C-d" . sclang-eval-region)
|
||||
("\C-\M-x" . sclang-eval-defun)
|
||||
("\C-c\C-h" . sclang-find-help)
|
||||
("\C-c\C-s" . sclang-main-stop)
|
||||
("\C-c\C-v" . sclang-edit-html-help-file)
|
||||
("E" . sclang-edit-help-code)
|
||||
("\C-c\C-k" . sclang-edit-dev-source)
|
||||
))
|
||||
("\C-c\C-k" . sclang-edit-dev-source)))
|
||||
|
||||
(provide 'sclang-help-minor-mode)
|
||||
|
||||
;; mode hooks
|
||||
(defun sclang-minor-hooks ()
|
||||
"Sclang minor mode hooks."
|
||||
(sclang-init-document)
|
||||
(sclang-make-document))
|
||||
|
||||
(add-hook 'sclang-help-minor-mode-hook 'sclang-minor-hooks)
|
||||
(add-hook 'sclang-minor-mode-hook 'sclang-minor-hooks)
|
||||
|
||||
(defun sclang-minor-hooks ()
|
||||
(sclang-init-document)
|
||||
(sclang-make-document)
|
||||
)
|
||||
;;; sclang-minor-mode.el ends here
|
||||
|
|
|
|||
|
|
@ -1,5 +1,9 @@
|
|||
;; copyright 2003-2005 stefan kersten <steve@k-hornz.de>
|
||||
;;; sclang-mode.el --- IDE for working with SuperCollider -*- coding: utf-8;
|
||||
;;
|
||||
;; Copyright 2003 stefan kersten <steve@k-hornz.de>
|
||||
|
||||
;;; License:
|
||||
|
||||
;; 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
|
||||
|
|
@ -15,12 +19,14 @@
|
|||
;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301
|
||||
;; USA
|
||||
|
||||
;;; Code:
|
||||
|
||||
;;; Commentary:
|
||||
;; sclang mode
|
||||
|
||||
;;; Code:
|
||||
(require 'cl-lib)
|
||||
|
||||
;; Make byte-compiler happy by declaring external functions and
|
||||
;; variables.
|
||||
;; Keep byte-compiler happy by declaring external functions and variables.
|
||||
(declare-function company-mode "ext:company")
|
||||
(defvar company-backends)
|
||||
|
||||
|
|
@ -31,7 +37,7 @@
|
|||
(require 'sclang-dev)
|
||||
|
||||
(defun sclang-fill-syntax-table (table)
|
||||
;; string
|
||||
"Fill the sclang syntax TABLE."
|
||||
(modify-syntax-entry ?\" "\"" table)
|
||||
(modify-syntax-entry ?\' "\"" table) ; no string syntax class for single quotes
|
||||
;; expression prefix
|
||||
|
|
@ -75,10 +81,10 @@
|
|||
table)
|
||||
|
||||
(defun sclang-mode-make-menu (title)
|
||||
"Make mode menu with TITLE."
|
||||
(easy-menu-create-menu
|
||||
title
|
||||
'(
|
||||
["Start Interpreter" sclang-start :included (not (sclang-library-initialized-p))]
|
||||
'(["Start Interpreter" sclang-start :included (not (sclang-library-initialized-p))]
|
||||
["Restart Interpreter" sclang-start :included (sclang-library-initialized-p)]
|
||||
["Recompile Class Library" sclang-recompile :included (sclang-library-initialized-p)]
|
||||
["Stop Interpreter" sclang-stop :included (sclang-get-process)]
|
||||
|
|
@ -110,10 +116,12 @@
|
|||
"-"
|
||||
["Run Main" sclang-main-run]
|
||||
["Stop Main" sclang-main-stop]
|
||||
["Show Server Panels" sclang-show-server-panel]
|
||||
)))
|
||||
["Show Server Panels" sclang-show-server-panel])))
|
||||
|
||||
(defun sclang-fill-mode-map (map)
|
||||
"Fill keymap MAP for sclang mode."
|
||||
;; NOTE: keybindings should follow the conventions in https://www.gnu.org/software/emacs/manual/html_node/elisp/Key-Binding-Conventions.html
|
||||
|
||||
;; process control
|
||||
(define-key map "\C-c\C-l" 'sclang-recompile)
|
||||
(define-key map "\C-c\C-o" 'sclang-start)
|
||||
|
|
@ -137,10 +145,10 @@
|
|||
(define-key map "\C-c{" 'sclang-dump-full-interface)
|
||||
(define-key map "\C-c[" 'sclang-dump-interface)
|
||||
;; documentation access
|
||||
(define-key map "\C-c\C-h" 'sclang-find-help)
|
||||
(define-key map "\C-\M-h" 'sclang-goto-help-browser)
|
||||
(define-key map "\C-c\C-y" 'sclang-open-help-gui)
|
||||
(define-key map "\C-ch" 'sclang-find-help-in-gui)
|
||||
(define-key map "\C-c\C-?f" 'sclang-find-help)
|
||||
(define-key map "\C-c\C-?g" 'sclang-goto-help-browser)
|
||||
(define-key map "" 'sclang-open-help-gui)
|
||||
(define-key map "" 'sclang-find-help-in-gui)
|
||||
;; language control
|
||||
(define-key map "\C-c\C-r" 'sclang-main-run)
|
||||
(define-key map "\C-c\C-s" 'sclang-main-stop)
|
||||
|
|
@ -163,8 +171,7 @@
|
|||
;; =====================================================================
|
||||
|
||||
(defconst sclang-font-lock-keyword-list
|
||||
'(
|
||||
"arg"
|
||||
'("arg"
|
||||
"classvar"
|
||||
"const"
|
||||
"super"
|
||||
|
|
@ -174,22 +181,18 @@
|
|||
"thisMethod"
|
||||
"thisProcess"
|
||||
"thisThread"
|
||||
"var"
|
||||
)
|
||||
"var")
|
||||
"*List of keywords to highlight in SCLang mode.")
|
||||
|
||||
(defconst sclang-font-lock-builtin-list
|
||||
'(
|
||||
"false"
|
||||
'("false"
|
||||
"inf"
|
||||
"nil"
|
||||
"true"
|
||||
)
|
||||
"true")
|
||||
"*List of builtins to highlight in SCLang mode.")
|
||||
|
||||
(defconst sclang-font-lock-method-list
|
||||
'(
|
||||
"ar"
|
||||
'("ar"
|
||||
"for"
|
||||
"forBy"
|
||||
"if"
|
||||
|
|
@ -197,19 +200,16 @@
|
|||
"kr"
|
||||
"tr"
|
||||
"loop"
|
||||
"while"
|
||||
)
|
||||
"while")
|
||||
"*List of methods to highlight in SCLang mode.")
|
||||
|
||||
(defconst sclang-font-lock-error-list
|
||||
'(
|
||||
"die"
|
||||
'("die"
|
||||
"error"
|
||||
"exit"
|
||||
"halt"
|
||||
"verboseHalt"
|
||||
"warn"
|
||||
)
|
||||
"warn")
|
||||
"*List of methods signalling errors or warnings.")
|
||||
|
||||
(defvar sclang-font-lock-class-keywords nil)
|
||||
|
|
@ -229,14 +229,13 @@
|
|||
(defconst sclang-font-lock-defaults '((sclang-font-lock-keywords
|
||||
sclang-font-lock-keywords-1
|
||||
sclang-font-lock-keywords-2
|
||||
sclang-font-lock-keywords-3
|
||||
)
|
||||
sclang-font-lock-keywords-3)
|
||||
nil nil
|
||||
nil
|
||||
beginning-of-defun
|
||||
))
|
||||
beginning-of-defun))
|
||||
|
||||
(defun sclang-font-lock-syntactic-face (state)
|
||||
"Return font lock face for STATE."
|
||||
(cond ((eq (nth 3 state) ?')
|
||||
;; symbol
|
||||
'font-lock-constant-face)
|
||||
|
|
@ -248,6 +247,7 @@
|
|||
'font-lock-comment-face)))
|
||||
|
||||
(defun sclang-font-lock-class-keyword-matcher (limit)
|
||||
"Font lock class keywords up to LIMIT."
|
||||
(let ((regexp (concat "\\<" sclang-class-name-regexp "\\>"))
|
||||
(case-fold-search nil)
|
||||
(continue t)
|
||||
|
|
@ -264,6 +264,7 @@
|
|||
res))
|
||||
|
||||
(defun sclang-set-font-lock-keywords ()
|
||||
"Set font lock keywords."
|
||||
(setq
|
||||
;; level 1
|
||||
sclang-font-lock-keywords-1
|
||||
|
|
@ -279,8 +280,7 @@
|
|||
;; constants
|
||||
(cons "\\s/\\s\\?." 'font-lock-constant-face) ; characters
|
||||
(cons (concat "\\\\\\(" sclang-symbol-regexp "\\)")
|
||||
'font-lock-constant-face) ; symbols
|
||||
)
|
||||
'font-lock-constant-face)) ; symbols
|
||||
;; level 2
|
||||
sclang-font-lock-keywords-2
|
||||
(append
|
||||
|
|
@ -299,23 +299,19 @@
|
|||
'font-lock-function-name-face)
|
||||
;; errors
|
||||
(cons (regexp-opt sclang-font-lock-error-list 'words)
|
||||
'font-lock-warning-face)
|
||||
))
|
||||
'font-lock-warning-face)))
|
||||
;; level 3
|
||||
sclang-font-lock-keywords-3
|
||||
(append
|
||||
sclang-font-lock-keywords-2
|
||||
(list
|
||||
;; classes
|
||||
(cons 'sclang-font-lock-class-keyword-matcher 'font-lock-type-face)
|
||||
;; (cons (concat "\\<" sclang-class-name-regexp "\\>") 'font-lock-type-face)
|
||||
))
|
||||
(cons 'sclang-font-lock-class-keyword-matcher 'font-lock-type-face)))
|
||||
;; default level
|
||||
sclang-font-lock-keywords sclang-font-lock-keywords-1
|
||||
))
|
||||
sclang-font-lock-keywords sclang-font-lock-keywords-1))
|
||||
|
||||
(defun sclang-update-font-lock ()
|
||||
"Update font-lock information in all sclang-mode buffers."
|
||||
"Update font-lock information in all `sclang-mode' buffers."
|
||||
;; too expensive
|
||||
;; (dolist (buffer (buffer-list))
|
||||
;; (with-current-buffer buffer
|
||||
|
|
@ -323,7 +319,7 @@
|
|||
;; (eq t (car font-lock-keywords))
|
||||
;; (setq font-lock-keywords (cdr font-lock-keywords)))))
|
||||
(if (eq major-mode 'sclang-mode)
|
||||
(font-lock-fontify-buffer)))
|
||||
(font-lock-ensure (point-min) (point-max))))
|
||||
|
||||
;; =====================================================================
|
||||
;; indentation
|
||||
|
|
@ -337,7 +333,7 @@
|
|||
(defun sclang-indent-line ()
|
||||
"Indent current line as sclang code.
|
||||
Return the amount the indentation changed by."
|
||||
(let ((indent (calculate-sclang-indent))
|
||||
(let ((indent (sclang-calculate-indent))
|
||||
beg shift-amt
|
||||
(case-fold-search nil)
|
||||
(pos (- (point-max) (point))))
|
||||
|
|
@ -356,8 +352,8 @@ Return the amount the indentation changed by."
|
|||
(goto-char (- (point-max) pos))))
|
||||
shift-amt))
|
||||
|
||||
(defun calculate-sclang-indent (&optional parse-start)
|
||||
"Return appropriate indentation for current line as sclang code.
|
||||
(defun sclang-calculate-indent (&optional parse-start)
|
||||
"Return indentation for current line (optionally from PARSE-START).
|
||||
Returns the column to indent to."
|
||||
(save-excursion
|
||||
(beginning-of-line)
|
||||
|
|
@ -410,6 +406,7 @@ Returns the column to indent to."
|
|||
;; =====================================================================
|
||||
|
||||
(defun sclang-electric-brace (arg)
|
||||
"Electrify brace ARG."
|
||||
(interactive "*P")
|
||||
(self-insert-command (prefix-numeric-value arg))
|
||||
(and (save-excursion
|
||||
|
|
@ -418,6 +415,7 @@ Returns the column to indent to."
|
|||
(indent-according-to-mode)))
|
||||
|
||||
(defun sclang-electric-slash (arg)
|
||||
"Electrify slash ARG."
|
||||
(interactive "*P")
|
||||
(let* ((char (char-before))
|
||||
(indent-p (or (eq char ?/)
|
||||
|
|
@ -426,6 +424,7 @@ Returns the column to indent to."
|
|||
(if indent-p (indent-according-to-mode))))
|
||||
|
||||
(defun sclang-electric-star (arg)
|
||||
"Electrify star ARG."
|
||||
(interactive "*P")
|
||||
(let ((indent-p (eq (char-before) ?/)))
|
||||
(self-insert-command (prefix-numeric-value arg))
|
||||
|
|
@ -454,24 +453,30 @@ Returns the column to indent to."
|
|||
(sclang-document-edited-p . (prSetEdited (buffer-modified-p)))))
|
||||
|
||||
(defmacro sclang-next-document-id ()
|
||||
"Return next document id."
|
||||
`(cl-incf sclang-document-counter))
|
||||
|
||||
(defun sclang-document-id (buffer)
|
||||
"Document id of BUFFER."
|
||||
(cdr (assq 'sclang-document-id (buffer-local-variables buffer))))
|
||||
|
||||
(defun sclang-document-p (buffer)
|
||||
"Is BUFFER an sclang document?"
|
||||
(integerp (sclang-document-id buffer)))
|
||||
|
||||
(defmacro with-sclang-document (buffer &rest body)
|
||||
"With sclang BUFFER BODY."
|
||||
`(when (sclang-document-p buffer)
|
||||
(with-current-buffer buffer
|
||||
,@body)))
|
||||
|
||||
(defun sclang-get-document (id)
|
||||
"Return buffer with document ID or nil."
|
||||
(cl-find-if (lambda (buffer) (eq id (sclang-document-id buffer)))
|
||||
sclang-document-list))
|
||||
|
||||
(defun sclang-init-document ()
|
||||
"Initialize document."
|
||||
(set (make-local-variable 'sclang-document-id) (sclang-next-document-id))
|
||||
(set (make-local-variable 'sclang-document-envir) nil)
|
||||
(dolist (assoc sclang-document-property-map)
|
||||
|
|
@ -479,6 +484,7 @@ Returns the column to indent to."
|
|||
(cl-pushnew (current-buffer) sclang-document-list))
|
||||
|
||||
(defun sclang-document-update-property-1 (assoc &optional force)
|
||||
"Update document property ASSOC (optionally FORCE)."
|
||||
(when (consp assoc)
|
||||
(let* ((key (car assoc))
|
||||
(prop (cdr assoc))
|
||||
|
|
@ -491,17 +497,21 @@ Returns the column to indent to."
|
|||
(car prop) cur-value)))))
|
||||
|
||||
(defun sclang-document-update-property (key &optional force)
|
||||
"Update document property KEY (optionally FORCE)."
|
||||
(sclang-document-update-property-1 (assq key sclang-document-property-map) force))
|
||||
|
||||
(defun sclang-document-update-properties (&optional force)
|
||||
"Update all document properties (optionally FORCE)."
|
||||
(dolist (assoc sclang-document-property-map)
|
||||
(sclang-document-update-property-1 assoc force)))
|
||||
|
||||
(defun sclang-make-document ()
|
||||
"Make a new document."
|
||||
(sclang-perform-command-no-result 'documentNew sclang-document-id)
|
||||
(sclang-document-update-properties t))
|
||||
|
||||
(defun sclang-close-document (buffer)
|
||||
"Close document in BUFFER."
|
||||
(with-sclang-document
|
||||
buffer
|
||||
(setq sclang-document-list (delq buffer sclang-document-list))
|
||||
|
|
@ -509,27 +519,32 @@ Returns the column to indent to."
|
|||
'documentClosed sclang-document-id)))
|
||||
|
||||
(defun sclang-set-current-document (buffer &optional force)
|
||||
"Set current document to BUFFER (optionally FORCE)."
|
||||
(when (or force (not (eq buffer sclang-current-document)))
|
||||
(setq sclang-current-document buffer)
|
||||
(sclang-perform-command-no-result 'documentSetCurrent (sclang-document-id buffer))
|
||||
t))
|
||||
|
||||
(defun sclang-document-library-startup-hook-function ()
|
||||
"Document library startup hook."
|
||||
(dolist (buffer sclang-document-list)
|
||||
(with-current-buffer buffer
|
||||
(sclang-make-document)))
|
||||
(sclang-set-current-document (current-buffer) t))
|
||||
|
||||
(defun sclang-document-kill-buffer-hook-function ()
|
||||
"Document kill buffer hook."
|
||||
(sclang-close-document (current-buffer)))
|
||||
|
||||
(defun sclang-document-post-command-hook-function ()
|
||||
"Document post command hook."
|
||||
(when (and (sclang-library-initialized-p)
|
||||
(sclang-document-p (current-buffer)))
|
||||
(sclang-document-update-properties))
|
||||
(sclang-set-current-document (current-buffer)))
|
||||
|
||||
(defun sclang-document-change-major-mode-hook-function ()
|
||||
"Document change major mode hook."
|
||||
(sclang-close-document (current-buffer)))
|
||||
|
||||
;; =====================================================================
|
||||
|
|
@ -605,8 +620,7 @@ Returns the column to indent to."
|
|||
(let ((doc (and (integerp id) (sclang-get-document id))))
|
||||
(when doc
|
||||
(with-current-buffer doc
|
||||
(insert str)
|
||||
)
|
||||
(insert str))
|
||||
nil)))))
|
||||
|
||||
(sclang-set-command-handler
|
||||
|
|
@ -621,6 +635,7 @@ Returns the column to indent to."
|
|||
;; =====================================================================
|
||||
|
||||
(defun sclang-mode-set-local-variables ()
|
||||
"Local variables."
|
||||
(set (make-local-variable 'require-final-newline) nil)
|
||||
;; indentation
|
||||
(set (make-local-variable 'indent-line-function)
|
||||
|
|
@ -700,4 +715,5 @@ Returns the column to indent to."
|
|||
(add-hook 'change-major-mode-hook 'sclang-document-change-major-mode-hook-function)
|
||||
|
||||
(provide 'sclang-mode)
|
||||
;;; sclang-mode ends here
|
||||
|
||||
;;; sclang-mode.el ends here
|
||||
|
|
|
|||
|
|
@ -1,5 +1,9 @@
|
|||
;; copyright 2003-2005 stefan kersten <steve@k-hornz.de>
|
||||
;;; sclang-server.el --- IDE for working with SuperCollider -*- coding: utf-8;
|
||||
;;
|
||||
;; Copyright 2003 stefan kersten <steve@k-hornz.de>
|
||||
|
||||
;;; License:
|
||||
|
||||
;; 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
|
||||
|
|
@ -15,12 +19,18 @@
|
|||
;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301
|
||||
;; USA
|
||||
|
||||
|
||||
;;; Commentary:
|
||||
;; Interface to the sclang server
|
||||
|
||||
(require 'cl-lib)
|
||||
(require 'sclang-util)
|
||||
(require 'sclang-interp)
|
||||
(require 'sclang-language)
|
||||
(require 'sclang-mode)
|
||||
|
||||
;;; Code:
|
||||
|
||||
(defcustom sclang-server-panel "Server.default.makeWindow"
|
||||
"Expression to execute when `sclang-show-server-panel' is invoked."
|
||||
:group 'sclang-interface
|
||||
|
|
@ -47,10 +57,12 @@
|
|||
"Face for highlighting a server's running state in the mode-line.")
|
||||
|
||||
(defun sclang-get-server (&optional name)
|
||||
"Get sclang server (optionally by NAME)."
|
||||
(unless name (setq name sclang-current-server))
|
||||
(cdr (assq name sclang-server-alist)))
|
||||
|
||||
(defun sclang-set-server (&optional name)
|
||||
"Set current sclang server (optionally by NAME)."
|
||||
(unless name (setq name sclang-current-server))
|
||||
(setq sclang-current-server
|
||||
(car (or (assq name sclang-server-alist)
|
||||
|
|
@ -79,18 +91,21 @@
|
|||
(setq sclang-current-server (car (car list))))
|
||||
(sclang-update-server-info))
|
||||
|
||||
(defun sclang-mouse-next-server (event)
|
||||
(defun sclang-mouse-next-server (_event)
|
||||
"Select next server for display."
|
||||
(interactive "e")
|
||||
(sclang-next-server))
|
||||
|
||||
(defun sclang-server-running-p (&optional name)
|
||||
"Is the sclang server NAME running?"
|
||||
(plist-get (sclang-get-server name) 'running))
|
||||
|
||||
(defun sclang-server-booting-p (&optional name)
|
||||
"Is the sclang server NAME running?"
|
||||
(plist-get (sclang-get-server name) 'booting))
|
||||
|
||||
(defun sclang-create-server-menu (title)
|
||||
"Create the server menu with TITLE."
|
||||
(easy-menu-create-menu
|
||||
title
|
||||
'(
|
||||
|
|
@ -101,6 +116,7 @@
|
|||
["Make Default" sclang-server-make-default])))
|
||||
|
||||
(defun sclang-server-fill-mouse-map (map prefix)
|
||||
"Fill mouse MAP using PREFIX."
|
||||
(define-key map (vector prefix 'mouse-1) 'sclang-mouse-next-server)
|
||||
(define-key map (vector prefix 'down-mouse-3) (sclang-create-server-menu "Commands"))
|
||||
map)
|
||||
|
|
@ -109,7 +125,7 @@
|
|||
"Keymap used for controlling servers in the mode line.")
|
||||
|
||||
(defun sclang-server-fill-key-map (map)
|
||||
"Fill server prefix map."
|
||||
"Fill server keymap MAP."
|
||||
(define-key map [?b] 'sclang-server-boot)
|
||||
(define-key map [?d] 'sclang-server-display-default)
|
||||
(define-key map [?f] 'sclang-server-free-all)
|
||||
|
|
@ -154,6 +170,7 @@
|
|||
"Info string used in the post buffer mode line.")
|
||||
|
||||
(defun sclang-update-server-info ()
|
||||
"Update server info in the modeline."
|
||||
(interactive)
|
||||
(sclang-set-server)
|
||||
(setq sclang-server-info-string (sclang-get-server-info-string))
|
||||
|
|
@ -164,8 +181,10 @@
|
|||
;; =====================================================================
|
||||
|
||||
(defun sclang-perform-server-command (command &rest args)
|
||||
"Perform server COMMAND with ARGS."
|
||||
(sclang-eval-string
|
||||
(sclang-format "Server.named.at(%o.asSymbol).performList(\\tryPerform, %o.asSymbol.asArray ++ %o)"
|
||||
(sclang-format
|
||||
"Server.named.at(%o.asSymbol).performList(\\tryPerform, %o.asSymbol.asArray ++ %o)"
|
||||
sclang-current-server command args)
|
||||
nil))
|
||||
|
||||
|
|
@ -213,7 +232,7 @@ if (server.notNil) {
|
|||
nil))
|
||||
|
||||
(defun sclang-server-dump-osc (&optional code)
|
||||
"Set the current server's dump OSC mode."
|
||||
"Set the current server's dump OSC mode (with optional CODE)."
|
||||
(interactive "P")
|
||||
(sclang-perform-server-command "dumpOSC"
|
||||
(cond ((consp code) 0)
|
||||
|
|
@ -221,7 +240,7 @@ if (server.notNil) {
|
|||
(t code))))
|
||||
|
||||
(defun sclang-server-prepare-for-record (&optional path)
|
||||
"Prepare current server for recording a sound file."
|
||||
"Prepare current server for recording a sound file (with optional PATH)."
|
||||
(interactive
|
||||
(list
|
||||
(and current-prefix-arg (read-file-name "Record to file: "))))
|
||||
|
|
@ -242,10 +261,10 @@ if (server.notNil) {
|
|||
(interactive)
|
||||
(sclang-perform-server-command "stopRecording"))
|
||||
|
||||
(defun sclang-set-server-latency (lat)
|
||||
"Set the current server's `latency' instance variable."
|
||||
(defun sclang-set-server-latency (latency)
|
||||
"Set the current server's LATENCY instance variable."
|
||||
(interactive "nSet latency: ")
|
||||
(sclang-perform-server-command "latency_" lat))
|
||||
(sclang-perform-server-command "latency_" latency))
|
||||
|
||||
(defun sclang-show-server-latency ()
|
||||
"Show the current server's latency."
|
||||
|
|
@ -274,6 +293,7 @@ if (server.notNil) {
|
|||
(lambda ()
|
||||
(setq sclang-current-server-initialized nil)))
|
||||
|
||||
|
||||
(provide 'sclang-server)
|
||||
|
||||
;; EOF
|
||||
;;; sclang-server.el ends here
|
||||
|
|
|
|||
|
|
@ -1,7 +1,9 @@
|
|||
;;; package: sclang-util --- Utility helpers for sclang
|
||||
;;
|
||||
;; copyright 2003-2005 stefan kersten <steve@k-hornz.de>
|
||||
;;; sclang-util.el --- Utility helpers for sclang -*- coding: utf-8;
|
||||
;;
|
||||
;; Copyright 2003-2005 stefan kersten <steve@k-hornz.de>
|
||||
|
||||
;;; License:
|
||||
|
||||
;; 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
|
||||
|
|
@ -17,13 +19,20 @@
|
|||
;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301
|
||||
;; USA
|
||||
|
||||
;;; Commentary:
|
||||
;; Utility helpers for sclang
|
||||
|
||||
;;; Code:
|
||||
(defun sclang-message (string &rest args)
|
||||
"Create a message from STRING with optional ARGS."
|
||||
(message "SCLang: %s" (apply 'format string args)))
|
||||
|
||||
(defun sclang-make-buffer-name (string &optional private-p)
|
||||
(concat (and private-p " ") "*SCLang:" string "*"))
|
||||
(defun sclang-make-buffer-name (name &optional private-p)
|
||||
"Set the buffer name to NAME (optimally PRIVATE-P)."
|
||||
(concat (and private-p " ") "*SCLang:" name "*"))
|
||||
|
||||
(defun sclang-make-prompt-string (prompt default)
|
||||
"Return a prompt string using PROMPT and DEFAULT."
|
||||
(if (and default (string-match "\\(:\\)\\s *" prompt))
|
||||
(replace-match
|
||||
(format " (default %s):" default)
|
||||
|
|
@ -31,22 +40,23 @@
|
|||
prompt))
|
||||
|
||||
(defun sclang-string-to-int32 (str)
|
||||
"Convert first 4 bytes of str (network byteorder) to 32 bit integer."
|
||||
(logior (lsh (logand (aref str 0) #XFF) 24)
|
||||
(lsh (logand (aref str 1) #XFF) 16)
|
||||
(lsh (logand (aref str 2) #XFF) 8)
|
||||
"Convert first 4 bytes of STR (network byteorder) to 32 bit integer."
|
||||
(logior (ash (logand (aref str 0) #XFF) 24)
|
||||
(ash (logand (aref str 1) #XFF) 16)
|
||||
(ash (logand (aref str 2) #XFF) 8)
|
||||
(logand (aref str 3) #XFF)))
|
||||
|
||||
(defun sclang-int32-to-string (n)
|
||||
"Convert 32 bit integer n to 4 byte string (network byte order)."
|
||||
"Convert 32 bit integer N to 4 byte string (network byte order)."
|
||||
(let ((str (make-string 4 0)))
|
||||
(aset str 0 (logand (lsh n -24) #XFF))
|
||||
(aset str 1 (logand (lsh n -16) #XFF))
|
||||
(aset str 2 (logand (lsh n -8) #XFF))
|
||||
(aset str 0 (logand (ash n -24) #XFF))
|
||||
(aset str 1 (logand (ash n -16) #XFF))
|
||||
(aset str 2 (logand (ash n -8) #XFF))
|
||||
(aset str 3 (logand n #XFF))
|
||||
str))
|
||||
|
||||
(defun sclang-compress-newlines (&optional buffer)
|
||||
"Compress newlines (optionally in BUFFER)."
|
||||
(with-current-buffer (or buffer (current-buffer))
|
||||
(save-excursion
|
||||
(goto-char (point-min))
|
||||
|
|
|
|||
|
|
@ -35,4 +35,5 @@
|
|||
Bound only when library is installed with SuperCollider.")
|
||||
|
||||
(provide 'sclang-vars)
|
||||
|
||||
;;; sclang-vars.el ends here
|
||||
|
|
|
|||
|
|
@ -1,9 +1,8 @@
|
|||
;;; sclang-widgets.el --- Widget definitions for SCLang
|
||||
;;; sclang-widgets.el --- Widget definitions for SCLang -*- coding: utf-8; lexical-binding: t -*-
|
||||
|
||||
;; Copyright (C) 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Mario Lang <mlang@blind.guru>
|
||||
;; Keywords: comm
|
||||
|
||||
;; This file is free software; you can redistribute it and/or modify
|
||||
;; it under the terms of the GNU General Public License as published by
|
||||
|
|
@ -21,8 +20,8 @@
|
|||
;; Boston, MA 02110-1301, USA.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;
|
||||
;; Widget definitions for SCLang
|
||||
|
||||
;;; Code:
|
||||
|
||||
|
|
@ -31,6 +30,9 @@
|
|||
(require 'sclang-language)
|
||||
(require 'sclang-interp)
|
||||
|
||||
(require 'widget)
|
||||
(require 'wid-edit)
|
||||
|
||||
(defvar sclang-widgets nil)
|
||||
(make-variable-buffer-local 'sclang-widgets)
|
||||
|
||||
|
|
@ -46,13 +48,13 @@
|
|||
(widget-specify-insert
|
||||
(let ((from (point))
|
||||
button-begin button-end)
|
||||
(setq button-begin (point))
|
||||
(setq button-begin from)
|
||||
(insert (widget-get-indirect widget :button-prefix))
|
||||
|
||||
(princ (nth (widget-get widget :value) (widget-get widget :states)) (current-buffer))
|
||||
|
||||
(insert (widget-get-indirect widget :button-suffix))
|
||||
(setq button-end (point))
|
||||
(setq button-end from)
|
||||
|
||||
;; Specify button, and insert value.
|
||||
(and button-begin button-end
|
||||
|
|
@ -65,7 +67,8 @@
|
|||
(widget-put widget :to to)))
|
||||
(widget-clear-undo))
|
||||
|
||||
(defun sclang-widget-button-action (widget event)
|
||||
(defun sclang-widget-button-action (widget _event)
|
||||
"Set button action for WIDGET."
|
||||
(widget-value-set widget
|
||||
(if (>= (widget-get widget :value) (1- (length (widget-get widget :states))))
|
||||
0
|
||||
|
|
@ -103,7 +106,7 @@
|
|||
(let ((from (point))
|
||||
(inhibit-redisplay t)
|
||||
button-begin button-end)
|
||||
(setq button-begin (point))
|
||||
(setq button-begin from)
|
||||
(insert (widget-get-indirect widget :button-prefix))
|
||||
|
||||
(insert-char ?- (widget-get widget :size))
|
||||
|
|
@ -125,6 +128,7 @@
|
|||
(widget-clear-undo))
|
||||
|
||||
(defun sclang-widget-slider-value-set (widget value)
|
||||
"Set slider WIDGET to VALUE."
|
||||
(save-excursion
|
||||
(let ((inhibit-read-only t))
|
||||
(goto-char (widget-get widget :from))
|
||||
|
|
@ -145,6 +149,7 @@
|
|||
:dynargs #'sclang-widget-class-tree-dynargs)
|
||||
|
||||
(defun sclang-widget-class-tree-dynargs (widget)
|
||||
"Class tree WIDGET."
|
||||
(sclang-eval-sync (sclang-format "EmacsClassTree.dynargs(%o)"
|
||||
(widget-get widget :tag))))
|
||||
|
||||
|
|
@ -161,5 +166,7 @@
|
|||
(list (sclang-read-symbol "Class: " "Object" #'sclang-class-name-p)))
|
||||
(sclang-eval-string (format "EmacsClassBrowser(%s)" class-name)))
|
||||
|
||||
|
||||
(provide 'sclang-widgets)
|
||||
|
||||
;;; sclang-widgets.el ends here
|
||||
|
|
|
|||
28
el/sclang.el
28
el/sclang.el
|
|
@ -1,8 +1,15 @@
|
|||
;;; 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
|
||||
;;; sclang.el --- IDE for working with SuperCollider -*- coding: utf-8; lexical-binding: t -*-
|
||||
;;
|
||||
;; Copyright 2003 stefan kersten <steve@k-hornz.de>
|
||||
;;
|
||||
;; Author: stefan kersten
|
||||
;; Keywords: supercollider, multimedia, languages, tools
|
||||
;; Version: 1.1.0
|
||||
;; Package-Requires: ((emacs "27.1") (w3m "0.0"))
|
||||
;; URL: https://github.com/supercollider/scel
|
||||
|
||||
;;; License:
|
||||
|
||||
;; 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
|
||||
|
|
@ -24,8 +31,19 @@
|
|||
;; 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.
|
||||
;;
|
||||
;; Recent versions of w3m use tab-line which is only available after 27.1
|
||||
;; However sclang should work on Emacs 26.3 to 27.1 without the help browser.
|
||||
|
||||
;;; Credits:
|
||||
;;
|
||||
;; stefan kersten <steve@k-hornz.de>
|
||||
;; and everyone in...
|
||||
;; git shortlog -s | sort -r | cut -c8-
|
||||
|
||||
|
||||
;;; Code:
|
||||
|
||||
(defgroup sclang nil
|
||||
"IDE for working with the SuperCollider language."
|
||||
:group 'languages)
|
||||
|
|
@ -43,7 +61,7 @@
|
|||
:group 'sclang)
|
||||
|
||||
(defgroup sclang-programs nil
|
||||
"Paths to programs used by sclang-mode."
|
||||
"Paths to programs used by `sclang-mode'."
|
||||
:group 'sclang-interface)
|
||||
|
||||
(defgroup sclang-options nil
|
||||
|
|
|
|||
Loading…
Reference in a new issue