From: Mark Wooding <mdw@distorted.org.uk>
Date: Thu, 17 Feb 2022 19:37:07 +0000 (+0000)
Subject: dot/emacs: Define conversion factor in advance.
X-Git-Url: https://git.distorted.org.uk/~mdw/profile/commitdiff_plain/088e5a161dd4cdb17bbd4a04819b0e9510c241f5

dot/emacs: Define conversion factor in advance.

Rather than open-coding.
---

diff --git a/dot/emacs b/dot/emacs
index 0301453..c43acb6 100644
--- a/dot/emacs
+++ b/dot/emacs
@@ -327,24 +327,25 @@
 
 ;; Postscript printing.
 
-(setq ps-paper-type 'a4
-      ps-print-only-one-header t
-      ps-print-color-p t
-      ps-landscape-mode t ps-number-of-columns 4
-      ps-line-number t ps-line-number-step 5 ps-line-number-start 5
-      ps-zebra-stripes nil ps-zebra-stripe-height 5
-      ps-spool-duplex t ps-spool-tumble nil ps-spool-config 'setpagedevice
-      ps-top-margin (* 12 (/ 72 25.4))
-      ps-bottom-margin (* 16 (/ 72 25.4))
-      ps-header-offset (* 8 (/ 72 25.4))
-      ps-left-margin (* 12 (/ 72 25.4))
-      ps-right-margin (* 12 (/ 72 25.4))
-      ps-inter-column (* 4 (/ 72 25.4))
-      ps-font-family 'CourierCondensed ps-font-size '(4.5 . 5.16)
-      ps-line-number-font 'Palatino ps-line-number-font-size 3
-      ps-header-font-family 'Helvetica
-	ps-header-title-font-size '(8 . 10)
-	ps-header-font-size '(6 . 8))
+(let ((mm (/ 72 25.4)))
+  (setq ps-paper-type 'a4
+	ps-print-only-one-header t
+	ps-print-color-p t
+	ps-landscape-mode t ps-number-of-columns 4
+	ps-line-number t ps-line-number-step 5 ps-line-number-start 5
+	ps-zebra-stripes nil ps-zebra-stripe-height 5
+	ps-spool-duplex t ps-spool-tumble nil ps-spool-config 'setpagedevice
+	ps-top-margin (* 12 mm)
+	ps-bottom-margin (* 16 mm)
+	ps-header-offset (* 8 mm)
+	ps-left-margin (* 12 mm)
+	ps-right-margin (* 12 mm)
+	ps-inter-column (* 4 mm)
+	ps-font-family 'CourierCondensed ps-font-size '(4.5 . 5.16)
+	ps-line-number-font 'Palatino ps-line-number-font-size 3
+	ps-header-font-family 'Helvetica
+	  ps-header-title-font-size '(8 . 10)
+	  ps-header-font-size '(6 . 8)))
 
 ;; Splash screen stuff.