Fix bug #12914 with drag-n-drop in native MS-Windows build.

[bpt/emacs.git] / lisp / play / handwrite.el

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

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

;; Author: Danny Roozendaal (was: <danny@tvs.kun.nl>)
;; Created: October 21 1996
;; Keywords: wp, print, postscript, cursive writing

;; 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 of the License, 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.  If not, see <http://www.gnu.org/licenses/>.

;;; Commentary:
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; The function handwrite creates PostScript output containing a
;; handwritten version of the current buffer..
;; Other functions that may be useful are
;;
;;      handwrite-10pt: sets the font size to 10 and finds corresponding
;;                      values for the line spacing and the number of lines
;;                      on a page.
;;      handwrite-11pt: which is similar
;;      handwrite-12pt: which is also similar
;;      handwrite-13pt: which is similar, too
;;
;;      handwrite-set-pagenumber: set and unset page numbering
;;
;;
;; If you are not satisfied with the type page there are a number of
;; variables you may want to set.
;;
;;
;;  Installation
;;
;; type at your prompt "emacs -l handwrite.el" or put this file on your
;; Emacs-Lisp load path, add the following into your init file:
;;
;;                (require 'handwrite)
;;
;; "M-x handwrite"  or "Write by hand"  in the edit menu should work now.
;;
;;
;; I tried to make it `iso_8859_1'-friendly, but there are some exotic
;; characters missing.
;;
;;
;; Known bugs: -Page feeds do not do their work, but are ignored instead.
;;             -Tabs are not always properly displayed.
;;             -Handwrite may create corrupt PostScript if it encounters
;;              unknown characters.
;;
;; Thanks to anyone who emailed me suggestions!
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;; Code:

;; From ps-print.el
(defvar ps-printer-name)
(defvar ps-lpr-command)
(defvar ps-lpr-switches)


;; Variables

(defgroup handwrite nil
  "Turns your Emacs buffer into a handwritten document."
  :prefix "handwrite-"
  :group 'games)

(defvar handwrite-psindex 0
  "The index of the PostScript buffer.")
(defvar menu-bar-handwrite-map
  (let ((map (make-sparse-keymap "Handwrite functions.")))
    (define-key map [numbering]
      '(menu-item "Page numbering" handwrite-set-pagenumber
        :button (:toggle . handwrite-pagenumbering)))
    (define-key map [handwrite-separator2] '("----" . nil))
    (define-key map [10pt] '(menu-item "10 pt" handwrite-10pt
                             :button (:radio . (eq handwrite-fontsize 10))))
    (define-key map [11pt] '(menu-item "11 pt" handwrite-11pt
                             :button (:radio . (eq handwrite-fontsize 11))))
    (define-key map [12pt] '(menu-item "12 pt" handwrite-12pt
                             :button (:radio . (eq handwrite-fontsize 12))))
    (define-key map [13pt] '(menu-item "13 pt" handwrite-13pt
                             :button (:radio . (eq handwrite-fontsize 13))))
    (define-key map [handwrite-separator1] '("----" . nil))
    (define-key map [handwrite] '("Write by hand" . handwrite))
    map))
(fset 'menu-bar-handwrite-map menu-bar-handwrite-map)


;; User definable variables

(defcustom handwrite-numlines 60
  "The number of lines on a page of the PostScript output from `handwrite'."
  :type 'integer
  :group 'handwrite)
(defcustom handwrite-fontsize 11
  "The size of the font for the PostScript output from `handwrite'."
  :type 'integer
  :group 'handwrite)
(defcustom handwrite-linespace 12
  "The spacing for the PostScript output from `handwrite'."
  :type 'integer
  :group 'handwrite)
(defcustom handwrite-xstart 30
  "X-axis translation in the PostScript output from `handwrite'."
  :type 'integer
  :group 'handwrite)
(defcustom handwrite-ystart 810
  "Y-axis translation in the PostScript output from `handwrite'."
  :type 'integer
  :group 'handwrite)
(defcustom handwrite-pagenumbering nil
  "If non-nil, number each page of the PostScript output from `handwrite'."
  :type 'boolean
  :group 'handwrite)
(defcustom handwrite-10pt-numlines 65
  "The number of lines on a page for the function `handwrite-10pt'."
  :type 'integer
  :group 'handwrite)
(defcustom handwrite-11pt-numlines 60
  "The number of lines on a page for the function `handwrite-11pt'."
  :type 'integer
  :group 'handwrite)
(defcustom handwrite-12pt-numlines 55
  "The number of lines on a page for the function `handwrite-12pt'."
  :type 'integer
  :group 'handwrite)
(defcustom handwrite-13pt-numlines 50
  "The number of lines on a page for the function `handwrite-13pt'."
  :type 'integer
  :group 'handwrite)

;; Interactive functions

;;;###autoload
(defun handwrite ()
  "Turns the buffer into a \"handwritten\" document.
The functions `handwrite-10pt', `handwrite-11pt', `handwrite-12pt'
and `handwrite-13pt' set up for various sizes of output.

Variables: `handwrite-linespace'     (default 12)
           `handwrite-fontsize'      (default 11)
           `handwrite-numlines'      (default 60)
           `handwrite-pagenumbering' (default nil)"
  (interactive)
  (let
      (;(pmin)				; thanks, Havard
       (cur-buf (current-buffer))
       (tpoint (point))
       (ps-ypos 63)
       (lcount 0)
       (ipage 1)
       (nlan next-line-add-newlines)	;remember the old value
       (buf-name (buffer-name) )
       (textp)
       (ps-buf-name)			;name of the PostScript buffer
       (trans-table