;;; handwrite.el --- turns your emacs buffer into a handwritten document -*- lexical-binding: t -*-
-;; Copyright (C) 1996, 2001-2022 Free Software Foundation, Inc.
+;; Copyright (C) 1996-2022 Free Software Foundation, Inc.
;; Author: Danny Roozendaal (was: <danny@tvs.kun.nl>)
;; Maintainer: emacs-devel@gnu.org
;;
;; 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-10pt': set the font size to 10 and find 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
+;; `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.
;;
-;; To use this, say "M-x handwrite" or type at your prompt
+;; To use this, say `M-x handwrite' or type at your prompt
;; "emacs -l handwrite.el".
;;
;; 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.
+;; Known bugs:
+;; - Page feeds do not work, and 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!
;; Variables
(defgroup handwrite nil
- "Turns your Emacs buffer into a handwritten document."
+ "Turn your Emacs buffer into a handwritten document."
:prefix "handwrite-"
:group 'games)
(defun handwrite-10pt ()
"Specify 10-point output for `handwrite'.
-This sets `handwrite-fontsize' to 10 and finds correct
-values for `handwrite-linespace' and `handwrite-numlines'."
+Set `handwrite-fontsize' to 10 and find correct values for
+`handwrite-linespace' and `handwrite-numlines'."
(interactive)
(setq handwrite-fontsize 10)
(setq handwrite-linespace 11)
(defun handwrite-11pt ()
"Specify 11-point output for `handwrite'.
-This sets `handwrite-fontsize' to 11 and finds correct
-values for `handwrite-linespace' and `handwrite-numlines'."
+Set `handwrite-fontsize' to 11 and find correct values for
+`handwrite-linespace' and `handwrite-numlines'."
(interactive)
(setq handwrite-fontsize 11)
(setq handwrite-linespace 12)
(defun handwrite-12pt ()
"Specify 12-point output for `handwrite'.
-This sets `handwrite-fontsize' to 12 and finds correct
-values for `handwrite-linespace' and `handwrite-numlines'."
+Set `handwrite-fontsize' to 12 and find correct values for
+`handwrite-linespace' and `handwrite-numlines'."
(interactive)
(setq handwrite-fontsize 12)
(setq handwrite-linespace 13)
(defun handwrite-13pt ()
"Specify 13-point output for `handwrite'.
-This sets `handwrite-fontsize' to 13 and finds correct
-values for `handwrite-linespace' and `handwrite-numlines'."
+Set `handwrite-fontsize' to 13 and find correct values for
+`handwrite-linespace' and `handwrite-numlines'."
(interactive)
(setq handwrite-fontsize 13)
(setq handwrite-linespace 14)