?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Added EmacsConfigurationAndHelp directory
[temp.git] / site-lisp / gnuplot-gui.el
blob85520505db2108d264caee5be77fb2e7406911b1
1 ;;;; gnuplot-gui.el -- GUI interface to setting options in gnuplot-mode
2
3 ;; Copyright (C) 1998-2000 Bruce Ravel
4
5 ;; Author: Bruce Ravel <ravel@phys.washington.edu>
6 ;; Maintainer: Bruce Ravel <ravel@phys.washington.edu>
7 ;; Created: 19 December 1998
8 ;; Updated: 16 November 2000
9 ;; Version: (same as gnuplot.el)
10 ;; Keywords: gnuplot, plotting, interactive, GUI
11
12 ;; This file is not part of GNU Emacs.
13
14 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
15 ;; This program is free software; you can redistribute it and/or modify
16 ;; it under the terms of the GNU General Public License as published by
17 ;; the Free Software Foundation; either version 2, or (at your option)
18 ;; any later version.
19 ;;
20 ;; This lisp script is distributed in the hope that it will be useful,
21 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
22 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
23 ;;
24 ;; Permission is granted to distribute copies of this lisp script
25 ;; provided the copyright notice and this permission are preserved in
26 ;; all copies.
27 ;;
28 ;; You should have received a copy of the GNU General Public License
29 ;; along with this program; if not, you can either send email to this
30 ;; program's maintainer or write to: The Free Software Foundation,
31 ;; Inc.; 675 Massachusetts Avenue; Cambridge, MA 02139, USA.
32 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
33 ;; send bug reports to the authors (ravel@phys.washington.edu)
34 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
35 ;;
36 ;;; Commentary:
37 ;;
38 ;; This file provides a graphical user interface to setting arguments
39 ;; to gnuplot commands. Positioning point near a command and invoking
40 ;; `gnuplot-gui-set-options-and-insert' (C-c C-c or shift-mouse-2)
41 ;; will pop open a frame with widgets for setting the various
42 ;; arguments appropriate the the item that was near point. The goal
43 ;; is to provide point-and-click functionality to gnuplot-mode.
44 ;;
45 ;; gnuplot-gui is designed for gnuplot 3.7, but since much of 3.7 is
46 ;; backward compatible to 3.5, it will work well for that version
47 ;; also.
48 ;;
49 ;; gnuplot-gui.el was developed using Emacs 19.34 and is known to work
50 ;; on Emacs 20.x and XEmacs 20.x. I do not know what is the earliest
51 ;; version for which it will work, but I make no guarantees for
52 ;; versions before 19.34. Note that this makes heavy use of the
53 ;; widget package, so this will not work on Emacs 19.34 unless you
54 ;; install the widget package separately.
55 ;;
56 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
57 ;;
58 ;;; To do:
59 ;;
60 ;; Widgets I need:
61 ;; -- 'position: two or three comma separated numbers used to denote a
62 ;; position or a tic start/end/increment (see arrow,
63 ;; need a prefix)
64 ;; -- 'modifier: colon separated fields used for datafile modifiers
65 ;;
66 ;; command types which are currently unsupported or contain mistakes
67 ;; -- unsupported: cntrparam
68 ;; -- plot, splot, fit: rather lame
69 ;; -- label: position information missing
70 ;; -- label: font string handled in overly simple manner
71 ;; -- hidden3d: not really suited to 'list, but all options are exclusive...
72 ;; -- pointstyle argument to "set label"
73 ;;
74 ;; overall:
75 ;; -- continuation lines (ugh!)
76 ;; -- multiple frames end up displaying same window after setting options
77 ;;
78 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
79 ;;; Code:
80
81 (require 'gnuplot)
82 (eval-and-compile
83 (condition-case ()
84 (progn
85 (require 'widget)
86 (require 'wid-edit))
87 (error nil)))
88 (require 'cl)
89 (eval-when-compile ; suppress some compiler warnings
90 (defvar gnuplot-xemacs-p nil)
91 (defvar gnuplot-quote-character nil)
92 (defvar gnuplot-info-display nil)
93 (defvar gnuplot-mode-map nil))
94
95 ;; (eval-when-compile
96 ;; (require 'wid-edit))
97
98 (eval-and-compile ; I need this!
99 (if (fboundp 'split-string)
100 ()
101 (defun split-string (string &optional pattern)
102 "Return a list of substrings of STRING which are separated by PATTERN.
103 If PATTERN is omitted, it defaults to \"[ \\f\\t\\n\\r\\v]+\"."
104 (or pattern
105 (setq pattern "[ \f\t\n\r\v]+"))
106 ;; The FSF version of this function takes care not to cons in case
107 ;; of infloop. Maybe we should synch?
108 (let (parts (start 0))
109 (while (string-match pattern string start)
110 (setq parts (cons (substring string start (match-beginning 0)) parts)
111 start (match-end 0)))
112 (nreverse (cons (substring string start) parts)))) ))
113
114
115 \f
116 ;;; customizable variables
117
118 (defgroup gnuplot-gui nil
119 "Graphical interface to setting arguments in gnuplot scrips."
120 :prefix "gnuplot-gui-"
121 :group 'gnuplot)
122
123 (defcustom gnuplot-gui-popup-flag nil
124 "*Non-nil means to open arguments pop-ups automatically.
125 This would be done after menu insertion of Gnuplot commands."
126 :group 'gnuplot-gui
127 :type 'boolean)
128
129 (defvar gnuplot-gui-frame nil
130 "Frame used to hold the buffer for setting options.")
131 (defcustom gnuplot-gui-frame-plist
132 '(height 18 width 65 border-width 0
133 user-position t top 150 left 150
134 internal-border-width 0 unsplittable t
135 default-toolbar-visible-p nil has-modeline-p nil
136 menubar-visible-p nil)
137 "Frame plist for the input run-time display frame in XEmacs."
138 :type '(repeat (group :inline t
139 (symbol :tag "Property")
140 (sexp :tag "Value")))
141 :group 'gnuplot-gui)
142 (defcustom gnuplot-gui-frame-parameters
143 '((height . 18)
144 (width . 65)
145 (user-position . t)
146 (top . 150)
147 (left . 150)
148 (border-width . 0)
149 (menu-bar-lines . 0)
150 (unsplittable . t))
151 "Frame parameters for the input run-time display frame in Emacs."
152 :group 'gnuplot-gui
153 :type '(repeat (sexp :tag "Parameter:")))
154
155 (defcustom gnuplot-gui-fontname-list
156 '(" " "\"Helvetica\"" "\"Times-Roman\"")
157 "List of known font names.
158 These *must* be quoted, like so \"\\\"Helvetica\\\"\". This allows
159 for fonts with names like \"\\\"Arial Bold Italic\\\"\" to be treated
160 as single entries in the menu-buttons. And it is really important that
161 the first entry in the list be a blank string."
162 :group 'gnuplot-gui
163 :type '(repeat (string :tag "Font name:")))
164
165 ;; some global variables
166 (defvar gnuplot-current-frame nil)
167 (defvar gnuplot-current-buffer nil)
168 (defvar gnuplot-current-buffer-point nil)
169 (defvar gnuplot-gui-alist nil)
170 (defvar gnuplot-gui-current-string nil)
171
172 \f
173 ;;; various tools for handling data structures and text in the buffer
174
175 ;; tools for accessing the elements of the lists in `gnuplot-gui-all-types'
176 (defsubst gnuplot-gui-type-tag (obj) (elt obj 0))
177 (defsubst gnuplot-gui-type-symbol (obj) (elt obj 1))
178 (defsubst gnuplot-gui-type-default (obj) (elt obj 2))
179 (defsubst gnuplot-gui-type-prefix (obj) (elt obj 3)) ; also 'range seperator
180 (defsubst gnuplot-gui-type-fourth (obj) (elt obj 4))
181 (defsubst gnuplot-gui-type-list (obj) (cddr obj))
182
183 (defun gnuplot-this-word ()
184 "Return the word under point."
185 (let ((begin (save-excursion (beginning-of-line) (point-marker)))
186 (end (save-excursion (end-of-line) (point-marker))))
187 (save-excursion
188 (or (looking-at "\\<") (= (current-column) 0) (forward-word -1))
189 (if (> (point) begin) (setq begin (point-marker)))
190 (forward-word 1)
191 (if (> (point) end) (goto-char end))
192 (buffer-substring-no-properties begin (point)))))
193
194
195 \f
196 ;;; data structures containing regarding options in Gnuplot 3.7
197
198 ;; various constants used for options that take the same sorts of arguments
199 (defconst gnuplot-gui-mtics-list
200 '(("FREQUENCY" 'number " ")
201 ("DEFAULT" 'list " " "default")))
202 (defconst gnuplot-gui-data-list
203 '(("DATA TYPE" 'list " " "time")))
204 (defconst gnuplot-gui-label-list
205 '(("LABEL" 'string " ")
206 ("POSITION" 'position " " "" 2)
207 ("FONTNAME" 'list " " gnuplot-gui-fontname-list)
208 ("FONTSIZE" 'fontsize " ")))
209 (defconst gnuplot-gui-range-list
210 '(("RANGE" 'range (" " . " ") ":")
211 ("REVERSE" 'list " " "reverse" "noreverse")
212 ("WRITEBACK" 'list " " "writeback" "nowriteback")))
213 (defconst gnuplot-gui-tics-list
214 '(("WHERE" 'list " " "axis" "border")
215 ("MIRROR" 'list " " "mirror" "nomirror")
216 ("ROTATE" 'list " " "rotate" "norotate")
217 ("SERIES" 'position " " "" 3)
218 ("LABEL ARRAY" 'labels () )))
219 (defconst gnuplot-gui-zeroaxis-list
220 '(("LINETYPE" 'number " ")))
221
222 (defvar gnuplot-gui-terminal-types nil
223 "Associated list of terminal descriptions.
224 See the doc-string for `gnuplot-gui-all-types'.")
225 (setq gnuplot-gui-terminal-types
226 (list (cons "aifm"
227 '(("COLOR" 'list " " "monochrome" "gray" "color")
228 ("FONTNAME" 'list " " gnuplot-gui-fontname-list)
229 ("FONTSIZE" 'fontsize " ")))
230 (cons "cgm"
231 '(("MODE" 'list " " "landscape" "portrait" "default")
232 ("COLOR" 'list " " "color" "monochrome")
233 ("ROTATION" 'list " " "rotate" "norotate")
234 ("WIDTH" 'number " " "width")
235 ("LINEWIDTH" 'number " " "linewidth")
236 ("FONTNAME" 'list " " "\"Arial\"" "\"Arial Italic\""
237 "\"Arial Bold\"" "\"Arial Bold Italic\""
238 "\"Times Roman\"" "\"Times Roman Italic\""
239 "\"Times Roman Bold\"" "\"Times Roman Bold Italic\""
240 "\"Helvetica\"" "\"Roman\"")
241 ("FONTSIZE" 'fontsize " ")))
242 (cons "corel"
243 '(("COLOR" 'list " " "default" "color" "monochrome")
244 ("FONTNAME" 'list " " "\"SwitzerlandLight\""
245 "\"Helvetica\"" "\"Times-Roman\"")
246 ("FONTSIZE " 'number " ")
247 ("X-SIZE " 'number " ")
248 ("Y-SIZE " 'number " ")
249 ("LINEWIDTH" 'number " ")))
250 (cons "dumb"
251 '(("LINEFEED" 'list " " "feed" "nofeed")
252 ("X-SIZE" 'number " ")
253 ("Y-SIZE" 'number " ")))
254 (cons "emf"
255 '(("COLOR" 'list " " "color" "monochrome")
256 ("LINE" 'list " " "solid" "dashed")
257 ("FONTNAME" 'string " ")
258 ("FONTSIZE" 'number " ")))
259 (cons "emtex"
260 '(("FONTNAME" 'list " " "courier" "roman")
261 ("FONTSIZE" 'fontsize " ")))
262 (cons "fig"
263 '(("COLOR" 'list " " "color" "monochrome")
264 ("FRAMESIZE" 'list " " "small" "big")
265 ("POINTSMAX" 'number " " "pointsmax")
266 ("ORIENTATION" 'list " " "landscape" "portrait")
267 ("UNITS" 'list " " "metric" "inches")
268 ("FONT SIZE" 'number " " "fontsize")
269 ("SIZE" 'pair (" " . " ") "size")
270 ("LINE THICKNESS" 'number " " "thickness")
271 ("LAYER DEPTH" 'number " " "depth")))
272 (cons "hp500c"
273 '(("RESOLUTION" 'list " " "75" "100" "150" "300")
274 ("COMPRESSION" 'list " " "rle" "tiff")))
275 (cons "hpgl"
276 '(("PENS" 'number " ")
277 ("EJECT" 'list " " "eject")))
278 (cons "hpdj"
279 '(("RESOLUTION" 'list " " "75" "100" "150" "300")))
280 (cons "hpljii"
281 '(("RESOLUTION" 'list " " "75" "100" "150" "300")))
282 (cons "hppj"
283 '(("FONT" 'list " " "FNT9X17" "FNT5X9" "FNT13X25")))
284 (cons "imagen"
285 '(("FONT SIZE" 'number " ")
286 ("LAYOUT" 'list " " "portrait" "landscape")
287 ("NUMBER OF GRAPHS" 'range (" " . " ") ",")))
288 (cons "gpic"
289 '(("X ORIGIN" 'number " ")
290 ("Y ORIGIN" 'number " " ",")))
291 (cons "latex"
292 '(("FONTNAME" 'list " " "courier" "roman")
293 ("FONTSIZE" 'fontsize " ")))
294 (cons "mif"
295 '(("COLOUR" 'list " " "colour" "monochrome")
296 ("LINETYPE" 'list " " "polyline" "vectors")))
297 (cons "nec-cp6"
298 '(("MODE" 'list " " "monochrome" "colour" "draft")))
299 (cons "pbm"
300 '(("SIZE" 'list " " "small" "medium" "large")
301 ("COLOR" 'list " " "monochrome" "gray" "color")))
302 (cons "pcl5L"
303 '(("MODE" 'list " " "landscape" "portrait")
304 ("FONTNAME" 'list " " "stick" "univers" "cg_times")
305 ("FONTSIZE" 'fontsize " ")))
306 (cons "png"
307 '(("SIZE" 'list " " "small" "medium" "large")
308 ("COLOR" 'list " " "monochrome" "gray" "color")))
309 (cons "postscript"
310 '(("MODE" 'list " " "landscape" "portrait" "eps" "default")
311 ("ENHANCED" 'list " " "enhanced" "noenhanced")
312 ("COLOR" 'list " " "color" "monochrome")
313 ("SOLID" 'list " " "solid" "dashed")
314 ("DUPLEXING" 'list " " "defaultplex" "simplex" "duplex")
315 ("FONTNAME" 'list " " gnuplot-gui-fontname-list)
316 ("FONTSIZE" 'fontsize " ")))
317 (cons "pslatex"
318 '(("COLOR" 'list " " "monochrome" "color")
319 ("DASHED" 'list " " "dashed")
320 ("ROTATION" 'list " " "rotate" "norotate")
321 ("AUXFILE" 'list " " "auxfile")))
322 (cons "pstex"
323 '(("COLOR" 'list " " "monochrome" "color")
324 ("DASHED" 'list " " "dashed")
325 ("ROTATION" 'list " " "rotate" "norotate")
326 ("AUXFILE" 'list " " "auxfile")))
327 (cons "pstricks"
328 '(("HACK TEXT" 'list " " "hacktext" "nohacktext")
329 ("PLOT SCALING" 'list " " "nounit" "unit")))
330 (cons "regis"
331 '(("COLOR DEPTH" 'list "4" "16")))
332 (cons "tgif"
333 '(("LAYOUT" 'list " " "portrait" "landscape")
334 ("NUMBER OF GRAPHS" 'range (" " . " ") ",")
335 ("LINE TYPE" 'list " " "solid" "dashed")
336 ("FONTNAME" 'list " " gnuplot-gui-fontname-list)
337 ("FONTSIZE" 'fontsize " ")))
338 (cons "tpic"
339 '(("POINTSIZE" 'number " ")
340 ("LINEWIDTH" 'number " ")
341 ("INTERVAL " 'number " ")))
342 (cons "vgagl" ; for pm3d patch (also persist, raise in x11) <MT>
343 '(("BACKGROUND" 'position " " "background" 3)
344 ("INTERPOLATION" 'list " " "uniform" "interpolate")
345 ("DUMP" 'file " ")
346 ("MODE" 'string " " "")))
347 (cons "x11"
348 '(("RESET" 'list " " "reset")
349 ("TERMINAL NUMBER" 'number " ")
350 ("PERSIST" 'list " " "persist" "nopersist")
351 ("RAISE" 'list " " "raise" "noraise"))) ))
352
353 (defvar gnuplot-gui-terminal-list nil)
354 (setq gnuplot-gui-terminal-list
355 (append (list " ") (mapcar 'car gnuplot-gui-terminal-types)))
356
357 (defvar gnuplot-gui-set-types nil
358 "Associated list of set option descriptions.
359 See the doc-string for `gnuplot-gui-all-types'.")
360 (setq gnuplot-gui-set-types
361 (list (cons "angles"
362 '(("UNITS" 'list " " "degrees" "radians")))
363 (cons "arrow"
364 '(("TAG" 'tag " ")
365 ("FROM" 'position " " "from" 3)
366 ("TO" 'position " " "to" 3)
367 ("HEAD" 'list " " "head" "nohead")
368 ("LINESTYLE" 'number " " "ls")
369 ("LINETYPE " 'number " " "lt")
370 ("LINEWIDTH" 'number " " "lw")))
371 (cons "noarrow"
372 '(("TAG" 'tag " ")))
373 (cons "autoscale"
374 '(("AXIS" 'list " " "x" "y" "z" "x2" "y2" "xy"
375 "xmin" "ymin" "zmin" "x2min" "y2min" "xymin"
376 "xmax" "ymax" "zmax" "x2max" "y2max" "xymax")))
377 (cons "noautoscale"
378 '(("AXIS" 'list " " "x" "y" "z" "x2" "y2" "xy"
379 "xmin" "ymin" "zmin" "x2min" "y2min" "xymin"
380 "xmax" "ymax" "zmax" "x2max" "y2max" "xymax")))
381 (cons "bar"
382 '(("SIZE" 'list " " "small" "large")))
383 (cons "border"
384 '(("BORDER CODE" 'number " ")
385 ("LINE STYLE" 'list " " "lines"
386 "dots" "points" "linespoints")
387 ("LINESTYLE" 'number " " "ls")
388 ("LINETYPE" 'number " " "lt")
389 ("LINEWIDTH" 'number " " "lw")
390 ))
391 (cons "boxwidth"
392 '(("WIDTH" 'number " ")))
393 (cons "clabel"
394 '(("FORMAT" 'format " ")))
395 (cons "clip"
396 '(("CLIP TYPE" 'list " " "points" "one" "two")))
397 (cons "noclip"
398 '(("CLIP TYPE" 'list " " "points" "one" "two")))
399 ;;(cons "cntrparam"
400 ;; '(("INTERPOLATION" 'list " " "linear" "cubicspline" "bspline")
401 ;; ("POINTS" 'number " " "points")
402 ;; ("ORDER" 'number " " "order")))
403 (cons "contour"
404 '(("WHERE" 'list " " "base" "surface" "both")))
405 (cons "dgrid3d"
406 '(("ROW,COLUMN,NORM" 'position " " "" 3)))
407 (cons "encoding"
408 '(("ENCODING" 'list " " "default" "iso_8859_1"
409 "cp850" "cp437")))
410 (cons "format"
411 '(("AXIS" 'list " " "x" "y" "z" "xy" "x2" "y2")
412 ("FORMAT" 'format " ")))
413 (cons "dummy"
414 '(("VAR 1" 'string " " "")
415 ("VAR 2" 'string " " ",")))
416 (cons "grid"
417 '(("XTICS" 'list " " "xtics" "mxtics" "noxtics" "nomxtics")
418 ("YTICS" 'list " " "ytics" "mytics" "noytics" "nomytics")
419 ("ZTICS" 'list " " "ztics" "mztics" "noztics" "nomztics")
420 ("X2TICS" 'list " " "x2tics" "mx2tics" "nox2tics" "nomx2tics")
421 ("Y2TICS" 'list " " "y2tics" "my2tics" "noy2tics" "nomy2tics")
422 ("POLAR" 'number " " "polar")
423 ("MAJOR LINETYPE" 'number " ")
424 ("MINOR LINETYPE" 'number " ")))
425 (cons "hidden3d"
426 '(("ALGORITHM" 'list " " "defaults"
427 "offset"
428 "nooffset"
429 ;;"trianglepattern # bitpattern between 0 and 7"
430 "trianglepattern 0" "trianglepattern 1"
431 "trianglepattern 2" "trianglepattern 3"
432 "trianglepattern 4" "trianglepattern 5"
433 "trianglepattern 6" "trianglepattern 7"
434 ;;"undefined # level between 0 and 3"
435 "undefined 0" "undefined 1" "undefined 2" "undefined 3"
436 "noundefined" "altdiagonal" "noaltdiagonal"
437 "bentover" "nobentover")))
438 (cons "historysize"
439 '(("SIZE" 'number " ")))
440 (cons "isosamples"
441 '(("ISO_U LINES" 'number " ")
442 ("ISO_V LINES" 'number " " ",")))
443 (cons "key"
444 '(("LOCATION" 'list " " "left" "right" "top" "bottom"
445 "outside" "below")
446 ("POSITION" 'position " " "" 3)
447 ("JUSTIFICATION" 'list " " "Left" "Right")
448 ("REVERSE" 'list " " "reverse" "noreverse")
449 ("SAMPLE LENGTH" 'number " " "samplen")
450 ("SPACING" 'number " " "spacing")
451 ("WIDTH" 'number " " "width")
452 ("TITLE" 'string " " "title ")
453 ("BOX LINETYPE" 'number " " "box") ;; linetype data
454 ("NOBOX" 'list " " "nobox")))
455 (cons "label"
456 '(("TAG" 'tag " ")
457 ("LABEL TEXT" 'string " ")
458 ("POSITION" 'position " " "at" 3)
459 ;; first, second, graph, screen
460 ("JUSTIFICATION" 'list " " "left" "right" "center")
461 ("ROTATE" 'list " " "rotate" "norotate")
462 ("FONT" 'string " " "font"))) ;; font "name,size"
463 (cons "nolabel"
464 '(("TAG" 'tag " ")))
465 (cons "linestyle"
466 '(("TAG " 'tag " ")
467 ("LINE STYLE" 'list " " "boxerrorbars" "boxes"
468 "boxxyerrorbars" "candlesticks" "dots"
469 "financebars" "fsteps" "histeps" "impulses"
470 "lines" "linespoints" "points" "steps" "vector"
471 "xerrorbars" "xyerrorbars" "yerrorbars")
472 ("LINETYPE " 'number " " "lt")
473 ("LINEWIDTH" 'number " " "lw")
474 ("POINTTYPE" 'number " " "pt")
475 ("POINTSIZE" 'number " " "ps")))
476 (cons "locale"
477 '(("LOCALE" 'string " ")))
478 (cons "logscale"
479 '(("AXIS" 'list " " "x" "y" "z" "xy" "xz" "yz" "xyz"
480 "x2" "y2")
481 ("BASE" 'number " ")))
482 (cons "nologscale"
483 '(("AXIS" 'list " " "x" "y" "z" "xy" "xz" "yz" "xyz"
484 "x2" "y2")))
485 (cons "mapping"
486 '(("COORDINATE SYSTEM" 'list " " "cartesian" "spherical"
487 "cylindrical")))
488 ; _margin
489 (cons "bmargin"
490 '(("BOTTOM MARGIN" 'number " ")))
491 (cons "lmargin"
492 '(("LEFT MARGIN" 'number " ")))
493 (cons "rmargin"
494 '(("RIGHT MARGIN" 'number " ")))
495 (cons "tmargin"
496 '(("TOP MARGIN" 'number " ")))
497
498 (cons "missing"
499 '(("CHARACTER" 'string " " 1)))
500 ; m_tics
501 (cons "mxtics" gnuplot-gui-mtics-list)
502 (cons "mytics" gnuplot-gui-mtics-list)
503 (cons "mztics" gnuplot-gui-mtics-list)
504 (cons "mx2tics" gnuplot-gui-mtics-list)
505 (cons "my2tics" gnuplot-gui-mtics-list)
506
507 ; pm3d additions <MT>
508 (cons "mouse"
509 '(("DOUBLECLICK" 'number " " "doubleclick")
510 ("ZOOM" 'list " " "zoomcoordinates" "nozoomcoordinates")
511 ("POLAR" 'list " " "polarcoordinates" "nopolarcoordinates")
512 ("FORMAT" 'string " " "format")
513 ("CLIPBOARDFORMAT" 'string " " "clipboardformat")
514 ("MOUSEFORMAT" 'string " " "mouseformat")
515 ("LABELS" 'list " " "labels" "nolabels")
516 ("LABELOPTIONS" 'string " " "labeloptions")
517 ("ZOOMJUMP" 'list " " "zoomjump" "nozoomjump")
518 ("VERBOSE" 'list " " "verbose" "noverbose")))
519 (cons "palette"
520 '(("COLOR" 'list " " "gray" "color")
521 ("RGBFORMULAE" 'position " " "rgbformulae" 3)
522 ("PARITY" 'list " " "positive" "negative")
523 ("FORMULAE" 'list " " "nops_allcF" "ps_allcF")
524 ("MAXCOLORS" 'number " ")
525 ("COLOR_BOX" 'list " " "nocb" "cbdefault" "cbuser")
526 ("ORIENTATION" 'list " " "cbvertical" "cbhorizontal")
527 ("ORIGIN" 'position " " "origin" 2)
528 ("SIZE" 'position " " "size" 2)
529 ("BORDER" 'number " ")
530 ("NOBORDER" 'list " " "bdefault" "noborder")))
531 (cons "pm3d"
532 '(("AT" 'list* " " "b" "s" "t" "bs" "bt" "st" "bst")
533 ("SCANS" 'list " " "scansautomatic" "scansforward" "scansbackward")
534 ("FLUSH" 'list* " " "begin" "center" "end")
535 ("CLIP" 'list " " "clip1in" "clip4in")
536 ("ZRANGE" 'range (" " . " ") ":")
537 ("HIDDEN3D" 'number " ")
538 ("NOHIDDEN3D" 'list " " "nohidden3d")
539 ("FILLING" 'list " " "transparent" "solid")
540 ("MAP" 'list " " "map")))
541
542 (cons "offsets"
543 '(("LEFT " 'number " ")
544 ("RIGHT " 'number " " ",")
545 ("TOP " 'number " " ",")
546 ("BOTTOM" 'number " " ",")))
547 (cons "origin"
548 '(("X ORIGIN" 'number " ")
549 ("Y ORIGIN" 'number " " ",")))
550 (cons "output"
551 '(("FILENAME" 'file " ")))
552 (cons "pointsize"
553 '(("MULTIPLIER" 'number " ")))
554 (cons "samples"
555 '(("2D PLOT" 'number " ")
556 ("3D PLOT" 'number " " ",")))
557 (cons "size"
558 '(("ASPECT" 'list " " "square" "nosquare"
559 "ratio" "noratio")
560 ("X-SCALE OR RATIO" 'number " ")
561 ("Y-SCALE" 'number " " ",")))
562 (cons "style"
563 '(("DATA TYPE" 'list " " "data" "function")
564 ("PLOT STYLE" 'list " " "boxerrorbars" "boxes"
565 "boxxyerrorbars" "candlesticks" "dots"
566 "financebars" "fsteps" "histeps" "impulses"
567 "lines" "linespoints" "points" "steps" "vector"
568 "xerrorbars" "xyerrorbars" "yerrorbars")))
569 (cons "terminal"
570 '(("TERMINAL TYPE" 'list " " gnuplot-gui-terminal-list)))
571 (cons "tics"
572 '(("DIRECTION" 'list " " "in" "out")))
573 (cons "ticslevel"
574 '(("RELATIVE HEIGHT" 'number " ")))
575 (cons "ticscale"
576 '(("MAJOR" 'number " ")
577 ("MINOR" 'number " ")))
578 (cons "timestamp"
579 '(("FORMAT STRING" 'format " ")
580 ("WHERE" 'list " " "top" "bottom")
581 ("ROTATE" 'list " " "rotate" "norotate")
582 ("X-OFFSET" 'number " ")
583 ("Y-OFFSET" 'number " " ",")
584 ("FONTNAME" 'list " " gnuplot-gui-fontname-list)))
585 (cons "timefmt"
586 '(("FORMAT STRING" 'string " ")))
587 (cons "title"
588 '(("TITLE" 'string " ")))
589 (cons "view"
590 '(("X-ROTATION" 'number " ")
591 ("Z-ROTATION" 'number " " ",")
592 ("SCALE" 'number " " ",")
593 ("Z-SCALE" 'number " " ",")))
594 ;; ("SCALE" 'position " " "," 4)
595 ; _data
596 (cons "xdata" gnuplot-gui-data-list)
597 (cons "ydata" gnuplot-gui-data-list)
598 (cons "zdata" gnuplot-gui-data-list)
599 (cons "x2data" gnuplot-gui-data-list)
600 (cons "y2data" gnuplot-gui-data-list)
601 ; _label
602 (cons "xlabel" gnuplot-gui-label-list)
603 (cons "ylabel" gnuplot-gui-label-list)
604 (cons "zlabel" gnuplot-gui-label-list)
605 (cons "x2label" gnuplot-gui-label-list)
606 (cons "y2label" gnuplot-gui-label-list)
607 ; _range, note that the [] syntax for
608 ; the writeback argument is
609 ; not properly supported
610 (cons "xrange" gnuplot-gui-range-list)
611 (cons "yrange" gnuplot-gui-range-list)
612 (cons "zrange" gnuplot-gui-range-list)
613 (cons "x2range" gnuplot-gui-range-list)
614 (cons "y2range" gnuplot-gui-range-list)
615 (cons "trange" gnuplot-gui-range-list)
616 (cons "rrange" gnuplot-gui-range-list)
617 (cons "urange" gnuplot-gui-range-list)
618 (cons "vrange" gnuplot-gui-range-list)
619 ; _tics
620 (cons "xtics" gnuplot-gui-tics-list)
621 (cons "ytics" gnuplot-gui-tics-list)
622 (cons "ztics" gnuplot-gui-tics-list)
623 (cons "x2tics" gnuplot-gui-tics-list)
624 (cons "y2tics" gnuplot-gui-tics-list)
625 ; zeroaxis
626 (cons "zeroaxis" gnuplot-gui-zeroaxis-list)
627 (cons "xzeroaxis" gnuplot-gui-zeroaxis-list)
628 (cons "yzeroaxis" gnuplot-gui-zeroaxis-list)
629 (cons "y2zeroaxis" gnuplot-gui-zeroaxis-list)
630 (cons "x2zeroaxis" gnuplot-gui-zeroaxis-list)
631
632 (cons "zero"
633 '(("THRESHOLD" 'number " ")))
634 ))
635
636 (defvar gnuplot-gui-command-types nil
637 "Associated list of command descriptions.
638 See the doc-string for `gnuplot-gui-all-types'.")
639 (setq gnuplot-gui-command-types
640 (list (cons "cd"
641 '(("FILENAME" 'file " ")))
642 (cons "call"
643 '(("INPUT FILE" 'file " ")
644 ("PARAMETER LIST" 'string " ")))
645 (cons "load"
646 '(("INPUT FILE" 'file " ")))
647 (cons "pause"
648 '(("TIME" 'number " ")
649 ("MESSAGE" 'string " ")))
650 (cons "print"
651 '(("EXPRESSION" 'string " ")))
652 (cons "save"
653 '(("SAVE" 'list " " "functions" "variables" "set")
654 ("FILE" 'file " ")))
655 (cons "update"
656 '(("INITIAL FILE" 'file " " t)
657 ("UPDATED FILE" 'file " " t))) ))
658
659
660 (defcustom gnuplot-gui-plot-splot-fit-style 'simple
661 "Control the complexity of the GUI display for plot, splot, and fit.
662 The values are 'simple, which causes a limited set of plot, splot, or
663 fit options to be displayed, and 'complete, which attempts to display
664 all options. The 'complete setting is prone to making errors when
665 parsing values already in the script buffer."
666 :group 'gnuplot-gui
667 :type '(radio (const :tag "Simple listing" simple)
668 (const :tag "Complete listing" complete)))
669
670
671 (defconst gnuplot-gui-plot-simple-list
672 '(("X RANGE" 'range (" " . " ") ":")
673 ("Y RANGE" 'range (" " . " ") ":")
674 ("DATA FILE" 'file " ")
675 ("THRU" 'string* " " "thru")
676 ("USING" 'modifier " ")
677 ("TITLE" 'string " ")
678 ("WITH" 'list* " " "boxerrorbars" "boxes"
679 "boxxyerrorbars" "candlesticks" "dots" "financebars"
680 "fsteps" "histeps" "impulses" "lines" "linespoints"
681 "points" "steps" "vector" "xerrorbars" "xyerrorbars"
682 "yerrorbars")))
683 (defconst gnuplot-gui-plot-full-list
684 '(;;("T RANGE" 'range (" " . " ") ":")
685 ("X RANGE" 'range (" " . " ") ":")
686 ("Y RANGE" 'range (" " . " ") ":")
687 ("xa" 'text "\t---------------------")
688 ("FUNCTION" 'string " ")
689 ("xc" 'text " or")
690 ("DATA FILE" 'file " ")
691 ("INDEX" 'modifier " ")
692 ("EVERY" 'modifier " ")
693 ("THRU" 'string* " " "thru")
694 ("USING" 'modifier " ")
695 ("SMOOTH" 'list* " " "unique" "csplines" "acsplines"
696 "bezier" "sbezier")
697 ;; datafile modifiers
698 ("AXES" 'list* " " "x1y1" "x2y2" "x1y2" "x2y1")
699 ("TITLE" 'string " ")
700 ("NOTITLE" 'list " " "notitle")
701 ("xf" 'text "\t---------------------")
702 ("xi" 'text "Select a standard plotting style")
703 ("WITH" 'list* " " "boxerrorbars" "boxes"
704 "boxxyerrorbars" "candlesticks" "dots" "financebars"
705 "fsteps" "histeps" "impulses" "lines" "linespoints"
706 "points" "steps" "vector" "xerrorbars" "xyerrorbars"
707 "yerrorbars")
708 ("xo" 'text " or a previously defined style")
709 ("LINE STYLE " 'number " " "ls")
710 ("xr" 'text " or specify a style in-line")
711 ("LINE TYPE " 'number " " "lt")
712 ("LINE WIDTH " 'number " " "lw")
713 ("POINT TYPE " 'number " " "pt")
714 ("POINT STYLE" 'number " " "ps")
715 ))
716 (defconst gnuplot-gui-splot-simple-list
717 '(("DATA FILE" 'file " ")
718 ("TITLE" 'string " ")
719 ("WITH" 'list* " " "lines" "linespoints" "points" "dots" "impulses")))
720 (defconst gnuplot-gui-splot-full-list
721 '(;;("U RANGE" 'range (" " . " ") ":")
722 ;;("V RANGE" 'range (" " . " ") ":")
723 ("X RANGE" 'range (" " . " ") ":")
724 ("Y RANGE" 'range (" " . " ") ":")
725 ("Z RANGE" 'range (" " . " ") ":")
726 ("xa" 'text "\t---------------------")
727 ("FUNCTION" 'string " ")
728 ("xc" 'text " or")
729 ("DATA FILE" 'file " ")
730 ("INDEX" 'modifier " ")
731 ("EVERY" 'modifier " ")
732 ("THRU" 'string* " " "thru")
733 ("USING" 'modifier " ")
734 ("SMOOTH" 'list* " " "unique" "csplines" "acsplines"
735 "bezier" "sbezier")
736 ("TITLE" 'string " ")
737 ("NOTITLE" 'list " " "notitle")
738 ("WITH" 'list* " " "lines" "linespoints" "points" "dots" "impulses")))
739 (defconst gnuplot-gui-fit-simple-list
740 '(("FUNCTION" 'string* " " "")
741 ("DATA FILE" 'file " ")
742 ("VIA (params)" 'string* " " "via") ))
743 (defconst gnuplot-gui-fit-full-list
744 '(("X RANGE" 'range (" " . " ") ":")
745 ("Y RANGE" 'range (" " . " ") ":")
746 ("xa" 'text "----- fitting functionn and file --------")
747 ("FUNCTION" 'string* " " "")
748 ("DATA FILE" 'file " ")
749 ("xb" 'text "----- datafile modifiers ----------------")
750 ("INDEX" 'modifier " ")
751 ("EVERY" 'modifier " ")
752 ("THRU" 'string* " " "thru")
753 ("USING" 'modifier " ")
754 ("SMOOTH" 'list* " " "unique" "csplines" "acsplines"
755 "bezier" "sbezier")
756 ("xc" 'text "----- parameters (file or parameters) ---")
757 ("VIA (file)" 'string " " "via")
758 ("VIA (params)" 'string* " " "via") ))
759
760 (defvar gnuplot-gui-plot-splot-fit nil
761 "Associated list of plot, splot, and fit descriptions.
762 See the doc-string for `gnuplot-gui-all-types'.")
763 (setq gnuplot-gui-plot-splot-fit
764 (list (cons "plot" (if (equal gnuplot-gui-plot-splot-fit-style 'complete)
765 gnuplot-gui-plot-full-list
766 gnuplot-gui-plot-simple-list))
767 (cons "splot" (if (equal gnuplot-gui-plot-splot-fit-style 'complete)
768 gnuplot-gui-splot-full-list
769 gnuplot-gui-splot-simple-list))
770 (cons "fit" (if (equal gnuplot-gui-plot-splot-fit-style 'complete)
771 gnuplot-gui-fit-full-list
772 gnuplot-gui-fit-simple-list))) )
773
774
775 (defvar gnuplot-gui-test-type nil)
776 (setq gnuplot-gui-test-type
777 (list (cons "test"
778 '(("TAG" 'tag " ")
779 ("LIST" 'list " " "1" "2" "3")
780 ("LIST*" 'list* " " "1" "2" "3")
781 ("NUMBER" 'number " " "number")
782 ("RANGE" 'range (" " . " ") ":")
783 ("PAIR" 'pair (" " . " ") "pair")
784 ("LABELS" 'labels ())
785 ("FILE" 'file " ")
786 ("TEXT" 'text "this is text")
787 ("STRING" 'string " ")
788 ("STRING*" 'string* " " "string*")
789 ("FORMAT" 'format " ")
790 ("POSITION" 'position " " "at" 3)
791 ("FONTSIZE" 'fontsize " ") ))))
792
793 (defvar gnuplot-gui-all-types nil
794 "Associated list of terminal, set option, and command arguments.
795
796 Each entry in the list is a cons cell of the form
797 (OPTION . ALIST)
798 where OPTION is one of the recognized options in Gnuplot, either a
799 command, something that is set, or a terminal type. Only those
800 commands, set options, and terminal types that actually take arguments
801 are in this associated list.
802
803 ALIST is itself an associated list where each entry is of the form:
804
805 (TAG TYPE DEFAULT REST)
806
807 TAG is the name used on the widget and indicates one of the options
808 for this command, set option, or terminal type.
809
810 TYPE is one of
811 'list a menu-list of strings
812 'list* a menu-list of strings with a prefix
813 'number a number with an optional prefix
814 'tag like number but must be the first argument
815 'fontsize like number but must be the last argument
816 'range a pair of numbers like [#,#] or [#:#]
817 'pair a pair of numbers with no punctuation and a prefix
818 'file a quoted string and a file browser
819 'string a quoted string with an optional prefix
820 'string* an unquoted string with a prefix
821 'format a quoted string and an info-link to (gnuplot)format
822 'labels an array as needed for xtics, ytics, etc
823 'position 2 or 3 comma separated numbers with an optional prefix
824
825 DEFAULT is the default value for this option. Note that the default
826 for 'range and 'pair is a cons cell and the default for 'labels is a
827 list. For most things, the best choice of DEFAULT is a string of
828 white space or a cons cell of two strings of white space. Strings of
829 white space are better defaults than empty strings or nil.
830
831 The value of REST depends upon TYPE:
832
833 For 'list & REST is the list of options that will go into the
834 'list* menu-button. This can also be a symbol which
835 evaluates to a list containing the options to go into
836 the menu-button. This list variable must contain the
837 DEFAULT.
838 For 'number REST is the prefix string (if it exists) for that number.
839 For 'range REST is the separator, \":\" for plot ranges and
840 \",\" for plot dimensions (see for example the tgif
841 terminal type)
842 For 'string & REST may a number denoting the width of the editable-text
843 'string* field or it may be a string denoting a prefix. By
844 default, the width is half the width of the frame
845 and there is no prefix. It may be useful to
846 specify \"1\" when the input is a single character
847 as in 'set missing'.
848 For 'file REST determines the label placed before the file insertion
849 field. If non-nil, then TAG is used. If nil, then
850 the default \"File\" is used.
851 For 'position REST is the prefix and the number of comma separated numbers
852 For others REST is not used.
853
854 Here is an example entry for the png terminal type:
855
856 (cons \"png\"
857 '((\"SIZE\" 'list \" \" \"small\" \"medium\" \"large\")
858 (\"COLOR\" 'list \" \" \"monochrome\" \"gray\" \"color\")))
859
860 This alist is formed at load time by appending together
861 `gnuplot-gui-terminal-types', `gnuplot-gui-set-types' and
862 `gnuplot-gui-command-types'.")
863
864 (setq gnuplot-gui-all-types (append gnuplot-gui-terminal-types
865 gnuplot-gui-set-types
866 gnuplot-gui-command-types
867 gnuplot-gui-plot-splot-fit
868 gnuplot-gui-test-type
869 ))
870
871
872 (defun gnuplot-gui-swap-simple-complete ()
873 (interactive)
874 (setq gnuplot-gui-plot-splot-fit-style
875 (if (equal gnuplot-gui-plot-splot-fit-style 'complete)
876 'simple 'complete))
877 (if (equal gnuplot-gui-plot-splot-fit-style 'complete)
878 (progn
879 (setcdr (assoc "plot" gnuplot-gui-all-types) gnuplot-gui-plot-full-list)
880 (setcdr (assoc "splot" gnuplot-gui-all-types) gnuplot-gui-splot-full-list)
881 (setcdr (assoc "fit" gnuplot-gui-all-types) gnuplot-gui-fit-full-list))
882 (setcdr (assoc "plot" gnuplot-gui-all-types) gnuplot-gui-plot-simple-list)
883 (setcdr (assoc "splot" gnuplot-gui-all-types) gnuplot-gui-splot-simple-list)
884 (setcdr (assoc "fit" gnuplot-gui-all-types) gnuplot-gui-fit-simple-list))
885 (message "Using %s lists for plot, splot, and fit."
886 gnuplot-gui-plot-splot-fit-style) )
887
888
889
890 \f
891 ;;; user interface to the widget-y stuff
892
893 (defun gnuplot-gui-mouse-set (event)
894 "Use the mouse to begin setting options using a GUI interface.
895 EVENT is a mouse event. Bound to \\[gnuplot-gui-mouse-set]
896 Note that \"plot\", \"splot\", \"fit\", and \"cntrparam\" are not
897 currently supported."
898 (interactive "@e")
899 (when (fboundp 'widget-create)
900 (save-excursion
901 (mouse-set-point event)
902 (gnuplot-gui-set-options-and-insert))))
903
904 (defun gnuplot-gui-get-frame-param (param)
905 (if gnuplot-xemacs-p
906 (plist-get gnuplot-gui-frame-plist param)
907 (cdr (assoc param gnuplot-gui-frame-parameters))))
908 (defun gnuplot-gui-set-frame-param (param value)
909 (if gnuplot-xemacs-p
910 (plist-put gnuplot-gui-frame-plist param value)
911 (setcdr (assoc param gnuplot-gui-frame-parameters) value)))
912
913 (defun gnuplot-gui-set-options-and-insert ()
914 "Insert arguments using a GUI interface.
915 Determine contents of current line and set up the appropriate GUI
916 frame. Bound to \\[gnuplot-gui-set-options-and-insert]
917 Note that \"cntrparam\" is not currently supported."
918 (interactive)
919 (when (fboundp 'widget-create)
920 (let ((begin (save-excursion (beginning-of-line) (point-marker)))
921 (end (save-excursion (end-of-line) (point-marker)))
922 (termin (concat "\\(,\\s-*" (regexp-quote "\\") "\\|;\\)"))
923 (set nil) (term nil))
924 (save-excursion
925 ;; there can be more then one command per line
926 (if (search-backward ";" begin "to_limit")
927 (progn (forward-char 1) (setq begin (point-marker))))
928 (if (re-search-forward termin end "to_limit")
929 (progn (backward-char (length (match-string 1)))
930 (setq end (point-marker))))
931 (goto-char begin)
932 (skip-syntax-forward "-" end)
933 ;; various constructions are recognized here. at the end of this
934 ;; cond, point should be just after the word whose arguments are
935 ;; to be set
936 (cond ((looking-at "set\\s-+")
937 (setq set t)
938 (goto-char (match-end 0))
939 (if (looking-at "\\sw+") (goto-char (match-end 0)))
940 (when (string-match "^ter" (gnuplot-this-word)) ; terminal?
941 (setq term t)
942 (forward-word 1))
943 (when (string-match "^\\(da\\|fu\\)" (gnuplot-this-word))
944 (unless (looking-at "\\s-+st")
945 (insert " style") (forward-word 1))
946 (forward-word 1)))
947 ((looking-at (concat "\\(cd\\|ca\\|lo\\|pa\\|pr\\|sa\\|u\\)"
948 "\\w*"
949 "[\\s-\\']"))
950 (forward-word 1))
951 ;;(goto-char (match-end 0)))
952 (t
953 (forward-word 1)))
954 (if (> (point) end) (goto-char end))
955 (let* ((w (gnuplot-this-word))
956 (wd (try-completion w gnuplot-gui-all-types))
957 (word "") wrd list)
958 (cond ((equal wd t) (setq word w))
959 ((equal wd nil) (setq word w))
960 ((assoc wd gnuplot-gui-all-types) (setq word wd))
961 (t (setq wd nil)))
962 (cond ((equal (string-match "^\\s-*$" w) 0)
963 (message "Blank line"))
964 ((and wd (stringp word))
965 (gnuplot-gui-correct-command word set term begin)
966 (setq gnuplot-gui-alist nil
967 gnuplot-gui-current-string
968 (buffer-substring-no-properties (point) end))
969 (gnuplot-gui-set-alist word gnuplot-gui-current-string)
970 (let* ((old-height (gnuplot-gui-get-frame-param 'height))
971 (old-top (gnuplot-gui-get-frame-param 'top)))
972 (when (or
973 (and (equal gnuplot-gui-plot-splot-fit-style 'complete)
974 (member* word '("plot" "splot" "fit")
975 :test 'string=))
976 (equal word "test"))
977 (gnuplot-gui-set-frame-param 'height 32)
978 (gnuplot-gui-set-frame-param 'top 50))
979 (gnuplot-gui-prompt-for-frame word)
980 (when (or
981 (and (equal gnuplot-gui-plot-splot-fit-style 'complete)
982 (member* word '("plot" "splot" "fit")
983 :test 'string=))
984 (equal word "test"))
985 (gnuplot-gui-set-frame-param 'height old-height)
986 (gnuplot-gui-set-frame-param 'top old-top)) ))
987 ((setq wrd (car (all-completions w '(("cntrparam")))))
988 (message
989 "Setting arguments for %S is currently unsuported in gnuplot-mode"
990 wrd))
991 ((setq list (all-completions w gnuplot-gui-all-types))
992 (message "%S could be one of %S" w list))
993 (t
994 (message
995 "%S is not a gnuplot command which takes options" w)))) ))))
996
997 (defun gnuplot-gui-toggle-popup ()
998 (interactive)
999 (setq gnuplot-gui-popup-flag (not gnuplot-gui-popup-flag))
1000 (message (if gnuplot-gui-popup-flag
1001 "Argument popup will appear after insertions."
1002 "Argument popup will no longer appear after insertions.")))
1003
1004
1005 (defun gnuplot-gui-y-n (foo))
1006 (if gnuplot-xemacs-p
1007 (defalias 'gnuplot-gui-y-n 'y-or-n-p-maybe-dialog-box)
1008 (defalias 'gnuplot-gui-y-n 'y-or-n-p))
1009
1010 (defun gnuplot-gui-correct-command (word set term begin)
1011 "Check syntax of set command and terminal specifications.
1012 WORD is the item being set. SET and TERM are non-nil if the words
1013 \"set\" and \"terminal\" were found preceding WORD in the buffer.
1014 BEGIN is the beginning of the command."
1015 (save-excursion
1016 (cond ((assoc word gnuplot-gui-terminal-types)
1017 (when (and (not (and set term))
1018 (gnuplot-gui-y-n
1019 (format
1020 "%S must be preceded by \"set terminal\". Add it? "
1021 word)))
1022 (backward-word 1)
1023 (let ((e (point-marker)))
1024 (goto-char begin)
1025 (skip-syntax-forward "-" e)
1026 (delete-region (point) e)
1027 (insert "set terminal "))))
1028 ((assoc word gnuplot-gui-set-types)
1029 (when (and (not set)
1030 (gnuplot-gui-y-n
1031 (format
1032 "%S must be preceded by \"set\". Add \"set\"? " word)))
1033 (backward-word 1)
1034 (let ((e (point-marker)))
1035 (goto-char begin)
1036 (skip-syntax-forward "-" e)
1037 (delete-region (point) e)
1038 (insert "set "))))))
1039 (message nil))
1040
1041
1042 \f
1043 ;;; handle the actual arguments
1044
1045 (defun gnuplot-gui-fix-arg-list (list)
1046 "Correct the result of splitting `gnuplot-gui-current-string'.
1047 LIST is the split string. This removes empty and all-blank strings
1048 from the list and concatenates the strings that are part of a quoted
1049 argument, for example an axis label or a font name. It also replaces
1050 bounding single quotes with double quotes, since double quotes are
1051 used in `gnuplot-gui-all-types'."
1052 (let (fixed-list quote quoted) ; remove blanks
1053 (setq list (remove* "\\s-+" list :test 'string-match)
1054 list (remove* "" list :test 'string=))
1055 (while list ; concatinate parts of quoted string
1056 (if (not (string-match "^\\([\]\[()'\"]\\)" (car list)))
1057 (setq fixed-list (append fixed-list (list (car list))))
1058 (setq quote (match-string 1 (car list))
1059 quoted (car list))
1060 (if (string= quote "[") (setq quote "]"))
1061 (if (string= quote "(") (setq quote ")"))
1062 (while (and list
1063 (or (equal (length quoted) 1)
1064 (not (string-match (concat (regexp-quote quote) "$")
1065 quoted))))
1066 (setq quoted (concat quoted " " (cadr list))
1067 list (cdr list)))
1068 (if (string= quote "'")
1069 (setq quoted (concat "\"" (substring quoted 1))
1070 quoted (concat (substring quoted 0 -1) "\"")))
1071 (setq fixed-list (append fixed-list (list quoted))))
1072 (setq list (cdr list)) )
1073 fixed-list))
1074
1075 (defun gnuplot-gui-set-alist (word string)
1076 "Set defaults for arguments, using text from buffer if appropriate.
1077 WORD is the Gnuplot expression whose arguments are being set. STRING
1078 is text from the buffer containing the previous values for WORD's
1079 arguments."
1080 (let ((alist (cdr (assoc word gnuplot-gui-all-types)))
1081 (arg-list (gnuplot-gui-fix-arg-list (split-string string)) ))
1082 ;; arg-list contains the arguments taken from the buffer
1083 (setq gnuplot-gui-alist nil)
1084 (while alist
1085 (let* ((list (car alist))
1086 (tag (gnuplot-gui-type-tag list))
1087 (symbol (eval (gnuplot-gui-type-symbol list)))
1088 (default (gnuplot-gui-type-default list))
1089 (prefix (gnuplot-gui-type-prefix list))
1090 (values (gnuplot-gui-type-list list))
1091 (this-cons (cond ((stringp default) (cons tag default))
1092 ((consp default) ; set cons valued default w/care
1093 (cons tag (cons (car default) (cdr default))))
1094 (t (cons tag default))))
1095 (temp-list arg-list) )
1096 ;;(message "%S" temp-list) ; want to lop values off arg-list
1097 ; as they are found
1098 (if (symbolp (cadr values))
1099 (setq values (symbol-value (cadr values))))
1100 ;; check if an argument of this type is in arg-list
1101 ;; set the current cons cell if it is
1102 (while temp-list
1103 (cond
1104 ;; ---------------------------- list
1105 ((member* symbol '(list list*) :test 'equal)
1106 (let* ((case-fold-search nil)
1107 (match-cons (member* (concat "^" (car temp-list))
1108 values :test 'string-match)))
1109 (if (and (car match-cons) ; " " may be first elem. of list
1110 (not (string= " " (car match-cons))))
1111 (setq this-cons (cons tag (car match-cons))
1112 arg-list (remove* (car temp-list) arg-list
1113 :test 'string= :count 1)
1114 temp-list nil)
1115 (setq temp-list (cdr temp-list)))))
1116 ;; ---------------------------- tag (first number in list)
1117 ((equal symbol 'tag)
1118 (if (string-match "^[-0-9.]+$" (car arg-list))
1119 (setq this-cons (cons tag (car arg-list))
1120 temp-list nil)
1121 (setq temp-list (cdr temp-list))) )
1122 ;; ---------------------------- fontsize (last number in list)
1123 ((equal symbol 'fontsize)
1124 (if (string-match "^[-0-9.]+$" (car (last arg-list)))
1125 (setq this-cons (cons tag (car (last arg-list)))
1126 temp-list nil)
1127 (setq temp-list (cdr temp-list))) )
1128 ;; ---------------------------- number with prefix
1129 ((equal symbol 'number)
1130 (cond ((and (string= prefix (car temp-list))
1131 (string-match "^[-0-9.]+$" (cadr temp-list)))
1132 (setq this-cons (cons tag (cadr temp-list))
1133 arg-list (remove* (car temp-list) arg-list
1134 :test 'string= :count 1)
1135 arg-list (remove* (cadr temp-list) arg-list
1136 :test 'string= :count 1)
1137 temp-list nil))
1138 ;; --------------------- number without prefix
1139 ((and (not prefix)
1140 (string-match "^[-0-9.]+$" (car temp-list)))
1141 (setq this-cons (cons tag (car temp-list))
1142 arg-list (remove* (car temp-list) arg-list
1143 :test 'string= :count 1)
1144 temp-list nil))
1145 (t
1146 (setq temp-list (cdr temp-list)))))
1147 ;; ---------------------------- pair with prefix
1148 ((equal symbol 'pair)
1149 (if (and (string= prefix (car temp-list))
1150 (string-match "^[-0-9.]+$" (cadr temp-list)))
1151 (let ((this-car (cadr temp-list))
1152 (this-cdr (if (string-match "^[-0-9.]+$" (caddr temp-list))
1153 (caddr temp-list) "")))
1154 (setq this-cons (cons tag (cons this-car this-cdr))
1155 temp-list nil))
1156 (setq temp-list (cdr temp-list))))
1157 ;; ---------------------------- range
1158 ((equal symbol 'range)
1159 (if (string-match (concat "\\[\\s-*" ; opening bracket
1160 "\\([^:, \t]*\\)" ; first argument
1161 "\\s-*[:,]\\s-*" ; separator
1162 "\\([^\] \t]*\\)" ; second argument
1163 "\\s-*\\]") ; closing bracket
1164 (car temp-list))
1165 (setq this-cons
1166 (cons tag (cons (match-string 1 (car temp-list))
1167 (match-string 2 (car temp-list))))
1168 arg-list (remove* (car temp-list) arg-list
1169 :test 'string= :count 1)
1170 temp-list nil)
1171 (setq temp-list (cdr temp-list)) ))
1172 ;; ---------------------------- labels
1173 ((equal symbol 'labels)
1174 (if (string-match (concat "(" ; opening paren
1175 "\\([^\)]*\\)" ; string
1176 ")") ; closing paren
1177 (car temp-list))
1178 (let* ((list (split-string (car temp-list) "[ \t(),]+"))
1179 (list (remove* "" list :test 'string=))
1180 (return ()))
1181 (while list
1182 (if (string-match "['\"]\\([^'\"]*\\)['\"]" (car list))
1183 (setq return (append return
1184 (list (match-string 1 (car list))))
1185 list (cdr list)
1186 return (append return (list (car list))) )
1187 (setq return (append return (list "" (car list)))))
1188 (setq list (cdr list)) )
1189 (setq this-cons (cons tag return)
1190 arg-list (remove* (car temp-list) arg-list
1191 :test 'string= :count 1)
1192 temp-list nil))
1193 (setq temp-list (cdr temp-list))) )
1194 ;; ---------------------------- string, file, format
1195 ((member* symbol '(string file format) :test 'equal)
1196 (if (string-match (concat "['\"]" ; opening quote
1197 "\\([^'\"]*\\)" ; string
1198 "['\"]") ; closing quote
1199 (car temp-list))
1200 (setq this-cons (cons tag (match-string 0 (car temp-list)))
1201 arg-list (remove* (car temp-list) arg-list
1202 :test 'string= :count 1)
1203 temp-list nil)
1204 (setq temp-list (cdr temp-list)) ))
1205 ;; ---------------------------- string*
1206 ((equal symbol 'string*)
1207 (if (string= prefix (car temp-list))
1208 (setq this-cons (cons tag (cadr temp-list))
1209 arg-list (remove* (car temp-list) arg-list
1210 :test 'string= :count 1)
1211 arg-list (remove* (cadr temp-list) arg-list
1212 :test 'string= :count 1)
1213 temp-list nil)
1214 (setq temp-list (cdr temp-list)) ) )
1215 ;; ---------------------------- other or unknown
1216 (t
1217 (setq temp-list nil))
1218 ))
1219 (setq gnuplot-gui-alist
1220 (append gnuplot-gui-alist (list this-cons))))
1221 (setq alist (cdr alist))) ))
1222
1223
1224 (defun gnuplot-gui-post-process-alist (type)
1225 "A few types need some additional processing.
1226 'range, 'pair, and 'labels are cons or list valued and need to b made
1227 into strings. This is called right before inserting the arguments
1228 into the buffer. TYPE is the object whose arguments are being set."
1229 (let ((alist gnuplot-gui-alist)
1230 (types (cdr (assoc type gnuplot-gui-all-types))) )
1231 (while alist ;; loop thru alist looking for tyeps needing post-processing
1232 (let* ((list (assoc (caar alist) types))
1233 (value (cdr (assoc (caar alist) gnuplot-gui-alist)))
1234 (prefix (gnuplot-gui-type-prefix list))
1235 (symb (gnuplot-gui-type-symbol list)) )
1236 (cond
1237 ;;-------------------------- flat text
1238 ((equal (eval symb) 'text)
1239 (setcdr (assoc (caar alist) gnuplot-gui-alist) ""))
1240 ;;-------------------------- range [#:#] or [#,#]
1241 ((equal (eval symb) 'range)
1242 (if (and (string-match "^\\s-*$" (car value))
1243 (string-match "^\\s-*$" (cdr value)))
1244 (setcdr (assoc (caar alist) gnuplot-gui-alist) "")
1245 (setcdr (assoc (caar alist) gnuplot-gui-alist)
1246 (concat "[" (car value) prefix (cdr value) "]")) ) )
1247 ;;-------------------------- pair
1248 ((equal (eval symb) 'pair)
1249 (if (and (string-match "^\\s-*$" (car value))
1250 (string-match "^\\s-*$" (cdr value)))
1251 (setcdr (assoc (caar alist) gnuplot-gui-alist) "")
1252 (setcdr (assoc (caar alist) gnuplot-gui-alist)
1253 (concat prefix " " (car value) " " (cdr value) )) ) )
1254 ;;-------------------------- labels
1255 ((equal (eval symb) 'labels)
1256 (if (consp value)
1257 (let ((word "") (list value))
1258 (while list
1259 (if (string-match "^\\s-*$" (car list))
1260 (setq word (concat word (format "%s, " (cadr list))))
1261 (setq word (concat word (format "%S %s, " (car list)
1262 (cadr list)))))
1263 (setq list (cddr list)) )
1264 (setq value (concat "(" (substring word 0 -2) ")")))
1265 (setq value "") )
1266 (setcdr (assoc (caar alist) gnuplot-gui-alist) value) ))
1267
1268 (setq alist (cdr alist))) )))
1269
1270 \f
1271 ;;; GUI frames
1272
1273 (defun gnuplot-gui-prompt-for-frame (&optional option save-frame)
1274 (setq option (or option (completing-read "Option: " gnuplot-gui-all-types
1275 nil t nil t)))
1276 (gnuplot-gui-make-frame
1277 option (cdr (assoc option gnuplot-gui-all-types)) save-frame) )
1278
1279
1280 (defface gnuplot-gui-error-face '((((class color) (background light))
1281 (:foreground "grey30"))
1282 (((class color) (background dark))
1283 (:foreground "grey70")))
1284 "Face used to display message about unknown widget types."
1285 :group 'gnuplot-faces)
1286
1287 (defface gnuplot-gui-flat-text-face '((((class color) (background light))
1288 (:foreground "MediumBlue"))
1289 (((class color) (background dark))
1290 (:foreground "LightSteelBlue")))
1291 "Face used to display message about unknown widget types."
1292 :group 'gnuplot-faces)
1293
1294 (defun gnuplot-gui-make-frame (item alist &optional save-frame)
1295 "Open the frame and populate it with widgets.
1296 ITEM is the object for which arguments are being set. ALIST is
1297 the alist of arguments for ITEM taken from `gnuplot-gui-all-types'.
1298 SAVE-FRAME is non-nil when the widgets are being reset."
1299 (unless save-frame
1300 (setq gnuplot-current-frame (selected-frame)
1301 gnuplot-current-buffer (current-buffer)
1302 gnuplot-current-buffer-point (point-marker))
1303 (unless (and gnuplot-gui-frame (frame-live-p gnuplot-gui-frame))
1304 (setq gnuplot-gui-frame (if gnuplot-xemacs-p
1305 (make-frame gnuplot-gui-frame-plist)
1306 (make-frame gnuplot-gui-frame-parameters))))
1307 (select-frame gnuplot-gui-frame)
1308 ;;(set-frame-position gnuplot-gui-frame 150 150) ;; so herky-jerky
1309 (if gnuplot-xemacs-p
1310 (set-mouse-position (selected-window) 0 0)
1311 (set-mouse-position gnuplot-gui-frame 0 0)))
1312 (kill-buffer (get-buffer-create "*Gnuplot GUI*"))
1313 (switch-to-buffer (get-buffer-create "*Gnuplot GUI*"))
1314 (kill-all-local-variables)
1315 (if gnuplot-xemacs-p
1316 (progn
1317 (set (make-local-variable 'frame-title-format)
1318 "Set Gnuplot Options")
1319 (set (make-local-variable 'frame-icon-title-format)
1320 "Set Gnuplot Options"))
1321 (modify-frame-parameters (selected-frame)
1322 '((title . "Set Gnuplot Options"))) )
1323 (widget-insert "\nSet options for \"" item "\" ")
1324 (let (tag help val)
1325 (cond ((string-match "^[xyz]2?tics" item)
1326 (setq tag "info on tic labels"
1327 help "Open a frame displaying the info entry for tic labels"
1328 val "xtics"))
1329 ((string-match "^no" item)
1330 (setq tag (concat "info on " (substring item 2))
1331 help (format "Open a frame displaying the info entry for %S"
1332 item)
1333 val item))
1334 (t
1335 (setq tag (concat "info on " item)
1336 help (format "Open a frame displaying the info entry for %S"
1337 item)
1338 val item)))
1339 (widget-create 'gnuplot-gui-info-link :tag tag :help-echo help :value val))
1340
1341 (widget-insert "\n\n")
1342 (while alist
1343 (let* ((this (car alist))
1344 (tag (gnuplot-gui-type-tag this))
1345 (wtype (gnuplot-gui-type-symbol this))
1346 (prefix (gnuplot-gui-type-prefix this))
1347 (default (cdr (assoc tag gnuplot-gui-alist)))
1348 (list (gnuplot-gui-type-list this)))
1349 (if (symbolp (cadr list))
1350 (setq list (symbol-value (cadr list))))
1351 (widget-insert "\t") ; insert the appropriate widget
1352 (cond
1353 ;;------------------------------ list, list* ------------
1354 ((member* (eval wtype) '(list list*) :test 'equal)
1355 (let ((starred (if (equal (eval wtype) 'list*) t nil)))
1356 (gnuplot-gui-menu-choice tag default list starred)))
1357 ;;------------------------------ number, tag, fontsize --
1358 ((member* (eval wtype) '(number tag fontsize) :test 'equal)
1359 (gnuplot-gui-number tag default prefix))
1360 ;;------------------------------ position ---------------
1361 ;;------------------------------ range, pair ------------
1362 ((member* (eval wtype) '(range pair) :test 'equal)
1363 (let ((is-range (equal (eval wtype) 'range)))
1364 (gnuplot-gui-range tag default prefix is-range)))
1365 ;;------------------------------ string, string* --------
1366 ((member* (eval wtype) '(string string*) :test 'equal)
1367 (let ((starred (if (equal (eval wtype) 'string) nil t)))
1368 (gnuplot-gui-string tag default prefix starred)))
1369 ;;------------------------------ format -----------------
1370 ((equal (eval wtype) 'format)
1371 (gnuplot-gui-format tag default))
1372 ;;------------------------------ file -------------------
1373 ((equal (eval wtype) 'file)
1374 (gnuplot-gui-file tag default prefix))
1375 ;;------------------------------ labels -----------------
1376 ((equal (eval wtype) 'labels)
1377 (gnuplot-gui-labels tag default))
1378 ;;------------------------------ text -------------------
1379 ((equal (eval wtype) 'text)
1380 (let ((str (gnuplot-gui-type-default this)))
1381 (put-text-property 0 (length str) 'face 'gnuplot-gui-flat-text-face str)
1382 (widget-insert str "\n")))
1383 ;;------------------------------ unknown ----------------
1384 (t
1385 (let ((str (concat "<" (downcase tag) "> ('"
1386 (symbol-name (eval wtype))
1387 " arguments are not yet supported)\n")))
1388 (put-text-property 0 (length str) 'face 'gnuplot-gui-error-face str)
1389 (widget-insert str)) )))
1390 (setq alist (cdr alist)))
1391 ;; insert control buttons: [Set options] [Reset] [Clear] [Cancel]
1392 (widget-insert "\n\t")
1393 (widget-create 'push-button
1394 :value "Set options"
1395 :doc item
1396 :button-face 'gnuplot-gui-button-face
1397 :help-echo "Push this button to set options"
1398 :notify
1399 (lambda (widget &rest ignore)
1400 (kill-buffer (get-buffer-create "*Gnuplot GUI*"))
1401 (delete-frame)
1402 (select-frame gnuplot-current-frame)
1403 (switch-to-buffer gnuplot-current-buffer)
1404 (goto-char gnuplot-current-buffer-point)
1405 (gnuplot-gui-post-process-alist
1406 (widget-get widget :doc))
1407 (let ((alist gnuplot-gui-alist) marker
1408 (eol (save-excursion (end-of-line) (point-marker) )) )
1409 (if (re-search-forward ";" eol "to_limit")
1410 (backward-char 1))
1411 (delete-region gnuplot-current-buffer-point (point-marker))
1412 (delete-horizontal-space)
1413 (setq marker (point-marker))
1414 (while alist
1415 (let ((val (cdar alist)))
1416 (if (string-match "^\\s-+$" val) ()
1417 (if (string-match "^['\"]\\(.*\\)['\"]$" val)
1418 (setq val (concat gnuplot-quote-character
1419 (match-string 1 val)
1420 gnuplot-quote-character)))
1421 (insert (format " %s" val))))
1422 (setq alist (cdr alist)))
1423 (setq eol (point-marker))
1424 (goto-char marker)
1425 (while (< (point) eol) ; a few odd cases
1426 (unless (looking-at (concat "[" (regexp-quote "(")
1427 (regexp-quote "*") ",]"))
1428 (just-one-space))
1429 (forward-sexp)))
1430 (delete-horizontal-space)
1431 (if (string= "terminal" (widget-get widget :doc))
1432 (gnuplot-gui-set-options-and-insert)) ))
1433 (widget-insert " ")
1434 (widget-create 'push-button :value "Reset"
1435 :help-echo "Push this button to reset all values"
1436 :button-face 'gnuplot-gui-button-face
1437 :doc item
1438 :notify
1439 (lambda (widget &rest ignore)
1440 (let ((word (widget-get widget :doc)))
1441 (gnuplot-gui-set-alist word gnuplot-gui-current-string)
1442 (gnuplot-gui-prompt-for-frame word t))))
1443 (widget-insert " ")
1444 (widget-create 'push-button :value "Clear"
1445 :help-echo "Push this button to clear all values"
1446 :button-face 'gnuplot-gui-button-face
1447 :doc item
1448 :notify
1449 (lambda (widget &rest ignore)
1450 (let* ((word (widget-get widget :doc))
1451 (alist (cdr (assoc word gnuplot-gui-all-types))))
1452 (while alist
1453 (setcdr (assoc (gnuplot-gui-type-tag (car alist))
1454 gnuplot-gui-alist)
1455 (gnuplot-gui-type-default (car alist)))
1456 (setq alist (cdr alist)))
1457 (gnuplot-gui-prompt-for-frame word t))) )
1458 (widget-insert " ")
1459 (widget-create 'push-button :value "Cancel"
1460 :help-echo "Quit setting options and dismiss frame"
1461 :button-face 'gnuplot-gui-button-face
1462 :notify (lambda (widget &rest ignore)
1463 (kill-buffer (get-buffer-create "*Gnuplot GUI*"))
1464 (setq gnuplot-gui-alist nil
1465 gnuplot-gui-current-string nil)
1466 (delete-frame)
1467 (select-frame gnuplot-current-frame)))
1468 (goto-char (point-min))
1469 (use-local-map widget-keymap)
1470 (widget-setup))
1471
1472 \f
1473 ;;; widgets
1474
1475 (defface gnuplot-gui-menu-face '((((class color) (background light))
1476 (:bold t :foreground "darkolivegreen"))
1477 (((class color) (background dark))
1478 (:bold t :foreground "seagreen"))
1479 (t
1480 (:italic t)))
1481 "Face used for menu-buttons."
1482 :group 'gnuplot-faces)
1483 (defface gnuplot-gui-button-face '((((class color) (background light))
1484 (:bold t :foreground "sienna"))
1485 (((class color) (background dark))
1486 (:bold t :foreground "tan"))
1487 (t
1488 (:italic t)))
1489 "Face used for push-buttons.
1490 Only used in Emacs. XEmacs displays push-buttons with a pixmap."
1491 :group 'gnuplot-faces)
1492 (defface gnuplot-gui-labels-face '((((class color) (background light))
1493 (:bold t :foreground "darkslateblue"))
1494 (((class color) (background dark))
1495 (:bold t :foreground "lightslateblue"))
1496 (t
1497 (:italic t)))
1498 "Face used for insert and delete button in the labels widget."
1499 :group 'gnuplot-faces)
1500
1501 (defun gnuplot-gui-menu-choice (item default list &optional starred)
1502 "Create a menu widget for the Gnuplot GUI.
1503 ITEM is the object whose arguments are set by this widget, DEFAULT
1504 is the default argument value, LIST contains the items for the pop-up
1505 menu. STARRED is true if this a 'list* widget."
1506 (let ((widget
1507 (apply 'widget-create
1508 'menu-choice :value default :tag item :doc starred
1509 :button-face 'gnuplot-gui-menu-face
1510 :button-prefix "[" :button-suffix "]"
1511 :help-echo (format "Mouse-2 to view the %S menu" (downcase item))
1512 :notify
1513 (lambda (widget &rest ignore)
1514 (let ((lab (if (widget-get widget :doc)
1515 (concat (downcase (widget-get widget :tag)) " ")
1516 "" )))
1517 (setcdr (assoc (widget-get widget :tag) gnuplot-gui-alist)
1518 (if (string= (widget-value widget) " ") ""
1519 (format "%s%s" lab (widget-value widget))) )))
1520 (mapcar (lambda (x) (list 'item :value x))
1521 list))))
1522 (widget-value-set widget default)
1523 (if (and starred (not (string-match "^\\s-*$" default)))
1524 (setcdr (assoc item gnuplot-gui-alist)
1525 (format "%s %s" (downcase item) default)))
1526 widget))
1527
1528 (defun gnuplot-gui-number (item default &optional prefix)
1529 "Create a number widget for the Gnuplot GUI.
1530 ITEM is the object whose arguments are set by this widget, DEFAULT
1531 is the default value for the widget, PREFIX is a text string preceding
1532 the numerical argument."
1533 (let ((help-label (or prefix (downcase item))))
1534 (widget-insert (capitalize item) ": ")
1535 (widget-create 'editable-field
1536 :size 2 :tag item :value default :doc prefix
1537 :help-echo (format "Insert new value of %S here" help-label)
1538 :notify (lambda (widget &rest ignore)
1539 (let ((val (widget-value widget))
1540 (pre (concat (widget-get widget :doc) " ")))
1541 (setcdr (assoc (widget-get widget :tag)
1542 gnuplot-gui-alist)
1543 (if (string-match
1544 "^\\s-*[-0-9.*]+\\s-*$" val)
1545 (format "%s%s" pre val) "") )))))
1546 (unless (string-match "^\\s-*$" default)
1547 (setcdr (assoc item gnuplot-gui-alist) (format "%s %s" prefix default)))
1548 (widget-insert " " (make-string (- 40 (current-column)) ?.)
1549 " (numeric value)\n"))
1550
1551 (defun gnuplot-gui-string (item default &optional width_or_prefix starred)
1552 "Create a string widget for the Gnuplot GUI.
1553 ITEM is the object whose arguments are set by this widget, DEFAULT is
1554 the default value for the widget, and WIDTH_OR_PREFIX is the width of
1555 the text entry field (which defaults to half the frame width) or the
1556 prefix for the string. STARRED is t if quotes are not to be used."
1557 (let ((help-label (downcase item)) width (prefix "") (pp ""))
1558 (cond ((stringp width_or_prefix)
1559 (setq prefix width_or_prefix
1560 pp prefix)
1561 (if starred (setq prefix (concat prefix "_star"))) )
1562 ((numberp width_or_prefix)
1563 (setq width width_or_prefix)))
1564 (setq width (or width (/ (frame-width) 2)))
1565 (if (string-match "^['\"]" default)
1566 (setq default (replace-match "" nil nil default)))
1567 (if (string-match "['\"]$" default)
1568 (setq default (replace-match "" nil nil default)))
1569 (widget-insert (capitalize item) ": ")
1570 (widget-create
1571 'editable-field
1572 :size width :tag item :doc prefix :value default
1573 :help-echo (format "Insert new value of %S here" help-label)
1574 :notify (lambda (widget &rest ignore)
1575 (let ((val (widget-value widget))
1576 (q gnuplot-quote-character)
1577 (p (widget-get widget :doc)) )
1578 (setcdr (assoc (widget-get widget :tag) gnuplot-gui-alist)
1579 (if (string-match "^\\s-*$" val)
1580 ""
1581 (progn
1582 (if (string-match "_star$" p)
1583 (setq p (concat (substring p 0 -5) " ")
1584 q ""))
1585 (if (string-match "^\\s-+" val)
1586 (setq val (replace-match "" nil nil val)))
1587 (if (string-match "\\s-+$" val)
1588 (setq val (replace-match "" nil nil val)))
1589 (format "%s%s%s%s" p q val q)))))))
1590 (unless (string-match "^\\s-*$" default)
1591 (setcdr (assoc item gnuplot-gui-alist) (format "%s %s" pp default)))
1592 (widget-insert "\n")))
1593
1594 (defun gnuplot-gui-format (item default)
1595 "Create a string widget for the Gnuplot GUI.
1596 ITEM is the object whose arguments are set by this widget, DEFAULT is
1597 the default value for the widget, and WIDTH_OR_PREFIX is the width of
1598 the text entry field (which defaults to half the frame width) or the
1599 prefix for the string."
1600 (if (string-match "^['\"]" default)
1601 (setq default (replace-match "" nil nil default)))
1602 (if (string-match "['\"]$" default)
1603 (setq default (replace-match "" nil nil default)))
1604 (widget-insert (capitalize item) ": ")
1605 (widget-create 'editable-field
1606 :size (/ (frame-width) 3) :tag item :value default
1607 :help-echo (format "Insert new format string here")
1608 :notify (lambda (widget &rest ignore)
1609 (let ((val (widget-value widget)))
1610 (setcdr (assoc (widget-get widget :tag)
1611 gnuplot-gui-alist)
1612 (format "%s%s%s"
1613 gnuplot-quote-character
1614 val
1615 gnuplot-quote-character)))))
1616 (widget-insert " ")
1617 (widget-create 'gnuplot-gui-info-link
1618 :tag (concat "info on format")
1619 :help-echo "Open a frame displaying the info entry for format"
1620 :value "format")
1621 (widget-insert "\n"))
1622
1623
1624 ;; swiped from widget-color-complete
1625 (defun gnuplot-gui-file-completion (widget)
1626 "Complete the filename in WIDGET."
1627 (let* ((str (buffer-substring-no-properties (widget-field-start widget)
1628 (point)))
1629 (file (or (file-name-nondirectory str) ""))
1630 (dir (or (file-name-directory str) "./"))
1631 (val (file-name-completion file dir)) )
1632 (cond ((eq val t)
1633 (message "Exact match"))
1634 ((null val)
1635 (error "Can't find completion for \"%s\"" str))
1636 ((not (string-equal str val))
1637 (insert (substring val (length file))))
1638 (t
1639 (message "Making completion list...")
1640 (let ((list (file-name-all-completions file dir)))
1641 (with-output-to-temp-buffer "*Completions*"
1642 (display-completion-list list)))
1643 (message "Making completion list...done")))))
1644
1645 (defun gnuplot-gui-file (item default &optional tag)
1646 "Create a file widget for the Gnuplot GUI.
1647 ITEM is the object whose arguments is set by this widget, DEFAULT is
1648 the default value for the argument. TAG is non-nil if ITEM rather than
1649 \"File:\" is to be used as the tag."
1650 (setq tag (if tag (capitalize item) "File"))
1651 (if (string-match "^['\"]" default)
1652 (setq default (replace-match "" nil nil default)))
1653 (if (string-match "['\"]$" default)
1654 (setq default (replace-match "" nil nil default)))
1655 (let ((widg (widget-create
1656 'file
1657 :value default :tag tag
1658 :size (- (/ (frame-width) 2) 3)
1659 :doc item :help-echo "Insert a filename here"
1660 :complete 'gnuplot-gui-file-completion
1661 :notify
1662 (lambda (widget &rest ignore)
1663 (setcdr (assoc (widget-get widget :doc) gnuplot-gui-alist)
1664 (format "%s%s%s" gnuplot-quote-character
1665 (widget-value widget)
1666 gnuplot-quote-character)) )) ))
1667 (widget-insert " ")
1668 (widget-create
1669 'push-button :value "Browse"
1670 :doc item :help-echo "Browse directories for a filename."
1671 :parent widg
1672 :notify (lambda (widget &rest ignore)
1673 (let ((fname (file-relative-name (read-file-name "File: ")
1674 default-directory))
1675 (q gnuplot-quote-character))
1676 (widget-value-set (widget-get widget :parent) fname)
1677 (setcdr (assoc (widget-get widget :doc) gnuplot-gui-alist)
1678 (format "%s%s%s" q fname q))
1679 (widget-setup))))
1680 (widget-insert "\n")))
1681
1682 (defun gnuplot-gui-labels (item default)
1683 "Create a labels widget for the Gnuplot GUI.
1684 ITEM is the object whose arguments is set by this widget, DEFAULT is
1685 the default value for the argument."
1686 (widget-create
1687 '(editable-list
1688 (list :inline t :tag "Tic label"
1689 (string :tag "label" :size 10
1690 :help-echo "Enter the tic label here" )
1691 (string :tag " position" :size 10
1692 :help-echo "Enter an expression for the tic location here" )))
1693 :tag (capitalize item)
1694 :value default
1695 :format "%{%t%}:\n%v\t %i\n"
1696 :entry-format "\t %i %d %v\n"
1697 :button-face 'gnuplot-gui-labels-face
1698 :notify (lambda (widget &rest ignore)
1699 (setcdr (assoc (upcase (widget-get widget :tag))
1700 gnuplot-gui-alist)
1701 (widget-value widget)))))
1702
1703 (defun gnuplot-gui-range (item default separator is-range)
1704 "Create a range or pair widget for the Gnuplot GUI.
1705 ITEM is the object whose arguments are set by this widget, DEFAULT is
1706 the default value for the widget, SEPARATOR is a text string preceding
1707 the numerical argument, or the prefix for a pair operator. IS-RANGE
1708 is non-nil if this is a 'range widget."
1709 (widget-insert (capitalize item) ": ")
1710 (if is-range (widget-insert "["))
1711 (widget-create 'editable-field
1712 :size 4 :tag item :value (car default)
1713 :help-echo (format "Insert the first value of the %S here"
1714 (downcase item))
1715 :notify (lambda (widget &rest ignore)
1716 (setcar (cdr (assoc (widget-get widget :tag)
1717 gnuplot-gui-alist))
1718 (format "%s" (widget-value widget)))))
1719 (if is-range (widget-insert separator) (widget-insert " "))
1720 (widget-create 'editable-field
1721 :size 4 :tag item :value (cdr default)
1722 :help-echo (format "Insert the second value of the %S here"
1723 (downcase item))
1724 :notify (lambda (widget &rest ignore)
1725 (setcdr (cdr (assoc (widget-get widget :tag)
1726 gnuplot-gui-alist))
1727 (format "%s" (widget-value widget)))))
1728 (if is-range (widget-insert "]"))
1729 (widget-insert " " (make-string (- 39 (current-column)) ?.)
1730 " (numeric values)\n"))
1731
1732
1733 ;; suppress compiler warning
1734 ;;(eval-when-compile (defun gnuplot-info-lookup-symbol (sym mode)))
1735 (define-widget 'gnuplot-gui-info-link 'info-link
1736 "A link to an info file for the Gnuplot GUI."
1737 :action '(lambda (widget &optional event)
1738 (let ((gnuplot-info-display 'frame))
1739 (if gnuplot-keywords-pending ; <HW>
1740 (gnuplot-setup-info-look))
1741 (gnuplot-info-lookup-symbol (widget-value widget)
1742 'gnuplot-mode))))
1743
1744 \f
1745 ;;; just about done
1746
1747 (provide 'gnuplot-gui)
1748 ;;;============================================================================
1749 ;;;
1750 ;;; gnuplot-gui.el ends here
my emacs tree