+++ /dev/null
-;;; graphviz-dot-mode.el --- Mode for the dot-language used by graphviz (att).
-
-;; Copyright (C) 2002 - 2005 Pieter Pareit <pieter.pareit@scarlet.be>
-
-;; This program is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License as
-;; published by the Free Software Foundation; either version 2 of
-;; the License, or (at your option) any later version.
-
-;; This program is distributed in the hope that it will be
-;; useful, but WITHOUT ANY WARRANTY; without even the implied
-;; warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
-;; PURPOSE. See the GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public
-;; License along with this program; if not, write to the Free
-;; Software Foundation, Inc., 59 Temple Place, Suite 330, Boston,
-;; MA 02111-1307 USA
-
-;; Authors: Pieter Pareit <pieter.pareit@scarlet.be>
-;; Rubens Ramos <rubensr AT users.sourceforge.net>
-;; Maintainer: Pieter Pareit <pieter.pareit@planetinternet.be>
-;; Homepage: http://users.skynet.be/ppareit/projects/graphviz-dot-mode/graphviz-dot-mode.html
-;; Created: 28 Oct 2002
-;; Last modified: 24 Feb 2005
-;; Version: 0.3.4
-;; Keywords: mode dot dot-language dotlanguage graphviz graphs att
-
-;;; Commentary:
-;; Use this mode for editing files in the dot-language (www.graphviz.org and
-;; http://www.research.att.com/sw/tools/graphviz/).
-;;
-;; To use graphviz-dot-mode, add
-;; (load-file "PATH_TO_FILE/graphviz-dot-mode.el")
-;; to your ~/.emacs(.el) or ~/.xemacs/init.el
-;;
-;; The graphviz-dot-mode will do font locking, indentation, preview of graphs
-;; and eases compilation/error location. There is support for both GNU Emacs
-;; and XEmacs.
-;;
-;; Font locking is automatic, indentation uses the same commands as
-;; other modes, tab, M-j and C-M-q. Insertion of comments uses the
-;; same commands as other modes, M-; . You can compile a file using
-;; M-x compile or C-c c, after that M-x next-error will also work.
-;; There is support for viewing an generated image with C-c p.
-
-;;; Todo:
-;; * cleanup the mess of graphviz-dot-compilation-parse-errors
-;; * electric indentation is fundamentally broken, because
-;; {...} are also used for record nodes. You could argue, I suppose, that
-;; many diagrams don't need those, but it would be worth having a note (and
-;; it makes sense that the default is now for electric indentation to be
-;; off).
-
-;;; History:
-
-;; Version 0.3.4 bug fixes
-;; 24/02/2005: * fixed a bug in graphviz-dot-preview
-;; Version 0.3.3 bug fixes
-;; 13/02/2005: Reuben Thomas <rrt AT sc3d.org>
-;; * add graphviz-dot-indent-width
-;; Version 0.3.2 bug fixes
-;; 25/03/2004: Rubens Ramos <rubensr AT users.sourceforge.net>
-;; * semi-colons and brackets are added when electric
-;; behaviour is disabled.
-;; * electric characters do not behave electrically inside
-;; comments or strings.
-;; * default for electric-braces is disabled now (makes more
-;; sense I guess).
-;; * using read-from-minibuffer instead of read-shell-command
-;; for emacs.
-;; * Fixed test for easymenu, so that it works on older
-;; versions of XEmacs.
-;; * Fixed indentation error when trying to indent last brace
-;; of an empty graph.
-;; * region-active-p does not exist in emacs (21.2 at least),
-;; so removed from code
-;; * Added uncomment menu option
-;; Version 0.3.1 bug fixes
-;; 03/03/2004: * backward-word needs argument for older emacs
-;; Version 0.3 added features and fixed bugs
-;; 10/01/2004: fixed a bug in graphviz-dot-indent-graph
-;; 08/01/2004: Rubens Ramos <rubensr AT users.sourceforge.net>
-;; * added customization support
-;; * Now it works on XEmacs and Emacs
-;; * Added support to use an external Viewer
-;; * Now things do not break when dot mode is entered
-;; when there is no buffer name, but the side effect is
-;; that in this case, the compilation command is not
-;; correct.
-;; * Preview works on XEmacs and emacs.
-;; * Electric indentation on newline
-;; * Minor changes to indentation
-;; * Added keyword completion (but could be A LOT better)
-;; * There are still a couple of ugly hacks. Look for 'RR'.
-;; Version 0.2 added features
-;; 11/11/2002: added preview support.
-;; 10/11/2002: indent a graph or subgraph at once with C-M-q.
-;; 08/11/2002: relaxed rules for indentation, the may now be extra chars
-;; after beginning of graph (comment's for example).
-;; Version 0.1.2 bug fixes and naming issues
-;; 06/11/2002: renamed dot-font-lock-defaults to dot-font-lock-keywords.
-;; added some documentation to dot-colors.
-;; provided a much better way to handle my max-specpdl-size
-;; problem.
-;; added an extra autoload cookie (hope this helps, as I don't
-;; yet use autoload myself)
-;; Version 0.1.1 bug fixes
-;; 06/11/2002: added an missing attribute, for font-locking to work.
-;; fixed the regex generating, so that it only recognizes
-;; whole words
-;; 05/11/2002: there can now be extra white space chars after an '{'.
-;; 04/11/2002: Why I use max-specpdl-size is now documented, and old value
-;; gets restored.
-;; Version 0.1 initial release
-;; 02/11/2002: implemented parser for *compilation* of a .dot file.
-;; 01/11/2002: implemented compilation of an .dot file.
-;; 31/10/2002: added syntax-table to the mode.
-;; 30/10/2002: implemented indentation code.
-;; 29/10/2002: implemented all of font-lock.
-;; 28/10/2002: derived graphviz-dot-mode from fundamental-mode, started
-;; implementing font-lock.
-
-;;; Code:
-
-(defconst graphviz-dot-mode-version "0.3.3"
- "Version of `graphviz-dot-mode.el'.")
-
-(defgroup graphviz nil
- "Major mode for editing Graphviz Dot files"
- :group 'tools)
-
-(defun graphviz-dot-customize ()
- "Run \\[customize-group] for the `graphviz' group."
- (interactive)
- (customize-group 'graphviz))
-
-(defvar graphviz-dot-mode-abbrev-table nil
- "Abbrev table in use in Graphviz Dot mode buffers.")
-(define-abbrev-table 'graphviz-dot-mode-abbrev-table ())
-
-(defcustom graphviz-dot-dot-program "dot"
- "*Location of the dot program. This is used by `compile'."
- :type 'string
- :group 'graphviz)
-
-(defcustom graphviz-dot-view-command "doted %s"
- "*External program to run on the buffer. You can use `%s' in this string,
-and it will be substituted by the buffer name."
- :type 'string
- :group 'graphviz)
-
-(defcustom graphviz-dot-view-edit-command nil
- "*Whether to allow the user to edit the command to run an external
-viewer."
- :type 'boolean
- :group 'graphviz)
-
-(defcustom graphviz-dot-save-before-view t
- "*If not nil, M-x graphviz-dot-view saves the current buffer before running
-the command."
- :type 'boolean
- :group 'graphviz)
-
-(defcustom graphviz-dot-auto-indent-on-newline t
- "*If not nil, `electric-graphviz-dot-terminate-line' is executed in a line is terminated."
- :type 'boolean
- :group 'graphviz)
-
-(defcustom graphviz-dot-indent-width default-tab-width
- "*Indentation width in Graphviz Dot mode buffers."
- :type 'integer
- :group 'graphviz)
-
-(defcustom graphviz-dot-auto-indent-on-braces nil
- "*If not nil, `electric-graphviz-dot-open-brace' and `electric-graphviz-dot-close-brace' are executed when { or } are typed"
- :type 'boolean
- :group 'graphviz)
-
-(defcustom graphviz-dot-auto-indent-on-semi t
- "*If not nil, `electric-graphviz-dot-semi' is executed when semicolon is typed"
- :type 'boolean
- :group 'graphviz)
-
-(defcustom graphviz-dot-preview-extension "png"
- "*The extension to use for the compilation and preview commands. The format
-for the compilation command is
-`dot -T<extension> file.dot > file.<extension>'."
- :type 'string
- :group 'graphviz)
-
-(defcustom graphviz-dot-toggle-completions nil
- "*Non-nil means that repeated use of \
-\\<graphviz-dot-mode-map>\\[graphviz-dot-complete-word] will toggle the possible
-completions in the minibuffer. Normally, when there is more than one possible
-completion, a buffer will display all completions."
- :type 'boolean
- :group 'graphviz)
-
-(defcustom graphviz-dot-delete-completions nil
- "*Non-nil means that the completion buffer is automatically deleted when a
-key is pressed."
- :type 'boolean
- :group 'graphviz)
-
-(defcustom graphviz-dot-attr-keywords
- '("graph" "digraph" "subgraph" "node" "edge" "strict" "rankdir"
- "size" "page" "Damping" "Epsilon" "URL" "arrowhead" "arrowsize"
- "arrowtail" "bb" "bgcolor" "bottomlabel" "center" "clusterrank"
- "color" "comment" "compound" "concentrate" "constraint" "decorate"
- "dim" "dir" "distortion" "fillcolor" "fixedsize" "fontcolor"
- "fontname" "fontpath" "fontsize" "group" "headURL" "headlabel"
- "headport" "height" "label" "labelangle" "labeldistance" "labelfloat"
- "labelfontcolor" "labelfontname" "labelfontsize" "labeljust"
- "labelloc" "layer" "layers" "len" "lhead" "lp" "ltail" "margin"
- "maxiter" "mclimit" "minlen" "model" "nodesep" "normalize" "nslimit"
- "nslimit1" "ordering" "orientation" "overlap" "pack" "pagedir"
- "pencolor" "peripheries" "pin" "pos" "quantum" "rank" "ranksep"
- "ratio" "rects" "regular" "remincross" "rotate" "samehead" "sametail"
- "samplepoint" "searchsize" "sep" "shape" "shapefile" "showboxes"
- "sides" "skew" "splines" "start" "style" "stylesheet" "tailURL"
- "taillabel" "tailport" "toplabel" "vertices" "voro_margin" "weight"
- "z")
- "*Keywords for attribute names in a graph. This is used by the auto
-completion code. The actual completion tables are built when the mode
-is loaded, so changes to this are not immediately visible."
- :type '(repeat (string :tag "Keyword"))
- :group 'graphviz)
-
-(defcustom graphviz-dot-value-keywords
- '("true" "false" "normal" "inv" "dot" "invdot" "odot" "invodot"
- "none" "tee" "empty" "invempty" "diamond" "odiamond" "box" "obox"
- "open" "crow" "halfopen" "local" "global" "none" "forward" "back"
- "both" "none" "BL" "BR" "TL" "TR" "RB" "RT" "LB" "LT" ":n" ":ne" ":e"
- ":se" ":s" ":sw" ":w" ":nw" "same" "min" "source" "max" "sink" "LR"
- "box" "polygon" "ellipse" "circle" "point" "egg" "triangle"
- "plaintext" "diamond" "trapezium" "parallelogram" "house" "hexagon"
- "octagon" "doublecircle" "doubleoctagon" "tripleoctagon" "invtriangle"
- "invtrapezium" "invhouse" "Mdiamond" "Msquare" "Mcircle" "record"
- "Mrecord" "dashed" "dotted" "solid" "invis" "bold" "filled"
- "diagonals" "rounded" )
- "*Keywords for attribute values. This is used by the auto completion
-code. The actual completion tables are built when the mode is loaded,
-so changes to this are not immediately visible."
- :type '(repeat (string :tag "Keyword"))
- :group 'graphviz)
-
-;;; Font-locking:
-(defvar graphviz-dot-colors-list
- '(aliceblue antiquewhite antiquewhite1 antiquewhite2
- antiquewhite3 antiquewhite4 aquamarine aquamarine1
- aquamarine2 aquamarine3 aquamarine4 azure azure1
- azure2 azure3 azure4 beige bisque bisque1 bisque2
- bisque3 bisque4 black blanchedalmond blue blue1
- blue2 blue3 blue4 blueviolet brown brown1 brown2
- brown3 brown4 burlywood burlywood1 burlywood2
- burlywood3 burlywood4 cadetblue cadetblue1
- cadetblue2 cadetblue3 cadetblue4 chartreuse
- chartreuse1 chartreuse2 chartreuse3 chartreuse4
- chocolate chocolate1 chocolate2 chocolate3 chocolate4
- coral coral1 coral2 coral3 coral4 cornflowerblue
- cornsilk cornsilk1 cornsilk2 cornsilk3 cornsilk4
- crimson cyan cyan1 cyan2 cyan3 cyan4 darkgoldenrod
- darkgoldenrod1 darkgoldenrod2 darkgoldenrod3
- darkgoldenrod4 darkgreen darkkhaki darkolivegreen
- darkolivegreen1 darkolivegreen2 darkolivegreen3
- darkolivegreen4 darkorange darkorange1 darkorange2
- darkorange3 darkorange4 darkorchid darkorchid1
- darkorchid2 darkorchid3 darkorchid4 darksalmon
- darkseagreen darkseagreen1 darkseagreen2
- darkseagreen3 darkseagreen4 darkslateblue
- darkslategray darkslategray1 darkslategray2
- darkslategray3 darkslategray4 darkslategrey
- darkturquoise darkviolet deeppink deeppink1
- deeppink2 deeppink3 deeppink4 deepskyblue
- deepskyblue1 deepskyblue2 deepskyblue3 deepskyblue4
- dimgray dimgrey dodgerblue dodgerblue1 dodgerblue2
- dodgerblue3 dodgerblue4 firebrick firebrick1
- firebrick2 firebrick3 firebrick4 floralwhite
- forestgreen gainsboro ghostwhite gold gold1 gold2
- gold3 gold4 goldenrod goldenrod1 goldenrod2
- goldenrod3 goldenrod4 gray gray0 gray1 gray10 gray100
- gray11 gray12 gray13 gray14 gray15 gray16 gray17
- gray18 gray19 gray2 gray20 gray21 gray22 gray23
- gray24 gray25 gray26 gray27 gray28 gray29 gray3
- gray30 gray31 gray32 gray33 gray34 gray35 gray36
- gray37 gray38 gray39 gray4 gray40 gray41 gray42
- gray43 gray44 gray45 gray46 gray47 gray48 gray49
- gray5 gray50 gray51 gray52 gray53 gray54 gray55
- gray56 gray57 gray58 gray59 gray6 gray60 gray61
- gray62 gray63 gray64 gray65 gray66 gray67 gray68
- gray69 gray7 gray70 gray71 gray72 gray73 gray74
- gray75 gray76 gray77 gray78 gray79 gray8 gray80
- gray81 gray82 gray83 gray84 gray85 gray86 gray87
- gray88 gray89 gray9 gray90 gray91 gray92 gray93
- gray94 gray95 gray96 gray97 gray98 gray99 green
- green1 green2 green3 green4 greenyellow grey grey0
- grey1 grey10 grey100 grey11 grey12 grey13 grey14
- grey15 grey16 grey17 grey18 grey19 grey2 grey20
- grey21 grey22 grey23 grey24 grey25 grey26 grey27
- grey28 grey29 grey3 grey30 grey31 grey32 grey33
- grey34 grey35 grey36 grey37 grey38 grey39 grey4
- grey40 grey41 grey42 grey43 grey44 grey45 grey46
- grey47 grey48 grey49 grey5 grey50 grey51 grey52
- grey53 grey54 grey55 grey56 grey57 grey58 grey59
- grey6 grey60 grey61 grey62 grey63 grey64 grey65
- grey66 grey67 grey68 grey69 grey7 grey70 grey71
- grey72 grey73 grey74 grey75 grey76 grey77 grey78
- grey79 grey8 grey80 grey81 grey82 grey83 grey84
- grey85 grey86 grey87 grey88 grey89 grey9 grey90
- grey91 grey92 grey93 grey94 grey95 grey96 grey97
- grey98 grey99 honeydew honeydew1 honeydew2 honeydew3
- honeydew4 hotpink hotpink1 hotpink2 hotpink3 hotpink4
- indianred indianred1 indianred2 indianred3 indianred4
- indigo ivory ivory1 ivory2 ivory3 ivory4 khaki khaki1
- khaki2 khaki3 khaki4 lavender lavenderblush
- lavenderblush1 lavenderblush2 lavenderblush3
- lavenderblush4 lawngreen lemonchiffon lemonchiffon1
- lemonchiffon2 lemonchiffon3 lemonchiffon4 lightblue
- lightblue1 lightblue2 lightblue3 lightblue4
- lightcoral lightcyan lightcyan1 lightcyan2 lightcyan3
- lightcyan4 lightgoldenrod lightgoldenrod1
- lightgoldenrod2 lightgoldenrod3 lightgoldenrod4
- lightgoldenrodyellow lightgray lightgrey lightpink
- lightpink1 lightpink2 lightpink3 lightpink4
- lightsalmon lightsalmon1 lightsalmon2 lightsalmon3
- lightsalmon4 lightseagreen lightskyblue lightskyblue1
- lightskyblue2 lightskyblue3 lightskyblue4
- lightslateblue lightslategray lightslategrey
- lightsteelblue lightsteelblue1 lightsteelblue2
- lightsteelblue3 lightsteelblue4 lightyellow
- lightyellow1 lightyellow2 lightyellow3 lightyellow4
- limegreen linen magenta magenta1 magenta2 magenta3
- magenta4 maroon maroon1 maroon2 maroon3 maroon4
- mediumaquamarine mediumblue mediumorchid
- mediumorchid1 mediumorchid2 mediumorchid3
- mediumorchid4 mediumpurple mediumpurple1
- mediumpurple2 mediumpurple3 mediumpurple4
- mediumseagreen mediumslateblue mediumspringgreen
- mediumturquoise mediumvioletred midnightblue
- mintcream mistyrose mistyrose1 mistyrose2 mistyrose3
- mistyrose4 moccasin navajowhite navajowhite1
- navajowhite2 navajowhite3 navajowhite4 navy navyblue
- oldlace olivedrab olivedrap olivedrab1 olivedrab2
- olivedrap3 oragne palegoldenrod palegreen palegreen1
- palegreen2 palegreen3 palegreen4 paleturquoise
- paleturquoise1 paleturquoise2 paleturquoise3
- paleturquoise4 palevioletred palevioletred1
- palevioletred2 palevioletred3 palevioletred4
- papayawhip peachpuff peachpuff1 peachpuff2
- peachpuff3 peachpuff4 peru pink pink1 pink2 pink3
- pink4 plum plum1 plum2 plum3 plum4 powderblue
- purple purple1 purple2 purple3 purple4 red red1 red2
- red3 red4 rosybrown rosybrown1 rosybrown2 rosybrown3
- rosybrown4 royalblue royalblue1 royalblue2 royalblue3
- royalblue4 saddlebrown salmon salmon1 salmon2 salmon3
- salmon4 sandybrown seagreen seagreen1 seagreen2
- seagreen3 seagreen4 seashell seashell1 seashell2
- seashell3 seashell4 sienna sienna1 sienna2 sienna3
- sienna4 skyblue skyblue1 skyblue2 skyblue3 skyblue4
- slateblue slateblue1 slateblue2 slateblue3 slateblue4
- slategray slategray1 slategray2 slategray3 slategray4
- slategrey snow snow1 snow2 snow3 snow4 springgreen
- springgreen1 springgreen2 springgreen3 springgreen4
- steelblue steelblue1 steelblue2 steelblue3 steelblue4
- tan tan1 tan2 tan3 tan4 thistle thistle1 thistle2
- thistle3 thistle4 tomato tomato1 tomato2 tomato3
- tomato4 transparent turquoise turquoise1 turquoise2
- turquoise3 turquoise4 violet violetred violetred1
- violetred2 violetred3 violetred4 wheat wheat1 wheat2
- wheat3 wheat4 white whitesmoke yellow yellow1 yellow2
- yellow3 yellow4 yellowgreen)
- "Possible color constants in the dot language.
-The list of constant is available at http://www.research.att.com/~erg/graphviz\
-/info/colors.html")
-
-
-(defvar graphviz-dot-color-keywords
- (mapcar 'symbol-name graphviz-dot-colors-list))
-
-(defvar graphviz-attr-keywords
- (mapcar '(lambda (elm) (cons elm 0)) graphviz-dot-attr-keywords))
-
-(defvar graphviz-value-keywords
- (mapcar '(lambda (elm) (cons elm 0)) graphviz-dot-value-keywords))
-
-(defvar graphviz-color-keywords
- (mapcar '(lambda (elm) (cons elm 0)) graphviz-dot-color-keywords))
-
-;;; Key map
-(defvar graphviz-dot-mode-map ()
- "Keymap used in Graphviz Dot mode.")
-
-(if graphviz-dot-mode-map
- ()
- (let ((map (make-sparse-keymap)))
- (define-key map "\r" 'electric-graphviz-dot-terminate-line)
- (define-key map "{" 'electric-graphviz-dot-open-brace)
- (define-key map "}" 'electric-graphviz-dot-close-brace)
- (define-key map ";" 'electric-graphviz-dot-semi)
- (define-key map "\M-\t" 'graphviz-dot-complete-word)
- (define-key map "\C-\M-q" 'graphviz-dot-indent-graph)
- (define-key map "\C-cp" 'graphviz-dot-preview)
- (define-key map "\C-cc" 'compile)
- (define-key map "\C-cv" 'graphviz-dot-view)
- (define-key map "\C-c\C-c" 'comment-region)
- (define-key map "\C-c\C-u" 'graphviz-dot-uncomment-region)
- (setq graphviz-dot-mode-map map)
- ))
-
-;;; Syntax table
-(defvar graphviz-dot-mode-syntax-table nil
- "Syntax table for `graphviz-dot-mode'.")
-
-(if graphviz-dot-mode-syntax-table
- ()
- (let ((st (make-syntax-table)))
- (modify-syntax-entry ?/ ". 124b" st)
- (modify-syntax-entry ?* ". 23" st)
- (modify-syntax-entry ?\n "> b" st)
- (modify-syntax-entry ?= "." st)
- (modify-syntax-entry ?_ "_" st)
- (modify-syntax-entry ?- "_" st)
- (modify-syntax-entry ?> "." st)
- (modify-syntax-entry ?[ "(" st)
- (modify-syntax-entry ?] ")" st)
- (modify-syntax-entry ?\" "\"" st)
- (setq graphviz-dot-mode-syntax-table st)
- ))
-
-(defvar graphviz-dot-font-lock-keywords
- `(("\\(:?di\\|sub\\)?graph \\(\\sw+\\)"
- (2 font-lock-function-name-face))
- (,(regexp-opt graphviz-dot-value-keywords 'words)
- . font-lock-reference-face)
- ;; to build the font-locking for the colors,
- ;; we need more room for max-specpdl-size,
- ;; after that we take the list of symbols,
- ;; convert them to a list of strings, and make
- ;; an optimized regexp from them
- (,(let ((max-specpdl-size (max max-specpdl-size 1200)))
- (regexp-opt graphviz-dot-color-keywords))
- . font-lock-string-face)
- (,(concat
- (regexp-opt graphviz-dot-attr-keywords 'words)
- "[ \\t\\n]*=")
- ;; RR - ugly, really, but I dont know why xemacs does not work
- ;; if I change the next car to "1"...
- (0 font-lock-variable-name-face)))
- "Keyword highlighting specification for `graphviz-dot-mode'.")
-
-;;;###autoload
-(defun graphviz-dot-mode ()
- "Major mode for the dot language. \\<graphviz-dot-mode-map>
-TAB indents for graph lines.
-
-\\[graphviz-dot-indent-graph]\t- Indentaion function.
-\\[graphviz-dot-preview]\t- Previews graph in a buffer.
-\\[graphviz-dot-view]\t- Views graph in an external viewer.
-\\[graphviz-dot-indent-line]\t- Indents current line of code.
-\\[graphviz-dot-complete-word]\t- Completes the current word.
-\\[electric-graphviz-dot-terminate-line]\t- Electric newline.
-\\[electric-graphviz-dot-open-brace]\t- Electric open braces.
-\\[electric-graphviz-dot-close-brace]\t- Electric close braces.
-\\[electric-graphviz-dot-semi]\t- Electric semi colons.
-
-Variables specific to this mode:
-
- graphviz-dot-dot-program (default `dot')
- Location of the dot program.
- graphviz-dot-view-command (default `doted %s')
- Command to run when `graphviz-dot-view' is executed.
- graphviz-dot-view-edit-command (default nil)
- If the user should be asked to edit the view command.
- graphviz-dot-save-before-view (default t)
- Automatically save current buffer berore `graphviz-dot-view'.
- graphviz-dot-preview-extension (default `png')
- File type to use for `graphviz-dot-preview'.
- graphviz-dot-auto-indent-on-newline (default t)
- Whether to run `electric-graphviz-dot-terminate-line' when
- newline is entered.
- graphviz-dot-auto-indent-on-braces (default t)
- Whether to run `electric-graphviz-dot-open-brace' and
- `electric-graphviz-dot-close-brace' when braces are
- entered.
- graphviz-dot-auto-indent-on-semi (default t)
- Whether to run `electric-graphviz-dot-semi' when semi colon
- is typed.
- graphviz-dot-toggle-completions (default nil)
- If completions should be displayed in the buffer instead of a
- completion buffer when \\[graphviz-dot-complete-word] is
- pressed repeatedly.
-
-This mode can be customized by running \\[graphviz-dot-customize].
-
-Turning on Graphviz Dot mode calls the value of the variable
-`graphviz-dot-mode-hook' with no args, if that value is non-nil."
- (interactive)
- (kill-all-local-variables)
- (use-local-map graphviz-dot-mode-map)
- (setq major-mode 'graphviz-dot-mode)
- (setq mode-name "dot")
- (setq local-abbrev-table graphviz-dot-mode-abbrev-table)
- (set-syntax-table graphviz-dot-mode-syntax-table)
- (set (make-local-variable 'indent-line-function) 'graphviz-dot-indent-line)
- (set (make-local-variable 'comment-start) "//")
- (set (make-local-variable 'comment-start-skip) "/\\*+ *\\|//+ *")
- (set (make-local-variable 'font-lock-defaults)
- '(graphviz-dot-font-lock-keywords))
- ;; RR - If user is running this in the scratch buffer, there is no
- ;; buffer file name...
- (if (buffer-file-name)
- (set (make-local-variable 'compile-command)
- (concat graphviz-dot-dot-program
- " -T" graphviz-dot-preview-extension " "
- buffer-file-name
- " > "
- (file-name-sans-extension
- buffer-file-name)
- "." graphviz-dot-preview-extension)))
- (set (make-local-variable 'compilation-parse-errors-function)
- 'graphviz-dot-compilation-parse-errors)
- (if dot-menu
- (easy-menu-add dot-menu))
- (run-hooks 'graphviz-dot-mode-hook)
- )
-
-;;;; Menu definitions
-
-(defvar dot-menu nil
- "Menu for Graphviz Dot Mode.
-This menu will get created automatically if you have the `easymenu'
-package. Note that the latest X/Emacs releases contain this package.")
-
-(and (condition-case nil
- (require 'easymenu)
- (error nil))
- (easy-menu-define
- dot-menu graphviz-dot-mode-map "Graphviz Mode menu"
- '("Graphviz"
- ["Indent Graph" graphviz-dot-indent-graph t]
- ["Comment Out Region" comment-region (mark)]
- ["Uncomment Region" graphviz-dot-uncomment-region (mark)]
- "-"
- ["Compile" compile t]
- ["Preview" graphviz-dot-preview
- (and (buffer-file-name)
- (not (buffer-modified-p)))]
- ["External Viewer" graphviz-dot-view (buffer-file-name)]
- "-"
- ["Customize..." graphviz-dot-customize t]
- )))
-
-;;;; Compilation
-
-;; note on graphviz-dot-compilation-parse-errors:
-;; It would nicer if we could just use compilation-error-regexp-alist
-;; to do that, 3 options:
-;; - still write dot-compilation-parse-errors, don't build
-;; a return list, but modify the *compilation* buffer
-;; in a way compilation-error-regexp-alist recognizes the
-;; format.
-;; to do that, I should globally change compilation-parse-function
-;; to this function, and call the old value of comp..-parse-fun..
-;; to provide the return value.
-;; two drawbacks are that, every compilation would be run through
-;; this function (performance) and that in autoload there would
-;; be a chance that this function would not yet be known.
-;; - let the compilation run through a filter that would
-;; modify the output of dot or neato:
-;; dot -Tpng input.dot | filter
-;; drawback: ugly, extra work for user, extra decency ...
-;; no-option
-;; - modify dot and neato !!! (PP:15/02/2005 seems to have happend,
-;; so version 0.4.0 should clean this mess up!)
-(defun graphviz-dot-compilation-parse-errors (limit-search find-at-least)
- "Parse the current buffer for dot errors.
-See variable `compilation-parse-errors-functions' for interface."
- (interactive)
- (save-excursion
- (set-buffer "*compilation*")
- (goto-char (point-min))
- (setq compilation-error-list nil)
- (let (buffer-of-error)
- (while (not (eobp))
- (cond
- ((looking-at "^dot\\( -[^ ]+\\)* \\(.*\\)")
- (setq buffer-of-error (find-file-noselect
- (buffer-substring-no-properties
- (nth 4 (match-data t))
- (nth 5 (match-data t))))))
- ((looking-at ".*:.*line \\([0-9]+\\)")
- (let ((line-of-error
- (string-to-number (buffer-substring-no-properties
- (nth 2 (match-data t))
- (nth 3 (match-data t))))))
- (setq compilation-error-list
- (cons
- (cons
- (point-marker)
- (save-excursion
- (set-buffer buffer-of-error)
- (goto-line line-of-error)
- (beginning-of-line)
- (point-marker)))
- compilation-error-list))))
- (t t))
- (forward-line 1)) )))
-
-;;;;
-;;;; Indentation
-;;;;
-(defun graphviz-dot-uncomment-region (begin end)
- "Uncomments a region of code."
- (interactive "r")
- (comment-region begin end '(4)))
-
-(defun graphviz-dot-indent-line ()
- "Indent current line of dot code."
- (interactive)
- (if (bolp)
- (graphviz-dot-real-indent-line)
- (save-excursion
- (graphviz-dot-real-indent-line))))
-
-(defun graphviz-dot-real-indent-line ()
- "Indent current line of dot code."
- (beginning-of-line)
- (cond
- ((bobp)
- ;; simple case, indent to 0
- (indent-line-to 0))
- ((looking-at "^[ \t]*}[ \t]*$")
- ;; block closing, deindent relative to previous line
- (indent-line-to (save-excursion
- (forward-line -1)
- (max 0 (- (current-indentation) graphviz-dot-indent-width)))))
- ;; other cases need to look at previous lines
- (t
- (indent-line-to (save-excursion
- (forward-line -1)
- (cond
- ((looking-at "\\(^.*{[^}]*$\\)")
- ;; previous line opened a block
- ;; indent to that line
- (+ (current-indentation) graphviz-dot-indent-width))
- ((and (not (looking-at ".*\\[.*\\].*"))
- (looking-at ".*\\[.*")) ; TODO:PP : can be 1 regex
- ;; previous line started filling
- ;; attributes, intend to that start
- (search-forward "[")
- (current-column))
- ((and (not (looking-at ".*\\[.*\\].*"))
- (looking-at ".*\\].*")) ; TODO:PP : "
- ;; previous line stopped filling
- ;; attributes, find the line that started
- ;; filling them and indent to that line
- (while (or (looking-at ".*\\[.*\\].*")
- (not (looking-at ".*\\[.*"))) ; TODO:PP : "
- (forward-line -1))
- (current-indentation))
- (t
- ;; default case, indent the
- ;; same as previous line
- (current-indentation)) ))) )))
-
-(defun graphviz-dot-indent-graph ()
- "Indent the graph/digraph/subgraph where point is at.
-This will first teach the beginning of the graph were point is at, and
-then indent this and each subgraph in it."
- (interactive)
- (save-excursion
- ;; position point at start of graph
- (while (not (or (looking-at "\\(^.*{[^}]*$\\)") (bobp)))
- (forward-line -1))
- ;; bracket { one +; bracket } one -
- (let ((bracket-count 0))
- (while
- (progn
- (cond
- ;; update bracket-count
- ((looking-at "\\(^.*{[^}]*$\\)")
- (setq bracket-count (+ bracket-count 1)))
- ;; update bracket-count
- ((looking-at "^[ \t]*}[ \t]*$")
- (setq bracket-count (- bracket-count 1))))
- ;; indent this line and move on
- (graphviz-dot-indent-line)
- (forward-line 1)
- ;; as long as we are not completed or at end of buffer
- (and (> bracket-count 0) (not (eobp))))))))
-
-;;;;
-;;;; Electric indentation
-;;;;
-(defun graphviz-dot-comment-or-string-p ()
- (let ((state (parse-partial-sexp (point-min) (point))))
- (or (nth 4 state) (nth 3 state))))
-
-(defun graphviz-dot-newline-and-indent ()
- (save-excursion
- (beginning-of-line)
- (skip-chars-forward " \t")
- (graphviz-dot-indent-line))
- (delete-horizontal-space)
- (newline)
- (graphviz-dot-indent-line))
-
-(defun electric-graphviz-dot-terminate-line ()
- "Terminate line and indent next line."
- (interactive)
- (if graphviz-dot-auto-indent-on-newline
- (graphviz-dot-newline-and-indent)
- (newline)))
-
-(defun electric-graphviz-dot-open-brace ()
- "Terminate line and indent next line."
- (interactive)
- (insert "{")
- (if (and graphviz-dot-auto-indent-on-braces
- (not (graphviz-dot-comment-or-string-p)))
- (graphviz-dot-newline-and-indent)))
-
-(defun electric-graphviz-dot-close-brace ()
- "Terminate line and indent next line."
- (interactive)
- (insert "}")
- (if (and graphviz-dot-auto-indent-on-braces
- (not (graphviz-dot-comment-or-string-p)))
- (progn
- (save-excursion
- (beginning-of-line)
- (skip-chars-forward " \t")
- (graphviz-dot-indent-line))
- (newline)
- (graphviz-dot-indent-line))))
-
-(defun electric-graphviz-dot-semi ()
- "Terminate line and indent next line."
- (interactive)
- (insert ";")
- (if (and graphviz-dot-auto-indent-on-semi
- (not (graphviz-dot-comment-or-string-p)))
- (graphviz-dot-newline-and-indent)))
-
-;;;;
-;;;; Preview
-;;;;
-(defun graphviz-dot-preview ()
- "Shows an example of the current dot file in an emacs buffer.
-This assumes that we are running GNU Emacs or XEmacs under a windowing system.
-See `image-file-name-extensions' for customizing the files that can be
-loaded in GNU Emacs, and `image-formats-alist' for XEmacs."
- (interactive)
- ;; unsafe to compile ourself, ask it to the user
- (if (buffer-modified-p)
- (message "Buffer needs to be compiled.")
- (if (string-match "XEmacs" emacs-version)
- ;; things are easier in XEmacs...
- (find-file-other-window (concat (file-name-sans-extension
- buffer-file-name)
- "." graphviz-dot-preview-extension))
- ;; run through all the extensions for images
- (let ((l image-file-name-extensions))
- (while
- (let ((f (concat (file-name-sans-extension (buffer-file-name))
- "."
- (car l))))
- ;; see if a file matches, might be best also to check
- ;; if file is up to date TODO:PP
- (if (file-exists-p f)
- (progn (auto-image-file-mode 1)
- ;; OK, this is ugly, I would need to
- ;; know how I can reload a file in an existing buffer
- (if (get-buffer "*preview*")
- (kill-buffer "*preview*"))
- (set-buffer (find-file-noselect f))
- (rename-buffer "*preview*")
- (display-buffer (get-buffer "*preview*"))
- ;; stop iterating
- '())
- ;; will stop iterating when l is nil
- (setq l (cdr l)))))
- ;; each extension tested and nothing found, let user know
- (when (eq l '())
- (message "No image found."))))))
-
-;;;;
-;;;; View
-;;;;
-(defun graphviz-dot-view ()
- "Runs an external viewer. This creates an external process every time it
-is executed. If `graphviz-dot-save-before-view' is set, the current
-buffer is saved before the command is executed."
- (interactive)
- (let ((cmd (if graphviz-dot-view-edit-command
- (if (string-match "XEmacs" emacs-version)
- (read-shell-command "View command: "
- (format graphviz-dot-view-command
- (buffer-file-name)))
- (read-from-minibuffer "View command: "
- (format graphviz-dot-view-command
- (buffer-file-name))))
- (format graphviz-dot-view-command (buffer-file-name)))))
- (if graphviz-dot-save-before-view
- (save-buffer))
- (setq novaproc (start-process-shell-command
- (downcase mode-name) nil cmd))
- (message (format "Executing `%s'..." cmd))))
-
-;;;;
-;;;; Completion
-;;;;
-(defvar graphviz-dot-str nil)
-(defvar graphviz-dot-all nil)
-(defvar graphviz-dot-pred nil)
-(defvar graphviz-dot-buffer-to-use nil)
-(defvar graphviz-dot-flag nil)
-
-(defun graphviz-dot-get-state ()
- "Returns the syntax state of the current point."
- (let ((state (parse-partial-sexp (point-min) (point))))
- (cond
- ((nth 4 state) 'comment)
- ((nth 3 state) 'string)
- ((not (nth 1 state)) 'out)
- (t (save-excursion
- (skip-chars-backward "^[,=\\[]{};")
- (backward-char)
- (cond
- ((looking-at "[\\[,]{};") 'attribute)
- ((looking-at "=") (progn
- (backward-word 1)
- (if (looking-at "[a-zA-Z]*color")
- 'color
- 'value)))
- (t 'other)))))))
-
-(defun graphviz-dot-get-keywords ()
- "Return possible completions for a word"
- (let ((state (graphviz-dot-get-state)))
- (cond
- ((equal state 'comment) ())
- ((equal state 'string) ())
- ((equal state 'out) graphviz-attr-keywords)
- ((equal state 'value) graphviz-value-keywords)
- ((equal state 'color) graphviz-color-keywords)
- ((equal state 'attribute) graphviz-attr-keywords)
- (t graphviz-attr-keywords))))
-
-(defvar graphviz-dot-last-word-numb 0)
-(defvar graphviz-dot-last-word-shown nil)
-(defvar graphviz-dot-last-completions nil)
-
-(defun graphviz-dot-complete-word ()
- "Complete word at current point."
- (interactive)
- (let* ((b (save-excursion (skip-chars-backward "a-zA-Z0-9_") (point)))
- (e (save-excursion (skip-chars-forward "a-zA-Z0-9_") (point)))
- (graphviz-dot-str (buffer-substring b e))
- (allcomp (if (and graphviz-dot-toggle-completions
- (string= graphviz-dot-last-word-shown
- graphviz-dot-str))
- graphviz-dot-last-completions
- (all-completions graphviz-dot-str
- (graphviz-dot-get-keywords))))
- (match (if graphviz-dot-toggle-completions
- "" (try-completion
- graphviz-dot-str (mapcar '(lambda (elm)
- (cons elm 0)) allcomp)))))
- ;; Delete old string
- (delete-region b e)
-
- ;; Toggle-completions inserts whole labels
- (if graphviz-dot-toggle-completions
- (progn
- ;; Update entry number in list
- (setq graphviz-dot-last-completions allcomp
- graphviz-dot-last-word-numb
- (if (>= graphviz-dot-last-word-numb (1- (length allcomp)))
- 0
- (1+ graphviz-dot-last-word-numb)))
- (setq graphviz-dot-last-word-shown
- (elt allcomp graphviz-dot-last-word-numb))
- ;; Display next match or same string if no match was found
- (if (not (null allcomp))
- (insert "" graphviz-dot-last-word-shown)
- (insert "" graphviz-dot-str)
- (message "(No match)")))
- ;; The other form of completion does not necessarily do that.
-
- ;; Insert match if found, or the original string if no match
- (if (or (null match) (equal match 't))
- (progn (insert "" graphviz-dot-str)
- (message "(No match)"))
- (insert "" match))
- ;; Give message about current status of completion
- (cond ((equal match 't)
- (if (not (null (cdr allcomp)))
- (message "(Complete but not unique)")
- (message "(Sole completion)")))
- ;; Display buffer if the current completion didn't help
- ;; on completing the label.
- ((and (not (null (cdr allcomp))) (= (length graphviz-dot-str)
- (length match)))
- (with-output-to-temp-buffer "*Completions*"
- (display-completion-list allcomp))
- ;; Wait for a keypress. Then delete *Completion* window
- (momentary-string-display "" (point))
- (if graphviz-dot-delete-completions
- (delete-window
- (get-buffer-window (get-buffer "*Completions*"))))
- )))))
-
-;;;###autoload
-(add-to-list 'auto-mode-alist '("\\.dot\\'" . graphviz-dot-mode))
-
-;;; graphviz-dot-mode.el ends here
-
projects / lib.git / blobdiff