[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/engrave-faces 1b50efc320 2/8: LaTeX: improve background
From: |
ELPA Syncer |
Subject: |
[elpa] externals/engrave-faces 1b50efc320 2/8: LaTeX: improve background boxes by adding a strut |
Date: |
Sat, 7 May 2022 13:57:31 -0400 (EDT) |
branch: externals/engrave-faces
commit 1b50efc32038aa76614737992a130bde0db51fa2
Author: TEC <tec@tecosaur.com>
Commit: TEC <tec@tecosaur.com>
LaTeX: improve background boxes by adding a strut
---
engrave-faces-latex.el | 27 +++++++++++++++++++--------
1 file changed, 19 insertions(+), 8 deletions(-)
diff --git a/engrave-faces-latex.el b/engrave-faces-latex.el
index 4d19d9a201..f7c867ebc0 100644
--- a/engrave-faces-latex.el
+++ b/engrave-faces-latex.el
@@ -21,14 +21,24 @@ When preset, short commands are generated for
`engrave-faces-preset-styles'."
:type '(choice nil preset)
:group 'engrave-faces)
+(defcustom engrave-faces-latex-colorbox-strut
+ "\\vrule height 2.1ex depth 0.8ex width 0pt"
+ "LaTeX code which sets the height and depth for any colorboxes."
+ :type 'string
+ :group 'engrave-faces)
+
(defun engrave-faces-latex-gen-preamble ()
"Generate a preamble which provides short commands for the preset styles.
See `engrave-faces-preset-styles' and `engrave-faces-latex-output-style'."
- (mapconcat
- (lambda (face-style)
- (engrave-faces-latex-gen-preamble-line (car face-style) (cdr face-style)))
- engrave-faces-preset-styles
- "\n"))
+ (concat
+ (unless (cl-notany (lambda (s) (plist-get (cdr s) :background))
+ engrave-faces-preset-styles)
+ (format "\\newcommand\\efstrut{%s}\n" engrave-faces-latex-colorbox-strut))
+ (mapconcat
+ (lambda (face-style)
+ (engrave-faces-latex-gen-preamble-line (car face-style) (cdr
face-style)))
+ engrave-faces-preset-styles
+ "\n")))
(defun engrave-faces-latex-gen-preamble-line (face style)
"Generate a LaTeX preamble line for STYLE representing FACE."
@@ -41,7 +51,7 @@ See `engrave-faces-preset-styles' and
`engrave-faces-latex-output-style'."
(concat (when fg (format "\\definecolor{EF%s}{HTML}{%s}\n" short
(substring fg 1)))
(when bg (format "\\definecolor{Ef%s}{HTML}{%s}\n" short
(substring bg 1)))
"\\newcommand{\\EF" short "}[1]{"
- (when bg (concat "\\colorbox{Ef" short "}{"))
+ (when bg (concat "\\colorbox{Ef" short "}{\\efstrut{}"))
(when fg (concat "\\textcolor{EF" short "}{"))
(when st "\\sout{") (when bl "\\textbf{") (when it "\\textit{")
"#1}"
@@ -98,15 +108,16 @@ See `engrave-faces-preset-styles' and
`engrave-faces-latex-output-style'."
(goto-char (point-min))
(insert "\\documentclass{article}
+
+\\usepackage[margin=1.5cm]{geometry}
\\usepackage{xcolor}
\\usepackage{fvextra}
-\\usepackage[margin=1.5cm]{geometry}
\\usepackage{sourcecodepro}
\\pagestyle{empty}\n\n"
(engrave-faces-latex-gen-preamble)
"
\\begin{document}
-
+\\setlength{\\fboxsep}{0pt}
\\begin{Verbatim}[breaklines=true, commandchars=\\\\\\{\\}]\n")
(goto-char (point-max))
(insert "\\end{Verbatim}
- [elpa] externals/engrave-faces updated (9e41d5f9a8 -> 248196fb4d), ELPA Syncer, 2022/05/07
- [elpa] externals/engrave-faces 0ff0251187 3/8: Add ability to log face preset misses, ELPA Syncer, 2022/05/07
- [elpa] externals/engrave-faces 4a0d16715a 4/8: Themes support, ELPA Syncer, 2022/05/07
- [elpa] externals/engrave-faces 9ef6c83553 5/8: Variable declaration rearrangement, ELPA Syncer, 2022/05/07
- [elpa] externals/engrave-faces 571d60774c 6/8: Reflow a docstring, ELPA Syncer, 2022/05/07
- [elpa] externals/engrave-faces 6fa12694e6 7/8: Rename default theme shorts and slugs, ELPA Syncer, 2022/05/07
- [elpa] externals/engrave-faces 85ddcdb516 1/8: Refactor ef-define-backend and ef-faces-file, ELPA Syncer, 2022/05/07
- [elpa] externals/engrave-faces 1b50efc320 2/8: LaTeX: improve background boxes by adding a strut,
ELPA Syncer <=
- [elpa] externals/engrave-faces 248196fb4d 8/8: Fix typo in readme, ELPA Syncer, 2022/05/07