Subject: bug#45068: [PATCH] Modus themes 1.2.0

From: Gregory Heytings <[email-masked]>
Date: Fri, 05 Mar 2021 21:11:33 +0000

>>> +(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))))