Index: scm/framework-scm.scm |
diff --git a/scm/framework-scm.scm b/scm/framework-scm.scm |
deleted file mode 100644 |
index 915e97ded39ae23b439b7d7319c0cf0cc83e9161..0000000000000000000000000000000000000000 |
--- a/scm/framework-scm.scm |
+++ /dev/null |
@@ -1,36 +0,0 @@ |
-;;;; framework-scm.scm -- output full-page stencil expressions |
- |
-(define-module (scm framework-scm)) |
- |
-(use-modules |
- (ice-9 regex) |
- (ice-9 string-fun) |
- (guile) |
- (srfi srfi-1) |
- (ice-9 pretty-print) |
- (srfi srfi-13) |
- (scm page) |
- (lily)) |
- |
-(define format ergonomic-simple-format) |
- |
-(define-public (output-framework basename book scopes fields) |
- (let* ((file (open-output-file (format #f "~a.scm" basename)))) |
- |
- (display ";;Creator: LilyPond\n" file) |
- (display ";; raw SCM output\n" file) |
- |
- (for-each |
- (lambda (page) |
- (display ";;;;;;;;;;;;;;;;;;;;;;;;;;\n;;;PAGE\n" file) |
- ;; The following two lines are alternates |
- ;;(pretty-print (ly:stencil-expr page) file) |
- (write (ly:stencil-expr page) file) |
- ) |
- (map page-stencil (ly:paper-book-pages book))))) |
- |
-(define-public output-classic-framework output-framework) |
- |
-(define-public (convert-to-ps . args) #t) |
-(define-public (convert-to-pdf . args) #t) |
-(define-public (convert-to-png . args) #t) |