Expanding versions of the thing selection commands about meow HOT 2 OPEN

  (defun my-meow-extend-to-end-of-thing (thing)
    "Extend selection to the end of THING."
    (interactive (list (meow-thing-prompt "Extend to end of: ")))
    (if (not (use-region-p))
        (meow-end-of-thing thing)
      (save-window-excursion
        (let ((back (equal 'backward (meow--thing-get-direction 'end)))
              (bounds (meow--parse-inner-of-thing-char thing)))
          (let ((beg (min (point) (mark))))
            (when bounds
              (thread-first
                (meow--make-selection '(select . transient)
                                      (if back (cdr bounds) beg)
                                      (if back beg (cdr bounds)))
                (meow--select))))))))

  (defun my-meow-extend-to-beginning-of-thing (thing)
    "Extend selection to the beginning of THING."
    (interactive (list (meow-thing-prompt "Extend to beginning of: ")))
    (if (not (use-region-p))
        (meow-beginning-of-thing thing)
      (save-window-excursion
        (let ((back (equal 'backward (meow--thing-get-direction 'beginning)))
              (bounds (meow--parse-inner-of-thing-char thing)))
          (let ((end (max (point) (mark))))
            (when bounds
              (thread-first
                (meow--make-selection '(select . transient)
                                      (if back end (car bounds))
                                      (if back (car bounds) end))
                (meow--select))))))))