emacs-pdf

Emacs library to print buffer to PDF file.
Log | Files | Refs | README

commit d04d4523e732b217a43cd3ea58e2424fec3f4dc3
parent c69d93d9d58015c9aa93292b370b1597beba6ce0
Author: Tomas Hlavaty <tom@logand.com>
Date:   Mon, 28 Dec 2020 22:54:30 +0100

allow buffers without file

Diffstat:
Memacs-pdf.el | 12+++++++-----
1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/emacs-pdf.el b/emacs-pdf.el @@ -256,11 +256,11 @@ or footer." (defun pdf-dirpart () "Return directory part as string. Useful in document header or footer." - (file-name-directory *pdf-file-name*)) + (and *pdf-file-name* (file-name-directory *pdf-file-name*))) (defun pdf-nondirpart () "Return non-directory part as string. Useful in document header or footer." - (file-name-nondirectory *pdf-file-name*)) + (and *pdf-file-name* (file-name-nondirectory *pdf-file-name*))) (defun pdf-iso8601-date () "Return current data as ISO8601 string. Useful in document @@ -277,8 +277,8 @@ header or footer." (when x (insert (etypecase x - (function (funcall x)) - (symbol (symbol-value x)) + (function (or (funcall x) "")) + (symbol (or (symbol-value x) "")) (string x)))))) (buffer-string))) @@ -367,7 +367,9 @@ ps-paper-type and ps-landscape-mode." (interactive "r") (multiple-value-bind (page-width page-height) (pdf-page-dimensions) (let* ((coding-system-for-write 'raw-text-unix) - (source-file-name (or file-name (buffer-file-name))) + (source-file-name (or file-name + (buffer-file-name) + (buffer-name))) (file-name (concat source-file-name ".pdf")) (x0 ps-left-margin) (y0 (- page-height ps-top-margin))