|
Packit |
f2bd10 |
;;; pst-grad.el --- AUCTeX style for `pst-grad.sty'
|
|
Packit |
f2bd10 |
|
|
Packit |
f2bd10 |
;; Copyright (C) 2007 Free Software Foundation, Inc.
|
|
Packit |
f2bd10 |
|
|
Packit |
f2bd10 |
;; Author: Holger Sparr <holger.sparr@gmx.net>
|
|
Packit |
f2bd10 |
;; Created: 21 Jun 2007
|
|
Packit |
f2bd10 |
;; Keywords: latex, pstricks, auctex, emacs
|
|
Packit |
f2bd10 |
|
|
Packit |
f2bd10 |
;; This file is part of AUCTeX.
|
|
Packit |
f2bd10 |
|
|
Packit |
f2bd10 |
;; AUCTeX is free software; you can redistribute it and/or modify it
|
|
Packit |
f2bd10 |
;; under the terms of the GNU General Public License as published by
|
|
Packit |
f2bd10 |
;; the Free Software Foundation; either version 3, or (at your option)
|
|
Packit |
f2bd10 |
;; any later version.
|
|
Packit |
f2bd10 |
|
|
Packit |
f2bd10 |
;; AUCTeX is distributed in the hope that it will be useful, but
|
|
Packit |
f2bd10 |
;; WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
Packit |
f2bd10 |
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
Packit |
f2bd10 |
;; General Public License for more details.
|
|
Packit |
f2bd10 |
|
|
Packit |
f2bd10 |
;; You should have received a copy of the GNU General Public License
|
|
Packit |
f2bd10 |
;; along with AUCTeX; see the file COPYING. If not, write to the Free
|
|
Packit |
f2bd10 |
;; Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
|
|
Packit |
f2bd10 |
;; 02110-1301, USA.
|
|
Packit |
f2bd10 |
|
|
Packit |
f2bd10 |
;;; Commentary:
|
|
Packit |
f2bd10 |
|
|
Packit |
f2bd10 |
;; This file adds support for `pst-grad.sty'.
|
|
Packit |
f2bd10 |
|
|
Packit |
f2bd10 |
;;; TODO:
|
|
Packit |
f2bd10 |
;;
|
|
Packit |
f2bd10 |
;; --
|
|
Packit |
f2bd10 |
|
|
Packit |
f2bd10 |
;;; Code:
|
|
Packit |
f2bd10 |
|
|
Packit |
f2bd10 |
;;; Parameters
|
|
Packit |
f2bd10 |
(defvar LaTeX-pstgrad-parameters-name-list
|
|
Packit |
f2bd10 |
'("gradangle" "gradbegin" "gradend" "gradlines" "gradmidpoint"
|
|
Packit |
f2bd10 |
"gradientHSB" "GradientCircle" "GradientPos" "GradientScale")
|
|
Packit |
f2bd10 |
"A list of parameter names in pst-grad.")
|
|
Packit |
f2bd10 |
|
|
Packit |
f2bd10 |
;;; Aliases
|
|
Packit |
f2bd10 |
(defvaralias 'LaTeX-pst-gradbegin-list 'LaTeX-pst-color-list)
|
|
Packit |
f2bd10 |
(defvaralias 'LaTeX-pst-gradend-list 'LaTeX-pst-color-list)
|
|
Packit |
f2bd10 |
|
|
Packit |
f2bd10 |
;;; Hook
|
|
Packit |
f2bd10 |
(TeX-add-style-hook
|
|
Packit |
f2bd10 |
"pst-grad"
|
|
Packit |
f2bd10 |
(function
|
|
Packit |
f2bd10 |
(lambda ()
|
|
Packit |
f2bd10 |
(TeX-run-style-hooks
|
|
Packit |
f2bd10 |
"pstricks")
|
|
Packit |
f2bd10 |
(unless (member "gradient" LaTeX-pst-fillstyle-list)
|
|
Packit |
f2bd10 |
(setq LaTeX-pst-fillstyle-list (append LaTeX-pst-fillstyle-list
|
|
Packit |
f2bd10 |
'("gradient")))
|
|
Packit |
f2bd10 |
(setq LaTeX-pst-parameters-completion-regexp
|
|
Packit |
f2bd10 |
(concat
|
|
Packit |
f2bd10 |
(substring LaTeX-pst-parameters-completion-regexp 0 -2)
|
|
Packit |
f2bd10 |
"\\|gradbegin\\|gradend\\)")))
|
|
Packit |
f2bd10 |
(make-local-variable 'LaTeX-pst-parameters-name-list)
|
|
Packit |
f2bd10 |
(setq LaTeX-pst-parameters-name-list
|
|
Packit |
f2bd10 |
(append LaTeX-pstgrad-parameters-name-list
|
|
Packit |
f2bd10 |
LaTeX-pst-parameters-name-list))))
|
|
Packit |
f2bd10 |
LaTeX-dialect)
|
|
Packit |
f2bd10 |
|
|
Packit |
f2bd10 |
;;; pst-grad.el ends here
|