[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[AUCTeX-devel] Support for fontaxes.sty

From: Arash Esbati
Subject: [AUCTeX-devel] Support for fontaxes.sty
Date: Sun, 02 Nov 2014 20:18:34 +0100
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/24.3


this file adds support for fontaxes.sty.  Best, Arash

2014-10-31  Arash Esbati  <address@hidden>

        * style/fontaxes.el: New file.

;;; fontaxes.el --- AUCTeX style for `fontaxes.sty' version v1.0d

;; Copyright (C) 2014 Free Software Foundation, Inc.

;; Maintainer: address@hidden
;; Author: Arash Esbati <esbati'at'>
;; Created: 2014-10-12
;; Keywords: tex

;; 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
;; 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 `fontaxes.sty' version v1.0d from
;; 2014/03/23.  `fontaxes.sty' is part of TeXLive.

;; Thanks to Mosè Giordano for his perceptive comments on
;; implementation of "figureversion".

;;; Code:

 (lambda ()
    ;; Various font shapes
    '("swshape"           -1)  ; swash shape
    '("sscshape"          -1)  ; spaced small caps
    '("fontprimaryshape"   t)
    '("fontsecondaryshape" t)
    '("swdefault"          t)
    '("sscdefault"         t)
    '("ulcdefault"         t)
    ;; Figure versions
      (TeX-arg-eval mapconcat 'identity 
                     "Style, alignment: "
                     '(("text") ("osf")
                       ("lining") ("lf")
                       ("tabular") ("tab")
                       ("proportional") ("prop"))) ","))
    '("txfigures" -1)  ; style: text figures (osf)
    '("lnfigures" -1)  ; style: lining figures
    '("tbfigures" -1)  ; alignment: tabular figures
    '("prfigures" -1)  ; alignment: proportional figures
      (TeX-arg-eval completing-read "Style: "
                    '(("text") ("lining"))))
      (TeX-arg-eval completing-read "Alignment: "
                    '(("tabular") ("proportional"))))
    '("fontbasefamily" t)

    ;; Math versions
    '("boldmath"         -1)  ; math weight
    '("unboldmath"       -1)  ; 
    '("tabularmath"      -1)  ; math figure alignment
    '("proportionalmath" -1)  ; 
      (TeX-arg-eval completing-read "Math weight: "
                    '(("bold") ("normal"))))
      (TeX-arg-eval completing-read "Math figure alignment: "
                    '(("tabular") ("proportional"))))

    ;; Additional commands
    '("textsw"              t)
    '("textssc"             t)
    '("textulc"             t)
    '("textfigures"         t)
    '("liningfigures"       t)
    '("tabularfigures"      t)
    '("proportionalfigures" t))

   ;; Fontification
   (when (and (featurep 'font-latex)
              (eq TeX-install-font-lock 'font-latex-setup))
     (font-latex-add-keywords '(("textfigures"         "{")
                                ("liningfigures"       "{")
                                ("tabularfigures"      "{")
                                ("proportionalfigures" "{"))
     (font-latex-add-keywords '(("textsw"              "{")
                                ("textssc"             "{")
                                ("textulc"             "{"))
     (font-latex-add-keywords '(("swshape"             "")
                                ("sscshape"            ""))
     (font-latex-add-keywords '(("figureversion"       "{"))

(defvar LaTeX-fontaxes-package-options nil
  "Package options for the fontaxes package.")

;;; fontaxes.el ends here

Arash Esbati

reply via email to

[Prev in Thread] Current Thread [Next in Thread]