          (for [column columns
                row rows
                :when (or (.contains [2 3] column)
-                         (not= row (last rows)))]
+                         (not= row lastrow))]
            (->> (sa-cap (if (= column 5) 1 1))
                 (key-place column row)))))
 


(def thumb
  (union
;    thumb-connectors
   (thumb-1x-layout single-plate)
   (thumb-15x-layout single-plate)
   (thumb-15x-layout larger-plate)
   ))

(spit "repl.scad"
      (write-scad (union
                   key-holes
                   connectors
                   thumb
                   thumbcaps
                   caps
                  ;  front-wall
                  ;  right-wall

         (for [column columns
               row rows
               :when (or (.contains [2 3] column)
                         (not= row lastrow))]
           (->> single-plate
                (key-place column row)))))

