Rietveld Code Review Tool
Help | Bug tracker | Discussion group | Source code | Sign in
(87)

Unified Diff: scm/framework-scm.scm

Issue 567140045: Move Guile-style modules from scm to scm-modules
Patch Set: Created 4 years, 2 months ago
Use n/p to move between diff chunks; N/P to move between comments. Please Sign in to add in-line comments.
Jump to:
View side-by-side diff with in-line comments
Download patch
« no previous file with comments | « scm/framework-ps.scm ('k') | scm/framework-socket.scm » ('j') | no next file with comments »
Expand Comments ('e') | Collapse Comments ('c') | Show Comments Hide Comments ('s')
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)
« no previous file with comments | « scm/framework-ps.scm ('k') | scm/framework-socket.scm » ('j') | no next file with comments »

Powered by Google App Engine
RSS Feeds Recent Issues | This issue
This is Rietveld f62528b