(let ((value (car args))
(path (cdr args)))
(string-append
- "@item Sets "
- (format "grob property @code{~a} "
+ (format "@item Sets grob property @code{~a} "
(grob-property-path path))
- (format "in @code{@rinternals{~a}} to ~a."
- name-sym
- (scm->texi value))
- "\n")))
+ (format "in @code{@rinternals{~a}} to" name-sym)
+ (if (pretty-printable? value)
+ (format ":~a\n" (scm->texi value))
+ (format " ~a.\n" (scm->texi value))))))
((pop)
(string-append
- "@item Reverts "
- (format "grob property @code{~a} "
+ (format "@item Reverts grob property @code{~a} "
(grob-property-path (car args)))
- (format "in @code{@rinternals{~a}}."
- name-sym)
- "\n"))
+ (format "in @code{@rinternals{~a}}.\n"
+ name-sym)))
((assign)
- (format "@item Sets translator property @code{~a} to ~a.\n"
- name-sym
- (scm->texi (car args))))
+ (string-append
+ (format "@item Sets translator property @code{~a} to" name-sym)
+ (if (pretty-printable? value)
+ (format ":~a\n" (scm->texi (car args)))
+ (format " ~a.\n" (scm->texi (car args))))))
((unset)
(format "@item Unsets translator property @code{~a}.\n"
name-sym))