206 |
|
|
207 |
(require 'calc-macs) |
(require 'calc-macs) |
208 |
|
|
209 |
|
(defgroup calc nil |
210 |
|
"GNU Calc" |
211 |
|
:prefix "calc-" |
212 |
|
:tag "Calc") |
213 |
|
|
214 |
;;;###autoload |
;;;###autoload |
215 |
(defvar calc-settings-file (convert-standard-filename "~/.calc.el") |
(defcustom calc-settings-file |
216 |
"*File in which to record permanent settings.") |
(convert-standard-filename "~/.calc.el") |
217 |
|
"*File in which to record permanent settings." |
218 |
|
:group 'calc |
219 |
|
:type '(file)) |
220 |
|
|
221 |
|
(defcustom calc-language-alist |
222 |
|
'((latex-mode . latex) |
223 |
|
(tex-mode . tex) |
224 |
|
(plain-tex-mode . tex) |
225 |
|
(context-mode . tex) |
226 |
|
(nroff-mode . eqn) |
227 |
|
(pascal-mode . pascal) |
228 |
|
(c-mode . c) |
229 |
|
(c++-mode . c) |
230 |
|
(fortran-mode . fortran) |
231 |
|
(f90-mode . fortran)) |
232 |
|
"*Alist of major modes with appropriate Calc languages." |
233 |
|
:group 'calc |
234 |
|
:type '(alist :key-type symbol :value-type symbol)) |
235 |
|
|
236 |
|
(defcustom calc-embedded-announce-formula |
237 |
|
"%Embed\n\\(% .*\n\\)*" |
238 |
|
"*A regular expression which is sure to be followed by a calc-embedded formula." |
239 |
|
:group 'calc |
240 |
|
:type '(regexp)) |
241 |
|
|
242 |
|
(defcustom calc-embedded-open-formula |
243 |
|
"\\`\\|^\n\\|\\$\\$?\\|\\\\\\[\\|^\\\\begin[^{].*\n\\|^\\\\begin{.*[^x]}.*\n\\|^@.*\n\\|^\\.EQ.*\n\\|\\\\(\\|^%\n\\|^\\.\\\\\"\n" |
244 |
|
"*A regular expression for the opening delimiter of a formula used by calc-embedded." |
245 |
|
:group 'calc |
246 |
|
:type '(regexp)) |
247 |
|
|
248 |
|
(defcustom calc-embedded-close-formula |
249 |
|
"\\'\\|\n$\\|\\$\\$?\\|\\\\]\\|^\\\\end[^{].*\n\\|^\\\\end{.*[^x]}.*\n\\|^@.*\n\\|^\\.EN.*\n\\|\\\\)\\|\n%\n\\|^\\.\\\\\"\n" |
250 |
|
"*A regular expression for the closing delimiter of a formula used by calc-embedded." |
251 |
|
:group 'calc |
252 |
|
:type '(regexp)) |
253 |
|
|
254 |
|
(defcustom calc-embedded-open-word |
255 |
|
"^\\|[^-+0-9.eE]" |
256 |
|
"*A regular expression for the opening delimiter of a formula used by calc-embedded-word." |
257 |
|
:group 'calc |
258 |
|
:type '(regexp)) |
259 |
|
|
260 |
|
(defcustom calc-embedded-close-word |
261 |
|
"$\\|[^-+0-9.eE]" |
262 |
|
"*A regular expression for the closing delimiter of a formula used by calc-embedded-word." |
263 |
|
:group 'calc |
264 |
|
:type '(regexp)) |
265 |
|
|
266 |
|
(defcustom calc-embedded-open-plain |
267 |
|
"%%% " |
268 |
|
"*A string which is the opening delimiter for a \"plain\" formula. |
269 |
|
If calc-show-plain mode is enabled, this is inserted at the front of |
270 |
|
each formula." |
271 |
|
:group 'calc |
272 |
|
:type '(string)) |
273 |
|
|
274 |
|
(defcustom calc-embedded-close-plain |
275 |
|
" %%%\n" |
276 |
|
"*A string which is the closing delimiter for a \"plain\" formula. |
277 |
|
See calc-embedded-open-plain." |
278 |
|
:group 'calc |
279 |
|
:type '(string)) |
280 |
|
|
281 |
|
(defcustom calc-embedded-open-new-formula |
282 |
|
"\n\n" |
283 |
|
"*A string which is inserted at front of formula by calc-embedded-new-formula." |
284 |
|
:group 'calc |
285 |
|
:type '(string)) |
286 |
|
|
287 |
|
(defcustom calc-embedded-close-new-formula |
288 |
|
"\n\n" |
289 |
|
"*A string which is inserted at end of formula by calc-embedded-new-formula." |
290 |
|
:group 'calc |
291 |
|
:type '(string)) |
292 |
|
|
293 |
|
(defcustom calc-embedded-open-mode |
294 |
|
"% " |
295 |
|
"*A string which should precede calc-embedded mode annotations. |
296 |
|
This is not required to be present for user-written mode annotations." |
297 |
|
:group 'calc |
298 |
|
:type '(string)) |
299 |
|
|
300 |
|
(defcustom calc-embedded-close-mode |
301 |
|
"\n" |
302 |
|
"*A string which should follow calc-embedded mode annotations. |
303 |
|
This is not required to be present for user-written mode annotations." |
304 |
|
:group 'calc |
305 |
|
:type '(string)) |
306 |
|
|
307 |
|
(defcustom calc-gnuplot-name |
308 |
|
"gnuplot" |
309 |
|
"*Name of GNUPLOT program, for calc-graph features." |
310 |
|
:group 'calc |
311 |
|
:type '(string)) |
312 |
|
|
313 |
|
(defcustom calc-gnuplot-plot-command |
314 |
|
nil |
315 |
|
"*Name of command for displaying GNUPLOT output; %s = file name to print." |
316 |
|
:group 'calc |
317 |
|
:type '(choice (string) (sexp))) |
318 |
|
|
319 |
|
(defcustom calc-gnuplot-print-command |
320 |
|
"lp %s" |
321 |
|
"*Name of command for printing GNUPLOT output; %s = file name to print." |
322 |
|
:group 'calc |
323 |
|
:type '(choice (string) (sexp))) |
324 |
|
|
325 |
(defvar calc-bug-address "belanger@truman.edu" |
(defvar calc-bug-address "belanger@truman.edu" |
326 |
"Address of the author of Calc, for use by `report-calc-bug'.") |
"Address of the author of Calc, for use by `report-calc-bug'.") |