1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
;;;MakeDirectiveConditional
(let ()
(if (d-Directive-standalone?)
(begin
(if (Appending?)(d-MoveCursorLeft))
(SetDirectiveConditional "standalone" (d-DirectiveGetForTag-standalone)))
(if (Music?)
(let ((tag/type (d-ChooseTagAtCursor)))
(if tag/type
(SetDirectiveConditional (if (cdr tag/type) "note" "chord") (car tag/type))
(d-WarningDialog (_ "Cancelled"))))
(if (Clef?)
(SetDirectiveConditional "clef" (d-ChooseTagAtCursor))
(if (Timesignature?)
(SetDirectiveConditional "timesig" (d-ChooseTagAtCursor))
(if (Keysignature?)
(SetDirectiveConditional "keysig" (d-ChooseTagAtCursor))))))))
|
