Variation of org-todo with minibuffer prompt of choices.

example.el

(defun my-basic-org-todo ()
"Doc-string ...."
(interactive)
  (let* ((choice (read-char-exclusive "[t] TODO | [n] NEXT | [w] WAITING"))
         (chosen-string (cond
                          ((eq choice ?t)
                           "TODO")
                          ((eq choice ?n)
                           "NEXT")
                          ((eq choice ?w)
                           "WAITING")
                          (t
                            (user-error "Try again ...")))))
    (org-todo chosen-string)))

(defun my-fancy-org-todo ()
"Doc-string ...."
(interactive)
  (let* ((todo-string (propertize "TODO" 'face (org-get-todo-face "TODO")))
         (next-string (propertize "NEXT" 'face (org-get-todo-face "NEXT")))
         (waiting-string (propertize "WAITING" 'face (org-get-todo-face "WAITING")))
         (choice (read-char-exclusive (concat "[t] "
                                              todo-string
                                              " | [n] "
                                              next-string
                                              " | [w] "
                                              waiting-string)))
         (chosen-string (cond
                          ((eq choice ?t)
                           "TODO")
                          ((eq choice ?n)
                           "NEXT")
                          ((eq choice ?w)
                           "WAITING")
                          (t
                            (user-error "Try again ...")))))
    (org-todo chosen-string)))