+++ /dev/null
-;;; graphviz-dot-mode-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*-
-;;
-;;; Code:
-
-(add-to-list 'load-path (directory-file-name
- (or (file-name-directory #$) (car load-path))))
-
-\f
-;;;### (autoloads nil "graphviz-dot-mode" "graphviz-dot-mode.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from graphviz-dot-mode.el
-
-(autoload 'graphviz-dot-mode "graphviz-dot-mode" "\
-Major mode for the dot language.
-
-Functionallity specific to this mode:
-
- `indent-for-tab-command' \\[indent-for-tab-command]
- Indents a single line.
- `graphviz-dot-preview' \\[graphviz-dot-preview]
- Previews graph in a buffer.
- `graphviz-dot-view' \\[graphviz-dot-view]
- Views graph in an external viewer.
- `graphviz-dot-indent-line' \\[graphviz-dot-indent-line]
- Indents current line of code.
-
-Variables specific to this mode:
-
- `graphviz-dot-dot-program' (default `dot')
- Program used to compile the graphs.
- `graphviz-dot-preview-extension' (default `png')
- File type to use for output.
- `graphviz-dot-view-command' (default `dotty %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'.
-
-\(fn)" t nil)
-
-(autoload 'graphviz-dot-preview "graphviz-dot-mode" "\
-Compile the graph between BEGIN and END and preview it in an other buffer.
-BEGIN (resp. END) is a number defaulting to `point-min' (resp. `point-max')
-representing the current buffer's point where the graph definition starts
-\(resp. stops).
-
-\(fn &optional BEGIN END)" t nil)
-
-(autoload 'graphviz-turn-on-live-preview "graphviz-dot-mode" "\
-Turn on live preview.
-This will update the preview on every save." t nil)
-
-(autoload 'graphviz-turn-off-live-preview "graphviz-dot-mode" "\
-Turn off live preview.
-Saving the file will no longer also update the preview." t nil)
-
-(add-to-list 'auto-mode-alist '("\\.dot\\'" . graphviz-dot-mode))
-
-(add-to-list 'auto-mode-alist '("\\.gv\\'" . graphviz-dot-mode))
-
-(register-definition-prefixes "graphviz-dot-mode" '("dot-menu" "graphviz-"))
-
-;;;***
-\f
-;;;### (autoloads nil nil ("graphviz-dot-mode-pkg.el") (0 0 0 0))
-
-;;;***
-\f
-;; Local Variables:
-;; version-control: never
-;; no-byte-compile: t
-;; no-update-autoloads: t
-;; coding: utf-8
-;; End:
-;;; graphviz-dot-mode-autoloads.el ends here
+++ /dev/null
-(define-package "graphviz-dot-mode" "20230325.1050" "Mode for the dot-language used by graphviz (att)."
- '((emacs "25.0"))
- :commit "8ff793b13707cb511875f56e167ff7f980a31136" :maintainers
- '(("Pieter Pareit" . "pieter.pareitNOSPAMgmail.com"))
- :maintainer
- '("Pieter Pareit" . "pieter.pareitNOSPAMgmail.com")
- :keywords
- '("mode" "dot" "dot-language" "dotlanguage" "graphviz" "graphs" "att")
- :url "https://ppareit.github.io/graphviz-dot-mode/")
-;; Local Variables:
-;; no-byte-compile: t
-;; End:
+++ /dev/null
-;;; graphviz-dot-mode.el --- Mode for the dot-language used by graphviz (att). -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2002 - 2020, 2022 Pieter Pareit <pieter.pareitNOSPAMgmail.com>
-
-;; 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.pareitNOSPAMgmail.com>
-;; Rubens Ramos <rubensr AT users.sourceforge.net>
-;; Eric Anderson http://www.ece.cmu.edu/~andersoe/
-;; Maintainer: Pieter Pareit <pieter.pareitNOSPAMgmail.com>
-;; Homepage: https://ppareit.github.io/graphviz-dot-mode/
-;; Created: 28 Oct 2002
-;; Last modified: 25 Januari 2020
-;; Version: 0.4.2
-;; Package-Requires: ((emacs "25.0"))
-;; Keywords: mode dot dot-language dotlanguage graphviz graphs att
-
-;;; Commentary:
-;; Use this mode for editing files in the dot-language, see
-;; https://www.graphviz.org.
-;;
-;; To use graphviz-dot-mode, add
-;; (use-package graphviz-dot-mode
-;; :ensure t)
-;; to your ~/.emacs.el file.
-;;
-;; The graphviz-dot-mode will do font locking, indentation, preview of
-;; graphs and eases compilation/error location. 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- c, after that M-x next-error will also work. There is support
-;; for viewing an generated image with C-c C-p.
-;;
-;;; Todo:
-;;
-;;; History:
-;; Version 0.4.2 Pieter Pareit
-;; 25/01/2020: * Fix issues
-;; * Improve font-locking
-;; * Improve completion by implementing company mode
-;; * Rewrote basic documentation
-;; Version 0.4.1 Pieter Pareit
-;; 28/09/2019: * Maintenance, checking documentation, fixing flycheck errors.
-;; * Solve next-error for gaphviz
-;; * Tag new version
-;; Version 0.3.11 Olli Piepponen
-;; 29/01/2016: * use define-derived-mode for the mode-definition
-;; * add support for a auto-loading live preview work flow
-;; Version 0.3.10 Kevin Ryde
-;; 25/05/2015: * shell-quote-argument for safety
-;; * use read-shell-command whenever available, don't set novaproc
-;; Version 0.3.9 Titus Barik <titus AT barik.net>
-;; 28/08/2012: * compile-command uses -ofile instead of >
-;; Version 0.3.8 new home
-;; 27/06/2012: * put graphviz-dot-mode into git, updated links
-;; Version 0.3.7 Tim Allen
-;; 09/03/2011: * fix spaces in file names when compiling
-;; Version 0.3.6 maintenance
-;; 19/02/2011: * .gv is the new extension (Pander)
-;; * comments can start with # (Pander)
-;; * highlight of new keywords (Pander)
-;; Version 0.3.5 bug (or at least feature I dislike) fix
-;; 11/11/2010: Eric Anderson http://www.ece.cmu.edu/~andersoe/
-;; * Preserve indentation across blank (whitespace-only) lines
-;; 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 whitespace 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:
-
-(require 'compile)
-(require 'subr-x)
-(require 'thingatpt)
-
-(defconst graphviz-dot-mode-version "0.4.2"
- "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-layout-programs
- '("dot" "neato" "fdp" "sfdp" "twopi" "twopi" "circo")
- "*List of layout programs for the user to choose from."
- :type 'list
- :group 'graphviz)
-
-(defcustom graphviz-dot-view-command "dotty %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, \\[graphviz-dot-view] saves the current buffer before running the command."
- :type 'boolean
- :group 'graphviz)
-
-(defcustom graphviz-dot-indent-width standard-indent
- "*Indentation width in Graphviz Dot mode buffers."
- :type 'integer
- :group 'graphviz)
-
-(defcustom graphviz-dot-preview-extension "png"
- "*The extension to use for the compilation and preview commands.
-The default format for the compilation command is `dot -T png
-file.dot -o file.png'."
- :type 'string
- :group 'graphviz)
-
-(defcustom graphviz-dot-auto-preview-on-save nil
- "*Determines if saving the buffer should automatically trigger preview."
- :type 'boolean
- :group 'graphviz)
-
-(defcustom graphviz-dot-revert-delay 300
- "*Amount of time to sleep before attempting to display the rendered image."
- :type 'number
- :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" "colorscheme" "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" "width" "penwidth" "mindist" "scale" "patch" "root")
- "*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)
-
-(defvar graphviz-attributes-type-arrow
- '("arrowhead" "arrowtail")
- "The attributes that are of type `arrowType'.
-See URL `https://graphviz.org/docs/attr-types/arrowType/'.")
-
-(defvar graphviz-values-type-arrow
- '("box" "lbox" "rbox" "obox" "olbox" "orbox"
- "crow" "lcrow" "rcrow"
- "diamond" "ldiamond" "rdiamond" "odiamond" "oldiamond" "ordiamond"
- "dot" "odot"
- "inv" "linv" "rinv" "oinv" "olinv" "orinv"
- "none"
- "normal" "lnormal" "rnormal" "onormal" "olnormal" "ornormal"
- "tee" "ltee" "rtee"
- "vee" "lvee" "rvee"
- "curve" "lcurve" "rcurve" "ocurve" "olcurve" "orcurve")
- "The possible values that an attribute of type `arrowType' can have.
-See URL 'https://graphviz.org/doc/info/arrows.html.'")
-
-(defvar graphviz-attributes-type-shape
- '("shape")
- "The attributes that are of type `shape'.
-See URL `https://graphviz.org/docs/attr-types/shape/'.")
-
-(defvar graphviz-values-type-shape
- '("box" "polygon" "ellipse" "oval" "circle" "point" "egg" "triangle" "plaintext"
- "plain" "diamond" "trapezium" "parallelogram" "house" "pentagon" "hexagon"
- "septagon" "octagon" "doublecircle" "doubleoctagon" "tripleoctagon"
- "invtriangle" "invtrapezium" "invhouse" "Mdiamond" "Msquare" "Mcircle" "rect"
- "rectangle" "square" "star" "none" "underline" "cylinder" "note" "tab" "folder"
- "box3d" "component" "promoter" "cds" "terminator" "utr" "primersite"
- "restrictionsite" "fivepoverhang" "threepoverhang" "noverhang" "assembly"
- "signature" "insulator" "ribosite" "rnastab" "proteasesite" "proteinstab"
- "rpromoter" "rarrow" "larrow" "lpromoter"
- "record")
- "The possible values that an attribute of type `shape' can have.
-See URL `https://graphviz.org/doc/info/shapes.html'.")
-
-(defvar graphviz-attributes-type-style
- '("style")
- "The attributes that are of type `style'.
-See URL `https://graphviz.org/docs/attrs/style/'.")
-
-(defvar graphviz-values-type-style
- '("dashed" "dotted" "solid" "invis" "bold"
- "tapered"
- "filled" "striped" "wedged" "diagonals" "rounded"
- "filled" "striped" "rounded"
- "radial")
- "The possible values that an attribute of type `style' can have.
-See URL `https://graphviz.org/docs/attr-types/style/'.")
-
-(defvar graphviz-attributes-type-dir
- '("dir")
- "The attributes that are of type `dirType'.
-See URL `https://graphviz.org/docs/attrs/dir/'.")
-
-(defvar graphviz-values-type-dir
- '("forward" "back" "both" "none")
- "The possible values that an attribute of type `dirType' can have.
-See URL `https://graphviz.org/docs/attr-types/dirType/'.")
-
-(defvar graphviz-attributes-type-outputmode
- '("outputorder")
- "The attributes that are of type `outputMode'.
-See URL `https://graphviz.org/docs/attrs/outputorder/'.")
-
-(defvar graphviz-values-type-outputmode
- '("breadthfirst" "nodesfirst" "edgesfirst")
- "The possible values that an attribute of type `outputMode' can have.
-See URL `https://graphviz.org/docs/attr-types/outputMode/'.")
-
-(defvar graphviz-attributes-type-packmode
- '("packmode")
- "The attributes that are of type `packMode'.
-See URL `https://graphviz.org/docs/attrs/packmode/'.")
-
-(defvar graphviz-values-type-packmode
- '("node" "clust" "array")
- "The possible values that an attribute of type `packMode' can have.
-See URL `https://graphviz.org/docs/attr-types/packMode/'.")
-
-(defvar graphviz-attributes-type-pagedir
- '("pagedir")
- "The attributes that are of type `pagedir'.
-See URL `https://graphviz.org/docs/attrs/pagedir/'.")
-
-(defvar graphviz-values-type-pagedir
- '("BL" "BR" "TL" "TR" "RB" "RT" "LB" "LT")
- "The possible values that an attribute of type `pagedir' can have.
-See URL `https://graphviz.org/docs/attr-types/pagedir/'.")
-
-(defvar graphviz-attributes-splines
- '("splines")
- "The attributes that are `splines'.
-See URL `https://graphviz.org/docs/attrs/splines/'.")
-
-(defvar graphviz-attributes-splines-values
- '("true" "false" "none" "line" "spline" "polyline" "ortho" "curved")
- "The possible values that an attribute `splines' can have.
-See URL `https://graphviz.org/docs/attrs/splines/'.")
-
-(defvar graphviz-attributes-type-bool
- '("beautify" "center" "cluster" "compound" "concentrate" "constraint"
- "decorate" "diredgeconstraints" "fixedsize" "forcelabels" "headclip"
- "imagescale" "labelfloat" "landscape" "newrank" "nojustify" "normalize"
- "notranslate" "oneblock" "overlap" "overlap_shrink" "pack" "pin" "quadtree"
- "regular" "remincross" "root" "splines" "tailclip" "truecolor")
- "The attributes that are of type `bool'.
-Some atributes like `splines' are more specific then bool. So during switching
-one type, checking for `bool' must come last.
-See URL `https://graphviz.org/docs/attr-types/bool/'.")
-
-(defvar graphviz-values-type-bool
- '("true" "false" "yes" "no" "1" "0")
- "The possible values that an attribute of type `bool' can have.")
-
-(defvar graphviz-attributes-type-portpos
- '("headport" "tailport")
- "The attributes that are of type `portPos'.
-See URL `https://graphviz.org/docs/attr-types/portPos/'.")
-
-(defvar graphviz-values-type-portpos
- '("n" "ne" "e" "se" "s" "sw" "w" "nw" "c" "_")
- "The possible values that an attribute of type `portPos' can have.
-They can also be used on the edge as a compass point.
-See URL `https://graphviz.org/docs/attr-types/portPos/'.")
-
-(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-color-keywords
- '("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.
-See URL `https://graphviz.org/doc/info/colors.html'")
-
-
-;;; Key map
-(defvar graphviz-dot-mode-map
- (let ((map (make-sparse-keymap)))
- (define-key map "\C-\M-q" 'graphviz-dot-indent-graph)
- (define-key map "\C-c\C-p" 'graphviz-dot-preview)
- (define-key map "\C-c\C-c" 'compile)
- (define-key map "\C-c\C-v" 'graphviz-dot-view)
- map)
- "Keymap used in Graphviz Dot mode.")
-
-;;; Syntax table
-(defvar 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)
- st)
- "Syntax table for `graphviz-dot-mode'.")
-
-(defvar graphviz-dot-syntax-propertize-function
- (syntax-propertize-rules
- ("^#" (0 "< b"))))
-
-(defvar graphviz-dot-font-lock-keywords
- `(;; Match ID, first case
- ("\\(?:di\\|sub\\)?graph\\(?:[[:space:]]+\\)\\([a-zA-Z_]+[a-zA-Z0-9_]*\\)"
- (1 font-lock-function-name-face))
- ;; Match ID, second case
- ("\\(?:di\\|sub\\)?graph\\(?:[[:space:]]+\\)\\(-?[0-9]*\\(\\.[0-9]*\\)?\\)"
- (1 font-lock-function-name-face))
- (,(regexp-opt graphviz-dot-value-keywords 'words)
- . font-lock-constant-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 'words))
- . font-lock-string-face)
- (,(concat
- (regexp-opt graphviz-dot-attr-keywords 'words)
- "[ \\t\\n]*=")
- ;; RR - ugly, really, but I don't know why xemacs does not work
- ;; if I change the next car to "1"...
- (0 font-lock-variable-name-face))
- ;; The 'graph' nonterminal
- ("\\(\\_<\\(?:strict\\)?[[:space:]]*\\(?:\\(?:di\\)?graph\\)\\_>\\)"
- (1 'font-lock-keyword-face))
- ;; The 'attr_stmt'
- ("\\_<\\(edge\\|graph\\|node\\)\\_>[[:space:]]*\\["
- 1 'font-lock-keyword-face)
- ;; The 'subgraph' nonterminal
- ("\\_<subgraph\\_>" . 'font-lock-keyword-face))
- "Keyword highlighting specification for `graphviz-dot-mode'.
-See URL `https://graphviz.org/doc/info/lang.html'.")
-
-(defun graphviz-output-file-name (f-name)
- "Return the filename of the preview, using F-NAME."
- (concat (file-name-sans-extension f-name)
- "." graphviz-dot-preview-extension))
-
-(defun graphviz-compile-command (f-name)
- "Shell command to compile F-NAME.
-By default this is `dot -T png file.dot -o file.png', the used
-program to compile can be changed by setting
-`graphviz-dot-dot-program', the output format and extension can
-be changed with `graphviz-dot-preview-extension'."
- (when f-name
- (setq compile-command
- (concat graphviz-dot-dot-program
- " -T" graphviz-dot-preview-extension " "
- (shell-quote-argument
- (file-name-unquote (file-local-name f-name)))
- " -o "
- (shell-quote-argument
- (file-name-unquote
- (file-local-name (graphviz-output-file-name f-name))))))))
-
-(defun graphviz-dot--syntax-at-point ()
- "Return the syntax at point.
-This can be one of comment, string, out, value, attribute, color,
-arrow, shape, style, dir, outputmode or other."
- (let ((state (syntax-ppss)))
- (cond
- ((nth 4 state) 'comment)
- ((nth 3 state) 'string)
- ((not (nth 1 state)) 'out)
- (t (save-excursion
- (skip-chars-backward "^[\\[,;=:\n]")
- (backward-char)
- (cond
- ((looking-at "[\\[,;\n]") 'attribute)
- ((looking-at ":") 'compasspoint)
- ((looking-at "=")
- (progn
- (backward-word 1)
- (cond
- ((looking-at "[a-zA-Z]*color") 'color)
- ((member (word-at-point) graphviz-attributes-type-arrow) 'arrow)
- ((member (word-at-point) graphviz-attributes-type-shape) 'shape)
- ((member (word-at-point) graphviz-attributes-type-style) 'style)
- ((member (word-at-point) graphviz-attributes-type-dir) 'dir)
- ((member (word-at-point) graphviz-attributes-type-outputmode) 'outputmode)
- ((member (word-at-point) graphviz-attributes-type-packmode) 'packmode)
- ((member (word-at-point) graphviz-attributes-type-pagedir) 'pagedir)
- ((member (word-at-point) graphviz-attributes-type-portpos) 'portpos)
- ((member (word-at-point) graphviz-attributes-splines) 'splines)
- ((member (word-at-point) graphviz-attributes-type-bool) 'bool)
- (t 'value))))
- (t 'other)))))))
-
-(defun graphviz-completion-at-point ()
- "Function to use in the hook `completion-at-point-functions'."
- (let* ((bounds (bounds-of-thing-at-point 'symbol))
- (start (if bounds (car bounds) (point)))
- (end (if bounds (cdr bounds) (point)))
- (collection
- (cl-case (graphviz-dot--syntax-at-point)
- (compasspoint graphviz-values-type-portpos)
- (color graphviz-dot-color-keywords)
- (arrow graphviz-values-type-arrow)
- (shape graphviz-values-type-shape)
- (style graphviz-values-type-style)
- (dir graphviz-values-type-dir)
- (outputmode graphviz-values-type-outputmode)
- (packmode graphviz-values-type-packmode)
- (pagedir graphviz-values-type-pagedir)
- (portpos graphviz-values-type-portpos)
- (splines graphviz-attributes-splines-values)
- (bool graphviz-values-type-bool)
- (value graphviz-dot-value-keywords)
- ((comment string) nil)
- (t graphviz-dot-attr-keywords))))
- (list start end collection . nil)))
-
-(defvar dot-menu nil
- "Menu for Graphviz Dot Mode.
-This menu will get created automatically if you have the `easymenu'
-package.")
-
-;;;###autoload
-(define-derived-mode graphviz-dot-mode prog-mode "dot"
- "Major mode for the dot language.
-
-Functionallity specific to this mode:
-
- `indent-for-tab-command' \\[indent-for-tab-command]
- Indents a single line.
- `graphviz-dot-preview' \\[graphviz-dot-preview]
- Previews graph in a buffer.
- `graphviz-dot-view' \\[graphviz-dot-view]
- Views graph in an external viewer.
- `graphviz-dot-indent-line' \\[graphviz-dot-indent-line]
- Indents current line of code.
-
-Variables specific to this mode:
-
- `graphviz-dot-dot-program' (default `dot')
- Program used to compile the graphs.
- `graphviz-dot-preview-extension' (default `png')
- File type to use for output.
- `graphviz-dot-view-command' (default `dotty %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'."
- :group 'graphviz
- (setq-local font-lock-defaults '(graphviz-dot-font-lock-keywords))
- (setq-local comment-start "//")
- (setq-local comment-start-skip "/\\*+ *\\|//+ *")
- (setq-local indent-line-function #'graphviz-dot-indent-line)
- (setq-local syntax-propertize-function
- graphviz-dot-syntax-propertize-function)
- (when (buffer-file-name)
- (setq-local compile-command
- (graphviz-compile-command (buffer-file-name))))
- (add-to-list 'compilation-error-regexp-alist 'dot)
- (add-to-list 'compilation-error-regexp-alist-alist
- '(dot "^Error: \\(.+\\): .*error in line \\([0-9]+\\).*" 1 2))
- (add-hook 'after-save-hook 'graphviz-live-reload-hook)
- (add-hook 'completion-at-point-functions
- 'graphviz-completion-at-point
- nil
- 'local)
- (run-hooks 'graphviz-dot-mode-hook))
-
-;;;; Menu definitions
-
-(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" 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]
- )))
-
-;;;;
-;;;; Indentation
-;;;;
-
-(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)
- (if (looking-at "\\(^.*{[^}]*$\\)")
- ;; previous line opened a block
- ;; use same indentation
- (current-indentation)
- (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)
- (while (and (not (bobp))
- (looking-back "^[[:space:]]*$" (line-beginning-position)))
- (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 (and (not (bobp))
- (or (looking-at ".*\\[.*\\].*")
- (not (looking-at ".*\\[.*")))) ; TODO:PP : "
- (forward-line -1))
- (current-indentation))
- (t
- ;; default case, indent the
- ;; same as previous NON-BLANK line
- ;; (or the first line, if there are no previous non-blank lines)
- (while (and (not (bobp))
- (looking-at "^\[ \t\]*$"))
- (forward-line -1))
- ;; if we find a closing square bracket, don't indent
- ;; to the level of its attributes, but instead
- ;; find the opening bracket and indent to that
- (if (looking-at ".*\\].*")
- (while (and (not (bobp))
- (not (looking-at ".*\\[.*")))
- (forward-line -1)))
- (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))))))))
-
-(defconst graphviz-preview-buffer
- "*Graphviz Preview: %s*")
-
-(defconst graphviz-error-buffer
- "*Graphviz Errors*")
-
-(defun graphviz--display-preview-buffer (stdout-buffer)
- "Display STDOUT-BUFFER as the dot preview."
- (with-current-buffer stdout-buffer
- (goto-char (point-min))
- (image-mode))
- (display-buffer stdout-buffer))
-
-(defun graphviz--display-stderr-buffer (stderr-buffer input-file)
- "Display the compilation buffer when the preview fails.
-STDERR-BUFFER is the compilation buffer.
-INPUT-FILE is the file we are previewing."
- (with-current-buffer stderr-buffer
- (let ((inhibit-read-only t))
- (goto-char (point-min))
- (while (search-forward "<stdin>" nil t)
- (replace-match input-file)))
- (compilation-mode))
- (display-buffer stderr-buffer)
- (with-selected-window (get-buffer-window stderr-buffer)
- (goto-char (point-min))))
-
-;;;###autoload
-(defun graphviz-dot-preview (&optional begin end)
- "Compile the graph between BEGIN and END and preview it in an other buffer.
-BEGIN (resp. END) is a number defaulting to `point-min' (resp. `point-max')
-representing the current buffer's point where the graph definition starts
-\(resp. stops)."
- (interactive)
- (let* ((use-empty-active-region nil)
- (graphviz-preview-buffer (format graphviz-preview-buffer
- (buffer-name)))
- (stdout (get-buffer-create graphviz-preview-buffer))
- (stderr (get-buffer-create graphviz-error-buffer))
- (begin (or begin
- (and (use-region-p) (region-beginning))
- (point-min)))
- (end (or end
- (and (use-region-p) (region-end))
- (point-max)))
- (process (make-process
- :name "graphviz-dot"
- :command `(,graphviz-dot-dot-program
- ,(format "-T%s" graphviz-dot-preview-extension))
- :buffer stdout
- :stderr stderr
- :sentinel
- (lambda (_ event)
- (cond
- ((string= event "finished\n")
- (graphviz--display-preview-buffer stdout))
- ((string-prefix-p "exited" event)
- (graphviz--display-stderr-buffer stderr
- (buffer-name))))))))
- (with-current-buffer stdout
- (fundamental-mode)
- (erase-buffer))
- (with-current-buffer stderr
- (let ((inhibit-read-only t))
- (fundamental-mode)
- (erase-buffer)))
- (process-send-region process begin end)
- (process-send-eof process)))
-
-;;;###autoload
-(defun graphviz-turn-on-live-preview ()
- "Turn on live preview.
-This will update the preview on every save."
- (interactive)
- (setq graphviz-dot-auto-preview-on-save t)
- (add-hook 'after-save-hook 'graphviz-live-reload-hook))
-
-;;;###autoload
-(defun graphviz-turn-off-live-preview ()
- "Turn off live preview.
-Saving the file will no longer also update the preview."
- (interactive)
- (setq graphviz-dot-auto-preview-on-save nil)
- (remove-hook 'after-save-hook 'graphviz-live-reload-hook))
-
-(defun graphviz-live-reload-hook ()
- "Hook to run in `after-save-hook' for live preview to work."
- (when (and (eq major-mode 'graphviz-dot-mode) graphviz-dot-auto-preview-on-save)
- (graphviz-dot-preview)))
-
-;;;;
-;;;; View
-;;;;
-(defun graphviz-dot-view ()
- "Run 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 (fboundp 'read-shell-command)
- (read-shell-command "View command: "
- (format graphviz-dot-view-command
- (shell-quote-argument (buffer-file-name))))
- ;; read-shell-command not available in GNU Emacs 21
- (read-from-minibuffer "View command: "
- (format graphviz-dot-view-command
- (shell-quote-argument (buffer-file-name)))))
- (format graphviz-dot-view-command
- (shell-quote-argument (buffer-file-name))))))
- (if graphviz-dot-save-before-view
- (save-buffer))
- (start-process-shell-command (downcase mode-name) nil cmd)
- (message (format "Executing `%s'..." cmd))))
-
-(defun graphviz-dot-set-layout ()
- "Change the value of `graphviz-dot-dot-program'."
- (interactive)
- (setq graphviz-dot-dot-program
- (completing-read "Layout: " graphviz-dot-layout-programs)))
-
-;;;###autoload
-(add-to-list 'auto-mode-alist '("\\.dot\\'" . graphviz-dot-mode))
-;;;###autoload
-(add-to-list 'auto-mode-alist '("\\.gv\\'" . graphviz-dot-mode))
-
-;; Support org-mode, when adding a code block for dot, use this mode
-(with-eval-after-load 'org-src
- (defvar org-src-lang-modes)
- (add-to-list 'org-src-lang-modes '("dot" . graphviz-dot)))
-
-(provide 'graphviz-dot-mode)
-;;; graphviz-dot-mode.el ends here
--- /dev/null
+;;; graphviz-dot-flycheck.el --- Flychecker for graphviz. -*- lexical-binding: t; -*-
+
+;; Part of graphviz-dot-mode, see https://ppareit.github.io/graphviz-dot-mode/
+
+;; Copyright (C) 2025 - 2025 Pieter Pareit <pieter.pareitNOSPAMgmail.com>
+
+;; Package-Requires: ((emacs "25.0") (flycheck "20250527.907"))
+
+;;; Commentary:
+;;
+;;; Todo:
+;;
+;;; Code:
+(require 'flycheck nil t)
+
+(defun graphviz-dot--add-column-to-error (err)
+ "Attach :column and :end-column to a ERR so we underline the exact token."
+ (when-let* ((msg (flycheck-error-message err))
+ (buf (flycheck-error-buffer err))
+ ((buffer-live-p buf)) ; buffer may have died
+ (line (flycheck-error-line err))
+ (_ (string-match "near '\\([^']+\\)'" msg))
+ (token (match-string 1 msg)))
+ (with-current-buffer buf
+ (save-excursion
+ (goto-char (point-min))
+ (forward-line (1- line)) ; line is 1-based
+ (when-let* ((end (search-forward token (line-end-position) t))
+ (start (- end (length token)))
+ (bol (line-beginning-position)))
+ (setf (flycheck-error-column err) (1+ (- start bol))
+ (flycheck-error-end-column err) (1+ (- end bol)))))))
+ err)
+
+(defun graphviz-dot--prettify-error-message (err)
+ "Tweak a single Flycheck ERR from the Graphviz checker."
+ (when-let ((msg (flycheck-error-message err)))
+ ;; Drop “gvrender_set_style: ”
+ (setq msg (replace-regexp-in-string "\\`gvrender_set_style: *" "" msg))
+ ;; Drop “using box for ”
+ (setq msg (replace-regexp-in-string "\\`using box for *" "" msg))
+ ;; Trim “ - ignoring[.]” at the end.
+ (setq msg (replace-regexp-in-string " - ignoring\\.?\\s-*\\'" "" msg))
+ ;; Turn bare “near 'foo'” into a full sentence.
+ (when (string-match "\\` *near '[^']+'\\'" msg)
+ (setq msg (concat "Syntax error " msg)))
+ ;; Save result back into ERR.
+ (setf (flycheck-error-message err) msg))
+ err)
+
+(defun graphviz-dot--search-regex-from-msg (msg)
+ "Return regexp for MSG.
+
+Return a regexp that should locate the first occurrence of the
+offending token mentioned in Graphviz warning MSG."
+ (cond
+ ;; unknown shape
+ ((string-match "unknown shape[[:space:]]+\\([[:alnum:]_-]+\\)" msg)
+ (format "\\bshape[[:space:]]*=[[:space:]]*\"?%s\\b"
+ (regexp-quote (match-string 1 msg))))
+ ;; unsupported style
+ ((string-match "unsupported style[[:space:]]+\\([[:alnum:]_-]+\\)" msg)
+ (format "\\bstyle[[:space:]]*=[[:space:]]*\"?%s\\b"
+ (regexp-quote (match-string 1 msg))))
+ ;; TOKEN is not a known color
+ ;; colour shows up in color=, fontcolor=, fillcolor= so allow any of them
+ ((string-match "\\`\\([^[:space:]]+\\)[[:space:]]+is not a known color" msg)
+ (format "\\b\\(?:color\\|fontcolor\\|fillcolor\\)[[:space:]]*=[[:space:]]*\"?%s\\b"
+ (regexp-quote (match-string 1 msg))))
+ ;; Arrow type "TOKEN" unknown
+ ;; * arrowhead=TOKEN
+ ;; * arrowtail = "fooTOKENbar"
+ ((string-match "Arrow type \"\\([^\"]+\\)\" unknown" msg)
+ (let ((tok (regexp-quote (match-string 1 msg))))
+ ;; arrow(head|tail) *= *"?(anything)*TOKEN(anything)*"? (no newline)
+ (format
+ "\\barrow\\(?:head\\|tail\\)[[:space:]]*=[[:space:]]*\"?[^\"\n]*%s[^\"\n]*\"?"
+ tok)))
+ ;; port "TOKEN" unrecognized
+ ;; search for :TOKEN (optionally with spaces or quotes)
+ ((string-match "port \"?\\([^\"]+\\)\"? unrecognized" msg)
+ (format ":[[:space:]]*\"?%s\\b"
+ (regexp-quote (match-string 1 msg))))
+ ;; there could be more warnings, but I'm unable to trigger them
+ ;; let me know any missing, with an example to trigger
+ (t nil)))
+
+(defun graphviz-dot--add-line-and-column-to-error (err)
+ "Populate :line / :column / :end-column for Graphviz warning ERR."
+ (when (eq (flycheck-error-level err) 'warning)
+ (when-let* ((msg (flycheck-error-message err))
+ (buf (flycheck-error-buffer err))
+ (regex (graphviz-dot--search-regex-from-msg msg)))
+ (with-current-buffer buf
+ (save-excursion
+ (goto-char (point-min))
+ (re-search-forward regex nil t)
+ (when-let* ((beg (match-beginning 0))
+ (end (match-end 0))
+ (bol (progn (goto-char beg) (line-beginning-position))))
+ (setf (flycheck-error-line err) (line-number-at-pos beg)
+ (flycheck-error-column err) (1+ (- beg bol))
+ (flycheck-error-end-column err) (1+ (- end bol))))))))
+ err)
+
+(defun graphviz-dot--dedup-errors (errors)
+ "Return ERRORS without duplicates (same buffer/line/column/message)."
+ (let ((seen (make-hash-table :test #'equal))
+ out)
+ (dolist (err errors (nreverse out))
+ (let ((key (list (flycheck-error-buffer err)
+ (flycheck-error-line err)
+ (flycheck-error-column err)
+ (flycheck-error-message err))))
+ (unless (gethash key seen)
+ (puthash key t seen)
+ (push err out))))))
+
+(with-eval-after-load 'flycheck
+ (eval
+ '(flycheck-define-checker graphviz-dot
+ "A Graphviz dot file syntax checker.."
+ :command ("dot"
+ "-T" "dot" ; No graphics, for speed
+ "-o" "/dev/null" ; No output, for speed
+ source-inplace)
+ :error-patterns
+ (;; line number and near message
+ (error line-start "Error: " (file-name) ": syntax error in line " line " "
+ (message)
+ line-end)
+ ;; line number and no message
+ (error line-start "Error: " (file-name) ": syntax error in line "
+ line line-end)
+ ;; all the rest are warnings
+ (warning line-start "Warning: " (message (one-or-more not-newline)) line-end))
+ :error-filter
+ (lambda (errors)
+ (dolist (err errors errors)
+ (unless (flycheck-error-message err)
+ (setf (flycheck-error-message err) "syntax error"))
+ (graphviz-dot--add-column-to-error err)
+ (graphviz-dot--prettify-error-message err)
+ (graphviz-dot--add-line-and-column-to-error err))
+ (flycheck-fill-empty-line-numbers errors)
+ (flycheck-sanitize-errors errors)
+ (graphviz-dot--dedup-errors errors))
+ :modes (graphviz-dot-mode)))
+
+ ;; And add it to flycheck's list of checkers
+ (add-to-list 'flycheck-checkers 'graphviz-dot))
+
+(provide 'graphviz-dot-flycheck)
+;;; graphviz-dot-flycheck.el ends here
--- /dev/null
+;;; graphviz-dot-mode-autoloads.el --- automatically extracted autoloads (do not edit) -*- lexical-binding: t -*-
+;; Generated by the `loaddefs-generate' function.
+
+;; This file is part of GNU Emacs.
+
+;;; Code:
+
+(add-to-list 'load-path (or (and load-file-name (directory-file-name (file-name-directory load-file-name))) (car load-path)))
+
+
+\f
+;;; Generated autoloads from graphviz-dot-flycheck.el
+
+(register-definition-prefixes "graphviz-dot-flycheck" '("graphviz-dot--"))
+
+\f
+;;; Generated autoloads from graphviz-dot-mode.el
+
+(autoload 'graphviz-dot-mode "graphviz-dot-mode" "\
+Major mode for the dot language.
+
+Functionality specific to this mode:
+
+ `indent-for-tab-command' \\[indent-for-tab-command]
+ Indents a single line.
+ `graphviz-dot-preview' \\[graphviz-dot-preview]
+ Previews graph in a buffer.
+ `graphviz-dot-view' \\[graphviz-dot-view]
+ Views graph in an external viewer.
+ `graphviz-dot-indent-line' \\[graphviz-dot-indent-line]
+ Indents current line of code.
+
+Variables specific to this mode:
+
+ `graphviz-dot-dot-program' (default `dot')
+ Program used to compile the graphs.
+ `graphviz-dot-preview-extension' (default `png')
+ File type to use for output.
+ `graphviz-dot-view-command' (default `dotty %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'.
+
+(fn)" t)
+(autoload 'graphviz-dot-preview "graphviz-dot-mode" "\
+Compile the graph between BEGIN and END and preview it in an other buffer.
+BEGIN (resp. END) is a number defaulting to `point-min' (resp. `point-max')
+representing the current buffer's point where the graph definition starts
+(resp. stops).
+
+(fn &optional BEGIN END)" t)
+(autoload 'graphviz-turn-on-live-preview "graphviz-dot-mode" "\
+Turn on live preview.
+This will update the preview on every save." t)
+(autoload 'graphviz-turn-off-live-preview "graphviz-dot-mode" "\
+Turn off live preview.
+Saving the file will no longer also update the preview." t)
+(add-to-list 'auto-mode-alist '("\\.dot\\'" . graphviz-dot-mode))
+(add-to-list 'auto-mode-alist '("\\.gv\\'" . graphviz-dot-mode))
+(register-definition-prefixes "graphviz-dot-mode" '("dot-menu" "graphviz-"))
+\f
+;;; End of scraped data
+
+(provide 'graphviz-dot-mode-autoloads)
+
+;; Local Variables:
+;; version-control: never
+;; no-byte-compile: t
+;; no-update-autoloads: t
+;; no-native-compile: t
+;; coding: utf-8-emacs-unix
+;; End:
+
+;;; graphviz-dot-mode-autoloads.el ends here
--- /dev/null
+;; -*- no-byte-compile: t; lexical-binding: nil -*-
+(define-package "graphviz-dot-mode" "20250925.1226"
+ "Mode for the dot-language used by graphviz (att)."
+ '((emacs "25.0"))
+ :url "https://ppareit.github.io/graphviz-dot-mode/"
+ :commit "516c151b845a3eb2da73eb4ee648ad99172087ac"
+ :revdesc "516c151b845a"
+ :keywords '("mode" "dot" "dot-language" "dotlanguage" "graphviz" "graphs" "att")
+ :maintainers '(("Pieter Pareit" . "pieter.pareitNOSPAMgmail.com")))
--- /dev/null
+;;; graphviz-dot-mode.el --- Mode for the dot-language used by graphviz (att). -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2002 - 2020, 2022 Pieter Pareit <pieter.pareitNOSPAMgmail.com>
+
+;; 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.pareitNOSPAMgmail.com>
+;; Rubens Ramos <rubensr AT users.sourceforge.net>
+;; Eric Anderson http://www.ece.cmu.edu/~andersoe/
+;; Maintainer: Pieter Pareit <pieter.pareitNOSPAMgmail.com>
+;; Homepage: https://ppareit.github.io/graphviz-dot-mode/
+;; Created: 28 Oct 2002
+;; Last modified: 25 Januari 2020
+;; Package-Version: 20250925.1226
+;; Package-Revision: 516c151b845a
+;; Package-Requires: ((emacs "25.0"))
+;; Keywords: mode dot dot-language dotlanguage graphviz graphs att
+
+;;; Commentary:
+;; Use this mode for editing files in the dot-language, see
+;; https://www.graphviz.org.
+;;
+;; To use graphviz-dot-mode, add
+;; (use-package graphviz-dot-mode
+;; :ensure t)
+;; to your ~/.emacs.el file.
+;;
+;; The graphviz-dot-mode will do font locking, indentation, preview of
+;; graphs and eases compilation/error location. 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- c, after that M-x next-error will also work. There is support
+;; for viewing an generated image with C-c C-p.
+;;
+;;; Todo:
+;;
+;;; Code:
+(require 'cl-lib)
+(require 'compile)
+(require 'subr-x)
+(require 'thingatpt)
+
+;; add optionally flycheck support, will not error if not installed
+(eval-when-compile
+ (require 'flycheck nil t))
+
+(defconst graphviz-dot-mode-version "0.4.2"
+ "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-layout-programs
+ '("dot" "neato" "fdp" "sfdp" "twopi" "twopi" "circo")
+ "*List of layout programs for the user to choose from."
+ :type '(repeat (string :tag "Program"))
+ :group 'graphviz)
+
+(defcustom graphviz-dot-view-command "dotty %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, \\[graphviz-dot-view] saves the current buffer before running the command."
+ :type 'boolean
+ :group 'graphviz)
+
+(defcustom graphviz-dot-indent-width standard-indent
+ "*Indentation width in Graphviz Dot mode buffers."
+ :type 'integer
+ :group 'graphviz)
+
+(defcustom graphviz-dot-preview-extension "png"
+ "*The extension to use for the compilation and preview commands.
+The default format for the compilation command is `dot -T png
+file.dot -o file.png'."
+ :type 'string
+ :group 'graphviz)
+
+(defcustom graphviz-dot-auto-preview-on-save nil
+ "*Determines if saving the buffer should automatically trigger preview."
+ :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" "colorscheme" "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" "width" "penwidth" "mindist" "scale" "patch" "root")
+ "*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)
+
+(defvar graphviz-attributes-type-arrow
+ '("arrowhead" "arrowtail")
+ "The attributes that are of type `arrowType'.
+See URL `https://graphviz.org/docs/attr-types/arrowType/'.")
+
+(defvar graphviz-values-type-arrow
+ '("box" "lbox" "rbox" "obox" "olbox" "orbox"
+ "crow" "lcrow" "rcrow"
+ "diamond" "ldiamond" "rdiamond" "odiamond" "oldiamond" "ordiamond"
+ "dot" "odot"
+ "inv" "linv" "rinv" "oinv" "olinv" "orinv"
+ "none"
+ "normal" "lnormal" "rnormal" "onormal" "olnormal" "ornormal"
+ "tee" "ltee" "rtee"
+ "vee" "lvee" "rvee"
+ "curve" "lcurve" "rcurve" "ocurve" "olcurve" "orcurve")
+ "The possible values that an attribute of type `arrowType' can have.
+See URL `https://graphviz.org/doc/info/arrows.html.'")
+
+(defvar graphviz-attributes-type-shape
+ '("shape")
+ "The attributes that are of type `shape'.
+See URL `https://graphviz.org/docs/attr-types/shape/'.")
+
+(defvar graphviz-values-type-shape
+ '("box" "polygon" "ellipse" "oval" "circle" "point" "egg" "triangle" "plaintext"
+ "plain" "diamond" "trapezium" "parallelogram" "house" "pentagon" "hexagon"
+ "septagon" "octagon" "doublecircle" "doubleoctagon" "tripleoctagon"
+ "invtriangle" "invtrapezium" "invhouse" "Mdiamond" "Msquare" "Mcircle" "rect"
+ "rectangle" "square" "star" "none" "underline" "cylinder" "note" "tab" "folder"
+ "box3d" "component" "promoter" "cds" "terminator" "utr" "primersite"
+ "restrictionsite" "fivepoverhang" "threepoverhang" "noverhang" "assembly"
+ "signature" "insulator" "ribosite" "rnastab" "proteasesite" "proteinstab"
+ "rpromoter" "rarrow" "larrow" "lpromoter"
+ "record")
+ "The possible values that an attribute of type `shape' can have.
+See URL `https://graphviz.org/doc/info/shapes.html'.")
+
+(defvar graphviz-attributes-type-style
+ '("style")
+ "The attributes that are of type `style'.
+See URL `https://graphviz.org/docs/attrs/style/'.")
+
+(defvar graphviz-values-type-style
+ '("dashed" "dotted" "solid" "invis" "bold"
+ "tapered"
+ "filled" "striped" "wedged" "diagonals" "rounded"
+ "filled" "striped" "rounded"
+ "radial")
+ "The possible values that an attribute of type `style' can have.
+See URL `https://graphviz.org/docs/attr-types/style/'.")
+
+(defvar graphviz-attributes-type-dir
+ '("dir")
+ "The attributes that are of type `dirType'.
+See URL `https://graphviz.org/docs/attrs/dir/'.")
+
+(defvar graphviz-values-type-dir
+ '("forward" "back" "both" "none")
+ "The possible values that an attribute of type `dirType' can have.
+See URL `https://graphviz.org/docs/attr-types/dirType/'.")
+
+(defvar graphviz-attributes-type-outputmode
+ '("outputorder")
+ "The attributes that are of type `outputMode'.
+See URL `https://graphviz.org/docs/attrs/outputorder/'.")
+
+(defvar graphviz-values-type-outputmode
+ '("breadthfirst" "nodesfirst" "edgesfirst")
+ "The possible values that an attribute of type `outputMode' can have.
+See URL `https://graphviz.org/docs/attr-types/outputMode/'.")
+
+(defvar graphviz-attributes-type-packmode
+ '("packmode")
+ "The attributes that are of type `packMode'.
+See URL `https://graphviz.org/docs/attrs/packmode/'.")
+
+(defvar graphviz-values-type-packmode
+ '("node" "clust" "array")
+ "The possible values that an attribute of type `packMode' can have.
+See URL `https://graphviz.org/docs/attr-types/packMode/'.")
+
+(defvar graphviz-attributes-type-pagedir
+ '("pagedir")
+ "The attributes that are of type `pagedir'.
+See URL `https://graphviz.org/docs/attrs/pagedir/'.")
+
+(defvar graphviz-values-type-pagedir
+ '("BL" "BR" "TL" "TR" "RB" "RT" "LB" "LT")
+ "The possible values that an attribute of type `pagedir' can have.
+See URL `https://graphviz.org/docs/attr-types/pagedir/'.")
+
+(defvar graphviz-attributes-splines
+ '("splines")
+ "The attributes that are `splines'.
+See URL `https://graphviz.org/docs/attrs/splines/'.")
+
+(defvar graphviz-attributes-splines-values
+ '("true" "false" "none" "line" "spline" "polyline" "ortho" "curved")
+ "The possible values that an attribute `splines' can have.
+See URL `https://graphviz.org/docs/attrs/splines/'.")
+
+(defvar graphviz-attributes-type-bool
+ '("beautify" "center" "cluster" "compound" "concentrate" "constraint"
+ "decorate" "diredgeconstraints" "fixedsize" "forcelabels" "headclip"
+ "imagescale" "labelfloat" "landscape" "newrank" "nojustify" "normalize"
+ "notranslate" "oneblock" "overlap" "overlap_shrink" "pack" "pin" "quadtree"
+ "regular" "remincross" "root" "splines" "tailclip" "truecolor")
+ "The attributes that are of type `bool'.
+Some atributes like `splines' are more specific then bool. So during switching
+one type, checking for `bool' must come last.
+See URL `https://graphviz.org/docs/attr-types/bool/'.")
+
+(defvar graphviz-values-type-bool
+ '("true" "false" "yes" "no" "1" "0")
+ "The possible values that an attribute of type `bool' can have.")
+
+(defvar graphviz-attributes-type-portpos
+ '("headport" "tailport")
+ "The attributes that are of type `portPos'.
+See URL `https://graphviz.org/docs/attr-types/portPos/'.")
+
+(defvar graphviz-values-type-portpos
+ '("n" "ne" "e" "se" "s" "sw" "w" "nw" "c" "_")
+ "The possible values that an attribute of type `portPos' can have.
+They can also be used on the edge as a compass point.
+See URL `https://graphviz.org/docs/attr-types/portPos/'.")
+
+(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-color-keywords
+ '("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.
+See URL `https://graphviz.org/doc/info/colors.html'")
+
+
+;;; Key map
+(defvar graphviz-dot-mode-map
+ (let ((map (make-sparse-keymap)))
+ (define-key map "\C-\M-q" 'graphviz-dot-indent-graph)
+ (define-key map "\C-c\C-p" 'graphviz-dot-preview)
+ (define-key map "\C-c\C-c" 'compile)
+ (define-key map "\C-c\C-v" 'graphviz-dot-view)
+ map)
+ "Keymap used in Graphviz Dot mode.")
+
+;;; Syntax table
+(defvar 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)
+ st)
+ "Syntax table for `graphviz-dot-mode'.")
+
+(defvar graphviz-dot-syntax-propertize-function
+ (syntax-propertize-rules
+ ("^#" (0 "< b"))))
+
+(defvar graphviz-dot-font-lock-keywords
+ `(;; Match ID, first case
+ ("\\(?:di\\|sub\\)?graph\\(?:[[:space:]]+\\)\\([a-zA-Z_]+[a-zA-Z0-9_]*\\)"
+ (1 font-lock-function-name-face))
+ ;; Match ID, second case
+ ("\\(?:di\\|sub\\)?graph\\(?:[[:space:]]+\\)\\(-?[0-9]*\\(\\.[0-9]*\\)?\\)"
+ (1 font-lock-function-name-face))
+ (,(regexp-opt graphviz-dot-value-keywords 'words)
+ . font-lock-constant-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-lisp-eval-depth (max max-lisp-eval-depth 1200)))
+ (regexp-opt graphviz-dot-color-keywords 'words))
+ . font-lock-string-face)
+ (,(concat
+ (regexp-opt graphviz-dot-attr-keywords 'words)
+ "[ \\t\\n]*=")
+ ;; RR - ugly, really, but I don't know why xemacs does not work
+ ;; if I change the next car to "1"...
+ (0 font-lock-variable-name-face))
+ ;; The 'graph' nonterminal
+ ("\\(\\_<\\(?:strict\\)?[[:space:]]*\\(?:\\(?:di\\)?graph\\)\\_>\\)"
+ (1 'font-lock-keyword-face))
+ ;; The 'attr_stmt'
+ ("\\_<\\(edge\\|graph\\|node\\)\\_>[[:space:]]*\\["
+ 1 'font-lock-keyword-face)
+ ;; The 'subgraph' nonterminal
+ ("\\_<subgraph\\_>" . 'font-lock-keyword-face))
+ "Keyword highlighting specification for `graphviz-dot-mode'.
+See URL `https://graphviz.org/doc/info/lang.html'.")
+
+(defun graphviz-output-file-name (f-name)
+ "Return the filename of the preview, using F-NAME."
+ (concat (file-name-sans-extension f-name)
+ "." graphviz-dot-preview-extension))
+
+(defun graphviz-compile-command (f-name)
+ "Shell command to compile F-NAME.
+By default this is `dot -T png file.dot -o file.png', the used
+program to compile can be changed by setting
+`graphviz-dot-dot-program', the output format and extension can
+be changed with `graphviz-dot-preview-extension'."
+ (when f-name
+ (setq compile-command
+ (concat graphviz-dot-dot-program
+ " -T" graphviz-dot-preview-extension " "
+ (shell-quote-argument
+ (file-name-unquote (file-local-name f-name)))
+ " -o "
+ (shell-quote-argument
+ (file-name-unquote
+ (file-local-name (graphviz-output-file-name f-name))))))))
+
+(defun graphviz-dot--syntax-at-point ()
+ "Return the syntax at point.
+This can be one of comment, string, out, value, attribute, color,
+arrow, shape, style, dir, outputmode or other."
+ (let ((state (syntax-ppss)))
+ (cond
+ ((nth 4 state) 'comment)
+ ((nth 3 state) 'string)
+ ((not (nth 1 state)) 'out)
+ (t (save-excursion
+ (skip-chars-backward "^[\\[,;=:\n]")
+ (backward-char)
+ (cond
+ ((looking-at "[\\[,;\n]") 'attribute)
+ ((looking-at ":") 'compasspoint)
+ ((looking-at "=")
+ (progn
+ (backward-word 1)
+ (cond
+ ((looking-at "[a-zA-Z]*color") 'color)
+ ((member (word-at-point) graphviz-attributes-type-arrow) 'arrow)
+ ((member (word-at-point) graphviz-attributes-type-shape) 'shape)
+ ((member (word-at-point) graphviz-attributes-type-style) 'style)
+ ((member (word-at-point) graphviz-attributes-type-dir) 'dir)
+ ((member (word-at-point) graphviz-attributes-type-outputmode) 'outputmode)
+ ((member (word-at-point) graphviz-attributes-type-packmode) 'packmode)
+ ((member (word-at-point) graphviz-attributes-type-pagedir) 'pagedir)
+ ((member (word-at-point) graphviz-attributes-type-portpos) 'portpos)
+ ((member (word-at-point) graphviz-attributes-splines) 'splines)
+ ((member (word-at-point) graphviz-attributes-type-bool) 'bool)
+ (t 'value))))
+ (t 'other)))))))
+
+;; dynamic node completion
+(defun graphviz-dot--collect-node-ids ()
+ "Return a de-duplicated list of node IDs in the current buffer.
+
+• Ignores identifiers inside comments, double-quoted strings,
+ square-bracket attribute lists, or immediately following an '=' or ':'.
+• Filters out everything in `graphviz-dot-attr-keywords`
+ so language and attribute names never appear."
+ (save-excursion
+ (goto-char (point-min))
+ (let (ids)
+ (while (re-search-forward
+ ;; bare identifiers or double-quoted identifiers
+ "\\(?:\\_<\\([A-Za-z_][A-Za-z0-9_]*\\)\\_>\\|\"\\([^\"]+\\)\"\\)"
+ nil t)
+ (let* ((match-beg (match-beginning 0))
+ (match-end (match-end 0)) ; keep point progressing
+ (state (syntax-ppss match-beg))
+ (in-string (nth 3 state))
+ (in-comment (nth 4 state))
+ (bracket-pos (nth 1 state))
+ (in-attr-list
+ (and bracket-pos (eq (char-after bracket-pos) ?\[)))
+ ;; identifier just after '=' ?
+ (preceded-by-equal
+ (save-excursion
+ (goto-char match-beg)
+ (skip-chars-backward " \t")
+ (eq (char-before) ?=)))
+ ;; identifier just after ':' ?
+ (preceded-by-colon
+ (save-excursion
+ (goto-char match-beg)
+ (skip-chars-backward " \t")
+ (eq (char-before) ?:))))
+ (unless (or in-string in-comment in-attr-list
+ preceded-by-equal preceded-by-colon)
+ (push (or (match-string-no-properties 1)
+ (match-string-no-properties 2))
+ ids))
+ (goto-char match-end)))
+ (cl-set-difference
+ (cl-delete-duplicates ids :test #'string= :from-end t)
+ graphviz-dot-attr-keywords
+ :test #'string=))))
+
+(defun graphviz-completion-at-point ()
+ "Offer context-aware completion for Graphviz.
+Adds dynamic node/subgraph names alongside the static keyword tables."
+ (let* ((bounds (bounds-of-thing-at-point 'symbol))
+ (start (if bounds (car bounds) (point)))
+ (end (if bounds (cdr bounds) (point)))
+ (context (graphviz-dot--syntax-at-point))
+ (collection
+ (cl-case context
+ (compasspoint graphviz-values-type-portpos)
+ (color graphviz-dot-color-keywords)
+ (arrow graphviz-values-type-arrow)
+ (shape graphviz-values-type-shape)
+ (style graphviz-values-type-style)
+ (dir graphviz-values-type-dir)
+ (outputmode graphviz-values-type-outputmode)
+ (packmode graphviz-values-type-packmode)
+ (pagedir graphviz-values-type-pagedir)
+ (portpos graphviz-values-type-portpos)
+ (splines graphviz-attributes-splines-values)
+ (bool graphviz-values-type-bool)
+ (value graphviz-dot-value-keywords)
+ ((comment string) nil) ; nothing in strings/comments
+ (t (append (graphviz-dot--collect-node-ids) ; in all other places
+ graphviz-dot-attr-keywords)))))
+ (when collection
+ (list start end collection :exclusive 'no))))
+
+
+(defvar dot-menu nil
+ "Menu for Graphviz Dot Mode.
+This menu will get created automatically if you have the `easymenu'
+package.")
+
+;;;###autoload
+(define-derived-mode graphviz-dot-mode prog-mode "dot"
+ "Major mode for the dot language.
+
+Functionality specific to this mode:
+
+ `indent-for-tab-command' \\[indent-for-tab-command]
+ Indents a single line.
+ `graphviz-dot-preview' \\[graphviz-dot-preview]
+ Previews graph in a buffer.
+ `graphviz-dot-view' \\[graphviz-dot-view]
+ Views graph in an external viewer.
+ `graphviz-dot-indent-line' \\[graphviz-dot-indent-line]
+ Indents current line of code.
+
+Variables specific to this mode:
+
+ `graphviz-dot-dot-program' (default `dot')
+ Program used to compile the graphs.
+ `graphviz-dot-preview-extension' (default `png')
+ File type to use for output.
+ `graphviz-dot-view-command' (default `dotty %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'."
+ :group 'graphviz
+ (setq-local font-lock-defaults '(graphviz-dot-font-lock-keywords))
+ (setq-local comment-start "//")
+ (setq-local comment-start-skip "/\\*+ *\\|//+ *")
+ (setq-local indent-line-function #'graphviz-dot-indent-line)
+ (setq-local syntax-propertize-function
+ graphviz-dot-syntax-propertize-function)
+ (when (buffer-file-name)
+ (setq-local compile-command
+ (graphviz-compile-command (buffer-file-name))))
+ (add-to-list 'compilation-error-regexp-alist 'dot)
+ (add-to-list 'compilation-error-regexp-alist-alist
+ '(dot "^Error: \\(.+\\): .*error in line \\([0-9]+\\).*" 1 2))
+ (add-hook 'after-save-hook 'graphviz-live-reload-hook)
+ (add-hook 'completion-at-point-functions
+ 'graphviz-completion-at-point
+ nil
+ 'local)
+ (run-hooks 'graphviz-dot-mode-hook))
+
+
+;;;;
+;;;; Syntax Checking with flycheck
+;;;;
+
+
+;; only require the graphviz-dot-flycheck support if flycheck was loaded
+(with-eval-after-load 'flycheck
+ (require 'graphviz-dot-flycheck))
+
+;;;;
+;;;; Menu definitions
+;;;;
+
+(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" 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]
+ )))
+
+;;;;
+;;;; Indentation
+;;;;
+
+(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)
+ (if (looking-at "\\(^.*{[^}]*$\\)")
+ ;; previous line opened a block
+ ;; use same indentation
+ (current-indentation)
+ (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)
+ (while (and (not (bobp))
+ (looking-back "^[[:space:]]*$" (line-beginning-position)))
+ (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 (and (not (bobp))
+ (or (looking-at ".*\\[.*\\].*")
+ (not (looking-at ".*\\[.*")))) ; TODO:PP : "
+ (forward-line -1))
+ (current-indentation))
+ (t
+ ;; default case, indent the
+ ;; same as previous NON-BLANK line
+ ;; (or the first line, if there are no previous non-blank lines)
+ (while (and (not (bobp))
+ (looking-at "^\[ \t\]*$"))
+ (forward-line -1))
+ ;; if we find a closing square bracket, don't indent
+ ;; to the level of its attributes, but instead
+ ;; find the opening bracket and indent to that
+ (if (looking-at ".*\\].*")
+ (while (and (not (bobp))
+ (not (looking-at ".*\\[.*")))
+ (forward-line -1)))
+ (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))))))))
+
+(defconst graphviz-preview-buffer
+ "*Graphviz Preview: %s*")
+
+(defconst graphviz-error-buffer
+ "*Graphviz Errors*")
+
+(defun graphviz--display-preview-buffer (stdout-buffer)
+ "Display STDOUT-BUFFER as the dot preview."
+ (with-current-buffer stdout-buffer
+ (goto-char (point-min))
+ (image-mode))
+ (display-buffer stdout-buffer))
+
+(defun graphviz--display-stderr-buffer (stderr-buffer input-file)
+ "Display the compilation buffer when the preview fails.
+STDERR-BUFFER is the compilation buffer.
+INPUT-FILE is the file we are previewing."
+ (with-current-buffer stderr-buffer
+ (let ((inhibit-read-only t))
+ (goto-char (point-min))
+ (while (search-forward "<stdin>" nil t)
+ (replace-match input-file)))
+ (compilation-mode))
+ (display-buffer stderr-buffer)
+ (with-selected-window (get-buffer-window stderr-buffer)
+ (goto-char (point-min))))
+
+;;;###autoload
+(defun graphviz-dot-preview (&optional begin end)
+ "Compile the graph between BEGIN and END and preview it in an other buffer.
+BEGIN (resp. END) is a number defaulting to `point-min' (resp. `point-max')
+representing the current buffer's point where the graph definition starts
+\(resp. stops)."
+ (interactive)
+ (let* ((use-empty-active-region nil)
+ (graphviz-preview-buffer (format graphviz-preview-buffer
+ (buffer-name)))
+ (stdout (get-buffer-create graphviz-preview-buffer))
+ (stderr (get-buffer-create graphviz-error-buffer))
+ (begin (or begin
+ (and (use-region-p) (region-beginning))
+ (point-min)))
+ (end (or end
+ (and (use-region-p) (region-end))
+ (point-max)))
+ (process (make-process
+ :name "graphviz-dot"
+ :command `(,graphviz-dot-dot-program
+ ,(format "-T%s" graphviz-dot-preview-extension))
+ :buffer stdout
+ :stderr stderr
+ :connection-type 'pipe
+ :coding 'binary
+ :sentinel
+ (lambda (_ event)
+ (cond
+ ((string= event "finished\n")
+ (graphviz--display-preview-buffer stdout))
+ ((string-prefix-p "exited" event)
+ (graphviz--display-stderr-buffer stderr
+ (buffer-name))))))))
+ (with-current-buffer stdout
+ (fundamental-mode)
+ (erase-buffer))
+ (with-current-buffer stderr
+ (let ((inhibit-read-only t))
+ (fundamental-mode)
+ (erase-buffer)))
+ (process-send-region process begin end)
+ (process-send-eof process)))
+
+;;;###autoload
+(defun graphviz-turn-on-live-preview ()
+ "Turn on live preview.
+This will update the preview on every save."
+ (interactive)
+ (setq graphviz-dot-auto-preview-on-save t)
+ (add-hook 'after-save-hook 'graphviz-live-reload-hook))
+
+;;;###autoload
+(defun graphviz-turn-off-live-preview ()
+ "Turn off live preview.
+Saving the file will no longer also update the preview."
+ (interactive)
+ (setq graphviz-dot-auto-preview-on-save nil)
+ (remove-hook 'after-save-hook 'graphviz-live-reload-hook))
+
+(defun graphviz-live-reload-hook ()
+ "Hook to run in `after-save-hook' for live preview to work."
+ (when (and (eq major-mode 'graphviz-dot-mode) graphviz-dot-auto-preview-on-save)
+ (graphviz-dot-preview)))
+
+;;;;
+;;;; View
+;;;;
+(defun graphviz-dot-view ()
+ "Run 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
+ (read-shell-command "View command: "
+ (format graphviz-dot-view-command
+ (shell-quote-argument (buffer-file-name))))
+ (format graphviz-dot-view-command
+ (shell-quote-argument (buffer-file-name))))))
+ (if graphviz-dot-save-before-view
+ (save-buffer))
+ (start-process-shell-command (downcase mode-name) nil cmd)
+ (message (format "Executing `%s'..." cmd))))
+
+(defun graphviz-dot-set-layout ()
+ "Change the value of `graphviz-dot-dot-program'."
+ (interactive)
+ (setq graphviz-dot-dot-program
+ (completing-read "Layout: " graphviz-dot-layout-programs)))
+
+;;;###autoload
+(add-to-list 'auto-mode-alist '("\\.dot\\'" . graphviz-dot-mode))
+;;;###autoload
+(add-to-list 'auto-mode-alist '("\\.gv\\'" . graphviz-dot-mode))
+
+;; Support org-mode, when adding a code block for dot, use this mode
+(with-eval-after-load 'org-src
+ (defvar org-src-lang-modes)
+ (add-to-list 'org-src-lang-modes '("dot" . graphviz-dot)))
+
+(provide 'graphviz-dot-mode)
+;;; graphviz-dot-mode.el ends here
projects / emacsconfig.git / commitdiff