1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
|
;;; pst-plot.el --- AUCTeX style for `pst-plot.sty' -*- lexical-binding: t; -*-
;; Copyright (C) 2007, 2014, 2015, 2019, 2020 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-plot.sty'.
;;; TODO:
;;
;; -- improve symbol support (especially the pstScalePoints macros)
;; -- check for multido.el necessity
;;; Code:
(require 'tex)
;; Silence the compiler:
(declare-function LaTeX-pst-arrows "pstricks" ())
(declare-function LaTeX-pst-point "pstricks" ())
(declare-function TeX-arg-compl-list
"pstricks" (list &optional prompt hist))
(defvar LaTeX-pst-parameters-completion-regexp)
(defvar LaTeX-pst-parameters-name-list)
;;; Parameters
(defvar LaTeX-pstplot-datasets nil
"List of parsed data sets defined with \\savedata or \\readdata.")
(defvar LaTeX-pstplot-parameters-name-list
'("axesstyle" "labels" "plotpoints" "plotstyle" "showorigin" "ticks"
"ticksize" "tickstyle")
"A list of parameters' name in pst-plot.")
(defvaralias 'LaTeX-pst-labels-list 'LaTeX-pst-ticks-list)
(defvar LaTeX-pst-ticks-list '(t "none" "all" "x" "y")
"A list of values for ticks in pst-plot.")
(defvar LaTeX-pst-plotstyle-list
'(t "dots" "line" "polygon" "curve" "ecurve" "ccurve")
"A list of values for tickstyles in pst-plot.")
(defvar LaTeX-pst-tickstyle-list '(t "full" "top" "bottom")
"A list of values for tickstyles in pst-plot.")
(defvar LaTeX-pst-axesstyle-list '(t "axes" "frame" "none")
"A list of values for axesstyles in pst-plot.")
;; Self Parsing -- see (info "(auctex)Hacking the Parser")
(defvar LaTeX-auto-pstplot-regexp-list
'(("\\\\\\(save\\|read\\)data{?\\(\\\\[a-zA-Z]+\\)}?"
2 LaTeX-auto-pstplot))
"List of regular expressions to extract arguments of \\*data
macros.")
(defvar LaTeX-auto-pstplot nil
"Temporary for parsing \\*data definitions.")
(defun LaTeX-pstplot-cleanup ()
"Move symbols from `LaTeX-auto-pstplot' to `TeX-auto-symbol'."
(mapcar (lambda (symbol)
;; (setq TeX-symbol-list (cons (list symbol 0) TeX-symbol-list))
;; (setq TeX-auto-symbol (cons (list symbol 0) TeX-auto-symbol)))
(add-to-list 'LaTeX-pstplot-datasets symbol))
LaTeX-auto-pstplot))
(defun LaTeX-pstplot-prepare ()
"Clear `LaTeX-auto-pstplot' before use."
(setq LaTeX-auto-pstplot nil))
(add-hook 'TeX-auto-prepare-hook #'LaTeX-pstplot-prepare t)
(add-hook 'TeX-auto-cleanup-hook #'LaTeX-pstplot-cleanup t)
(add-hook 'TeX-update-style-hook #'TeX-auto-parse t)
;;; Macros
(defun LaTeX-pst-macro-psaxes (_optional &optional _arg)
"Return \\psaxes arguments after querying."
(let* ((cpref (if current-prefix-arg (car current-prefix-arg) 0))
(arrows (LaTeX-pst-arrows))
(pnt1 (if (> cpref 4) (LaTeX-pst-point) nil))
(pnt2 (if (> cpref 0) (LaTeX-pst-point) nil))
(pnt3 (LaTeX-pst-point)))
;; Insert \psaxes arguments.
(insert (if arrows (format "{%s}" arrows) "")
(if pnt1 (format "(%s)" pnt1) "")
(if pnt2 (format "(%s)" pnt2) "") "(" pnt3 ")")))
;;; Derived defuns
(defun LaTeX-pstplot-datasets-read ()
(TeX-arg-compl-list "Datasets" LaTeX-pstplot-datasets))
;;; Hook
(TeX-add-style-hook
"pst-plot"
(function
(lambda ()
(mapc #'TeX-auto-add-regexp LaTeX-auto-pstplot-regexp-list)
(TeX-add-symbols
'("readdata" "Macro Name" TeX-arg-file)
'("savedata" "Macro Name" ["Values"])
'("dataplot" ["Options"]
(TeX-arg-eval LaTeX-pstplot-datasets-read))
'("fileplot" ["Options"] TeX-arg-file)
'("listplot" ["Options"] "Values")
'("pstScalePoints" "X-Mod" "Y-Mod")
'("psplot" [LaTeX-pst-parameter] "xmin" "xmax" t)
'("parametricplot" [LaTeX-pst-parameter] "xmin" "xmax" t)
'("psaxes" [LaTeX-pst-parameters] LaTeX-pst-macro-psaxes)
"pshlabel"
"psvlabel")
(TeX-run-style-hooks
"pstricks"
"multido")
(unless (string-match "plotstyle"
LaTeX-pst-parameters-completion-regexp)
(setq LaTeX-pst-parameters-completion-regexp
(concat
(substring LaTeX-pst-parameters-completion-regexp 0 -2)
"\\|plotstyle\\|ticks\\|tickstyle\\|axesstyle\\|labels\\)")))
(make-local-variable 'LaTeX-pst-parameters-name-list)
(setq LaTeX-pst-parameters-name-list
(append LaTeX-pstplot-parameters-name-list
LaTeX-pst-parameters-name-list))))
TeX-dialect)
;;; pst-plot.el ends here
|
