add Source Code Pro in the list of supporting fonts

README.org

@@ -386,13 +386,14 @@ Not all fonts are born equal.
 - =(set-frame-font "JuliaMono"          )=
 - =(set-frame-font "FreeMono"           )=
 - =(set-frame-font "Iosevka Comfy Fixed")=
+- =(set-frame-font "Source Code Pro"    )=
 
 Those fonts are known to support the required UNICODE characters, AND
 display them as monospace. There are fonts advertized as monospace
 which give arbitrary widths to non-ASCII characters. That is bad for
 the kind of drawings done by =Uniline=.
 
-You may want to try any of the 9 suggested fonts. Just hit the
+You may want to try any of the 10 suggested fonts. Just hit the
 corresponding entry in the =Uniline= menu, or type =<insert>f=. You may
 also execute the above Lisp commands like that:
 

uniline.el

@@ -56,6 +56,7 @@
 ;; - JuliaMono
 ;; - FreeMono
 ;; - Iosevka Comfy Fixed
+;; - Source Code Pro
 ;;
 ;; Also, the encoding of the file must support UNICODE.
 ;; One way to do that, is to add a line like this one
@@ -1807,12 +1808,13 @@ See `uniline--insert-glyph'."
 (defhydra uniline-hydra-fonts
   (:hint nil
    :exit nil)
-  "
-╭^Try a font╶^──^─^────────────^─^───────────────╮╭^─^───^─^──────╮
-│_d_ DejaVu     _j_ JuliaMono  _u_ Unifont       ││_*_ ^^configure│
-│_h_ Hack       _b_ JetBrains  _a_ Agave         ││_RET_ _q_ exit │
-│_c_ Cascadia   _f_ FreeMono   _i_ Iosevka Comfy │╰^─^───^─^──────╯
-╰^─^────────────^─^────────────^─^───────────────╯"
+"
+╭^─Try a font^─╮^ ^           ╭^─^──────────────╮╭^─^───^─^──────╮
+│_d_ DejaVu    ╰^─^───────────╯_i_ Iosevka Comfy││_*_ ^^configure│
+│_h_ Hack       _b_ JetBrains  _u_ Unifont      ││_RET_ _q_ exit │
+│_c_ Cascadia   _f_ FreeMono   _a_ Agave        │╰^─^───^─^──────╯
+│_j_ JuliaMono  _s_ Source Code Pro^^╭──────────╯
+╰^─^────────────^─^────────────^─^───╯"
   ("d" (set-frame-font "DejaVu Sans Mono"))
   ("u" (set-frame-font "Unifont"         ))
   ("h" (set-frame-font "Hack"            ))
@@ -1822,6 +1824,7 @@ See `uniline--insert-glyph'."
   ("j" (set-frame-font "JuliaMono"       ))
   ("f" (set-frame-font "FreeMono"        ))
   ("i" (set-frame-font "Iosevka Comfy Fixed"))
+  ("s" (set-frame-font "Source Code Pro" ))
   ("*" uniline-customize-face :exit t)
   ("q"   () :exit t)
   ("RET" () :exit t))
@@ -2163,7 +2166,8 @@ And backup previous settings."
      ["set font Agave"                (set-frame-font "Agave"           )]
      ["set font JuliaMono"            (set-frame-font "JuliaMono"       )]
      ["set font FreeMono"             (set-frame-font "FreeMono"        )]
-     ["set font Iosevka Comfy Fixed"  (set-frame-font "Iosevka Comfy Fixed")])
+     ["set font Iosevka Comfy Fixed"  (set-frame-font "Iosevka Comfy Fixed")]
+     ["set font Source Code Pro"      (set-frame-font "Source Code Pro" )])
     "----"
     ["quit Uniline Mode" uniline-mode t] ))