1 %------------------------------------------------------------------%
2 % opus_libre -- include.ly %
4 % (c) 2008-2011 Valentin Villenave <valentin@villenave.net> %
6 % opus_libre is a free framework for GNU LilyPond: you may %
7 % redistribute it and/or modify it under the terms of the GNU %
8 % General Public License as published by the Free Software %
9 % Foundation, either version 3 of the License, or (at your option) %
10 % any later version. %
11 % This program is distributed WITHOUT ANY WARRANTY; without %
12 % even the implied warranty of MERCHANTABILITY or FITNESS FOR A %
13 % PARTICULAR PURPOSE. You should have received a copy of the GNU %
14 % General Public License along with this program (typically in the %
15 % share/doc/ directory). If not, see http://www.gnu.org/licenses/ %
17 %------------------------------------------------------------------%
19 % Inclusion functions.
22 %% FIXME: relative includes don't work in Scheme -- Issue 1078.
23 #(ly
:set-option
'relative-includes
#f)
24 #(ly
:set-option
'delete-intermediate-files
#t
)
25 %#(ly:set-option 'ignore-output-dir #t)
26 %#(ly:set-option 'use-variable-names #t)
27 %#(ly:set-option 'allow-suffixless-varnames #t)
28 %#(ly:set-option 'no-auto-piano-dynamics#t)
29 %#(ly:set-option 'git-branch-as-score-name #t)
30 %#(ly:set-option 'untainted #t)
32 %%%%%%%%%%%%%%%%%%%%%%%%%% Base includes %%%%%%%%%%%%%%%%%%%%%%%%%%%
34 %% Base libraries -------------------------------------------------%
37 %%%%%%%%%%%%%%%%%%%%%%%%%% Load libraries %%%%%%%%%%%%%%%%%%%%%%%%%%
39 #(load
"lib/init.scm")
40 #(include-scm conf
:lib-dir
#t
)
41 %%%%%%%%%%%%%%%%%%%%%% Define music-functions %%%%%%%%%%%%%%%%%%%%%%
43 %% Required by main.ly --------------------------------------------%
45 % #(define-music-function (lang-code) (string?)
46 % (input-language lang-code)
47 % (make-sequential-music 'void #t))
50 % #(define-music-function (lang-code) (string?)
51 % (edition-language lang-code)
52 % (make-sequential-music 'void #t))
55 % #(define-music-function (dir) (string?)
56 % (use-score-dir dir))
58 % #(define (exists? loc) (access? loc F_OK))
60 % #(define (load-lib dir file)
61 % (let* ((path (string-append dir "/" file ".scm")))
64 % (if debug-messages (ly:message "Loading ~a..." path)))
65 % (if debug-messages (ly:message "File not found: ~a" path)))))
72 % (map (lambda (x) (load-lib conf:lib-dir x))
76 %------------------------------------------------------------------%