diff --git a/TeXmacs/plugins/dot/doc/dot.en.tm b/TeXmacs/plugins/dot/doc/dot.en.tm deleted file mode 100644 index 572beaeffd..0000000000 --- a/TeXmacs/plugins/dot/doc/dot.en.tm +++ /dev/null @@ -1,56 +0,0 @@ - - -> - -<\body> - - - - - Click or click - |Code|physics> on the focus toolbar to add the DOT - style package. - - In the DOT style package, is provided for inline DOT - snippets and is provided for DOT code blocks. - is already defined, that's why we are using - for inline code. - - - - The syntax of the DOT language is defined in: - - - - Here is an example dot code block with syntax highlight: - - <\dot-code> - digraph G { - - \ \ \ \ Hello-\World - - } - - - - - The editing of the DOC code is defined in: - - - - - - - - -<\initial> - <\collection> - - - - \ No newline at end of file diff --git a/TeXmacs/plugins/dot/packages/code/dot.ts b/TeXmacs/plugins/dot/packages/code/dot.ts deleted file mode 100644 index 61db49f808..0000000000 --- a/TeXmacs/plugins/dot/packages/code/dot.ts +++ /dev/null @@ -1,41 +0,0 @@ - - -> - -<\body> - - - - <\src-purpose> - JavaScript Language - - - - - <\src-license> - This software falls under the . It comes WITHOUT ANY - WARRANTY WHATSOEVER. You should have received a copy of the license - which the software. If not, see . - - > - - - - - >>> - - - <\pseudo-code> - > - - > - - - -<\initial> - <\collection> - - - - diff --git a/TeXmacs/plugins/dot/progs/code/dot-edit.scm b/TeXmacs/plugins/dot/progs/code/dot-edit.scm deleted file mode 100644 index baa125b1e3..0000000000 --- a/TeXmacs/plugins/dot/progs/code/dot-edit.scm +++ /dev/null @@ -1,51 +0,0 @@ - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; -;; MODULE : dot-edit.scm -;; DESCRIPTION : editing DOT programs -;; COPYRIGHT : (C) 2020 Darcy Shen -;; -;; This software falls under the GNU general public license version 3 or later. -;; It comes WITHOUT ANY WARRANTY WHATSOEVER. For details, see the file LICENSE -;; in the root directory or . -;; -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - -(texmacs-module (code dot-edit) - (:use (prog prog-edit))) - -(tm-define (get-tabstop) - (:mode in-prog-dot?) - 4) - -(tm-define (program-compute-indentation doc row col) - (:mode in-prog-dot?) - (get-tabstop)) - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; Automatic insertion, highlighting and selection of brackets and quotes -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - -(tm-define (dot-bracket-open lbr rbr) - (bracket-open lbr rbr "\\")) - -(tm-define (dot-bracket-close lbr rbr) - (bracket-close lbr rbr "\\")) - -(tm-define (notify-cursor-moved status) - (:require prog-highlight-brackets?) - (:mode in-prog-dot?) - (select-brackets-after-movement "([{" ")]}" "\\")) - -(kbd-map - (:mode in-prog-dot?) - ("A-tab" (insert-tabstop)) - ("cmd S-tab" (remove-tabstop)) ; TEMP (see above) - ("{" (dot-bracket-open "{" "}" )) - ("}" (dot-bracket-close "{" "}" )) - ("(" (dot-bracket-open "(" ")" )) - (")" (dot-bracket-close "(" ")" )) - ("[" (dot-bracket-open "[" "]" )) - ("]" (dot-bracket-close "[" "]" )) - ("\"" (dot-bracket-open "\"" "\"" )) - ("'" (dot-bracket-open "'" "'" ))) diff --git a/TeXmacs/plugins/dot/progs/code/dot-lang.scm b/TeXmacs/plugins/dot/progs/code/dot-lang.scm deleted file mode 100644 index a8e4aa7937..0000000000 --- a/TeXmacs/plugins/dot/progs/code/dot-lang.scm +++ /dev/null @@ -1,70 +0,0 @@ - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; -;; MODULE : dot-lang.scm -;; DESCRIPTION : the DOT Language -;; COPYRIGHT : (C) 2020 Darcy Shen -;; -;; This software falls under the GNU general public license version 3 or later. -;; It comes WITHOUT ANY WARRANTY WHATSOEVER. For details, see the file LICENSE -;; in the root directory or . -;; -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - -(texmacs-module (code dot-lang) - (:use (prog default-lang))) - -(tm-define (parser-feature lan key) - (:require (and (== lan "dot") (== key "keyword"))) - `(,(string->symbol key) - (declare_type "graph" "node" "edge" "digraph" "subgraph") - (keyword - ;; Graph attributes - "center" "layers" "margin" "mclimit" "name" "nodesep" "nslimit" - "ordering" "page" "pagedir" "rank" "rankdir" "ranksep" "ratio" - "rotate" "size" - ;; Node attributes - "distortion" "fillcolor" "height" "layer" "orientation" "penwidth" - "peripheries" "regular" "shape" "shapefile" "sides" "skew" "width" - ;; Edge attributes - "arrowhead" "arrowsize" "arrowtail" "constraint" "decorateP" "dir" - "headclip" "headlabel" "labelangel" "labeldistance" "labelfontcolor" - "labelfontname" "labelfontsize" "labeljust" "labeltooltip" "minlen" - "port_label_distance" "samehead" "sametail" "tailclip" "taillabel" - "weight" - ;; Shared attributes (graphs, nodes, edges) - "color" - ;; Shared attributes (graphs and edges) - "bgcolor" "label" "URL" - ;; Shared attributes (graphs and edges) - "fontcolor" "fontname" "fontsize" "layer" "style"))) - -(tm-define (parser-feature lan key) - (:require (and (== lan "dot") (== key "operator"))) - `(,(string->symbol key) - (operator - "," ";" ":" "=") - (operator_special - "->" "--") - (operator_field ".") - (operator_openclose "{" "[" "(" ")" "]" "}"))) - -(define (dot-number-suffix) - `(suffix - (long "l" "L") - (double "d" "D") - (float "f" "F"))) - -(tm-define (parser-feature lan key) - (:require (and (== lan "dot") (== key "number"))) - `(,(string->symbol key) - (bool_features - "prefix_0x" "prefix_0b" - "sci_notation") - ,(dot-number-suffix))) - -(tm-define (parser-feature lan key) - (:require (and (== lan "dot") (== key "string"))) - `(,(string->symbol key) - (bool_features) - (escape_sequences "\\" "\"" "'" "b" "f" "n" "r" "t"))) diff --git a/TeXmacs/plugins/dot/progs/data/dot.scm b/TeXmacs/plugins/dot/progs/data/dot.scm deleted file mode 100644 index 0f48f86092..0000000000 --- a/TeXmacs/plugins/dot/progs/data/dot.scm +++ /dev/null @@ -1,39 +0,0 @@ - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; -;; MODULE : dot.scm -;; DESCRIPTION : prog format for DOT -;; COPYRIGHT : (C) 2022 Darcy Shen, Joris van der Hoeven -;; -;; This software falls under the GNU general public license version 3 or later. -;; It comes WITHOUT ANY WARRANTY WHATSOEVER. For details, see the file LICENSE -;; in the root directory or . -;; -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - -(texmacs-module (data dot)) - -(define-format dot - (:name "DOT Source Code") - (:suffix "gv")) - -(define (texmacs->dot x . opts) - (texmacs->verbatim x (acons "texmacs->verbatim:encoding" "SourceCode" '()))) - -(define (dot->texmacs x . opts) - (code->texmacs x)) - -(define (dot-snippet->texmacs x . opts) - (code-snippet->texmacs x)) - -(converter texmacs-tree dot-document - (:function texmacs->dot)) - -(converter dot-document texmacs-tree - (:function dot->texmacs)) - -(converter texmacs-tree dot-snippet - (:function texmacs->dot)) - -(converter dot-snippet texmacs-tree - (:function dot-snippet->texmacs))