[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/engrave-faces 7fc664a 20/36: Add interactive commands f
From: |
ELPA Syncer |
Subject: |
[elpa] externals/engrave-faces 7fc664a 20/36: Add interactive commands for backends |
Date: |
Tue, 31 Aug 2021 01:57:27 -0400 (EDT) |
branch: externals/engrave-faces
commit 7fc664a4f3add72070477b62374e8f7db4eee12d
Author: TEC <tec@tecosaur.com>
Commit: TEC <tec@tecosaur.com>
Add interactive commands for backends
---
engrave-faces-latex.el | 13 +++++--------
engrave-faces.el | 24 ++++++++++++++++++++----
2 files changed, 25 insertions(+), 12 deletions(-)
diff --git a/engrave-faces-latex.el b/engrave-faces-latex.el
index 5a3891e..5166309 100644
--- a/engrave-faces-latex.el
+++ b/engrave-faces-latex.el
@@ -91,15 +91,8 @@ See `engrave-faces-preset-styles' and
`engrave-faces-latex-output-style'."
(while (re-search-forward "\n\\([[:space:]]*\\)\\(}+\\)" nil t)
(replace-match "\\2\n\\1")))
-;;;###autoload
-(engrave-faces-define-backend "latex" ".tex" #'engrave-faces-latex-face-mapper)
-(add-hook 'engrave-faces-latex-after-hook
#'engrave-faces-latex-post-processing)
-
-;;;###autoload
-(defun engrave-faces-latex-buffer-standalone ()
+(defun engrave-faces-latex-make-standalone ()
"Export current buffer to a standalone LaTeX buffer."
- (interactive)
- (switch-to-buffer (engrave-faces-latex-buffer))
(goto-char (point-min))
(insert "\\documentclass{article}
@@ -117,5 +110,9 @@ See `engrave-faces-preset-styles' and
`engrave-faces-latex-output-style'."
(insert "\\end{Verbatim}
\\end{document}"))
+;;;###autoload
+(engrave-faces-define-backend "latex" ".tex" #'engrave-faces-latex-face-mapper
#'engrave-faces-latex-make-standalone #'latex-mode)
+(add-hook 'engrave-faces-latex-after-hook
#'engrave-faces-latex-post-processing)
+
(provide 'engrave-faces-latex)
;;; engrave-faces-latex.el ends here
diff --git a/engrave-faces.el b/engrave-faces.el
index a6014c9..8146fc2 100644
--- a/engrave-faces.el
+++ b/engrave-faces.el
@@ -42,12 +42,28 @@
(defvar engrave-faces--backends nil)
;;;###autoload
-(defmacro engrave-faces-define-backend (name extension face-transformer)
+(defmacro engrave-faces-define-backend (name extension face-transformer
&optional standalone-transformer view-setup)
`(progn (add-to-list 'engrave-faces--backends
(list ,name :face-transformer ,face-transformer
:extension ,extension))
- (defun ,(intern (concat "engrave-faces-" name "-buffer")) ()
- ,(concat "Convert buffer to " name " formatting")
- (engrave-faces-buffer-1 ,name))
+ (defun ,(intern (concat "engrave-faces-" name "-buffer")) (&optional
switch-to-result)
+ ,(concat "Convert buffer to " name " formatting.")
+ (interactive '(t))
+ (let ((buf (engrave-faces-buffer ,name)))
+ (when switch-to-result
+ (switch-to-buffer buf)
+ ,(when view-setup `(funcall ,view-setup)))
+ buf))
+ ,(when standalone-transformer
+ `(defun ,(intern (concat "engrave-faces-" name
"-buffer-standalone")) (&optional switch-to-result)
+ (interactive '(t))
+ ,(concat "Export the current buffer to a standalone " name "
buffer.")
+ (let ((buf (engrave-faces-buffer ,name)))
+ (with-current-buffer buf
+ (funcall ,standalone-transformer))
+ (when switch-to-result
+ (switch-to-buffer buf)
+ ,(when view-setup `(funcall ,view-setup)))
+ buf)))
(defvar ,(intern (concat "engrave-faces-" name "-before-hook")) nil)
(defvar ,(intern (concat "engrave-faces-" name "-after-hook")) nil)))
- [elpa] externals/engrave-faces c5c83ef 08/36: Fix invalid docstring in macro, remove unused func, (continued)
- [elpa] externals/engrave-faces c5c83ef 08/36: Fix invalid docstring in macro, remove unused func, ELPA Syncer, 2021/08/31
- [elpa] externals/engrave-faces 4ef39b1 10/36: Improve handling of face inheritance., ELPA Syncer, 2021/08/31
- [elpa] externals/engrave-faces 3f7c5d5 04/36: Fix homepage url, ELPA Syncer, 2021/08/31
- [elpa] externals/engrave-faces aaa030a 07/36: Add licence, ELPA Syncer, 2021/08/31
- [elpa] externals/engrave-faces 59bfd13 09/36: Fix single-face text being unstyled, ELPA Syncer, 2021/08/31
- [elpa] externals/engrave-faces 52ab6fb 15/36: LaTeX export: fix edge case with braces across \n, ELPA Syncer, 2021/08/31
- [elpa] externals/engrave-faces 3b3dda6 19/36: Improve docstrings and add some defcustoms, ELPA Syncer, 2021/08/31
- [elpa] externals/engrave-faces b6d31d8 14/36: Account for multiple inherited faces, ELPA Syncer, 2021/08/31
- [elpa] externals/engrave-faces 0cc9159 12/36: No longer set default face information separately, ELPA Syncer, 2021/08/31
- [elpa] externals/engrave-faces 14eddbe 13/36: LaTeX: Don't set colour at the start of a block, ELPA Syncer, 2021/08/31
- [elpa] externals/engrave-faces 7fc664a 20/36: Add interactive commands for backends,
ELPA Syncer <=
- [elpa] externals/engrave-faces ccebbdd 18/36: Add the org-block face to the preset, improve doc, ELPA Syncer, 2021/08/31
- [elpa] externals/engrave-faces 2fee4f7 24/36: Create engrave-faces-BACKEND-file command, ELPA Syncer, 2021/08/31
- [elpa] externals/engrave-faces 2b03748 26/36: html: set page bg to default face bg (if given), ELPA Syncer, 2021/08/31
- [elpa] externals/engrave-faces 1f68496 27/36: LaTeX: use named colour for fg when possible, ELPA Syncer, 2021/08/31
- [elpa] externals/engrave-faces 8bbaaf8 28/36: Missing subr-x requirement, ELPA Syncer, 2021/08/31
- [elpa] externals/engrave-faces 8b5e1fc 29/36: Move copyright to the FSF, ELPA Syncer, 2021/08/31
- [elpa] externals/engrave-faces 67de75f 31/36: html: allow for css classes without a :slug, ELPA Syncer, 2021/08/31
- [elpa] externals/engrave-faces 581b594 33/36: html: apply background & foreground color to page, ELPA Syncer, 2021/08/31
- [elpa] externals/engrave-faces 1d73b8e 23/36: Fix inaccurate comments, ELPA Syncer, 2021/08/31
- [elpa] externals/engrave-faces 4e6026e 21/36: New backend: ANSI, ELPA Syncer, 2021/08/31