From: Jan Nieuwenhuizen Date: Tue, 2 Jan 2007 09:49:24 +0000 (+0100) Subject: Add _i macro and instrument docstrings of ly/music-functions-init.ly. X-Git-Tag: release/2.11.8-1~34^2~3 X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=cadebf9f77a2202f999bf34d4e9fab4dfb3d8f11;p=lilypond.git Add _i macro and instrument docstrings of ly/music-functions-init.ly. --- diff --git a/ly/music-functions-init.ly b/ly/music-functions-init.ly index 05ed471320..725ba480a5 100644 --- a/ly/music-functions-init.ly +++ b/ly/music-functions-init.ly @@ -16,11 +16,10 @@ acciaccatura = addquote = #(define-music-function (parser location name music) (string? ly:music?) - "Add a piece of music to be quoted " + (_i "Add a piece of music to be quoted ") (add-quotable parser name music) (make-music 'SequentialMusic 'void #t)) - afterGraceFraction = #(cons 6 8) @@ -153,8 +152,7 @@ bendAfter = clef = #(define-music-function (parser location type) (string?) - - "Set the current clef." + (_i "Set the current clef.") (make-clef-set type)) @@ -194,9 +192,8 @@ displayMusic = featherDurations= #(define-music-function (parser location factor argument) (ly:moment? ly:music?) - - "Rearrange durations in ARGUMENT so there is an -acceleration/deceleration. " + (_i "Rearrange durations in ARGUMENT so there is an +acceleration/deceleration. ") (let* ((orig-duration (ly:music-length argument)) @@ -304,9 +301,9 @@ overrideProperty = (string? symbol? scheme?) - "Set @var{property} to @var{value} in all grobs named @var{name}. + (_i "Set @var{property} to @var{value} in all grobs named @var{name}. The @var{name} argument is a string of the form @code{\"Context.GrobName\"} -or @code{\"GrobName\"}" +or @code{\"GrobName\"}") (let* ((name-components (string-split name #\.)) @@ -346,7 +343,7 @@ removeWithTag = octave = #(define-music-function (parser location pitch-note) (ly:music?) - "octave check" + (_i "octave check") (make-music 'RelativeOctaveCheck 'origin location @@ -387,7 +384,7 @@ pitchedTrill = parenthesize = #(define-music-function (parser loc arg) (ly:music?) - "Tag @var{arg} to be parenthesized." + (_i "Tag @var{arg} to be parenthesized.") (set! (ly:music-property arg 'parenthesize) #t) arg) @@ -397,7 +394,7 @@ parenthesize = parallelMusic = #(define-music-function (parser location voice-ids music) (list? ly:music?) - "Define parallel music sequences, separated by '|' (bar check signs), + (_i "Define parallel music sequences, separated by '|' (bar check signs), and assign them to the identifiers provided in @var{voice-ids}. @var{voice-ids}: a list of music identifiers (symbols containing only letters) @@ -416,7 +413,7 @@ Example: B = { d d | e e | } C = { e e | f f | } @end verbatim -" +") (let* ((voices (apply circular-list (make-list (length voice-ids) (list)))) (current-voices voices) (current-sequence (list))) @@ -503,7 +500,7 @@ resetRelativeOctave = #(define-music-function (parser location reference-note) (ly:music?) - "Set the octave inside a \\relative section." + (_i "Set the octave inside a \\relative section.") (let* ((notes (ly:music-property reference-note 'elements)) @@ -521,8 +518,7 @@ resetRelativeOctave = shiftDurations = #(define-music-function (parser location dur dots arg) (integer? integer? ly:music?) - "" - + (_i "") (music-map (lambda (x) @@ -530,8 +526,8 @@ shiftDurations = spacingTweaks = #(define-music-function (parser location parameters) (list?) - "Set the system stretch, by reading the 'system-stretch property of - the `parameters' assoc list." + (_i "Set the system stretch, by reading the 'system-stretch property of +the `parameters' assoc list.") #{ \overrideProperty #"Score.NonMusicalPaperColumn" #'line-break-system-details @@ -543,8 +539,8 @@ spacingTweaks = includePageLayoutFile = #(define-music-function (parser location) () - "If page breaks and tweak dump is not asked, and the file - -page-layout.ly exists, include it." + (_i "If page breaks and tweak dump is not asked, and the file +-page-layout.ly exists, include it.") (if (not (ly:get-option 'dump-tweaks)) (let ((tweak-filename (format #f "~a-page-layout.ly" (ly:parser-output-name parser)))) @@ -560,7 +556,7 @@ includePageLayoutFile = rightHandFinger = #(define-music-function (parser location finger) (number-or-string?) - "Define a StrokeFingerEvent" + (_i "Define a StrokeFingerEvent") (apply make-music (append @@ -573,7 +569,7 @@ rightHandFinger = scoreTweak = #(define-music-function (parser location name) (string?) - "Include the score tweak, if exists." + (_i "Include the score tweak, if exists.") (if (and page-layout-parser (not (ly:get-option 'dump-tweaks))) (let ((tweak-music (ly:parser-lookup page-layout-parser (string->symbol name)))) @@ -587,11 +583,11 @@ transposedCueDuring = (parser location what dir pitch-note main-music) (string? ly:dir? ly:music? ly:music?) - "Insert notes from the part @var{what} into a voice called @code{cue}, + (_i "Insert notes from the part @var{what} into a voice called @code{cue}, using the transposition defined by @var{pitch-note}. This happens simultaneously with @var{main-music}, which is usually a rest. The argument @var{dir} determines whether the cue notes should be notated -as a first or second voice." +as a first or second voice.") (make-music 'QuoteMusic 'element main-music @@ -606,7 +602,7 @@ as a first or second voice." transposition = #(define-music-function (parser location pitch-note) (ly:music?) - "Set instrument transposition" + (_i "Set instrument transposition") (context-spec-music (make-property-set 'instrumentTransposition @@ -616,8 +612,7 @@ transposition = tweak = #(define-music-function (parser location sym val arg) (symbol? scheme? ly:music?) - "Add @code{sym . val} to the @code{tweaks} property of @var{arg}." - + (_i "Add @code{sym . val} to the @code{tweaks} property of @var{arg}.") (set! (ly:music-property arg 'tweaks) @@ -628,7 +623,7 @@ tweak = #(define-music-function (parser location sym val arg) tag = #(define-music-function (parser location tag arg) (symbol? ly:music?) - "Add @var{tag} to the @code{tags} property of @var{arg}." + (_i "Add @var{tag} to the @code{tags} property of @var{arg}.") (set! (ly:music-property arg 'tags) @@ -645,7 +640,7 @@ unfoldRepeats = withMusicProperty = #(define-music-function (parser location sym val music) (symbol? scheme? ly:music?) - "Set @var{sym} to @var{val} in @var{music}." + (_i "Set @var{sym} to @var{val} in @var{music}.") (set! (ly:music-property music sym) val) music) diff --git a/scm/lily.scm b/scm/lily.scm index 373012008b..401017181c 100644 --- a/scm/lily.scm +++ b/scm/lily.scm @@ -5,6 +5,14 @@ ;;;; (c) 1998--2006 Jan Nieuwenhuizen ;;;; Han-Wen Nienhuys +;; Internationalisation: (_i "to be translated") gets an entry in the +;; POT file (gettext ) must be invoked explicitely to do the actual +;; "translation". +;;(define-macro (_i x) x) +;;(define-macro-public _i (x) x) +;;(define-public-macro _i (x) x) +;; Abbrv-PWR! +(defmacro-public _i (x) x) (define (define-scheme-options) (for-each (lambda (x)