From 24980a45600f74da594e289294b9b9f25bf65b3a Mon Sep 17 00:00:00 2001 From: Leo Lou Date: Wed, 13 Jun 2018 15:44:09 +0900 Subject: [PATCH] Add pinky-15u --- src/dactyl_keyboard/dactyl.clj | 16 +++++++++++----- 1 file changed, 11 insertions(+), 5 deletions(-) diff --git a/src/dactyl_keyboard/dactyl.clj b/src/dactyl_keyboard/dactyl.clj index 6b2de69..ef36e2f 100644 --- a/src/dactyl_keyboard/dactyl.clj +++ b/src/dactyl_keyboard/dactyl.clj @@ -23,6 +23,7 @@ (def column-style (if (> nrows 5) :orthographic :standard)) ; options include :standard, :orthographic, and :fixed ; (def column-style :fixed) +(def pinky-15u true) (defn column-offset [column] (cond (= column 2) [0 2.82 -4.5] @@ -503,16 +504,21 @@ (wall-brace (partial key-place x1 y1) dx1 dy1 post1 (partial key-place x2 y2) dx2 dy2 post2)) +(def right-wall + (let [tr (if (true? pinky-15u) wide-post-tr web-post-tr) + br (if (true? pinky-15u) wide-post-br web-post-br)] + (union (key-wall-brace lastcol 0 0 1 tr lastcol 0 1 0 tr) + (for [y (range 0 lastrow)] (key-wall-brace lastcol y 1 0 tr lastcol y 1 0 br)) + (for [y (range 1 lastrow)] (key-wall-brace lastcol (dec y) 1 0 br lastcol y 1 0 tr)) + (key-wall-brace lastcol cornerrow 0 -1 br lastcol cornerrow 1 0 br)))) + (def case-walls (union + right-wall ; back wall (for [x (range 0 ncols)] (key-wall-brace x 0 0 1 web-post-tl x 0 0 1 web-post-tr)) (for [x (range 1 ncols)] (key-wall-brace x 0 0 1 web-post-tl (dec x) 0 0 1 web-post-tr)) - ; right wall - (key-wall-brace lastcol 0 0 1 web-post-tr lastcol 0 1 0 web-post-tr) - (for [y (range 0 lastrow)] (key-wall-brace lastcol y 1 0 web-post-tr lastcol y 1 0 web-post-br)) - (for [y (range 1 lastrow)] (key-wall-brace lastcol (dec y) 1 0 web-post-br lastcol y 1 0 web-post-tr)) - (key-wall-brace lastcol cornerrow 0 -1 web-post-br lastcol cornerrow 1 0 web-post-br) + ; left wall (for [y (range 0 lastrow)] (union (wall-brace (partial left-key-place y 1) -1 0 web-post (partial left-key-place y -1) -1 0 web-post) (hull (key-place 0 y web-post-tl)