summaryrefslogtreecommitdiff
path: root/elpa/auctex-13.1.3/style/pst-node.el
diff options
context:
space:
mode:
Diffstat (limited to 'elpa/auctex-13.1.3/style/pst-node.el')
-rw-r--r--elpa/auctex-13.1.3/style/pst-node.el207
1 files changed, 0 insertions, 207 deletions
diff --git a/elpa/auctex-13.1.3/style/pst-node.el b/elpa/auctex-13.1.3/style/pst-node.el
deleted file mode 100644
index 86a87e4..0000000
--- a/elpa/auctex-13.1.3/style/pst-node.el
+++ /dev/null
@@ -1,207 +0,0 @@
-;;; pst-node.el --- AUCTeX style for `pst-node.sty' -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2007-2021 Free Software Foundation, Inc.
-
-;; Author: Holger Sparr <holger.sparr@gmx.net>
-;; Created: 21 Jun 2007
-;; Based on: Jean-Philippe Georget's pst-plot.el
-;; Keywords: latex, pstricks, auctex, emacs
-
-;; This file is part of AUCTeX.
-
-;; AUCTeX 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 3, or (at your option)
-;; any later version.
-
-;; AUCTeX 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 AUCTeX; see the file COPYING. If not, write to the Free
-;; Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
-;; 02110-1301, USA.
-
-;;; Commentary:
-
-;; This file adds support for `pst-node.sty'.
-
-;;; TODO:
-;;
-;; -- self parsing of possible node names
-;; -- adding more macro support
-
-;;; Code:
-
-(require 'tex)
-(require 'latex)
-
-;; Silence the compiler:
-(declare-function LaTeX-package-parameter-value
- "pstricks" (param pname))
-(declare-function LaTeX-package-parameters-pref-and-chosen
- "pstricks" (param pname noskip))
-(declare-function LaTeX-package-parameters
- "pstricks" (optional pname preparam param))
-(declare-function LaTeX-pst-angle "pstricks" ())
-(declare-function LaTeX-pst-point "pstricks" ())
-(declare-function LaTeX-pst-arrows "pstricks" ())
-
-(defalias 'LaTeX-pst-node #'LaTeX-pst-point)
-
-(defvar LaTeX-pstnode-parameters-completion-regexp
- "\\(npos\\|nrot\\)"
- "Regexp for `string-match'ing a parameter.")
-
-(defvar LaTeX-pstnode-parameters-boolean-regexp "show\\([a-zA-Z]+\\)"
- "Regexp for `string-match'ing a parameter.")
-
-(defvar LaTeX-pstnode-npos-list '(".25" ".5" ".75" "1" "1.5" "2")
- "A list of values for npos in nput.")
-
-(defvar LaTeX-pstnode-nrot-list '(":U" ":D" ":R" ":L")
- "A list of values for nrot in nput.")
-
-(defvar LaTeX-pstnode-psmatrix-list
- '("mnode" "emnode" "name" "nodealign" "mocl" "rowsep" "colsep"
- "mnodesize")
- "A list of values for trimode in pstribox.")
-
-;;; Parameters
-(defvar LaTeX-pstnode-parameters-history nil
- "History of values for parameters in pst-node.")
-
-(defvar LaTeX-pstnode-parameters-value-history nil
- "History of parameter values in pst-node.")
-
-(defvar LaTeX-pstnode-parameters-name-list
- '("angle" "angleA" "angleB" "arcangle" "arcangleA" "arcangleB" "arm"
- "armA" "armB" "boxsize" "colsep" "framesize" "href" "loopsize"
- "ncurv" "ncurvA" "ncurvB" "nodesepA" "nodesepB" "npos" "nrot"
- "offset" "offsetA" "offsetB" "radius" "vref" "Xnodesep" "XnodesepA"
- "XnodesepB" "Ynodesep" "YnodesepA" "YnodesepB")
- "A list of parameters' name in pst-node.")
-
-(defvar LaTeX-pstnode-parameters-name-history nil
- "History of parameter names in pst-node.")
-
-;;; Derived Functions from pstricks.el defuns
-(defun LaTeX-pstnode-parameter-value (param)
- "See documentation of `LaTeX-package-parameter-value'."
- (LaTeX-package-parameter-value param "pstnode"))
-
-(defun LaTeX-pstnode-parameters-pref-and-chosen (param &optional noskip)
- "See documentation of `LaTeX-package-parameters-pref-and-chosen'."
- (LaTeX-package-parameters-pref-and-chosen param "pstnode" noskip))
-
-(defun LaTeX-pstnode-parameters (optional &optional preparam param)
- "See documentation of `LaTeX-package-parameters-pref-and-chosen'."
- (LaTeX-package-parameters optional "pstnode" preparam param))
-
-;;; Macros
-(defun LaTeX-pstnode-macro-nput (_optional &optional _arg)
- "Return \\nput arguments after querying."
- (insert "[rot=" (LaTeX-pst-angle) "]{" (LaTeX-pst-angle) "}{"
- (LaTeX-pst-node) "}"))
-
-(defun LaTeX-pstnode-macro-cnodeput (_optional &optional _arg)
- "Return \\cnodeput arguments after querying."
- (let ((rotation (if current-prefix-arg (LaTeX-pst-angle) nil))
- (pnt (if current-prefix-arg (LaTeX-pst-point) nil)))
- (insert (if rotation (format "{%s}" rotation) "")
- (if pnt (format "(%s)" pnt) "") "{" (LaTeX-pst-node) "}")))
-
-(defun LaTeX-pstnode-macro-nc (_optional &optional _arg)
- "Return \\nc* arguments after querying."
- (let ((arrows (LaTeX-pst-arrows)))
- (insert (if arrows (format "{%s}" arrows) "") "{" (LaTeX-pst-node)
- "}{" (LaTeX-pst-node) "}")))
-
-(defun LaTeX-pstnode-macro-pc (_optional &optional _arg)
- "Return \\pc* arguments after querying."
- (let ((arrows (LaTeX-pst-arrows)))
- (insert (if arrows (format "{%s}" arrows) "") "(" (LaTeX-pst-point)
- ")(" (LaTeX-pst-point) ")")))
-
-(defun LaTeX-pstnode-macro-tnabcput (optional &optional _arg)
- "Return \\t?put or \\n?put arguments after querying."
- (TeX-argument-insert (LaTeX-pstnode-parameters-pref-and-chosen
- '("nrot" "npos"))
- optional))
-
-;;; Environments
-(defun LaTeX-pstnode-env-psmatrix (env)
- "Return psmatrix environment with arguments."
- (let ((opt (TeX-completing-read-multiple "Options: "
- LaTeX-pstnode-psmatrix-list)))
- (LaTeX-insert-environment env opt)))
-
-(TeX-add-style-hook
- "pst-node"
- (function
- (lambda ()
- (LaTeX-add-environments
- '("psmatrix" LaTeX-pstnode-env-psmatrix))
- (TeX-add-symbols
- '("MakeShortNab" 2) '("MakeShortTablr" 4) '("PSTnodesLoaded" 0)
- '("nput" LaTeX-pstnode-macro-nput TeX-arg-macro)
- '("cnodeput" [LaTeX-pst-parameters] LaTeX-pstnode-macro-cnodeput t)
- '("Cnode" [LaTeX-pstnode-parameters] LaTeX-pst-point-in-parens t)
- '("cnode" [LaTeX-pstnode-parameters] "Radius" t)
- '("fnode" [LaTeX-pstnode-parameters] LaTeX-pst-point-in-parens t)
- '("fnode*" [LaTeX-pstnode-parameters] LaTeX-pst-point-in-parens t)
- '("dotnode" [LaTeX-pstnode-parameters] LaTeX-pst-point-in-parens t)
- '("pnode" LaTeX-pst-point-in-parens t)
- '("Rnode" [LaTeX-pstnode-parameters ("href" "vref")]
- (TeX-arg-eval LaTeX-pst-point) t)
- '("rnode" [LaTeX-pstnode-parameters ("ref")]
- (TeX-arg-eval LaTeX-pst-point) t)
- '("circlenode" [LaTeX-pst-parameters]
- (TeX-arg-eval LaTeX-pst-point) t)
- '("dianode" [LaTeX-pst-parameters] "Node Name" t)
- '("ovalnode" [LaTeX-pst-parameters] "Node Name" t)
- '("trinode" [LaTeX-pst-parameters] "Node Name" t)
- '("dotnode" [LaTeX-pst-parameters] LaTeX-pst-point-in-parens
- "Node Name")
- '("naput" [LaTeX-pstnode-macro-tnabcput] t)
- '("nbput" [LaTeX-pstnode-macro-tnabcput] t)
- '("ncput" [LaTeX-pstnode-macro-tnabcput] t)
- '("taput" [LaTeX-pstnode-macro-tnabcput] t)
- '("tbput" [LaTeX-pstnode-macro-tnabcput] t)
- '("thput" [LaTeX-pstnode-macro-tnabcput] t)
- '("tlput" [LaTeX-pstnode-macro-tnabcput] t)
- '("trput" [LaTeX-pstnode-macro-tnabcput] t)
- '("tvput" [LaTeX-pstnode-macro-tnabcput] t)
- '("ncline" [LaTeX-pst-parameters] LaTeX-pstnode-macro-nc)
- '("ncarc" [LaTeX-pst-parameters] LaTeX-pstnode-macro-nc)
- '("ncdiag" [LaTeX-pst-parameters] LaTeX-pstnode-macro-nc)
- '("ncdiagg" [LaTeX-pst-parameters] LaTeX-pstnode-macro-nc)
- '("ncbar" [LaTeX-pst-parameters] LaTeX-pstnode-macro-nc)
- '("ncangle" [LaTeX-pst-parameters] LaTeX-pstnode-macro-nc)
- '("ncangles" [LaTeX-pst-parameters] LaTeX-pstnode-macro-nc)
- '("ncloop" [LaTeX-pst-parameters] LaTeX-pstnode-macro-nc)
- '("nccurve" [LaTeX-pst-parameters] LaTeX-pstnode-macro-nc)
- '("nccircle" [LaTeX-pst-parameters] LaTeX-pstnode-macro-nc)
- '("ncbox" [LaTeX-pst-parameters] LaTeX-pstnode-macro-nc)
- '("ncarcbox" [LaTeX-pst-parameters] LaTeX-pstnode-macro-nc)
- '("pcline" [LaTeX-pst-parameters] LaTeX-pstnode-macro-pc)
- '("pccurve" [LaTeX-pst-parameters] LaTeX-pstnode-macro-pc)
- '("pcarc" [LaTeX-pst-parameters] LaTeX-pstnode-macro-pc)
- '("pcbar" [LaTeX-pst-parameters] LaTeX-pstnode-macro-pc)
- '("pcdiag" [LaTeX-pst-parameters] LaTeX-pstnode-macro-pc)
- '("pcdiagg" [LaTeX-pst-parameters] LaTeX-pstnode-macro-pc)
- '("pcangle" [LaTeX-pst-parameters] LaTeX-pstnode-macro-pc)
- '("pcangles" [LaTeX-pst-parameters] LaTeX-pstnode-macro-pc)
- '("pcloop" [LaTeX-pst-parameters] LaTeX-pstnode-macro-pc)
- '("pcbox" [LaTeX-pst-parameters] LaTeX-pstnode-macro-pc)
- '("pcarcbox" [LaTeX-pst-parameters] LaTeX-pstnode-macro-pc)
- '("psspan" (TeX-arg-eval LaTeX-pst-input-int))
- '("psrowhook" t)
- '("pscolhook" t))
- (TeX-run-style-hooks
- "pstricks")))
- TeX-dialect)
-
-;;; pst-node.el ends here
generated by cgit v1.2.1 (git 2.18.0) at 2024-09-20 07:01:27 +0000