tec
/
engrave-faces
1
0
Fork 0
Code Issues 1 Pull Requests 1 Releases Activity

Update uses of the renamed var ef-preset-styles

This commit is contained in:
TEC 2024-03-10 14:04:20 +08:00
parent 6ec666c48f
commit 964e4d4c67
Signed by: tec
SSH Key Fingerprint: SHA256:eobz41Mnm0/iYWBvWThftS0ElEs1ftBr6jamutnXc/A
3 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
engrave-faces-html.el
View File

@ -16,7 +16,7 @@
(defcustom engrave-faces-html-output-style 'preset
"How to encode HTML style information.
When nil, all face properties are applied via inline styles.
When preset, CSS classes are generated for `engrave-faces-preset-styles'."
When preset, CSS classes are generated for `engrave-faces-current-preset-style'."
:type '(choice nil preset)
:group 'engrave-faces)
@ -27,7 +27,7 @@ When preset, CSS classes are generated for `engrave-faces-preset-styles'."
(defun engrave-faces-html-gen-stylesheet (&optional theme indent)
"Generate a preamble which provides short commands for the preset styles.
See `engrave-faces-preset-styles' and `engrave-faces-html-output-style'.
See `engrave-faces-current-preset-style' and `engrave-faces-html-output-style'.
When THEME is given, the style used is obtained from `engrave-faces-get-theme'.
When INDENT is given, it is prepended to each line."
(let ((stylesheet

2
engrave-faces-latex.el
View File

@ -19,8 +19,8 @@
"How to encode LaTeX style information.
When nil, all face properties are applied via \\colorbox, \\textcolor,
\\textbf, etc. each time.
When preset, short commands are generated for `engrave-faces-preset-styles'."
:type '(choice nil preset)
When preset, short commands are generated for `engrave-faces-current-preset-style'."
:group 'engrave-faces)
(defcustom engrave-faces-latex-mathescape nil

10
engrave-faces.el
View File

@ -312,12 +312,12 @@ When THEME is given, the style used is obtained from `engrave-faces-get-theme'."
(let ((prop (get-text-property (point) 'face)))
(cond
((null prop) 'default)
((and (consp prop) (keywordp (car prop)))
(list prop))
;; FIXME: Why/where/when does the `face'
;; property take a value (quote X)?
((and (listp prop) (eq (car prop) 'quote))
(eval prop t))
((and (consp prop) (keywordp (car prop)))
(list prop))
(t prop)))
text)
engraved-buf))
@ -425,9 +425,9 @@ Unconditionally returns nil when FACES is default."
(pcase faces
('default nil)
((pred symbolp)
(assoc faces engrave-faces-preset-styles))
(assoc faces engrave-faces-current-preset-style))
((and (pred listp) (app length 1))
(assoc (car faces) engrave-faces-preset-styles))))
(assoc (car faces) engrave-faces-current-preset-style))))
(defun engrave-faces-generate-preset ()
"Generate a preset style based on the current Emacs theme."
@ -457,7 +457,7 @@ Unconditionally returns nil when FACES is default."
(color-values attr-val)))
attr-val)))))
engrave-faces-attributes-of-interest))))
engrave-faces-preset-styles))
engrave-faces-current-preset-style))
(defun engrave-faces-get-theme (theme &optional noput)
"Obtain the preset style for THEME.