jasmine/dactyl-manuform
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Add pinky-15u

Browse source
This commit is contained in:
Leo Lou 2018-06-13 15:44:09 +09:00
parent 2af3a36313
commit 24980a4560
1 changed files with 11 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
src/dactyl_keyboard/dactyl.clj
View file

@ -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)