1 files changed, 114 insertions, 0 deletions
diff --git a/kate/tests/highlight.ly b/kate/tests/highlight.ly
new file mode 100644
index 000000000..29aa7a6ea
--- /dev/null
+++ b/kate/tests/highlight.ly
@@ -0,0 +1,114 @@
+% This is a file to test the Lilypond highlighting features of Katepart.
+% This is NOT a valid lilypond file, because it also shows the
+% highlighting of some invalid lilypond constructs!
+% This is a line comment.
+
+%{
+this is a block comment, that can occur inside a line, or across
+multiple lines.
+%}
+
+\header {
+  title = "Katepart Lilypond syntax highlighting test file"
+  composer = %{"Wilbert Berendsen"%} "Anonymus"
+  poet = "The KDE team"
+  opus = "1"
+  copyright = "Share and enjoy!"
+}
+
+\paper {
+  #(set-paper-size "a4")  % a hash introduces scheme
+  indent = 0              % recognize variable names inside \paper, \layout etc.
+  between-system-space = 3\mm
+}
+
+\layout {
+  \context {
+    \Score
+    \remove Bar_number_engraver   % recognize engraver names
+    \remove "Bar_number_engraver" % also when quoted!
+  }
+}
+
+% { and << block are folded
+\score {
+  \new StaffGroup <<
+    \new ChordNames \chordmode { c2sus4/f g2/d c1 }
+    \new Staff \new Voice ="mel" {
+      \key f \major
+      \time 4/4
+      \partial 4
+      \set Staff.instrumentName = "Bla."
+      \once \override Staff.NoteHead #'color = #red
+      % dynamics, articulations and markup
+      c8\p d\< e-. f-> g a\f c-5\markup {Hoi}
+      \notemode { c d e f }
+      \repeat volta 2 {
+        % complex durations are highlighted:
+        g4*2/3
+      }
+      \times 2/3 {e8 f g}
+      % there is some error checking:
+      % often made mistake to have octavemarks after the duration:
+      c2'
+      % invalid durations are caught:
+      g3
+    }
+    \context Lyrics \lyricsto "mel" {
+      \set fontSize = #1
+      this is a line of ly -- rics.
+      with4 dur -- a -- tions.2.
+      % errors like forgetting spaces are found:
+      space-- flight %{i.s.o.%} space -- flight
+      space at end for -- got -- ten as well.}
+    
+    \new DrumStaff \drummode { hihat4 bassdrum8 }
+    \new FiguredBass \figuremode {
+      <5 4>8 <6->
+    }
+  >>
+  \midi {
+    \context {
+      \Score
+      tempoWholesPerMinute = #(ly:make-moment 60 2)
+    }
+  }
+}
+
+av = #(define-music-function (parser location voice)
+(string?)
+; scheme comments are recognized in scheme
+; Lilypond inside scheme works as well:
+#{
+  \set associatedVoice = $voice
+#})
+
+
+
+      
+% inside scheme some elements are highlighted:    
+#(define  (naturalise-pitch p)
+  (let* ((o (ly:pitch-octave p))
+         (a (* 4 (ly:pitch-alteration p))) 
+         (n (ly:pitch-notename p)))
+         (bla 'ArticulationEvent 'ChoirStaff)
+    (cond
+     ((> a 2) (set! a (- a 4)) (set! n (+ n 1)))
+     ((< a -2) (set! a (+ a 4)) (set! n (- n 1))))
+
+    (if (< n 0) (begin (set!  o (- o 1)) (set! n (+ n 7))))
+    (if (> n 6) (begin (set!  o (+ o 1)) (set! n (- n 7))))
+
+    (ly:make-pitch o n (/ a 4))))
+
+% markup is also highlighted
+\markup {
+  \line {
+    text test Voice Staff % note Lilypond keywords are not highlighted here
+  }
+  \score { \relative c' { <ceg>2( d) } }
+  \italic bla
+  \override #'(baseline-skip . 2) {
+    \underline blu
+  }
+}