From 9cd6573d5d2b87683a40330319ea0f9846928a95 Mon Sep 17 00:00:00 2001
From: carbonfet <59760875+carbonfet@users.noreply.github.com>
Date: Mon, 10 Feb 2020 22:49:16 -0500
Subject: [PATCH] Update dactyl.clj

moved definitions for larger-plate and larger-plate-half
---
 src/dactyl_keyboard/dactyl.clj | 34 +++++++++++++++++-----------------
 1 file changed, 17 insertions(+), 17 deletions(-)

diff --git a/src/dactyl_keyboard/dactyl.clj b/src/dactyl_keyboard/dactyl.clj
index 999b366..62f303d 100644
--- a/src/dactyl_keyboard/dactyl.clj
+++ b/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
\ No newline at end of file
+(defn -main [dum] 1)  ; dummy to make it easier to batch