comparison lisp/play/handwrite.el @ 88155:d7ddb3e565de

sync with trunk

88154:8ce476d3ba36

;;; handwrite.el --- turns your emacs buffer into a handwritten document -*- coding: iso-latin-1; -*-

;; (C) Copyright 1996 Free Software Foundation, Inc.

;; Author: Danny Roozendaal (was: <[e-mail]>)
;; Created: October 21 1996
;; Keywords: wp, print, postscript, cursive writing

;; 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., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.

;;; Commentary:
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; The function handwrite creates PostScript output containing a

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;; Code:


;; Variables

(defgroup handwrite nil
  "Turns your emacs buffer into a handwritten document."

    (setq ps-buf-name
	  (format "*handwritten%d.ps*" handwrite-psindex))
    (setq next-line-add-newlines t)
    (switch-to-buffer ps-buf-name)
    (handwrite-insert-header buf-name)
    (insert "\n(\\nCreated by GNU Emacs' handwrite version "
	    emacs-version  "\\n\\n)=print flush\n")
    (handwrite-insert-preamble)
    (handwrite-insert-info)
    (handwrite-insert-font)
    (setq textp (point))
    (insert "%%Page: 1 1\n")

(provide 'handwrite)


;;; handwrite.el ends here

88155:d7ddb3e565de

;;; handwrite.el --- turns your emacs buffer into a handwritten document -*- coding: iso-latin-1; -*-

;; Copyright (C) 1996, 2002, 2003, 2004, 2005 Free Software Foundation, Inc.

;; Author: Danny Roozendaal (was: <[e-mail]>)
;; Created: October 21 1996
;; Keywords: wp, print, postscript, cursive writing

;; 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:
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; The function handwrite creates PostScript output containing a

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;; Code:

(defvar ps-printer-name)
(defvar ps-lpr-command)


;; Variables

(defgroup handwrite nil
  "Turns your emacs buffer into a handwritten document."

    (setq ps-buf-name
	  (format "*handwritten%d.ps*" handwrite-psindex))
    (setq next-line-add-newlines t)
    (switch-to-buffer ps-buf-name)
    (handwrite-insert-header buf-name)
    (insert "%%Creator: GNU Emacs' handwrite version " emacs-version  "\n")
    (handwrite-insert-preamble)
    (handwrite-insert-info)
    (handwrite-insert-font)
    (setq textp (point))
    (insert "%%Page: 1 1\n")

(provide 'handwrite)


;;; arch-tag: f2285ae9-e41b-4c96-8343-87dce41e44b7
;;; handwrite.el ends here