[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/engrave-faces 85ddcdb516 1/8: Refactor ef-define-backen
From: |
ELPA Syncer |
Subject: |
[elpa] externals/engrave-faces 85ddcdb516 1/8: Refactor ef-define-backend and ef-faces-file |
Date: |
Sat, 7 May 2022 13:57:31 -0400 (EDT) |
branch: externals/engrave-faces
commit 85ddcdb516aa2330028e96383db81f6de9c09c02
Author: TEC <tec@tecosaur.com>
Commit: TEC <tec@tecosaur.com>
Refactor ef-define-backend and ef-faces-file
---
engrave-faces.el | 34 +++++++++++++++++-----------------
1 file changed, 17 insertions(+), 17 deletions(-)
diff --git a/engrave-faces.el b/engrave-faces.el
index ded92aa317..817c924c9f 100644
--- a/engrave-faces.el
+++ b/engrave-faces.el
@@ -98,28 +98,28 @@ and cause a -standalone version of the buffer transforming
function to be create
(switch-to-buffer buf)
,(when view-setup `(funcall ,view-setup)))
buf)))
- (defun ,(intern (concat "engrave-faces-" backend "-file")) (file
&optional open-result)
+ (defun ,(intern (concat "engrave-faces-" backend "-file")) (file
&optional out-file open-result)
,(concat "Convert file to " backend " formatting.")
- (interactive (list buffer-file-name t))
- (let ((output-file (engrave-faces-file file ,extension ,backend
,standalone-transformer)))
- (when open-result (find-file output-file))
- output-file))
+ (interactive (list buffer-file-name nil t))
+ (unless out-file
+ (setq out-file (concat file ,extension)))
+ (engrave-faces-file file out-file ,backend ,standalone-transformer)
+ (when open-result (find-file out-file))
+ out-file)
(defvar ,(intern (concat "engrave-faces-" backend "-before-hook"))
nil)
(defvar ,(intern (concat "engrave-faces-" backend "-after-hook"))
nil)))
-(defun engrave-faces-file (file extension backend &optional postprocessor)
- "Using BACKEND, engrave FILE and save it as FILE.EXTENSION.
+(defun engrave-faces-file (in-file out-file backend &optional postprocessor)
+ "Using BACKEND, engrave IN-FILE and save it as FILE.EXTENSION.
If a POSTPROCESSOR function is provided, it is called before saving."
- (let ((output-file (concat file extension)))
- (with-temp-buffer
- (insert-file-contents file)
- (let ((buffer-file-name file))
- (normal-mode)
- (with-current-buffer (engrave-faces-buffer backend)
- (when postprocessor (funcall postprocessor))
- (write-region (point-min) (point-max) output-file)
- (kill-buffer))))
- output-file))
+ (with-temp-buffer
+ (insert-file-contents in-file)
+ (let ((buffer-file-name in-file))
+ (normal-mode)
+ (with-current-buffer (engrave-faces-buffer backend)
+ (when postprocessor (funcall postprocessor))
+ (write-region (point-min) (point-max) out-file)
+ (kill-buffer)))))
(defun engrave-faces-buffer (backend)
"Export the current buffer with BACKEND and return the created buffer."
- [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 <=
- [elpa] externals/engrave-faces 1b50efc320 2/8: LaTeX: improve background boxes by adding a strut, ELPA Syncer, 2022/05/07
- [elpa] externals/engrave-faces 248196fb4d 8/8: Fix typo in readme, ELPA Syncer, 2022/05/07