Re: A `my-ps-print-setting' function

[Andreas Politz <politza@fh-trier.de>]

Rodolfo Medina wrote:
> 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 [...]

Thank lisp you can make your own choices...

(defmacro defchoice (yes no)
   (let* ((name (format "%c-or-%c-p" yes no))
	 (name-symbol (intern name)))
     `(defun ,name-symbol (prompt)
        ,(format "Ask user a \"%c or %c\" question.  Return t is answer is \"%c\"."
		yes no yes)
        (let* ((pprompt1 (propertize (format "%s (%c or %c) ?" prompt ,yes ,no) 'face
				    'minibuffer-prompt))
	      (pprompt2 (concat (propertize (format "Please answer %c or %c.  " ,yes ,no) 'face
					    'minibuffer-prompt)
				pprompt1))
	      (answer (read-char-exclusive pprompt1)))
	 (while (not (or (= answer ,yes)
			 (= answer ,no)))
	   (setq answer (read-char-exclusive pprompt2)))
	 (= answer ,yes)))))


(defchoice ?r ?l)
(r-or-l-p "Choose !")

-ap