dot/emacs: Define conversion factor in advance.

Rather than open-coding.

diff --git a/dot/emacs b/dot/emacs
index 0301453..c43acb6 100644 (file)
--- 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.