Вам понадобится более старый код из longlines.el
(текущая версия режима visual-line не работает вместо режима longlines): http://www.emacswiki.org/emacs/download/longlines.el
https://stackoverflow.com/questions/17077434/adding-a-file-exists-p-condition-inside-an-interactive-list-of-a-function
Я использую курьера, потому что он обрабатывает все заглавные буквы лучше, чем раз.
У меня есть да / нет в качестве обходного пути к ошибке ns-read-file-name, но команда Emacs только что исправила эту ошибку пару недель назад в Trunk. Так что, если вы создадите версию для разработчиков Emacs Trunk --with-ns
, вам больше не нужно да / нет.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; PRINT TO PDF ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'ps-print)
;; Add Consolas
(setq ps-font-info-database
(append
'((Consolas
(fonts (normal . "Consolas")
(bold . "Consolas-Bold")
(italic . "Consolas-Italic")
(bold-italic . "Consolas-Bold-Italic"))
(size . 13.0)
(line-height . 14.5)
(space-width . 6.15)
(avg-char-width . 6.05)))
ps-font-info-database))
(setq ps-font-family 'Courier) ;; no difference between Courier and Courier Bold
(setq ps-font-size 13)
;; Print in color
;; (setq-default ps-print-color-p t)
;; Page layout: Header [file-name 2011-12-05]
;; Footer [ n/m]
(setq ps-left-margin 60)
(setq ps-right-margin 0) ;; fill-column in print-to-pdf trumps this
;; Header
(setq ps-top-margin 0)
(setq ps-header-offset 0)
(setq ps-header-line-pad 2.6)
(setq ps-header-lines 1)
(setq ps-header-font-size 13)
(setq ps-header-title-font-size 13)
(setq ps-header-font-family 'Consolas)
(setq ps-left-header nil)
(setq ps-right-header nil)
(setq ps-print-header-frame nil)
;; Footer
(setq ps-bottom-margin 0)
(setq ps-footer-lines 1)
(setq ps-footer-font-size 13)
(setq ps-footer-font-family 'Consolas)
(setq ps-print-footer t)
(setq ps-left-footer nil)
(setq ps-right-footer (list "/pagenumberstring load"))
(setq ps-footer-offset 1.0)
(setq ps-footer-line-pad 2.5)
(setq ps-print-footer-frame nil)
(defun harden-newlines ()
(interactive)
"Make all the newlines in the buffer hard."
(save-excursion
(goto-char (point-min))
(while (search-forward "\n" nil t)
(backward-char)
(put-text-property (point) (1+ (point)) 'hard t)
(forward-char))))
(defun spool-buffer-given-name (name)
(ps-spool-buffer-with-faces) )
(defun print-to-pdf (pdf-file-name)
"Print the current file to the given file."
(interactive (list (ns-read-file-name "Write PDF file: " "~/.0.data/" nil ".pdf")))
(when (or (not (file-exists-p pdf-file-name))
(yes-or-no-p (format "%s File already exists. Do you want to overwrite it?" pdf-file-name)))
(let (
(ps-file-name (concat (file-name-sans-extension pdf-file-name) ".ps"))
(wbuf (generate-new-buffer "*Wrapped*"))
(sbuf (current-buffer)))
(jit-lock-fontify-now)
(save-current-buffer
(set-buffer wbuf)
(insert-buffer sbuf)
(setq fill-column 63)
(require 'longlines)
(longlines-mode t)
(harden-newlines)
(message (buffer-name sbuf))
(spool-buffer-given-name (buffer-name sbuf))
(kill-buffer wbuf)
(switch-to-buffer "*PostScript*")
(write-file ps-file-name)
(kill-buffer (current-buffer)))
(call-process "/usr/local/bin/ps2pdf14" nil nil nil ps-file-name pdf-file-name)
(delete-file ps-file-name)
(message "PDF saved to %s" pdf-file-name))))