From 16c8aad4730d0106adb9833a049d40bf880bcfa9 Mon Sep 17 00:00:00 2001
From: hanwen <hanwen>
Date: Mon, 6 Jun 2005 16:29:19 +0000
Subject: [PATCH] reformat.
---
ChangeLog | 2 ++
scm/x11-color.scm | 61 ++++++++++++++++++++++-------------------------
2 files changed, 30 insertions(+), 33 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index b547a32537..e9af8fbcc7 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
2005-06-06 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ * scm/x11-color.scm: reformat.
+
* lily/ledger-line-engraver.cc (acknowledge_grob): create new
LedgerLineSpanner if new StaffSymbol is found.
diff --git a/scm/x11-color.scm b/scm/x11-color.scm
index e738d35d67..f90ddc0a0e 100644
--- a/scm/x11-color.scm
+++ b/scm/x11-color.scm
@@ -666,41 +666,36 @@
(DarkCyan 0 0.54509803921568623 0.54509803921568623)
(DarkMagenta 0.54509803921568623 0 0.54509803921568623)
(DarkRed 0.54509803921568623 0 0)
- (LightGreen 0.56470588235294117 0.93333333333333335 0.56470588235294117))))
+ (LightGreen 0.56470588235294117 0.93333333333333335 0.56470588235294117)
+
+ )))
+
+
(lambda (arg)
(let*
- ((arg-sym
- (if
- (string? arg)
- (if
- (string-index arg #\ )
- (begin
- (string-capitalize! arg)
- (let
- ((arg-list (string-split arg #\ )))
- (string->symbol
- (let append-all ((x arg-list))
- (if
- (null? x)
- ""
- (string-append (car x) (append-all (cdr x))))))))
- (string->symbol arg))
- arg))
+ ((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))))
- (hashq-create-handle! x11-color-table arg-sym temp)
- temp))))))
+
+ (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))))))
(define-public x11-color (make-x11-color-handler))
--
2.39.5