release: 1.3.28

[lilypond.git] / scm / lily.scm

diff --git a/scm/lily.scm b/scm/lily.scm
index a57d0e9e081e97cad323e2ee79ac7f2c2489a0fd..582c55e24be4b06338f12212a772ebdde8450925 100644 (file)
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -215,8 +215,36 @@
         (map (lambda (x)
                (font-load-command (car x) (cdr x))) font-name-alist)
   ))
-  
 
+(define (fontify name exp)
+  (string-append (select-font name)
+                exp)
+  )
+
+;;;;;;;;;;;;;;;;;;;;
+
+
+; Make a function that checks score element for being of a specific type. 
+(define (make-type-checker name)
+  (lambda (elt)
+    (not (not (memq name (ly-get-elt-property elt 'interfaces))))))
+
+       
+
+
+
+
+
+
+
+
+;;;;;;;;;;;;;;;;;;; generic output
+
+(define (translate-atom offset exp)
+  exp)
+
+
+;;;;;;;;;;;;;;;;;;; TeX output
 (define (tex-scm action-name)
   (define (unknown) 
     "%\n\\unknown%\n")