Changing completion-style using the minibuffer

[arvid-harnack]

I have the following code to change completion-styles by calling "M-x 
minibufrp-complt-style".



But would like to change it so that I can go through the four selections using 
the minibuffer.

What would I need to add exactly to be able to do so ?



(defvar k 1)

(defun minibufrp-complt-style ()
  
  (interactive)
  (pcase k
    (1
       (setq completion-styles '(basic substring))
       (setq k 2))
    (2
       (setq completion-styles '(partial-completion))
       (setq k 3))
    (3
       (setq completion-styles '(initials))
       (setq k 4))
    (4
       (setq completion-styles '(orderless))
       (setq k 1)) ))