Meow Mode Selector

[gs-101]

Following what was written for the Meow thing functions, I tried to write something for a mode selector. I'm thinking about making some modes for specific needs in the future, such as structural editing with puni.

word is a simply a normal mode I made for myself that just replaces the navigation commands with meow-next-word for lowercase and meow-next-symbol for uppercase bind, for example

This is what the mode selector currently looks like:

Details

(defcustom meow-display-mode-help t
    "Whether to display the help prompt for `meow-mode-selector'."
    :group 'meow
    :type 'boolean)

(defcustom gs-101/meow-char-mode-table
    '((?i . insert)
      (?n . normal)
      (?w . word))
    "Mapping from char to mode."
    :group 'meow
    :type '(alist :key-type (character :tag "Char")
                  :value-type (symbol :tag "Mode")))

(defun gs-101/meow--render-char-mode-table ()
    (let* ((fw (frame-width))
           (fmv 25)
           (col (min 5 (/ fw fmv))))
      (thread-last
        gs-101/meow-char-mode-table
        (seq-group-by #'cdr)
        (seq-sort-by #'car #'string-lessp)
        (seq-map-indexed
         (lambda (md-pairs idx)
           (let* ((md (car md-pairs))
                  (pairs (cdr md-pairs))
                  (pre (thread-last
                         pairs
                         (mapcar (lambda (it) (char-to-string (car it))))
                         (meow--string-join " "))))
             (format "%s%s%s%s"
                     (propertize
                      (meow--string-pad pre 8 32 t)
                      'face 'font-lock-type-face)
                     (propertize " → " 'face 'font-lock-comment-face)
                     (propertize
                      (meow--string-pad (symbol-name md) 13 32 t)
                      'face 'font-lock-function-name-face)
                     (if (= (1- col) (mod idx col))
                         "\n"
                       " ")))))
        (string-join)
        (string-trim-right))))

(defun gs-101/meow-mode-prompt (prompt-text)
    (read-char
     (if meow-display-mode-help
         (concat (gs-101/meow--render-char-mode-table) "\n" prompt-text)
       prompt-text)))

(defun gs-101/meow-mode-selector (mode)
    "Select a Meow MODE out of a list."
    (interactive (list (gs-101/meow-mode-prompt "Select a mode"))))

Now, I just need that last step. Would anyone know how to select a mode from a list? Here's what meow-inner-of-thing does:

Details

(defun meow-inner-of-thing (thing)
  "Select inner (excluding delimiters) of THING."
  (interactive (list (meow-thing-prompt "Inner of: ")))
  (save-window-excursion
    (let ((back (equal 'backward (meow--thing-get-direction 'inner)))
          (bounds (meow--parse-inner-of-thing-char thing)))
      (meow--select-range back bounds))))

The most important bits are bounds and meow--select-range. I think this can be done with me replacing the short names for the modes and maybe using funcall to call the mode.