org/modern-backend.org

@@ -215,7 +215,7 @@ and ~\\ for literal backslash.
 (test osc8-escape
   "OSC 8 hyperlink escape wraps text"
   (is (equal (cl-tty.backend::osc8-link "http://example.com" "click here")
-             (format nil "~C]8;;http://example.com~C\\click here~C]8;;~C\"
+             (format nil "~C]8;;http://example.com~C\click here~C]8;;~C\"
                      #\Esc #\Esc #\Esc #\Esc))))
 #+END_SRC
 
@@ -475,7 +475,7 @@ allows clickable text in terminals that support the protocol.
 #+BEGIN_SRC lisp :tangle ../src/backend/modern.lisp
 (defun osc8-link (url text)
   "Wrap TEXT in an OSC 8 hyperlink to URL."
-  (format nil "~C]8;;~A~C\\~A~C]8;;~C\\"
+  (format nil \"~C]8;;~A~C\\~A~C]8;;~C\\\"
           #\Esc url #\Esc text #\Esc #\Esc))
 #+END_SRC
 

src/backend/modern-tests.lisp

@@ -72,7 +72,7 @@
 (test osc8-escape
   "OSC 8 hyperlink escape wraps text"
   (is (equal (cl-tty.backend::osc8-link "http://example.com" "click here")
-             (format nil "~C]8;;http://example.com~C\\click here~C]8;;~C\"
+             (format nil "~C]8;;http://example.com~C\click here~C]8;;~C\"
                      #\Esc #\Esc #\Esc #\Esc))))
 
 (test hex-color-parsing

src/backend/modern.lisp

@@ -90,7 +90,7 @@ as a fallback when a keyword is not in *named-colors*.")
 
 (defun osc8-link (url text)
   "Wrap TEXT in an OSC 8 hyperlink to URL."
-  (format nil "~C]8;;~A~C\\~A~C]8;;~C\\"
+  (format nil \"~C]8;;~A~C\\~A~C]8;;~C\\\"
           #\Esc url #\Esc text #\Esc #\Esc))
 
 (defparameter *border-chars*