summaryrefslogtreecommitdiff
path: root/fnl/conf/exctl/frames
diff options
context:
space:
mode:
authorMike Vink <>2023-04-11 19:00:10 +0200
committerMike Vink <>2023-04-11 19:00:10 +0200
commit73d25fc971ecd3f166d8fd6da663d3494933caad (patch)
tree10b3e357e400867594a1c1f620a8d9d9ed75258d /fnl/conf/exctl/frames
parent741f3405e712f13b55aafd8730b61dca4248b4ae (diff)
start composing
Diffstat (limited to 'fnl/conf/exctl/frames')
-rw-r--r--fnl/conf/exctl/frames/frame.fnl7
1 files changed, 2 insertions, 5 deletions
diff --git a/fnl/conf/exctl/frames/frame.fnl b/fnl/conf/exctl/frames/frame.fnl
index f74e88d..e7cd1e9 100644
--- a/fnl/conf/exctl/frames/frame.fnl
+++ b/fnl/conf/exctl/frames/frame.fnl
@@ -30,10 +30,6 @@
(fn m.frame->coord [f]
(fn [v]
- (P :a (vec.scale (v:x-coord) (f:width-edge)))
- (P :b (vec.scale (v:y-coord) (f:height-edge)))
- (P :added (vec.add (vec.scale (v:x-coord) (f:width-edge))
- (vec.scale (v:y-coord) (f:height-edge))))
(vec.add (f:origin)
(vec.add (vec.scale (v:x-coord) (f:width-edge))
(vec.scale (v:y-coord) (f:height-edge))))))
@@ -51,11 +47,12 @@
(local ori (f:origin))
(local width-edge (f:width-edge))
(local height-edge (f:height-edge))
+ (local anchor (or anchor :NW))
{:width (width-edge:x-coord)
:height (height-edge:y-coord)
:col (ori:x-coord)
:row (ori:y-coord)
- :anchor :NW
+ : anchor
:relative :editor})
(setmetatable m {:__call (fn [self ...]