A `my-ps-print-setting' function (was: ps-print variables interactive setting)

[Rodolfo Medina]

Rodolfo Medina <rodolfo.medina@gmail.com> writes:

> [...] I wish to set some ps-print variables in an interactive way, i.e. be
> prompted for the value that I want to set.



With the help that came from this list, I defined a `my-ps-print-setting'
function, that I'm reporting below.  Improvements are welcome: in particular
I wish it said: "please answer `r' or `l'" when prompting for a right or left
footer and the answer is neither r nor l.  Besides, I wish to have
automatically odd page numbers in the right footer and even page numbers in
the left footer.  But I'm starting a new thread for that.

bye
Rodolfo



(defun my-ps-print-setting ()
  "Prompts for some ps print settings.
Other settings are inside the function definition
and can be changed at pleasure."
  (interactive)
  (if (equal (y-or-n-p "Do you want footer? ") t)
      (let (key val)
        (while (progn
                 (setq key
                       (let ((cursor-in-echo-area t))
                         (read-char
                          (format "right or left? "))))
                 (not (memq key '(?r ?l)))))
        (if (eq key ?r)
            (if (equal (y-or-n-p "So, you want right footer.  \
Do you want the default footer? ") nil)
                (let ((my-page-number (read-string 
                                       "Enter the footer you want: ")))
                  (setq ps-right-footer (list (concat "(" my-page-number ")"))
                        ps-print-footer t
                        ps-print-footer-frame nil
                        ps-top-margin 20
                        ps-bottom-margin 5
                        ps-left-margin 10
                        ps-right-margin 7
                        ps-print-header nil
                        ps-show-n-of-n nil
                        ps-print-footer-frame nil
                        ps-footer-lines 1
                        ps-left-footer (quote ( ))
                        ps-footer-offset -10))
              (setq ps-right-footer (quote ("/pagenumberstring load"))
                    ps-print-footer t
                    ps-print-footer-frame nil
                    ps-top-margin 20
                    ps-bottom-margin 5
                    ps-left-margin 10
                    ps-right-margin 7
                    ps-print-header nil
                    ps-show-n-of-n nil
                    ps-print-footer-frame nil
                    ps-footer-lines 1
                    ps-left-footer (quote ( ))
                    ps-footer-offset -10))
          (if (equal (y-or-n-p "So, you want left footer.  \
Do you want the default footer? ") nil)
              (let ((my-page-number (read-string 
                                     "Enter the footer you want: ")))
                (setq ps-left-footer (list (concat "(" my-page-number ")"))
                      ps-print-footer t
                      ps-print-footer-frame nil
                      ps-top-margin 20
                      ps-bottom-margin 5
                      ps-left-margin 10
                      ps-right-margin 7
                      ps-print-header nil
                      ps-show-n-of-n nil
                      ps-print-footer-frame nil
                      ps-footer-lines 1
                      ps-right-footer (quote ( ))
                      ps-footer-offset -10))
            (setq ps-left-footer (quote ("/pagenumberstring load"))
                  ps-print-footer t
                  ps-print-footer-frame nil
                  ps-top-margin 20
                  ps-bottom-margin 5
                  ps-left-margin 10
                  ps-right-margin 7
                  ps-print-header nil
                  ps-show-n-of-n nil
                  ps-print-footer-frame nil
                  ps-footer-lines 1
                  ps-right-footer (quote ( ))
                  ps-footer-offset -10))
          ))
    (setq ps-print-footer nil
                                        ;         ps-top-margin 10
          ps-top-margin 5
          ps-bottom-margin 0
          ps-left-margin 10
          ps-right-margin 0
          ps-print-header nil
          ps-print-footer nil))    
  (let ((font-size (read-number "What font size do you want? ")))
    (setq ps-font-size (cons 7 font-size)))
  (if (equal ps-font-size '(7 . 9.5))
      (setq-default fill-column 101))
  (if (equal ps-font-size '(7 . 12))
      (setq-default fill-column 78))
  )