From 495e117dfd75dc2d0eb6ef85b13a90a604d526e0 Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Thu, 20 Aug 2020 17:27:10 +0200
Subject: Macros for fixture attributes

---
 guile/starlet/fixture-library/generic.scm | 11 ++---------
 1 file changed, 2 insertions(+), 9 deletions(-)

(limited to 'guile/starlet/fixture-library')

diff --git a/guile/starlet/fixture-library/generic.scm b/guile/starlet/fixture-library/generic.scm
index b92569d..f90bf3a 100644
--- a/guile/starlet/fixture-library/generic.scm
+++ b/guile/starlet/fixture-library/generic.scm
@@ -4,16 +4,9 @@
   #:export (<generic-dimmer>))
 
 (define-class <generic-dimmer> (<fixture>)
-
   (attributes
-   #:init-form
-   (list
-
-    (make <fixture-attribute>
-      #:name 'intensity
-      #:range '(0 100)
-      #:type 'continuous
-      #:home-value 0))))
+   #:init-form (list
+                (attr-continuous 'intensity '(0 100) 0))))
 
 
 (define-method (scanout-fixture (fixture <generic-dimmer>)
-- 
cgit v1.2.3