Use Emacs comment convention (";; " instead of ";") in several files

Or reformat in other ways.

diff --git a/scm/chord-entry.scm b/scm/chord-entry.scm
index 28ae97442c50f1092af4af49e9dd1ba3e9249fbf..f8531e3f0fa8aa70fa400d47b21f0a36b9c2b992 100644 (file)
--- a/scm/chord-entry.scm
+++ b/scm/chord-entry.scm
@@ -196,7 +196,7 @@ DURATION, and INVERSION."
     nots))
 
 ;;;;;;;;;;;;;;;;
-; chord modifiers change the pitch list.
+;; chord modifiers change the pitch list.
 
 (define (aug-modifier pitches)
   (set! pitches (replace-step (ly:make-pitch 0 4 SHARP) pitches))

diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm
index c1afa7dda2302f88b58fdd42722e2193c2ac19f4..860879bcde7c92db39f977765e8eec4b771691bf 100644 (file)
--- a/scm/define-grobs.scm
+++ b/scm/define-grobs.scm
@@ -1693,8 +1693,8 @@
        (bound-alignment-interfaces . (note-column-interface))
        (horizontal-skylines . ,ly:separation-item::calc-skylines)
        (keep-inside-line . #t)
-       ; 0.08 comes from spacing-horizontal-skyline.ly
-       ; allows double flat of F to be nestled over dots of C
+       ;; 0.08 comes from spacing-horizontal-skyline.ly
+       ;; allows double flat of F to be nestled over dots of C
        (skyline-vertical-padding . 0.08)
        ;; (stencil . ,ly:paper-column::print)
        (X-extent . ,ly:axis-group-interface::width)
@@ -2017,8 +2017,8 @@
         (X-extent . ,(grob::inherit-parent-property
                       X 'X-extent))
        (extra-spacing-height . ,pure-from-neighbor-interface::extra-spacing-height)
-       ; we want this to be ignored, so empty, but the extra spacing height
-       ; should preserve the span bar's presence for horizontal spacing
+       ;; we want this to be ignored, so empty, but the extra spacing height
+       ;; should preserve the span bar's presence for horizontal spacing
        (Y-extent . ,pure-from-neighbor-interface::height-if-pure)
        (meta . ((class . Item)
                 (object-callbacks . ((pure-Y-common . ,ly:axis-group-interface::calc-pure-y-common)
@@ -2093,7 +2093,7 @@
 
            ;; The 'normal' minima
            (beamed-minimum-free-lengths . (1.83 1.5 1.25))
-                                       ;(beamed-minimum-free-lengths . (2.0 1.83 1.25))
+            ;;(beamed-minimum-free-lengths . (2.0 1.83 1.25))
 
            ;; The 'extreme case' minima
            (beamed-extreme-minimum-free-lengths . (2.0 1.25))

diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm
index 9184d6eeba3928d6c242038a13801573289dfb79..923212367e61d29add96bb6fddf52298e0cf9e09 100755 (executable)
--- a/scm/define-markup-commands.scm
+++ b/scm/define-markup-commands.scm
@@ -3036,11 +3036,11 @@ and continue with double letters.
 
 (define-public (horizontal-slash-interval num forward number-interval mag)
   (if forward
-    (cond ;((= num 6) (interval-widen number-interval (* mag 0.5)))
-          ;((= num 5) (interval-widen number-interval (* mag 0.5)))
+    (cond ;; ((= num 6) (interval-widen number-interval (* mag 0.5)))
+          ;; ((= num 5) (interval-widen number-interval (* mag 0.5)))
           (else (interval-widen number-interval (* mag 0.25))))
     (cond ((= num 6) (interval-widen number-interval (* mag 0.5)))
-          ;((= num 5) (interval-widen number-interval (* mag 0.5)))
+          ;; ((= num 5) (interval-widen number-interval (* mag 0.5)))
           (else (interval-widen number-interval (* mag 0.25))))
   ))
 
@@ -3050,15 +3050,15 @@ and continue with double letters.
               (ly:stencil-translate stencil (cons (* mag -0.00) (* mag 0.2))))
           ((= num 3)
               (ly:stencil-translate stencil (cons (* mag -0.00) (* mag 0.2))))
-          ;((= num 5)
-              ;(ly:stencil-translate stencil (cons (* mag -0.00) (* mag -0.07))))
-          ;((= num 7)
-          ;    (ly:stencil-translate stencil (cons (* mag -0.00) (* mag -0.15))))
+          ;; ((= num 5)
+          ;;     (ly:stencil-translate stencil (cons (* mag -0.00) (* mag -0.07))))
+          ;; ((= num 7)
+          ;;     (ly:stencil-translate stencil (cons (* mag -0.00) (* mag -0.15))))
           (else stencil))
     (cond ((= num 6)
               (ly:stencil-translate stencil (cons (* mag -0.00) (* mag 0.15))))
-          ;((= num 8)
-          ;    (ly:stencil-translate stencil (cons (* mag -0.00) (* mag -0.15))))
+          ;; ((= num 8)
+          ;;     (ly:stencil-translate stencil (cons (* mag -0.00) (* mag -0.15))))
           (else stencil))
   )
 )
@@ -3068,15 +3068,15 @@ and continue with double letters.
          (thickness (* mag
                        (ly:output-def-lookup layout 'line-thickness)
                        thickness))
-         ; backward slashes might use slope and point in the other direction!
+         ;; backward slashes might use slope and point in the other direction!
          (dy (* mag (if forward 0.4 -0.4)))
          (number-stencil (interpret-markup layout
                                            (prepend-alist-chain 'font-encoding 'fetaText props)
                                            (number->string num)))
          (num-x (horizontal-slash-interval num forward (ly:stencil-extent number-stencil X) mag))
          (center (interval-center (ly:stencil-extent number-stencil Y)))
-         ; Use the real extents of the slash, not the whole number, because we
-         ; might translate the slash later on!
+         ;; Use the real extents of the slash, not the whole number,
+         ;; because we might translate the slash later on!
          (num-y (interval-widen (cons center center) (abs dy)))
          (is-sane (and (interval-sane? num-x) (interval-sane? num-y)))
          (slash-stencil (if is-sane
@@ -3086,8 +3086,8 @@ and continue with double letters.
                             #f)))
     (if (ly:stencil? slash-stencil)
       (begin
-        ; for some numbers we need to shift the slash/backslash up or down to make
-        ; the slashed digit look better
+        ;; for some numbers we need to shift the slash/backslash up or
+        ;; down to make the slashed digit look better
         (set! slash-stencil (adjust-slash-stencil num forward slash-stencil mag))
         (set! number-stencil
           (ly:stencil-add number-stencil slash-stencil)))
@@ -3298,7 +3298,7 @@ Supported flag-styles are @code{default}, @code{old-straight-flag} and
   ;; From /scm/flag-styles.scm, modified to fit here.
 
       (let* ((stem-up (> dir 0))
-             ; scale with the note size
+             ;; scale with the note size
              (factor (magstep font-size))
              (stem-thickness (* factor 0.1))
              (line-thickness (ly:output-def-lookup layout 'line-thickness))
@@ -3311,9 +3311,9 @@ Supported flag-styles are @code{default}, @code{old-straight-flag} and
              (thickness-offset (cons 0 (* -1 thickness dir)))
              (spacing (* -1 flag-spacing factor dir))
              (start (cons (- half-stem-thickness) (* half-stem-thickness dir)))
-             ; The points of a round-filled-polygon need to be given in
-             ; clockwise order, otherwise the polygon will be enlarged by
-             ; blot-size*2!
+             ;; The points of a round-filled-polygon need to be given in
+             ;; clockwise order, otherwise the polygon will be enlarged by
+             ;; blot-size*2!
              (points (if stem-up (list start flag-end
                                        (offset-add flag-end thickness-offset)
                                        (offset-add start thickness-offset))
@@ -3322,7 +3322,7 @@ Supported flag-styles are @code{default}, @code{old-straight-flag} and
                                        (offset-add flag-end thickness-offset)
                                        flag-end)))
              (stencil (ly:round-filled-polygon points half-stem-thickness))
-             ; Log for 1/8 is 3, so we need to subtract 3
+             ;; Log for 1/8 is 3, so we need to subtract 3
              (flag-stencil (buildflags stencil (- log 3) stencil spacing)))
         flag-stencil))
 
@@ -3354,7 +3354,7 @@ Supported flag-styles are @code{default}, @code{old-straight-flag} and
          (attach-off (cons (interval-index
                              (ly:stencil-extent head-glyph X)
                              (* (sign dir) (car attach-indices)))
-                           ; fixme, this is inconsistent between X & Y.
+                           ;; fixme, this is inconsistent between X & Y.
                            (* (sign dir)
                               (interval-index
                                (ly:stencil-extent head-glyph Y)

diff --git a/scm/framework-eps.scm b/scm/framework-eps.scm
index 697073642df07ab515c26833d56636ccce4e5c77..44985d6568374a4f1617d9b6882f572a7eeecd11 100644 (file)
--- a/scm/framework-eps.scm
+++ b/scm/framework-eps.scm
@@ -152,7 +152,7 @@ alignment."
                          book
                          basename))
 
-; redefine to imports from framework-ps
+;; redefine to imports from framework-ps
 (define convert-to-pdf
   convert-to-pdf)
 

diff --git a/scm/framework-scm.scm b/scm/framework-scm.scm
index a47eb185fd602112956fff3bf14e4f5caf5d30d4..e50d69cfe7d8f3270db64dd0770b53d937d16a55 100644 (file)
--- a/scm/framework-scm.scm
+++ b/scm/framework-scm.scm
@@ -24,7 +24,7 @@
       (lambda (page)
        (display ";;;;;;;;;;;;;;;;;;;;;;;;;;\n;;;PAGE\n" file)
        ;; The following two lines are alternates
-       ;(pretty-print (ly:stencil-expr page) file)
+       ;;(pretty-print (ly:stencil-expr page) file)
        (write (ly:stencil-expr page) file)
        )
       (map page-stencil (ly:paper-book-pages book)))))

diff --git a/scm/harp-pedals.scm b/scm/harp-pedals.scm
index c2cfd499910d6527f748f8990aa12ccb14073cc0..2842269170c2d924f87792ead9fbf6aff43085ba 100644 (file)
--- a/scm/harp-pedals.scm
+++ b/scm/harp-pedals.scm
@@ -89,7 +89,7 @@ spacing after the divider).
                                      (stencils '())
                                      (circled #f)
                                      (space spacebeforedivider))
-          ; Terminal condition of the recursion, return (final-x . stencil-list)
+          ;; Terminal condition of the recursion, return (final-x . stencil-list)
           (if (null? remaining)
             (cons (+ prev-x space) (reverse stencils))
 
@@ -123,7 +123,7 @@ spacing after the divider).
                                  prev-x stencils circled space))))))
         (final-x (car result))
         (stencils (cdr result)))
-    ; Add the horizontal line and combine all stencils:
+    ;; Add the horizontal line and combine all stencils:
     (box-stencil
       (apply ly:stencil-add
         (cons
@@ -163,10 +163,10 @@ spacing after the divider).
 (define (harp-pedal-check pedal-list)
   "Perform some sanity checks for harp pedals (7 pedals, divider after third)"
   (let ((info (harp-pedal-info pedal-list)))
-    ; 7 pedals:
+    ;; 7 pedals:
     (if (not (equal? (car info) 7))
       (ly:warning "Harp pedal diagram contains ~a pedals rather than the usual 7." (car info)))
-    ; One divider after third pedal:
+    ;; One divider after third pedal:
     (if (null? (cdr info))
       (ly:warning "Harp pedal diagram does not contain a divider (usually after third pedal).")
       (if (not (equal? (cdr info) '(3)))

diff --git a/scm/output-lib.scm b/scm/output-lib.scm
index 6e2d06a66a81814a7fa711467f3a4e4864ce650d..d005de637bb41089170a83996d9b2f7a6bf5cd9b 100644 (file)
--- a/scm/output-lib.scm
+++ b/scm/output-lib.scm
@@ -625,7 +625,7 @@ and duration-log @var{log}."
 
 (define-public (rgb-color r g b) (list r g b))
 
-; predefined colors
+;; predefined colors
 (define-public black       '(0.0 0.0 0.0))
 (define-public white       '(1.0 1.0 1.0))
 (define-public red         '(1.0 0.0 0.0))
@@ -1039,7 +1039,7 @@ and draws the stencil based on its coordinates.
       1.0
       #f
       #f))
-  ; outer let to trigger suicide
+  ;; outer let to trigger suicide
   (let ((sten (ly:hairpin::print grob)))
     (if (grob::is-live? grob)
       (let* ((decresc? (eq? (ly:grob-property grob 'grow-direction) LEFT))

diff --git a/scm/paper.scm b/scm/paper.scm
index 4cd029b75e257b8e06fcf097e7b73ee8be15979f..83c404609647c77f971f6c0f068e7a9490f414da 100644 (file)
--- a/scm/paper.scm
+++ b/scm/paper.scm
@@ -15,7 +15,7 @@
 ;;;; You should have received a copy of the GNU General Public License
 ;;;; along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
 
-; for define-safe-public when byte-compiling using Guile V2
+;; for define-safe-public when byte-compiling using Guile V2
 (use-modules (scm safe-utility-defs))
 
 (define-public (set-paper-dimension-variables mod)

diff --git a/scm/song.scm b/scm/song.scm
index 35b7f2f6fa96da500336ea85d656dedfd4f8bea2..21cff9cfeddcd439772bbb6e8b27fe264d4f5532 100644 (file)
--- a/scm/song.scm
+++ b/scm/song.scm
@@ -259,9 +259,10 @@
   )
 
 (defstruct score-notes
-  note/rest-list ; list of note and rest instances
-  (verse-block-list '()) ; lyrics attached to notes -- multiple elements are
-                         ; possible for multiple stanzas
+  note/rest-list                        ; list of note and rest instances
+  (verse-block-list '())                ; lyrics attached to notes -- multiple
+                                        ; elements are possible for
+                                        ; multiple stanzas
   )
 
 (defstruct note

diff --git a/scm/to-xml.scm b/scm/to-xml.scm
index ea7ce7a0fcc33763c927980234ae9afdcf0c2ca0..6b6266d7407078b495ef736eb0c1153ee6adf411 100644 (file)
--- a/scm/to-xml.scm
+++ b/scm/to-xml.scm
@@ -26,7 +26,7 @@
 "
 Todo: this is a quick hack; it makes more sense to define a GOOPS
 class of a documentnode (similar to how
-; the documentation is generated.)
+the documentation is generated.)
 
 That is much cleaner: building the document, and dumping it to output
 is then separated.