auctex-diffs
[Top][All Lists]
Advanced

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

[AUCTeX-diffs] GNU AUCTeX branch, master, updated. 8c50665e2b24128aa23d8


From: Arash Esbati
Subject: [AUCTeX-diffs] GNU AUCTeX branch, master, updated. 8c50665e2b24128aa23d891b10519cda7d6e35ad
Date: Fri, 26 Nov 2021 07:31:49 -0500 (EST)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU AUCTeX".

The branch, master has been updated
       via  8c50665e2b24128aa23d891b10519cda7d6e35ad (commit)
      from  2e26d492d16b138c864ffcbbdc5d2ddee25de030 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 8c50665e2b24128aa23d891b10519cda7d6e35ad
Author: Arash Esbati <arash@gnu.org>
Date:   Fri Nov 26 13:31:23 2021 +0100

    Add new style/unicodefonttable.el
    
    * Makefile.in (STYLESRC): Add new style.
    
    * style/unicodefonttable.el: New file.

diff --git a/Makefile.in b/Makefile.in
index 5eba8ff..d47746a 100644
--- a/Makefile.in
+++ b/Makefile.in
@@ -175,7 +175,7 @@ STYLESRC = style/prosper.el \
           style/truncate.el  style/changes.el   style/footnotehyper.el \
           style/brazil.el    style/brazilian.el style/portuguese.el \
           style/portuges.el  style/backref.el   style/xr-hyper.el \
-          style/xr.el        style/cancel.el
+          style/xr.el        style/cancel.el    style/unicodefonttable.el
 
 STYLEELC = $(STYLESRC:.el=.elc)
 
diff --git a/style/unicodefonttable.el b/style/unicodefonttable.el
new file mode 100644
index 0000000..3253df1
--- /dev/null
+++ b/style/unicodefonttable.el
@@ -0,0 +1,134 @@
+;;; unicodefonttable.el --- AUCTeX style for `unicodefonttable.sty'  -*- 
lexical-binding: t; -*-
+
+;; Copyright (C) 2021 Free Software Foundation, Inc.
+
+;; Author: Arash Esbati <arash@gnu.org>
+;; Maintainer: auctex-devel@gnu.org
+;; Created: 2021-10-23
+;; 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
+;; 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 Street, Fifth Floor, Boston,
+;; MA 02110-1301 USA.
+
+;;; Commentary:
+
+;; This file adds support for `unicodefonttable.sty' v1.0f form
+;; 2021-10-29.
+
+;;; Code:
+
+(require 'tex)
+(require 'latex)
+
+;; Silence the compiler:
+(declare-function font-latex-add-keywords
+                  "font-latex"
+                  (keywords class))
+(declare-function LaTeX-xcolor-definecolor-list "xcolor" ())
+
+(defvar LaTeX-unicodefonttable-key-val-options
+  '(("header"          ("true" "false"))
+    ("noheader"        ("true" "false"))
+    ("title-format")
+    ("title-format-cont")
+    ("display-block"   ("titles" "rules" "none"))
+    ("hex-digits"      ("block" "foot" "head" "head+foot" "none"))
+    ("hex-digits-font" ("\\rmfamily" "\\sffamily"   "\\ttfamily"
+                        "\\mdseries" "\\bfseries"   "\\upshape"
+                        "\\itshape"  "\\slshape"    "\\scshape"
+                        "\\tiny"     "\\scriptsize" "\\footnotesize"
+                        "\\small"    "\\normalsize" "\\large"
+                        "\\Large"    "\\LARGE"  "\\huge" "\\Huge"
+                        "\\normalfont"))
+    ("color")
+    ("statistics"      ("true" "false"))
+    ("nostatistics"    ("true" "false"))
+    ("statistics-font" ("\\rmfamily" "\\sffamily"   "\\ttfamily"
+                        "\\mdseries" "\\bfseries"   "\\upshape"
+                        "\\itshape"  "\\slshape"    "\\scshape"
+                        "\\tiny"     "\\scriptsize" "\\footnotesize"
+                        "\\small"    "\\normalsize" "\\large"
+                        "\\Large"    "\\LARGE"  "\\huge" "\\Huge"
+                        "\\normalfont"))
+    ("statistics-format")
+    ("glyph-width")
+    ("missing-glyph")
+    ("missing-glyph-font" ("\\rmfamily" "\\sffamily"   "\\ttfamily"
+                           "\\mdseries" "\\bfseries"   "\\upshape"
+                           "\\itshape"  "\\slshape"    "\\scshape"
+                           "\\tiny"     "\\scriptsize" "\\footnotesize"
+                           "\\small"    "\\normalsize" "\\large"
+                           "\\Large"    "\\LARGE"  "\\huge" "\\Huge"
+                           "\\normalfont"))
+    ("missing-glyph-color")
+    ("compare-with")
+    ("compare-color")
+    ("compare-bgcolor")
+    ("statistics-compare-format")
+    ("range-start")
+    ("range-end"))
+  "Key=value options for unicodefonttable macros.")
+
+(defun LaTeX-unicodefonttable-key-val-options ()
+  "Return an updated list of key=vals from unicodefonttable package."
+  (append
+   (let ((colors (mapcar #'car (LaTeX-xcolor-definecolor-list)))
+         (keys '("color"
+                 "missing-glyph-color"
+                 "compare-color"
+                 "compare-bgcolor"))
+         result)
+     (dolist (key keys result)
+       (push (list key colors) result)))
+   LaTeX-unicodefonttable-key-val-options))
+
+(TeX-add-style-hook
+ "unicodefonttable"
+ (lambda ()
+
+   (TeX-run-style-hooks "fontspec" "xcolor" "caption"
+                        "longtable" "booktabs")
+
+   (TeX-add-symbols
+    '("displayfonttable"
+      [TeX-arg-key-val (LaTeX-unicodefonttable-key-val-options)]
+      LaTeX-fontspec-arg-font
+      [TeX-arg-key-val (LaTeX-fontspec-font-features) "Font features"])
+
+    '("displayfonttable*"
+      [TeX-arg-key-val (LaTeX-unicodefonttable-key-val-options)]
+      LaTeX-fontspec-arg-font
+      [TeX-arg-key-val (LaTeX-fontspec-font-features) "Font features"])
+
+    '("fonttablesetup"
+      (TeX-arg-key-val (LaTeX-unicodefonttable-key-val-options)))
+
+    "fonttableglyphcount")
+
+   ;; Fontification
+   (when (and (featurep 'font-latex)
+              (eq TeX-install-font-lock 'font-latex-setup))
+     (font-latex-add-keywords '(("displayfonttable"     "[{[")
+                                ("displayfonttable*"    "[{[")
+                                ("fonttableglyphcount"   ""))
+                              'function)))
+ TeX-dialect)
+
+(defvar LaTeX-unicodefonttable-package-options nil
+  "Package options for the unicodefonttable package.")
+
+;;; unicodefonttable.el ends here

-----------------------------------------------------------------------

Summary of changes:
 Makefile.in               |   2 +-
 style/unicodefonttable.el | 134 ++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 135 insertions(+), 1 deletion(-)
 create mode 100644 style/unicodefonttable.el


hooks/post-receive
-- 
GNU AUCTeX



reply via email to

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