Mercurial > emacs
view lisp/ps-samp.el @ 91305:b919d16b3066
Add unidata.txt.
author | Andreas Schwab <schwab@suse.de> |
---|---|
date | Thu, 03 Jan 2008 17:45:29 +0000 |
parents | 40e293a4f795 |
children | 6b6e684740e5 |
line wrap: on
line source
;;; ps-samp.el --- ps-print sample setup code ;; Copyright (C) 2007 Free Software Foundation, Inc. ;; Author: Jim Thompson (was <thompson@wg2.waii.com>) ;; Jacques Duthen (was <duthen@cegelec-red.fr>) ;; Vinicius Jose Latorre <viniciusjl@ig.com.br> ;; Kenichi Handa <handa@m17n.org> (multi-byte characters) ;; Maintainer: Kenichi Handa <handa@m17n.org> (multi-byte characters) ;; Vinicius Jose Latorre <viniciusjl@ig.com.br> ;; Keywords: wp, print, PostScript ;; Version: 7.2.2 ;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre ;; This file is part of GNU Emacs. ;; GNU Emacs is free software; you can redistribute it and/or modify it under ;; the terms of the GNU General Public License as published by the Free ;; Software Foundation; either version 3, or (at your option) any later ;; version. ;; GNU Emacs is distributed in the hope that it will be useful, but WITHOUT ANY ;; WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS ;; FOR A PARTICULAR PURPOSE. See the GNU General Public License for more ;; details. ;; You should have received a copy of the GNU General Public License along with ;; GNU Emacs; see the file COPYING. If not, write to the Free Software ;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. ;;; Commentary: ;; See ps-print.el for documentation. ;;; Code: (eval-and-compile (require 'ps-print)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Sample Setup Code: ;; This stuff is for anybody that's brave enough to look this far, ;; and able to figure out how to use it. It isn't really part of ;; ps-print, but I'll leave it here in hopes it might be useful: ;; WARNING!!! The following code is *sample* code only. ;; Don't use it unless you understand what it does! ;; The key `f22' should probably be replaced by `print'. --Stef ;; A hook to bind to `rmail-mode-hook' to locally bind prsc and set the ;; `ps-left-headers' specially for mail messages. (defun ps-rmail-mode-hook () (local-set-key [(f22)] 'ps-rmail-print-message-from-summary) (setq ps-header-lines 3 ps-left-header ;; The left headers will display the message's subject, its ;; author, and the name of the folder it was in. '(ps-article-subject ps-article-author buffer-name))) ;; See `ps-gnus-print-article-from-summary'. This function does the ;; same thing for rmail. (defun ps-rmail-print-message-from-summary () (interactive) (ps-print-message-from-summary 'rmail-summary-buffer "RMAIL")) ;; Used in `ps-rmail-print-article-from-summary', ;; `ps-gnus-print-article-from-summary' and `ps-vm-print-message-from-summary'. (defun ps-print-message-from-summary (summary-buffer summary-default) (let ((ps-buf (or (and (boundp summary-buffer) (symbol-value summary-buffer)) summary-default))) (and (get-buffer ps-buf) (save-excursion (set-buffer ps-buf) (ps-spool-buffer-with-faces))))) ;; Look in an article or mail message for the Subject: line. To be ;; placed in `ps-left-headers'. (defun ps-article-subject () (save-excursion (goto-char (point-min)) (if (re-search-forward "^Subject:[ \t]+\\(.*\\)$" nil t) (buffer-substring (match-beginning 1) (match-end 1)) "Subject ???"))) ;; Look in an article or mail message for the From: line. Sorta-kinda ;; understands RFC-822 addresses and can pull the real name out where ;; it's provided. To be placed in `ps-left-headers'. (defun ps-article-author () (save-excursion (goto-char (point-min)) (if (re-search-forward "^From:[ \t]+\\(.*\\)$" nil t) (let ((fromstring (buffer-substring (match-beginning 1) (match-end 1)))) (cond ;; Try first to match addresses that look like ;; thompson@wg2.waii.com (Jim Thompson) ((string-match ".*[ \t]+(\\(.*\\))" fromstring) (substring fromstring (match-beginning 1) (match-end 1))) ;; Next try to match addresses that look like ;; Jim Thompson <thompson@wg2.waii.com> or ;; "Jim Thompson" <thompson@wg2.waii.com> ((string-match "\\(\"?\\)\\(.*\\)\\1[ \t]+<.*>" fromstring) (substring fromstring (match-beginning 2) (match-end 2))) ;; Couldn't find a real name -- show the address instead. (t fromstring))) "From ???"))) ;; A hook to bind to `gnus-article-prepare-hook'. This will set the ;; `ps-left-headers' specially for gnus articles. Unfortunately, ;; `gnus-article-mode-hook' is called only once, the first time the *Article* ;; buffer enters that mode, so it would only work for the first time ;; we ran gnus. The second time, this hook wouldn't get set up. The ;; only alternative is `gnus-article-prepare-hook'. (defun ps-gnus-article-prepare-hook () (setq ps-header-lines 3 ps-left-header ;; The left headers will display the article's subject, its ;; author, and the newsgroup it was in. '(ps-article-subject ps-article-author gnus-newsgroup-name))) ;; A hook to bind to `vm-mode-hook' to locally bind prsc and set the ;; `ps-left-headers' specially for mail messages. (defun ps-vm-mode-hook () (local-set-key [(f22)] 'ps-vm-print-message-from-summary) (setq ps-header-lines 3 ps-left-header ;; The left headers will display the message's subject, its ;; author, and the name of the folder it was in. '(ps-article-subject ps-article-author buffer-name))) ;; Every now and then I forget to switch from the *Summary* buffer to ;; the *Article* before hitting prsc, and a nicely formatted list of ;; article subjects shows up at the printer. This function, bound to ;; prsc for the gnus *Summary* buffer means I don't have to switch ;; buffers first. ;; sb: Updated for Gnus 5. (defun ps-gnus-print-article-from-summary () (interactive) (ps-print-message-from-summary 'gnus-article-buffer "*Article*")) ;; See `ps-gnus-print-article-from-summary'. This function does the ;; same thing for vm. (defun ps-vm-print-message-from-summary () (interactive) (ps-print-message-from-summary 'vm-mail-buffer "")) ;; A hook to bind to bind to `gnus-summary-setup-buffer' to locally bind ;; prsc. (defun ps-gnus-summary-setup () (local-set-key [(f22)] 'ps-gnus-print-article-from-summary)) ;; Look in an article or mail message for the Subject: line. To be ;; placed in `ps-left-headers'. (defun ps-info-file () (save-excursion (goto-char (point-min)) (if (re-search-forward "File:[ \t]+\\([^, \t\n]*\\)" nil t) (buffer-substring (match-beginning 1) (match-end 1)) "File ???"))) ;; Look in an article or mail message for the Subject: line. To be ;; placed in `ps-left-headers'. (defun ps-info-node () (save-excursion (goto-char (point-min)) (if (re-search-forward "Node:[ \t]+\\([^,\t\n]*\\)" nil t) (buffer-substring (match-beginning 1) (match-end 1)) "Node ???"))) (defun ps-info-mode-hook () (setq ps-left-header ;; The left headers will display the node name and file name. '(ps-info-node ps-info-file))) ;; WARNING! The following function is a *sample* only, and is *not* ;; meant to be used as a whole unless you understand what the effects ;; will be! (In fact, this is a copy of Jim's setup for ps-print -- ;; I'd be very surprised if it was useful to *anybody*, without ;; modification.) (defun ps-jts-ps-setup () (global-set-key [(f22)] 'ps-spool-buffer-with-faces) ;f22 is prsc (global-set-key [(shift f22)] 'ps-spool-region-with-faces) (global-set-key [(control f22)] 'ps-despool) (add-hook 'gnus-article-prepare-hook 'ps-gnus-article-prepare-hook) (add-hook 'gnus-summary-mode-hook 'ps-gnus-summary-setup) (add-hook 'vm-mode-hook 'ps-vm-mode-hook) (add-hook 'vm-mode-hooks 'ps-vm-mode-hook) (add-hook 'Info-mode-hook 'ps-info-mode-hook) (setq ps-spool-duplex t ps-print-color-p nil ps-lpr-command "lpr" ps-lpr-switches '("-Jjct,duplex_long")) 'ps-jts-ps-setup) ;; WARNING! The following function is a *sample* only, and is *not* ;; meant to be used as a whole unless it corresponds to your needs. ;; (In fact, this is a copy of Jack's setup for ps-print -- ;; I would not be that surprised if it was useful to *anybody*, ;; without modification.) (defun ps-jack-setup () (setq ps-print-color-p nil ps-lpr-command "lpr" ps-lpr-switches nil ps-paper-type 'a4 ps-landscape-mode t ps-number-of-columns 2 ps-left-margin (/ (* 72 1.0) 2.54) ; 1.0 cm ps-right-margin (/ (* 72 1.0) 2.54) ; 1.0 cm ps-inter-column (/ (* 72 1.0) 2.54) ; 1.0 cm ps-bottom-margin (/ (* 72 1.5) 2.54) ; 1.5 cm ps-top-margin (/ (* 72 1.5) 2.54) ; 1.5 cm ps-header-offset (/ (* 72 1.0) 2.54) ; 1.0 cm ps-header-line-pad .15 ps-print-header t ps-print-header-frame t ps-header-lines 2 ps-show-n-of-n t ps-spool-duplex nil ps-font-family 'Courier ps-font-size 5.5 ps-header-font-family 'Helvetica ps-header-font-size 6 ps-header-title-font-size 8) 'ps-jack-setup) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (provide 'ps-samp) ;; arch-tag: 99c415d3-be39-43c6-aa32-7ee33ba19600 ;;; ps-samp.el ends here