1;;;LilyPondDefinition 2(let ((name #f)(def #f)) 3 (if (and (defined? 'LilyPondDefinition::params) (pair? LilyPondDefinition::params)) 4 (begin 5 (set! name (car LilyPondDefinition::params)) 6 (set! def (cdr LilyPondDefinition::params))) 7 (begin 8 (set! name (d-GetUserInput (_ "Creating LilyPond Definition") (_ "Give name (alphabetical only): ") "Barline")) 9 (if name 10 (set! def (d-GetUserInput (_ "Creating LilyPond Definition") (_ "Give valid LilyPond syntax for this definition: ") "\\bar \"||\""))))) 11 (if def 12 (let ( (tag (string-append "Allow\n" name))) 13 (set! def (string-trim-both def char-set:whitespace)) 14 (if (string-null? def) 15 (set! def "{}")) 16 (d-DirectivePut-score-prefix tag (string-append name " = " def "\n")) 17 (d-DirectivePut-score-display tag name) 18 (d-DirectivePut-score-override tag DENEMO_OVERRIDE_AFFIX) 19 (d-SetSaved #f))))