Update dactyl.clj

moved definitions for larger-plate and larger-plate-half

src/dactyl_keyboard/dactyl.clj

@@ -128,22 +128,6 @@
       top-nub-pair
       (rotate (/ π 2) [0 0 1])))))
 
-(def larger-plate
-  (let [plate-height (/ (- sa-double-length mount-height) 3)
-        top-plate (->> (cube mount-width plate-height web-thickness)
-                       (translate [0 (/ (+ plate-height mount-height) 2)
-                                   (- plate-thickness (/ web-thickness 2))]))
-        ]
-    (union top-plate (mirror [0 1 0] top-plate))))
-
-(def larger-plate-half
-  (let [plate-height (/ (- sa-double-length mount-height) 3)
-        top-plate (->> (cube mount-width plate-height web-thickness)
-                       (translate [0 (/ (+ plate-height mount-height) 2)
-                                   (- plate-thickness (/ web-thickness 2))]))
-        ]
-    (union top-plate (mirror [0 0 0] top-plate))))
-
 ;;;;;;;;;;;;;;;;
 ;; SA Keycaps ;;
 ;;;;;;;;;;;;;;;;
@@ -481,6 +465,22 @@
    (thumb-tr-place shape)
    (thumb-tl-place shape)))
 
+(def larger-plate
+  (let [plate-height (/ (- sa-double-length mount-height) 3)
+        top-plate (->> (cube mount-width plate-height web-thickness)
+                       (translate [0 (/ (+ plate-height mount-height) 2)
+                                   (- plate-thickness (/ web-thickness 2))]))
+        ]
+    (union top-plate (mirror [0 1 0] top-plate))))
+
+(def larger-plate-half
+  (let [plate-height (/ (- sa-double-length mount-height) 3)
+        top-plate (->> (cube mount-width plate-height web-thickness)
+                       (translate [0 (/ (+ plate-height mount-height) 2)
+                                   (- plate-thickness (/ web-thickness 2))]))
+        ]
+    (union top-plate (mirror [0 0 0] top-plate))))
+
 (def thumbcaps
   (union
    (thumb-1x-layout (sa-cap 1))
@@ -1148,4 +1148,4 @@
 
 
 
-(defn -main [dum] 1)  ; dummy to make it easier to batch
+(defn -main [dum] 1)  ; dummy to make it easier to batch