lib/include.ly

   1 %------------------------------------------------------------------%
   2 % opus_libre -- include.ly                                         %
   3 %                                                                  %
   4 % (c) 2008-2011 Valentin Villenave <valentin@villenave.net>        %
   5 %                                                                  %
   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/ %
  16 %                                                                  %
  17 %------------------------------------------------------------------%
  18
  19 % Inclusion functions.
  20
  21
  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)
  31
  32 %%%%%%%%%%%%%%%%%%%%%%%%%% Base includes %%%%%%%%%%%%%%%%%%%%%%%%%%%
  33
  34 %% Base libraries -------------------------------------------------%
  35
  36
  37 %%%%%%%%%%%%%%%%%%%%%%%%%% Load libraries %%%%%%%%%%%%%%%%%%%%%%%%%%
  38
  39 #(load "lib/init.scm")
  40 #(include-scm conf:lib-dir #t)
  41 %%%%%%%%%%%%%%%%%%%%%% Define music-functions %%%%%%%%%%%%%%%%%%%%%%
  42
  43 %% Required by main.ly --------------------------------------------%
  44 % lang =
  45 % #(define-music-function (lang-code) (string?)
  46 %   (input-language lang-code)
  47 %   (make-sequential-music 'void #t))
  48 %
  49 % edition =
  50 % #(define-music-function (lang-code) (string?)
  51 %   (edition-language lang-code)
  52 %   (make-sequential-music 'void #t))
  53 %
  54 % make =
  55 % #(define-music-function (dir) (string?)
  56 %   (use-score-dir dir))
  57
  58 % #(define (exists? loc) (access? loc F_OK))
  59 %
  60 % #(define (load-lib dir file)
  61 %   (let* ((path (string-append dir "/" file ".scm")))
  62 %    (if (exists? path)
  63 %      (begin (load path)
  64 %        (if debug-messages (ly:message "Loading ~a..." path)))
  65 %      (if debug-messages (ly:message "File not found: ~a" path)))))
  66 %
  67 % #(let* ((files '(
  68 %   "score"
  69 %   "fstree"
  70 %   "readconf"
  71 %   "")))
  72 %   (map (lambda (x) (load-lib conf:lib-dir x))
  73 %        files))
  74
  75
  76 %------------------------------------------------------------------%
  77