bug#45068: [PATCH] Modus themes 1.2.0

[Gregory Heytings]

> > > +(deftheme modus-vivendi
> > > +  "Accessible and customizable light theme (WCAG AAA standard).
> >                                   ^^^^^
> >                                   dark
>
> [ Answer only if it is easy: how do you draw those ^^^ below the text? ]

(defun undercaret (&optional arg)
  (interactive "p")
  (let* ((b (region-beginning))
         (e (region-end))
         (c (save-excursion (goto-char b) (current-column))))
    (when (and (region-active-p)
               (= (line-number-at-pos b) (line-number-at-pos e)))
      (forward-line 1)
      (dotimes (_ c) (insert " "))
      (dotimes (_ (- e b)) (insert "^"))
      (insert "\n")
      (when (/= arg 1)
        (dotimes (_ c) (insert " "))
        (insert "\n"))
      (backward-char))))