- (format "~a ~a ~a ~a (textedit://~a:~a:~a) mark_URI\n"
- (+ (car offset) (car x-ext))
- (+ (cdr offset) (car y-ext))
- (+ (car offset) (cdr x-ext))
- (+ (cdr offset) (cdr y-ext))
- file
+ (format "~a ~a ~a ~a (textedit://~a:~a:~a:~a) mark_URI\n"
+ (ly:number->string (+ (car offset) (car x-ext)))
+ (ly:number->string (+ (cdr offset) (car y-ext)))
+ (ly:number->string (+ (car offset) (cdr x-ext)))
+ (ly:number->string (+ (cdr offset) (cdr y-ext)))
+
+ ;; TODO
+ ;; full escaping.
+ (string-regexp-substitute " " "%20" file)