1 ;;; mudela-mode.el --- Major mode for editing Mudela programs
4 ;; Copyright (C) 1992,1993,1994 Tim Peters
6 ;; Author: 1997: Han-Wen Nienhuys
7 ;; Author: 1995-1996 Barry A. Warsaw
8 ;; 1992-1994 Tim Peters
11 ;; Last Modified: 12SEP97
12 ;; Keywords: mudela languages music
14 ;; This software is provided as-is, without express or implied
15 ;; warranty. Permission to use, copy, modify, distribute or sell this
16 ;; software, without fee, for any purpose and by any individual or
17 ;; organization, is hereby granted, provided that the above copyright
18 ;; notice and this paragraph appear in all copies.
22 ;; Kyrie Eleison; it is my first real Elisp file
23 ;; This is a cannabalised version of python-mode.el (HWN)
26 ;; * should handle block comments too.
27 ;; * handle lexer modes (\header, \melodic, \lyric) etc.
30 ;; * fontlock: \melodic \melodic
33 (defconst mudela-font-lock-keywords
34 (let* ((keywords '("spanrequest" "simultaneous" "sequential" "accepts"
35 "alternative" "bar" "breathe"
36 "cadenza" "chordmodifiers" "chords" "clef" "cm" "consists"
37 "consistsend" "context"
38 "duration" "font" "grace" "header" "in" "lyrics"
39 "key" "keysignature" "mark" "musicalpitch"
40 "time" "times" "midi" "mm" "name" "notenames"
41 "notes" "partial" "paper" "penalty" "property" "pt"
42 "relative" "remove" "repeat" "repetitions" "addlyrics"
43 "scm" "scmfile" "score" "script"
44 "shape" "skip" "textscript" "tempo" "translator" "transpose"
47 (kwregex (mapconcat (lambda (x) (concat "\\\\" x)) keywords "\\|")))
50 (concat ".\\(" kwregex "\\)[^a-zA-Z]")
51 (concat "^\\(" kwregex "\\)[^a-zA-Z]")
52 '(".\\(\\\\[a-zA-Z][a-zA-Z]*\\)" 1 font-lock-variable-name-face)
53 '("^[\t ]*\\([a-zA-Z][_a-zA-Z]*\\) *=" 1 font-lock-variable-name-face)
55 "Additional expressions to highlight in Mudela mode.")
57 ;; define a mode-specific abbrev table for those who use such things
58 (defvar mudela-mode-abbrev-table nil
59 "Abbrev table in use in `mudela-mode' buffers.")
61 (define-abbrev-table 'mudela-mode-abbrev-table nil)
63 (defvar mudela-mode-hook nil
64 "*Hook called by `mudela-mode'.")
66 (defvar mu-mode-map ()
67 "Keymap used in `mudela-mode' buffers.")
69 (defun mu-newline-and-indent ()
72 (indent-relative-maybe)
73 "Newline and copy previous indentation")
77 (setq mu-mode-map (make-sparse-keymap))
79 (mapcar (function (lambda (key)
81 mu-mode-map key 'mu-newline-and-indent)))
82 (where-is-internal 'newline-and-indent))
86 (define-key mu-mode-map (car x) (cdr x))))
87 '(("\C-c\C-c" . mu-foo-bar)
89 ;; should do all keybindings this way
90 (define-key mu-mode-map [RET] 'mu-newline-and-indent)
93 (defvar mu-mode-syntax-table nil
94 "Syntax table used in `mudela-mode' buffers.")
97 (if mu-mode-syntax-table
99 (setq mu-mode-syntax-table (make-syntax-table))
101 (lambda (x) (modify-syntax-entry
102 (car x) (cdr x) mu-mode-syntax-table)))
103 '(( ?\( . "." ) ( ?\) . "." )
104 ( ?\[ . "." ) ( ?\] . "." )
105 ( ?\{ . "(}" ) ( ?\} . "){" )
106 ( ?\< . "(>" )( ?\> . ")>")
107 ( ?\$ . "." ) ( ?\% . "." ) ( ?\& . "." )
108 ( ?\* . "." ) ( ?\+ . "." ) ( ?\- . "." )
109 ( ?\/ . "." ) ( ?\= . "." )
110 ( ?\| . "." ) (?\\ . "\\" )
124 (defconst mu-blank-or-comment-re "[ \t]*\\($\\|%\\)"
125 "Regexp matching blank or comment lines.")
127 (defconst mu-imenu-generic-re "^\\([a-zA-Z_][a-zA-Z0-9_]*\\) *="
128 "Regexp matching Identifier definitions.")
130 ;; Sadly we need this for a macro in Emacs 19.
132 ;; Imenu isn't used in XEmacs, so just ignore load errors.
137 (defvar mu-imenu-generic-expression
138 (list (list nil mu-imenu-generic-re 1))
139 "Expression for imenu")
141 (defun mudela-mode ()
142 "Major mode for editing Mudela files."
145 ;; set up local variables
146 (kill-all-local-variables)
147 (make-local-variable 'font-lock-defaults)
148 (make-local-variable 'paragraph-separate)
149 (make-local-variable 'paragraph-start)
150 (make-local-variable 'require-final-newline)
151 (make-local-variable 'comment-start)
152 (make-local-variable 'block-comment-start)
153 (make-local-variable 'block-comment-end)
155 (setq comment-end "\n"
157 comment-start-skip "%{? *"
158 block-comment-start "%{"
159 block-comment-end "%}"
161 (make-local-variable 'comment-end)
162 (make-local-variable 'comment-start-skip)
163 (setq comment-start-skip "%{") ;??
164 (make-local-variable 'comment-column)
165 (make-local-variable 'imenu-generic-expression)
166 (setq imenu-generic-expression mu-imenu-generic-expression)
167 (make-local-variable 'indent-line-function)
170 (set-syntax-table mu-mode-syntax-table)
171 (setq major-mode 'mudela-mode
173 local-abbrev-table mudela-mode-abbrev-table
174 font-lock-defaults '(mudela-font-lock-keywords)
175 paragraph-separate "^[ \t]*$"
176 paragraph-start "^[ \t]*$"
177 require-final-newline t
179 indent-line-function 'indent-relative-maybe
181 (use-local-map mu-mode-map)
183 ;; run the mode hook. mu-mode-hook use is deprecated
184 (run-hooks 'mudela-mode-hook)
188 (defun mu-keep-region-active ()
189 ;; do whatever is necessary to keep the region active in XEmacs.
190 ;; Ignore byte-compiler warnings you might see. Also note that
191 ;; FSF's Emacs 19 does it differently and doesn't its policy doesn't
192 ;; require us to take explicit action.
193 (and (boundp 'zmacs-region-stays)
194 (setq zmacs-region-stays t)))
197 (defun mu-comment-region (beg end &optional arg)
198 "Like `comment-region' but uses double hash (`#') comment starter."
200 (let ((comment-start mu-block-comment-prefix))
201 (comment-region beg end arg)))
203 (defconst mu-version "0.0.1"
204 "`mudela-mode' version number.")
205 (defconst mu-help-address "hanwen@cs.uu.nl"
206 "Address accepting submission of bug reports.")
209 "Echo the current version of `mudela-mode' in the minibuffer."
211 (message "Using `mudela-mode' version %s" mu-version)
212 (mu-keep-region-active))
215 ;;; mudela-mode.el ends here