Refactor pinky connectors

src/dactyl_keyboard/dactyl.clj

@@ -274,27 +274,6 @@
          (map (partial apply hull)
               (partition 3 1 shapes))))
 
-(def pinky-connectors
-  (apply union
-         (concat
-          ;; Row connections
-          (for [row (range 0 lastrow)]
-            (triangle-hulls
-             (key-place lastcol row web-post-tr)
-             (key-place lastcol row wide-post-tr)
-             (key-place lastcol row web-post-br)
-             (key-place lastcol row wide-post-br)))
-
-          ;; Column connections
-          (for [row (range 0 cornerrow)]
-            (triangle-hulls
-             (key-place lastcol row web-post-br)
-             (key-place lastcol row wide-post-br)
-             (key-place lastcol (inc row) web-post-tr)
-             (key-place lastcol (inc row) wide-post-tr)))
-
-         )))
-
 (def connectors
   (apply union
          (concat
@@ -323,8 +302,7 @@
              (key-place column row web-post-br)
              (key-place column (inc row) web-post-tr)
              (key-place (inc column) row web-post-bl)
-             (key-place (inc column) (inc row) web-post-tl)))
-             )))
+             (key-place (inc column) (inc row) web-post-tl))))))
 
 ;;;;;;;;;;;;
 ;; Thumbs ;;
@@ -683,6 +661,28 @@
 (def screw-insert-outers (screw-insert-all-shapes (+ screw-insert-bottom-radius 1.65) (+ screw-insert-top-radius 1.65) (+ screw-insert-height 1.5)))
 (def screw-insert-screw-holes  (screw-insert-all-shapes 1.7 1.7 350))
 
+(def pinky-connectors
+  (apply union
+         (concat
+          ;; Row connections
+          (for [row (range 0 lastrow)]
+            (triangle-hulls
+             (key-place lastcol row web-post-tr)
+             (key-place lastcol row wide-post-tr)
+             (key-place lastcol row web-post-br)
+             (key-place lastcol row wide-post-br)))
+
+          ;; Column connections
+          (for [row (range 0 cornerrow)]
+            (triangle-hulls
+             (key-place lastcol row web-post-br)
+             (key-place lastcol row wide-post-br)
+             (key-place lastcol (inc row) web-post-tr)
+             (key-place lastcol (inc row) wide-post-tr)))
+         ;; wall
+          ;;
+)))
+
 (def model-right (difference
                   (union
                    key-holes