X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fx11-color.scm;h=b9cb8abfb8e651f302e6b4ed2259cce8c29dbe6a;hb=5d84bfad4626892bcffd05adcced53c8a2329047;hp=dee58506bee36a4f0c0df307a042372d68cfff80;hpb=0e5d83a9ceb4a143f83d22406d7eb816314ff9f7;p=lilypond.git

diff --git a/scm/x11-color.scm b/scm/x11-color.scm
index dee58506be..b9cb8abfb8 100644
--- a/scm/x11-color.scm
+++ b/scm/x11-color.scm
@@ -1,12 +1,21 @@
+;;;; This file is part of LilyPond, the GNU music typesetter.
 ;;;;
-;;;;  x11-color.scm -- allows access to x11 color codes
+;;;; Copyright (C) 2005--2015 Bernard Hurley <bernard@fong-hurley.org.uk>
 ;;;;
-;;;;  source file of the GNU LilyPond music typesetter
-;;;; 
-;;;; (c) 2005--2009 Bernard Hurley <bernard@fong-hurley.org.uk>
+;;;; 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.
 ;;;;
+;;;; LilyPond is distributed in the hope that it will be useful,
+;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;;; GNU General Public License for more details.
+;;;;
+;;;; You should have received a copy of the GNU General Public License
+;;;; along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
 
-(define x11-color-list 	    
+(define x11-color-list
   '((snow 1 0.98039215686274506 0.98039215686274506)
     (GhostWhite 0.97254901960784312 0.97254901960784312 1)
     (WhiteSmoke 0.96078431372549022 0.96078431372549022 0.96078431372549022)
@@ -668,32 +677,32 @@
 (define (make-x11-color-handler)
   (let
       ((x11-color-table (make-hash-table 31)))
-    
+
     (lambda (arg)
-      (let* 
-	  ((arg-sym (if (string? arg)
-			(if (string-index arg #\ )
-			    (let
-				((arg-list (string-split (string-capitalize arg) #\ )))
+      (let*
+          ((arg-sym (if (string? arg)
+                        (if (string-index arg #\ )
+                            (let
+                                ((arg-list (string-split (string-capitalize arg) #\ )))
+
+                              (string->symbol
+                               (let append-all ((x arg-list))
+                                 (if (null? x)
+                                     ""
+                                     (string-append (car x) (append-all (cdr x)))))))
+
+                            (string->symbol arg))
+                        arg))
+
+           (temp (hashq-ref x11-color-table arg-sym)))
+
+        (if temp
+            temp
+            (let*
+                ((temp-1 (assq-ref x11-color-list arg-sym))
+                 (temp (if temp-1 temp-1 '(0 0 0))))
 
-			      (string->symbol 
-			       (let append-all ((x arg-list))
-				 (if (null? x)
-				     ""
-				     (string-append (car x) (append-all (cdr x)))))))
-			    
-			    (string->symbol arg))
-			arg))
-	   
-	   (temp (hashq-ref x11-color-table arg-sym)))
-	
-	(if temp
-	    temp
-	    (let*
-		((temp-1 (assq-ref x11-color-list arg-sym))
-		 (temp (if temp-1 temp-1 '(0 0 0))))
-	      
-	      (hashq-create-handle! x11-color-table arg-sym temp)
-	      temp))))))
+              (hashq-create-handle! x11-color-table arg-sym temp)
+              temp))))))
 
 (define-public x11-color (make-x11-color-handler))