Re: Embedded list selection with ido-completing-read.

[Emanuel Berg]

Hongyi Zhao wrote:

> I still can't figure out how to use your suggestions above
> to further simplify my implementation below:
>
> (defun my-pw-ATOMIC_POSITIONS2 ()
>   (interactive
>    (list
>     (insert "ATOMIC_POSITIONS "
>             (completing-read
>              "flag: "
>              '(("alat")
>                ("bohr")
>                ("angstrom")
>                ("crystal")
>                ("crystal_sg")
>                )
>              )))))

Same as I said before ...

1) Use a formal parameter.

2) Don't do anything in the `interactive' form except
   get/assign the argument(s).

3) Test interactively and non-interactively (i.e., from Lisp).

(defun atomic-position (flag)
  (interactive
   (list (completing-read
          "flag: "
          '("alat" "angstrom" "bohr" "crystal" "crystal_sg") )))
  (insert (format "Atomic Kitten: %s" flag) ))

;; test:
;;   (call-interactively #'atomic-position)
;;   (atomic-position "bohr")

-- 
underground experts united
https://dataswamp.org/~incal