diff options
author | mattkae <mattkae@protonmail.com> | 2022-06-07 08:23:47 -0400 |
---|---|---|
committer | mattkae <mattkae@protonmail.com> | 2022-06-07 08:23:47 -0400 |
commit | bd18a38c2898548a3664a9ddab9f79c84f2caf4a (patch) | |
tree | 95b9933376770381bd8859782ae763be81c2d72b /elpa/auctex-13.1.3/style/kpfonts.el | |
parent | b07628dddf418d4f47b858e6c35fd3520fbaeed2 (diff) | |
parent | ef160dea332af4b4fe5e2717b962936c67e5fe9e (diff) |
Merge conflict
Diffstat (limited to 'elpa/auctex-13.1.3/style/kpfonts.el')
-rw-r--r-- | elpa/auctex-13.1.3/style/kpfonts.el | 611 |
1 files changed, 0 insertions, 611 deletions
diff --git a/elpa/auctex-13.1.3/style/kpfonts.el b/elpa/auctex-13.1.3/style/kpfonts.el deleted file mode 100644 index d55142f..0000000 --- a/elpa/auctex-13.1.3/style/kpfonts.el +++ /dev/null @@ -1,611 +0,0 @@ -;;; kpfonts.el --- AUCTeX style for `kpfonts.sty' version 3.31. -*- lexical-binding: t; -*- - -;; Copyright (C) 2013-2021 Free Software Foundation, Inc. - -;; Maintainer: auctex-devel@gnu.org -;; Author: Mosè Giordano <mose@gnu.org> -;; 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 St, Fifth Floor, Boston, MA -;; 02110-1301, USA. - -;;; Commentary: - -;; This file adds support for `kpfonts.sty' version 3.31. - -;;; Code: - -(require 'tex) -(require 'latex) - -;; Silence the compiler: -(declare-function font-latex-add-keywords - "font-latex" - (keywords class)) -;; These are generated by the minor mode or easy menu: -(defvar LaTeX-kpfonts-mode-map) -(defvar LaTeX-kpfonts-mode-menu) - -;;; Kpfonts Minor Mode (heavily based on LaTeX Math Minor Mode code) - -(defconst LaTeX-kpfonts-default - '(;; Other Greek Lowercase - ("o a" "otheralpha" "Other Greek Lowercase" 945) ;; #X03B1 - ("o b" "otherbeta" "Other Greek Lowercase" 946) ;; #X03B2 - ("o g" "othergamma" "Other Greek Lowercase" 947) ;; #X03B3 - ("o d" "otherdelta" "Other Greek Lowercase" 948) ;; #X03B4 - ("o e" "otherepsilon" "Other Greek Lowercase" 1013) ;; #X03F5 - ("o z" "otherzeta" "Other Greek Lowercase" 950) ;; #X03B6 - ("o h" "othereta" "Other Greek Lowercase" 951) ;; #X03B7 - ("o j" "othertheta" "Other Greek Lowercase" 952) ;; #X03B8 - (nil "otheriota" "Other Greek Lowercase" 953) ;; #X03B9 - ("o k" "otherkappa" "Other Greek Lowercase" 954) ;; #X03BA - ("o l" "otherlambda" "Other Greek Lowercase" 955) ;; #X03BB - ("o m" "othermu" "Other Greek Lowercase" 956) ;; #X03BC - ("o n" "othernu" "Other Greek Lowercase" 957) ;; #X03BD - ("o x" "otherxi" "Other Greek Lowercase" 958) ;; #X03BE - ("o p" "otherpi" "Other Greek Lowercase" 960) ;; #X03C0 - ("o r" "otherrho" "Other Greek Lowercase" 961) ;; #X03C1 - ("o s" "othersigma" "Other Greek Lowercase" 963) ;; #X03C3 - ("o t" "othertau" "Other Greek Lowercase" 964) ;; #X03C4 - ("o u" "otherupsilon" "Other Greek Lowercase" 965) ;; #X03C5 - ("o f" "otherphi" "Other Greek Lowercase" 981) ;; #X03D5 - ("o q" "otherchi" "Other Greek Lowercase" 967) ;; #X03C7 - ("o y" "otherpsi" "Other Greek Lowercase" 968) ;; #X03C8 - ("o w" "otheromega" "Other Greek Lowercase" 969) ;; #X03C9 - ("o v e" "othervarepsilon" "Other Greek Lowercase" 949) ;; #X03B5 - ("o v j" "othervartheta" "Other Greek Lowercase" 977) ;; #X03D1 - ("o v p" "othervarpi" "Other Greek Lowercase" 982) ;; #X03D6 - ("o v r" "othervarrho" "Other Greek Lowercase" 1009) ;; #X03F1 - ("o v s" "othervarsigma" "Other Greek Lowercase" 962) ;; #X03C2 - ("o v f" "othervarphi" "Other Greek Lowercase" 966) ;; #X03C6 - ;; Slanted Greek Lowercase - (nil "alphasl" "Slanted Greek Lowercase" 120572) ;; #X1D6FC - (nil "betasl" "Slanted Greek Lowercase" 120573) ;; #X1D6FD - (nil "gammasl" "Slanted Greek Lowercase" 120574) ;; #X1D6FE - (nil "deltasl" "Slanted Greek Lowercase" 120575) ;; #X1D6FF - (nil "epsilonsl" "Slanted Greek Lowercase" 120598) ;; #X1D716 - (nil "zetasl" "Slanted Greek Lowercase" 120577) ;; #X1D701 - (nil "etasl" "Slanted Greek Lowercase" 120578) ;; #X1D702 - (nil "thetasl" "Slanted Greek Lowercase" 120579) ;; #X1D703 - (nil "iotasl" "Slanted Greek Lowercase" 120580) ;; #X1D704 - (nil "kappasl" "Slanted Greek Lowercase" 120581) ;; #X1D705 - (nil "lambdasl" "Slanted Greek Lowercase" 120582) ;; #X1D706 - (nil "musl" "Slanted Greek Lowercase" 120583) ;; #X1D707 - (nil "nusl" "Slanted Greek Lowercase" 120584) ;; #X1D708 - (nil "xisl" "Slanted Greek Lowercase" 120585) ;; #X1D709 - (nil "pisl" "Slanted Greek Lowercase" 120587) ;; #X1D70B - (nil "rhosl" "Slanted Greek Lowercase" 120588) ;; #X1D70C - (nil "sigmasl" "Slanted Greek Lowercase" 120590) ;; #X1D70E - (nil "tausl" "Slanted Greek Lowercase" 120591) ;; #X1D70F - (nil "upsilonsl" "Slanted Greek Lowercase" 120592) ;; #X1D710 - (nil "phisl" "Slanted Greek Lowercase" 120601) ;; #X1D719 - (nil "chisl" "Slanted Greek Lowercase" 120594) ;; #X1D712 - (nil "psisl" "Slanted Greek Lowercase" 120595) ;; #X1D713 - (nil "omegasl" "Slanted Greek Lowercase" 120596) ;; #X1D714 - (nil "varepsilonsl" "Slanted Greek Lowercase" 120576) ;; #X1D700 - (nil "varthetasl" "Slanted Greek Lowercase" 120599) ;; #X1D717 - (nil "varpisl" "Slanted Greek Lowercase" 120603) ;; #X1D71B - (nil "varrhosl" "Slanted Greek Lowercase" 120602) ;; #X1D71A - (nil "varsigmasl" "Slanted Greek Lowercase" 120589) ;; #X1D70D - (nil "varphisl" "Slanted Greek Lowercase" 120593) ;; #X1D711 - ;; Upright Greek Lowercase - (nil "alphaup" "Upright Greek Lowercase" 945) ;; #X03B1 - (nil "betaup" "Upright Greek Lowercase" 946) ;; #X03B2 - (nil "gammaup" "Upright Greek Lowercase" 947) ;; #X03B3 - (nil "deltaup" "Upright Greek Lowercase" 948) ;; #X03B4 - (nil "epsilonup" "Upright Greek Lowercase" 1013) ;; #X03F5 - (nil "zetaup" "Upright Greek Lowercase" 950) ;; #X03B6 - (nil "etaup" "Upright Greek Lowercase" 951) ;; #X03B7 - (nil "thetaup" "Upright Greek Lowercase" 952) ;; #X03B8 - (nil "iotaup" "Upright Greek Lowercase" 953) ;; #X03B9 - (nil "kappaup" "Upright Greek Lowercase" 954) ;; #X03BA - (nil "lambdaup" "Upright Greek Lowercase" 955) ;; #X03BB - (nil "muup" "Upright Greek Lowercase" 956) ;; #X03BC - (nil "nuup" "Upright Greek Lowercase" 957) ;; #X03BD - (nil "xiup" "Upright Greek Lowercase" 958) ;; #X03BE - (nil "piup" "Upright Greek Lowercase" 960) ;; #X03C0 - (nil "rhoup" "Upright Greek Lowercase" 961) ;; #X03C1 - (nil "sigmaup" "Upright Greek Lowercase" 963) ;; #X03C3 - (nil "tauup" "Upright Greek Lowercase" 964) ;; #X03C4 - (nil "upsilonup" "Upright Greek Lowercase" 965) ;; #X03C5 - (nil "phiup" "Upright Greek Lowercase" 981) ;; #X03D5 - (nil "chiup" "Upright Greek Lowercase" 967) ;; #X03C7 - (nil "psiup" "Upright Greek Lowercase" 968) ;; #X03C8 - (nil "omegaup" "Upright Greek Lowercase" 969) ;; #X03C9 - (nil "varepsilonup" "Upright Greek Lowercase" 949) ;; #X03B5 - (nil "varthetaup" "Upright Greek Lowercase" 977) ;; #X03D1 - (nil "varpiup" "Upright Greek Lowercase" 982) ;; #X03D6 - (nil "varrhoup" "Upright Greek Lowercase" 1009) ;; #X03F1 - (nil "varsigmaup" "Upright Greek Lowercase" 962) ;; #X03C2 - (nil "varphiup" "Upright Greek Lowercase" 966) ;; #X03C6 - ;; Other Greek Uppercase - ("o G" "otherGamma" "Other Greek Uppercase" 120548) ;; #X1D6E4 - ("o D" "otherDelta" "Other Greek Uppercase" 120549) ;; #X1D6E5 - ("o J" "otherTheta" "Other Greek Uppercase" 120553) ;; #X1D6E9 - ("o L" "otherLambda" "Other Greek Uppercase" 120556) ;; #X1D6EC - ("o X" "otherXi" "Other Greek Uppercase" 120559) ;; #X1D6EF - ("o P" "otherPi" "Other Greek Uppercase" 120561) ;; #X1D6F1 - ("o S" "otherSigma" "Other Greek Uppercase" 120564) ;; #X1D6F4 - ("o U" "otherUpsilon" "Other Greek Uppercase" 120566) ;; #X1D6F6 - ("o F" "otherPhi" "Other Greek Uppercase" 120567) ;; #X1D6F7 - ("o Y" "otherPsi" "Other Greek Uppercase" 120569) ;; #X1D6F9 - ("o W" "otherOmega" "Other Greek Uppercase" 120570) ;; #X1D6FA - ;; Slanted Greek Uppercase - (nil "Gammasl" "Slanted Greek Uppercase" 120548) ;; #X1D6E4 - (nil "Deltasl" "Slanted Greek Uppercase" 120549) ;; #X1D6E5 - (nil "Thetasl" "Slanted Greek Uppercase" 120553) ;; #X1D6E9 - (nil "Lambdasl" "Slanted Greek Uppercase" 120556) ;; #X1D6EC - (nil "Xisl" "Slanted Greek Uppercase" 120559) ;; #X1D6EF - (nil "Pisl" "Slanted Greek Uppercase" 120561) ;; #X1D6F1 - (nil "Sigmasl" "Slanted Greek Uppercase" 120564) ;; #X1D6F4 - (nil "Upsilonsl" "Slanted Greek Uppercase" 120566) ;; #X1D6F6 - (nil "Phisl" "Slanted Greek Uppercase" 120567) ;; #X1D6F7 - (nil "Psisl" "Slanted Greek Uppercase" 120569) ;; #X1D6F9 - (nil "Omegasl" "Slanted Greek Uppercase" 120570) ;; #X1D6FA - ;; Upright Greek Uppercase - (nil "Gammaup" "Upright Greek Uppercase" 915) ;; #X0393 - (nil "Deltaup" "Upright Greek Uppercase" 916) ;; #X0394 - (nil "Thetaup" "Upright Greek Uppercase" 920) ;; #X0398 - (nil "Lambdaup" "Upright Greek Uppercase" 923) ;; #X039B - (nil "Xiup" "Upright Greek Uppercase" 926) ;; #X039E - (nil "Piup" "Upright Greek Uppercase" 928) ;; #X03A0 - (nil "Sigmaup" "Upright Greek Uppercase" 931) ;; #X03A3 - (nil "Upsilonup" "Upright Greek Uppercase" 978) ;; #X03D2 - (nil "Phiup" "Upright Greek Uppercase" 934) ;; #X03A6 - (nil "Psiup" "Upright Greek Uppercase" 936) ;; #X03A8 - (nil "Omegaup" "Upright Greek Uppercase" 937) ;; #X03A9 - ;; Integrals - (nil "varint" "Integrals" nil) - (nil "variint" "Integrals" nil) - (nil "variiint" "Integrals" nil) - (nil "variiiint" "Integrals" nil) - (nil "varidotsint" "Integrals" nil) - (nil "oiint" "Integrals" 8751) ;; #X222F - (nil "ointctrclockwise" "Integrals" 8755) ;; #X2233 - (nil "ointclockwise" "Integrals" nil) - (nil "sqint" "Integrals" 10774) ;; #X2A16 - (nil "idotsint" "Integrals" nil) - (nil "oiiint" "Integrals" 8752) ;; #X2230 - (nil "varointctrclockwise" "Integrals" nil) - (nil "varointclockwise" "Integrals" 8754) ;; #X2232 - (nil "fint" "Integrals" 10767) ;; #X2A0F - (nil "oiintctrclockwise" "Integrals" nil) - (nil "varoiintclockwise" "Integrals" nil) - (nil "oiiintctrclockwise" "Integrals" nil) - (nil "varoiiintclockwise" "Integrals" nil) - (nil "oiintclockwise" "Integrals" nil) - (nil "varoiintctrclockwise" "Integrals" nil) - (nil "oiiintclockwise" "Integrals" nil) - (nil "varoiiintctrclockwise" "Integrals" nil) - (nil "sqiint" "Integrals" nil) - (nil "sqiiint" "Integrals" nil) - ;; Mapping - (nil "mappedfrom" "Mapping" 8612) ;; #X21A4 - (nil "longmappedfrom" "Mapping" 10235) ;; #X27FB - (nil "Mapsto" "Mapping" 10503) ;; #X2907 - (nil "Longmapsto" "Mapping" 10238) ;; #X27FE - (nil "Mappedfrom" "Mapping" 10502) ;; #X2906 - (nil "Longmappedfrom" "Mapping" 10237) ;; #X27FD - (nil "mmapsto" "Mapping" nil) - (nil "longmmapsto" "Mapping" nil) - (nil "mmappedfrom" "Mapping" nil) - (nil "longmmappedfrom" "Mapping" nil) - (nil "Mmapsto" "Mapping" nil) - (nil "Longmmapsto" "Mapping" nil) - (nil "Mmappedfrom" "Mapping" nil) - (nil "Longmmappedfrom" "Mapping" nil) - ;; Arrows - (nil "dashleftarrow" "Arrows" 10510) ;; #X290E - (nil "dashrightarrow" "Arrows" 10511) ;; #X290F - (nil "dashleftrightarrow" "Arrows" nil) - (nil "leftsquigarrow" "Arrows" 8668) ;; #X21DC - (nil "Nearrow" "Arrows" 8663) ;; #X21D7 - (nil "Searrow" "Arrows" 8664) ;; #X21D8 - (nil "Nwarrow" "Arrows" 8662) ;; #X21D6 - (nil "Swarrow" "Arrows" 8665) ;; #X21D9 - (nil "leadstoext" "Arrows" 12316) ;; #X301C - (nil "leadsto" "Arrows" 10547) ;; #X2933 - (nil "boxright" "Arrows" nil) - (nil "Diamondright" "Arrows" nil) - (nil "circleright" "Arrows" nil) - (nil "boxleft" "Arrows" nil) - (nil "Diamondleft" "Arrows" nil) - (nil "circleleft" "Arrows" nil) - (nil "boxdotright" "Arrows" nil) - (nil "Diamonddotright" "Arrows" nil) - (nil "circledotright" "Arrows" nil) - (nil "boxdotleft" "Arrows" nil) - (nil "Diamonddotleft" "Arrows" nil) - (nil "circledotleft" "Arrows" nil) - (nil "boxRight" "Arrows" nil) - (nil "boxLeft" "Arrows" nil) - (nil "boxdotRight" "Arrows" nil) - (nil "boxdotLeft" "Arrows" nil) - (nil "DiamondRight" "Arrows" nil) - (nil "DiamondLeft" "Arrows" nil) - (nil "DiamonddotRight" "Arrows" nil) - (nil "DiamonddotLeft" "Arrows" nil) - ;; Neg Arrows - (nil "ntwoheadrightarrow" "Neg Arrows" 10496) ;; #X2900 - (nil "ntwoheadleftarrow" "Neg Arrows" 11060) ;; #X2B34 - ;; Binary Op - (nil "multimap" "Binary Op" 8888) ;; #X22B8 - (nil "multimapinv" "Binary Op" 10204) ;; #X27DC - (nil "multimapboth" "Binary Op" 10719) ;; #X29DF - (nil "multimapdot" "Binary Op" nil) - (nil "multimapdotinv" "Binary Op" nil) - (nil "multimapdotboth" "Binary Op" nil) - (nil "multimapdotbothA" "Binary Op" 8886) ;; #X22B6 - (nil "multimapdotbothB" "Binary Op" 8887) ;; #X22B7 - (nil "multimapbothvert" "Binary Op" nil) - (nil "multimapdotbothvert" "Binary Op" nil) - (nil "multimapdotbothAvert" "Binary Op" nil) - (nil "multimapdotbothBvert" "Binary Op" nil) - (nil "Wr" "Binary Op" nil) - (nil "sqcupplus" "Binary Op" nil) - (nil "sqcapplus" "Binary Op" nil) - (nil "medcirc" "Binary Op" 9898) ;; #X26AA - (nil "medbullet" "Binary Op" 9899) ;; #X26AB - (nil "invamp" "Binary Op" 8523) ;; #X214B - (nil "Diamonddot" "Binary Op" 10192) ;; #X27D0 - (nil "Diamond" "Binary Op" 9671) ;; #X25C7 - (nil "Diamondblack" "Binary Op" 9670) ;; #X25C6 - (nil "strictif" "Binary Op" 8880) ;; #X22B0 - (nil "strictfi" "Binary Op" 8881) ;; #X22B1 - (nil "strictiff" "Binary Op" nil) - (nil "circledless" "Binary Op" 10688) ;; #X29C0 - (nil "circledgtr" "Binary Op" 10689) ;; #X29C1 - (nil "circledwedge" "Binary Op" nil) - (nil "circledvee" "Binary Op" nil) - (nil "circledbar" "Binary Op" 10678) ;; #X29B6 - (nil "circledbslash" "Binary Op" 10680) ;; #X29B8 - (nil "bignplus" "Binary Op" nil) - (nil "bigsqcupplus" "Binary Op" nil) - (nil "bigsqcapplus" "Binary Op" nil) - (nil "bigsqcap" "Binary Op" 10757) ;; #X2A05 - (nil "varprod" "Binary Op" 10761) ;; #X2A09 - ;; Relational - (nil "doteq" "Relational" 8784) ;; #X2250 - (nil "VDash" "Relational" 8875) ;; #X22AB - (nil "VvDash" "Relational" nil) - (nil "cong" "Relational" 8773) ;; #X2245 - (nil "preceqq" "Relational" 10931) ;; #X2AB3 - (nil "succeqq" "Relational" 10932) ;; #X2AB4 - (nil "coloneqq" "Relational" nil) - (nil "varparallel" "Relational" 11005) ;; #X2AFD - (nil "nvarparallel" "Relational" nil) - (nil "varparallelinv" "Relational" nil) - (nil "nvarparallelinv" "Relational" nil) - (nil "colonapprox" "Relational" nil) - (nil "colonsim" "Relational" nil) - (nil "Colonapprox" "Relational" nil) - (nil "Colonsim" "Relational" nil) - (nil "eqqcolon" "Relational" 8789) ;; #X2255 - (nil "coloneq" "Relational" nil) - (nil "eqcolon" "Relational" 8761) ;; #X2239 - (nil "Coloneqq" "Relational" 10868) ;; #X2A74 - (nil "Eqqcolon" "Relational" nil) - ;; Neg Rel - (nil "nprecsim" "Neg Rel" nil) - (nil "nsuccsim" "Neg Rel" nil) - (nil "nlesssim" "Neg Rel" 8820) ;; #X2274 - (nil "ngtrsim" "Neg Rel" 8821) ;; #X2275 - (nil "nlessapprox" "Neg Rel" nil) - (nil "ngtrapprox" "Neg Rel" nil) - (nil "npreccurlyeq" "Neg Rel" 8928) ;; #X22E0 - (nil "nsucccurlyeq" "Neg Rel" 8929) ;; #X22E1 - (nil "ngtrless" "Neg Rel" 8825) ;; #X2279 - (nil "nlessgtr" "Neg Rel" 8824) ;; #X2278 - (nil "nbumpeq" "Neg Rel" nil) - (nil "nBumpeq" "Neg Rel" nil) - (nil "nbacksim" "Neg Rel" nil) - (nil "nbacksimeq" "Neg Rel" nil) - (nil "nasymp" "Neg Rel" 8813) ;; #X226D - (nil "nequiv" "Neg Rel" 8802) ;; #X2262 - (nil "nsim" "Neg Rel" 8769) ;; #X2241 - (nil "napprox" "Neg Rel" 8777) ;; #X2249 - (nil "nsubset" "Neg Rel" 8836) ;; #X2284 - (nil "nsupset" "Neg Rel" 8837) ;; #X2285 - (nil "nll" "Neg Rel" nil) - (nil "ngg" "Neg Rel" nil) - (nil "nthickapprox" "Neg Rel" 8777) ;; #X2249 - (nil "napproxeq" "Neg Rel" nil) - (nil "nprecapprox" "Neg Rel" nil) - (nil "nsuccapprox" "Neg Rel" nil) - (nil "npreceqq" "Neg Rel" nil) - (nil "nsucceqq" "Neg Rel" nil) - (nil "nsimeq" "Neg Rel" 8772) ;; #X2244 - (nil "notin" "Neg Rel" 8713) ;; #X2209 - (nil "notni" "Neg Rel" 8716) ;; #X220C - (nil "nSubset" "Neg Rel" nil) - (nil "nSupset" "Neg Rel" nil) - (nil "nsqsubseteq" "Neg Rel" 8930) ;; #X22E2 - (nil "nsqsupseteq" "Neg Rel" 8931) ;; #X22E3 - (nil "nsqsubset" "Neg Rel" nil) - (nil "nsqsupset" "Neg Rel" nil) - ;; Delimeters - (nil "Lbag" "Delimeters" 10181) ;; #X27C5 - (nil "Rbag" "Delimeters" 10182) ;; #X27C6 - (nil "llbracket" "Delimeters" 10214) ;; #X27E6 - (nil "rrbracket" "Delimeters" 10215) ;; #X27E7 - ;; Accents - (nil "widearc" "Accents" 8978) ;; #X2312 - (nil "widearcarrow" "Accents" 8405) ;; #X20D5 - (nil "wideOarc" "Accents" 8405) ;; #X20D5 - (nil "wideparen" "Accents" 9180) ;; #X23DC - (nil "widering" "Accents" nil) - ;; Misc - ("v 0" "varemptyset" "Misc" 8709) ;; #X2205 - (nil "lJoin" "Misc" 8905) ;; #X22C9 - (nil "rJoin" "Misc" 8906) ;; #X22CA - (nil "Join" "Misc" 8904) ;; #X22C8 - (nil "openJoin" "Misc" nil) - (nil "lrtimes" "Misc" nil) - (nil "opentimes" "Misc" nil) - (nil "nplus" "Misc" nil) - (nil "Top" "Misc" 10986) ;; #X2AEA - (nil "Bot" "Misc" 10987) ;; #X2AEB - (nil "Perp" "Misc" 10987) ;; #X2AEB - (nil "boxast" "Misc" nil) - (nil "boxbslash" "Misc" nil) - (nil "boxbar" "Misc" nil) - (nil "boxslash" "Misc" nil) - (nil "lambdaslash" "Misc" 411) ;; #X019B - (nil "lambdabar" "Misc" 411) ;; #X019B - (nil "varclubsuit" "Misc" 9831) ;; #X2667 - (nil "vardiamondsuit" "Misc" 9830) ;; #X2666 - (nil "varheartsuit" "Misc" 9829) ;; #X2665 - (nil "varspadesuit" "Misc" 9828)) ;; #X2664 - "Alist of kpfonts symbols. - -Each entry should be a list with upto four elements, KEY, VALUE, -MENU and CHARACTER. - -KEY is the key (after `LaTeX-kpfonts-abbrev-prefix') to be -redefined in kpfonts minor mode. KEY can be a character (for -example ?o) for a single stroke or a string (for example \"o a\") -for a multi-stroke binding. If KEY is nil, the symbol has no -associated keystroke (it is available in the menu, though). - -VALUE can be a string with the name of the macro to be inserted, -or a function to be called. The macro must be given without the -leading backslash. - -The third element MENU is the name of the submenu where the -command should be added. MENU can be either a string (for -example \"greek\"), a list (for example (\"AMS\" \"Delimiters\")) -or nil. If MENU is nil, no menu item will be created. - -The fourth element CHARACTER is a Unicode character position for -menu display. When nil, no character is shown. - -See also `LaTeX-kpfonts-menu'.") - -(defvar LaTeX-kpfonts-abbrev-prefix LaTeX-math-abbrev-prefix - "Prefix key for use in `LaTeX-kpfonts-mode'. -This has to be a string representing a key sequence in a format -understood by the `kbd' macro. This corresponds to the syntax -usually used in the Emacs and Elisp manuals.") - -(defun LaTeX-kpfonts-abbrev-prefix () - "Make a key definition from the variable `LaTeX-kpfonts-abbrev-prefix'." - (if (stringp LaTeX-kpfonts-abbrev-prefix) - (read-kbd-macro LaTeX-kpfonts-abbrev-prefix) - LaTeX-kpfonts-abbrev-prefix)) - -(defvar LaTeX-kpfonts-keymap (make-sparse-keymap) - "Keymap used for `LaTeX-kpfonts-mode' commands.") - -(defvar LaTeX-kpfonts-menu nil - "Menu containing commands provided by kpfonts LaTeX package. -The menu entries will be generated dynamically, but you can specify -the sequence by initializing this variable.") - -;; We set `LaTeX-kpfonts-menu' after its definition because otherwise, resetting -;; AUCTeX with `C-u C-c C-n' would create duplicate entries in menu. -(setq LaTeX-kpfonts-menu - '("Kpfonts" - ("Insert Font" - ["Math Upright" (TeX-font nil ?\C-h) :keys "C-c C-f C-h"] - ["Math Fraktur" (TeX-font nil ?\C-k) :keys "C-c C-f C-k"] - ["Math Script" (TeX-font nil ?\C-p) :keys "C-c C-f C-p"] - ["Slanted Small Caps" (TeX-font nil ?\C-l) :keys "C-c C-f C-l"] - ["Other Small Caps" (TeX-font nil ?\C-o) :keys "C-c C-f C-o"] - ["Other Slanted Small Caps" (TeX-font nil ?\C-q) :keys "C-c C-f C-q"]) - ("Replace Font" - ["Math Upright" (TeX-font t ?\C-h) :keys "C-u C-c C-f C-h"] - ["Math Fraktur" (TeX-font t ?\C-k) :keys "C-u C-c C-f C-k"] - ["Math Script" (TeX-font t ?\C-p) :keys "C-u C-c C-f C-p"] - ["Slanted Small Caps" (TeX-font t ?\C-l) :keys "C-u C-c C-f C-l"] - ["Other Small Caps" (TeX-font t ?\C-o) :keys "C-u C-c C-f C-o"] - ["Other Slanted Small Caps" (TeX-font t ?\C-q) :keys "C-u C-c C-f C-q"]) - ["Delete Font" (TeX-font t ?\C-d) :keys "C-c C-f C-d"] - "-" - ("Other Greek Lowercase") ("Slanted Greek Lowercase") - ("Upright Greek Lowercase") ("Other Greek Uppercase") - ("Slanted Greek Uppercase") ("Upright Greek Uppercase") ("Integrals") - ("Mapping") ("Arrows") ("Neg Arrows") ("Binary Op") ("Relational") - ("Neg Rel") ("Delimeters") ("Accents") ("Misc"))) - -(let ((math (reverse LaTeX-kpfonts-default)) - (map LaTeX-kpfonts-keymap) - (unicode LaTeX-math-menu-unicode)) - (while math - (let* ((entry (car math)) - (key (nth 0 entry)) - (prefix - (and unicode - (nth 3 entry))) - value menu name) - (setq math (cdr math)) - (setq prefix (if (and prefix - (setq prefix (nth 3 entry))) - (concat (string prefix) " \\") - "\\")) - (if (listp (cdr entry)) - (setq value (nth 1 entry) - menu (nth 2 entry)) - (setq value (cdr entry) - menu nil)) - (if (stringp value) - (progn - (setq name (intern (concat "LaTeX-kpfonts-" value))) - (fset name (lambda (arg) (interactive "*P") - (LaTeX-math-insert value arg)))) - (setq name value)) - (if key - (progn - (setq key (cond ((numberp key) (char-to-string key)) - ((stringp key) (read-kbd-macro key)) - (t (vector key)))) - (define-key map key name))) - (if menu - (let ((parent LaTeX-kpfonts-menu)) - (if (listp menu) - (progn - (while (cdr menu) - (let ((sub (assoc (car menu) LaTeX-kpfonts-menu))) - (if sub - (setq parent sub) - (setcdr parent (cons (list (car menu)) (cdr parent)))) - (setq menu (cdr menu)))) - (setq menu (car menu)))) - (let ((sub (assoc menu parent))) - (if sub - (if (stringp value) - (setcdr sub (cons (vector (concat prefix value) - name t) - (cdr sub))) - (error "Cannot have multiple special kpfonts menu items")) - (setcdr parent - (cons (if (stringp value) - (list menu (vector (concat prefix value) - name t)) - (vector menu name t)) - (cdr parent))))))))) - ;; Make the kpfonts prefix char available if it has not been used as a prefix. - (unless (lookup-key map (LaTeX-kpfonts-abbrev-prefix)) - (define-key map (LaTeX-kpfonts-abbrev-prefix) #'self-insert-command))) - -(define-minor-mode LaTeX-kpfonts-mode - "A minor mode with easy access to kpfonts macros. - -Easy insertion of kpfonts symbols. If you give a prefix -argument, the symbols will be surrounded by dollar signs. The -following commands are defined: - -\\{LaTeX-kpfonts-mode-map}" - :init-value nil - :lighter nil - :keymap (list (cons (LaTeX-kpfonts-abbrev-prefix) LaTeX-kpfonts-keymap)) - (TeX-set-mode-name)) - -(easy-menu-define LaTeX-kpfonts-mode-menu - LaTeX-kpfonts-mode-map - "Menu used in kpfonts minor mode." - LaTeX-kpfonts-menu) - -(defvar LaTeX-kpfonts-mode-enable LaTeX-math-mode - "If non-nil, enable kpfonts minor mode by default.") - -(if LaTeX-kpfonts-mode-enable - (LaTeX-kpfonts-mode)) -;;; Kpfonts Minor Mode ends here - -(TeX-add-style-hook - "kpfonts" - (lambda () - (unless (LaTeX-provided-package-options-member "kpfonts" "notextcomp") - (TeX-run-style-hooks "textcomp")) - (unless (LaTeX-provided-package-options-member "kpfonts" "noamsmath") - (TeX-run-style-hooks "amsmath")) - (TeX-add-symbols - ;; Text fonts options - '("classicstylenums" 1) - ;; New text commands - '("scslshape" 0) - '("otherscshape" 0) - '("otherscslshape" 0) - "othertailQ" - "othertailscq" - "othertailscslq" - ;; Variant integrate symbols - '("D" 1) - ;; New extensive symbols - '("widearc" 1) - '("widearcarrow" 1) - '("wideOarc" 1) - '("wideparen" 1) - '("widering" 1)) - - ;; New fonts by `kpfonts'. - (setq TeX-font-list - (append - TeX-font-list - '(;; Math fonts - (?\C-h "" "" "\\mathup{" "}") - (?\C-k "" "" "\\mathfrak{" "}") - (?\C-p "" "" "\\mathscr{" "}") - ;; Text fonts - (?\C-l "\\textscsl{" "}") - (?\C-o "\\textothersc{" "}") - (?\C-q "\\textotherscsl{" "}")))) - - ;; Fontification - (when (and (featurep 'font-latex) - (eq TeX-install-font-lock 'font-latex-setup)) - (font-latex-add-keywords '(("textscsl" "{") - ("textothersc" "{") - ("textotherscsl" "{")) - 'bold-command) - (font-latex-add-keywords '(("textscsl" "{") - ("textotherscsl" "{")) - 'italic-command) - (font-latex-add-keywords '(("scslshape") - ("otherscshape") - ("otherscslshape")) - 'bold-declaration) - (font-latex-add-keywords '(("scslshape") - ("otherscslshape")) - 'italic-declaration))) - TeX-dialect) - -(defvar LaTeX-kpfonts-package-options - '(;; Main global options - "light" "fulloldstylenums" "fulloldstyle" "fullveryoldstyle" - ;; Other global options - "nomath" "notext" "nosf" "nott" "onlyrm" "noamsmath" "notextcomp" - ;; Text fonts options - "lighttext" "oldstylenums" "oldstyle" "veryoldstyle" "rmx" "largesmallcaps" - "easyscsl" "nofligatures" "lightmath" - ;; Math typesetting options - "sfmath" "sfmathbb" "rmmathbb" "nomathscript" "mathcalasscript" "classicReIm" - "uprightRoman" "frenchstyle" "upright" "oldstylenumsmath" "oldstylemath" - "veryoldstylemath" "narrowiints" "partialup" "widermath" "noDcommand" - ;; Position of subscripts and superscripts - "intlimits" "fullintlimits" "nointlimits" "sumlimits" "fullsumlimits" - "nosumlimits" - ;; Greek letters in math mode, options - "uprightgreeks" "slantedGreeks" - ;; Other `amsmath' options - "namelimits" "nonamelimits" "leqno" "reqno" "centertags" "tbtags" - ;; Misc - "nowarning") - "Package options for the kpfonts package.") - -;; kpfonts.el ends here |