Re: [elisp]How to ask and provide a Default value?

Re: [elisp]How to ask and provide a Default value?

[Joakim Hove]

Hello,

maybe you can use this little function:

(defun read-number-with-default (prompt &optional default)
  (let ((default-string (if default (number-to-string default) "")))
    (string-to-number (read-from-minibuffer prompt default-string))))

Observe two things:

 1. The default value is presented to the read routine as
    "INITIAL-CONTENTS", and *not* "DEFAULT-VALUE".

 2. The routine does not check the number format, and
    (string-to-number ) seemingly eats anything with digits in it.

In case you want to use this function you would typically read the
input in the body of the function, i.e. something like:

(defun sleeve-step-region (beginning end base step column)
  "Insert a column of increasing numbers in the region."
  (let* ((beginning (read-number-with-default "Beginning: " 100))
         (end       (read-number-with-default "End: " (+ beginning 10)))

...

HTH - Joakim



-- 
  /--------------------------------------------------------------------\
 / Joakim Hove  / hove@bccs.no  /  (55 5) 84076       |                 \
 | Unifob AS, Avdeling for Beregningsvitenskap (BCCS) | Stabburveien 18 |
 | CMU                                                | 5231 Paradis    |
 \ Thormøhlensgt.55, 5020 Bergen.                     | 55 91 28 18     /
  \--------------------------------------------------------------------/

Re: [elisp]How to ask and provide a Default value?

[Joakim Hove]

Joakim Hove <hove@bccs.no> writes:


> (defun sleeve-step-region (beginning end base step column)
>   "Insert a column of increasing numbers in the region."
>   (let* ((beginning (read-number-with-default "Beginning: " 100))
>          (end       (read-number-with-default "End: " (+ beginning 10)))

Sorry, the whole point of displaying this function header was that
the arguments are *not* input to the function, i.e.

(defun sleeve-step-region ()
  "Insert a column of increasing numbers in the region."
  (let* ((beginning (read-number-with-default "Beginning: " 100))
         (end       (read-number-with-default "End: " (+ beginning 10)))


Joakim

-- 
  /--------------------------------------------------------------------\
 / Joakim Hove  / hove@bccs.no  /  (55 5) 84076       |                 \
 | Unifob AS, Avdeling for Beregningsvitenskap (BCCS) | Stabburveien 18 |
 | CMU                                                | 5231 Paradis    |
 \ Thormøhlensgt.55, 5020 Bergen.                     | 55 91 28 18     /
  \--------------------------------------------------------------------/

Re: [elisp]How to ask and provide a Default value?

[FKtPp@Office ;)]

thanks a lot :P

[elisp]How to ask and provide a Default value?

[FKtPp@Office ;)]

hi all,
   I wrote a simple function like:

(defun sleeve-step-region (beginning end base step column)
  "Insert a column of increasing numbers in the region.
"

;; And here, I want it ask some parameters when invoked. Now the
;; problem is: I want it provide a *Default* value, but don't know how
;; to write the character descriptions -_-!! In "(elisp) Interactive
;; Codes"
;; I find this:
;; 
;; ,----
;; |  Default
;; |      A default value of some sort is used if the user enters no text in
;; |      the minibuffer.  The default depends on the code character.
;; `----
;;
;; Can anyone give me some sample to use this "Default" character
;; description?
;;
;; Somebody have suggested  me to use "Lisp expression" in the
;; interactive special form. But I still want to know how to use the
;; character descriptions :P

  (interactive "r\nnTell me the base Number: \nnTell me the Step: \nnWhich column: ")
  (let ((step-number (if (numberp step)
		  step
		(string-to-number step)))
	(base-number (if (numberp base)
			 base
		       (string-to-number base)))
	(column-number (if (numberp column)
			   column
			 (string-to-number column))))
    (save-excursion 
      (narrow-to-region beginning end)
      (goto-char (point-min))
      (beginning-of-line)
      (while (< (point) (point-max))
	(goto-char (+ (point) column-number))
	(insert (number-to-string base-number))
	(setq base-number (+ base-number step-number))
	(forward-line))
      (widen))))

best wishes and thanks for any suggestions!! :)
yours FKtPp 

Re: [elisp]How to ask and provide a Default value?

[Kevin Rodgers]

FKtPp@Office ;) wrote:
 >    I wrote a simple function like:
 >
 > (defun sleeve-step-region (beginning end base step column)
 >   "Insert a column of increasing numbers in the region.
 > "
 >
 > ;; And here, I want it ask some parameters when invoked. Now the
 > ;; problem is: I want it provide a *Default* value, but don't know how
 > ;; to write the character descriptions -_-!! In "(elisp) Interactive
 > ;; Codes"
 > ;; I find this:
 > ;;
 > ;; ,----
 > ;; |  Default
 > ;; |      A default value of some sort is used if the user enters no text in
 > ;; |      the minibuffer.  The default depends on the code character.
 > ;; `----
 > ;;
 > ;; Can anyone give me some sample to use this "Default" character
 > ;; description?
 > ;;
 > ;; Somebody have suggested  me to use "Lisp expression" in the
 > ;; interactive special form. But I still want to know how to use the
 > ;; character descriptions :P
 >
 >   (interactive "r\nnTell me the base Number: \nnTell me the Step: \nnWhich column: ")

OK, so you're using just `r' for the beginning and end args and `n' for
each of the base, step, and column args.  `r' doesn't prompt the user
for input, but provides the current region bounds automatically.  And
here's a simple way to test the `n' character code:

(defun foo (number)
   (interactive "nNumber: ")
   (message "number=%d" number))

When I type `M-x foo RET RET' on Emacs 19.34, I get an "End of file
during parsing" error.  When I type that on Emacs 21.3, I get a
transient "Please enter a number." Message, then the prompt is
redisplayed.  So evidently Emacs does not provide a default for the `n'
character code.

 >   (let ((step-number (if (numberp step)
 > 		  step
 > 		(string-to-number step)))
 > 	(base-number (if (numberp base)
 > 			 base
 > 		       (string-to-number base)))
 > 	(column-number (if (numberp column)
 > 			   column
 > 			 (string-to-number column))))

You are confused here: the `n' characters codes in the interactive form
will cause base, step, and column to be bound to numbers, not strings.

 >     (save-excursion
 >       (narrow-to-region beginning end)
 >       (goto-char (point-min))
 >       (beginning-of-line)
 >       (while (< (point) (point-max))
 > 	(goto-char (+ (point) column-number))
 > 	(insert (number-to-string base-number))
 > 	(setq base-number (+ base-number step-number))
 > 	(forward-line))
 >       (widen))))

When the save-excursion form returns, it will restore the previous
narrowing (if any), so you should not explicitly call widen there.

-- 
Kevin Rodgers

Re: [elisp]How to ask and provide a Default value?

[FKtPp@Office ;)]

Kevin Rodgers <ihs_4664@yahoo.com> writes:


[...]

>
> (defun foo (number)
>    (interactive "nNumber: ")
>    (message "number=%d" number))
>
> When I type `M-x foo RET RET' on Emacs 19.34, I get an "End of file
> during parsing" error.  When I type that on Emacs 21.3, I get a
> transient "Please enter a number." Message, then the prompt is
> redisplayed. 

Thank you. I got it too :) 

> So evidently Emacs does not provide a default for the `n' character
> code.

But, I still don't know how to use the default character description
:P Would u please give me a sample?

>
>
>  >   (let ((step-number (if (numberp step)
>  > 		  step
>  > 		(string-to-number step)))
>  > 	(base-number (if (numberp base)
>  > 			 base
>  > 		       (string-to-number base)))
>  > 	(column-number (if (numberp column)
>  > 			   column
>  > 			 (string-to-number column))))
>
> You are confused here: the `n' characters codes in the interactive form
> will cause base, step, and column to be bound to numbers, not strings.
>
>  >     (save-excursion
>  >       (narrow-to-region beginning end)
>  >       (goto-char (point-min))
>  >       (beginning-of-line)
>  >       (while (< (point) (point-max))
>  > 	(goto-char (+ (point) column-number))
>  > 	(insert (number-to-string base-number))
>  > 	(setq base-number (+ base-number step-number))
>  > 	(forward-line))
>  >       (widen))))
>
> When the save-excursion form returns, it will restore the previous
> narrowing (if any), so you should not explicitly call widen there.

And thank u again. I will take ur advise :P

Re: [elisp]How to ask and provide a Default value?

[Kevin Rodgers]

FKtPp@Office ;) wrote:
 > Kevin Rodgers <ihs_4664@yahoo.com> writes:
 >>(defun foo (number)
 >>   (interactive "nNumber: ")
 >>   (message "number=%d" number))
 >>
 >>When I type `M-x foo RET RET' on Emacs 19.34, I get an "End of file
 >>during parsing" error.  When I type that on Emacs 21.3, I get a
 >>transient "Please enter a number." Message, then the prompt is
 >>redisplayed.
 >
 > Thank you. I got it too :)
 >
 >>So evidently Emacs does not provide a default for the `n' character
 >>code.
 >
 > But, I still don't know how to use the default character description
 > :P Would u please give me a sample?

The `b' character code, which is used to return an existing buffer, does
provide a default (the current buffer):

(defun foo (buffer)
   (interactive "bBuffer: ")
   (message "buffer=%s" buffer))

-- 
Kevin Rodgers

Re: [elisp]How to ask and provide a Default value?

[FKtPp@Office ;)]

Kevin Rodgers <ihs_4664@yahoo.com> writes:

> The `b' character code, which is used to return an existing buffer, does
> provide a default (the current buffer):
>
> (defun foo (buffer)
>    (interactive "bBuffer: ")
>    (message "buffer=%s" buffer))

The "Default" character description not always available, is that true?

Re: [elisp]How to ask and provide a Default value?

[Kevin Rodgers]

FKtPp@Office ;) wrote:
 > Kevin Rodgers <ihs_4664@yahoo.com> writes:
 >>The `b' character code, which is used to return an existing buffer, does
 >>provide a default (the current buffer):
 >>
 >>(defun foo (buffer)
 >>   (interactive "bBuffer: ")
 >>   (message "buffer=%s" buffer))
 >>
 >
 > The "Default" character description not always available, is that true?

That is what we discovered about the `n' character code just 2 days
before your most recent post.

-- 
Kevin Rodgers