Emacs関数のヘッダを書式設定してバッファにPDF /行折り返しを印刷する

Question

Rupert Swarbrickは、行が折り返されたpdfにEmacsバッファを印刷する次の3つの関数を思いついた。 ps-print*関数）。

この関数は、この行の折り返しを実現するために、現在のバッファのコピーを作成する必要があるという問題があります。これにより、ps-print-buffer-with-facesの機能が損なわれ、結果として得られるPDFファイルの各ページの上部に正しいヘッダーが表示されます。

彼の解決策の一環として、Rupert Swarbrickはこの情報を保存する関数を書いた。ただし、結果のヘッダーは常にです。HeaderLinesLeft

間違いを見つけられるのは誰ですか？

(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) 
    (load "ps-print") 
    (let ((tmp ps-left-header)) 
    (unwind-protect 
     (progn 
      (setq ps-left-header 
       (list (lambda() name) 'ps-header-dirpart)) 
      (ps-spool-buffer-with-faces)) 
     (setf ps-left-header tmp)))) 

(defun print-to-pdf() 
    "Print the current file to /tmp/print.pdf" 
    (interactive) 
    (let ((wbuf (generate-new-buffer "*Wrapped*")) 
     (sbuf (current-buffer))) 
    (jit-lock-fontify-now) 
    (save-current-buffer 
     (set-buffer wbuf) 
     (insert-buffer sbuf) 
     (setq fill-column 95) 
     (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 "/tmp/print.ps") 
     (kill-buffer (current-buffer))) 
    (call-process "ps2pdf14" nil nil nil 
        "/tmp/print.ps" "/tmp/print.pdf") 
    (delete-file "/tmp/print.ps") 
    (message "PDF saved to /tmp/print.pdf"))) 

Answer 1

これを試してみてください：

(defun spool-buffer-given-name (name) 
    (let ((ps-left-header (list (format "(%s)" name)))) 
    (ps-spool-buffer-with-faces))) 

は、上記の中で私をclued何である変数PS-左ヘッダーのためのマニュアルを参照してください。

これはきちんとした機能です。私は間違いなくps-printの代わりに使用します。 C-u M-x ps-print-buffer-with-facesのように動作させると良いでしょう。欠落している2つの機能は、ヘッダー内のディレクトリ名であり、ユーザーにファイル名の入力を促すものです。どちらも難しくありません。