1 files changed, 5 insertions, 1 deletions
diff --git a/mnpgr.tl b/mnpgr.tl
index 1d9d0ec..4278f3e 100755
--- a/mnpgr.tl
+++ b/mnpgr.tl
@@ -34,6 +34,10 @@
                           "map b \002\r"
                           "map <space> \006")))
 
+(defvarl cols (or (getenv "MANWIDTH")
+                  (getenv "COLUMNS")
+                  "80"))
+
 (defun grave-accent (x)
   (casequal x
     ("a" "à")
@@ -90,7 +94,7 @@
   (match @(or `@page(@section)`     ;; for "man whatever"
               `@page\\.@section`)   ;; for "man -l file.1"
          (getenv "MAN_PN")
-    (with-resources ((rendered-file (path-cat mnpgr-dir `@page.@section`)
+    (with-resources ((rendered-file (path-cat mnpgr-dir `@page.@section.@cols`)
                                     (remove-path rendered-file)))
       (with-stream (s (open-file rendered-file "w"))
         (let ((ofilt (make-overstrike-filter (lambda (str) (put-string str s)))))