\test ##[ < c \tweak #'transparent ##t e > #]
\test ##[ < \tweak #'color #'(1.0 0.0 0.0) \tweak #'duration-log #2 c > #]
\test ##[ c-\tweak #'font-size #3 -> #]
+\test ##[ < \tweak Accidental #'color #'(1.0 0.0 0.0) cis eis g > #]
%% end test.
--- /dev/null
+\header
+{
+
+ texidoc = "With the full form of the @code{\\tweak} function,
+individual grobs that are indirectly caused by events may be tuned."
+
+}
+
+\version "2.15.39"
+\paper {
+ ragged-right = ##t
+}
+
+\relative c''
+{
+ <
+ \tweak Accidental #'color #red cis4
+ \tweak Accidental #'color #green es
+ g
+ >4
+}
(define* (tweaks->lily-string expr #:optional (post-event? #f))
(format #f "~{~a ~}"
(map (lambda (tweak)
- (format #f "~a\\tweak #'~a #~a"
+ (format #f "~a\\tweak ~a #~a"
(if post-event? "-" "")
- (car tweak)
+ (if (pair? (car tweak))
+ (format #f "~a #'~a"
+ (caar tweak) (cdar tweak))
+ (format #f "#'~a" (car tweak)))
(scheme-expr->lily-string (cdr tweak))))
(ly:music-property expr 'tweaks))))