Clear fret-diagram- and harp-pedal-input-strings from whitespace

scm/lily-library.scm

 ;;;; This file is part of LilyPond, the GNU music typesetter.
 ;;;;
 ;;;; Copyright (C) 1998--2015 Jan Nieuwenhuizen <janneke@gnu.org>
 ;;;; Han-Wen Nienhuys <hanwen@xs4all.nl>
 ;;;;
 ;;;; LilyPond is free software: you can redistribute it and/or modify
 ;;;; it under the terms of the GNU General Public License as published by
 ;;;; the Free Software Foundation, either version 3 of the License, or
 ;;;; (at your option) any later version.
 ;;;;
@@ skipping 768 matching lines @@
 ;; string
 
 (define-public (string-endswith s suffix)
   (equal? suffix (substring s
                             (max 0 (- (string-length s) (string-length suffix)))
                             (string-length s))))
 
 (define-public (string-startswith s prefix)
   (equal? prefix (substring s 0 (min (string-length s) (string-length prefix)))))
 
-(define-public (remove-white-space strg)
-"Remove characters satisfying @code{char-set:whitespace} from string @var{strg}"
+(define-public (remove-whitespace strg)
+"Remove characters satisfying @code{char-whitespace?} from string @var{strg}"
   (string-delete
     strg
-    char-set:whitespace))

[dak, 2015/08/26 08:55:13]

A mostly theoretic musing: in the predicates documented in NR, we have
`char-whitespace?' listed in "R5RS secondary predicates".

I don't know how it's implemented, but if people compare results,
char-whitespace? might be the expected point of reference and it's not like this
is performance-critical.

Using that would mean one less function in our codebase for the same
functionality.

I just thought I'd mention it: it's by no means a necessary change or even a
showstopper.

+    char-whitespace?))
 
 (define-public (string-encode-integer i)
   (cond
    ((= i  0) "o")
    ((< i 0)   (string-append "n" (string-encode-integer (- i))))
    (else (string-append
           (make-string 1 (integer->char (+ 65 (modulo i 26))))
           (string-encode-integer (quotient i 26))))))
 
 (define (number->octal-string x)
@@ skipping 217 matching lines @@
     (debugf "scaling:~S\n" scaling)
     (debugf "magnification:~S\n" magnification)
     (debugf "design:~S\n" designsize)
     scaling))
 
 (define-public (version-not-seen-message input-file-name)
   (ly:warning-located
    (ly:format "~a:1" input-file-name)
    (_ "no \\version statement found, please add~afor future compatibility")
    (format #f "\n\n\\version ~s\n\n" (lilypond-version))))
+
+(define-public (output-module? module)
+  "Returns @code{#t} if @var{module} belongs to an output module
+usually carrying context definitions (@code{\\midi} or
+@code{\\layout})."
+  (or (module-ref module 'is-midi #f)
+      (module-ref module 'is-layout #f)))