kiss-lang/kiss-vscode
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

Make a simple VibeCheck

Browse Source
This commit is contained in:
Nat Quayle Nelson
2023-01-19 11:05:49 -07:00
parent 1ba8e282ab
commit 77104aaa5e
2 changed files with 23 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
projects/nat-archive-tool/src/nat/ArchiveController.kiss
View File

@@ -506,4 +506,18 @@
(defCommand AddColorIRGBA [entries (SelectedEntries 1 null) r (Number 0 255 1) g (Number 0 255 1) b (Number 0 255 1) a (Number 0 255 1)] (defCommand AddColorIRGBA [entries (SelectedEntries 1 null) r (Number 0 255 1) g (Number 0 255 1) b (Number 0 255 1) a (Number 0 255 1)]
(for e entries (for e entries
(addColorIRGBA archive e (Std.int r) (Std.int g) (Std.int b) (Std.int a)))) (addColorIRGBA archive e (Std.int r) (Std.int g) (Std.int b) (Std.int a))))
(defCommand VibeCheck [accounts (Numbers null null null) monthlyExpenses (Numbers null null null) energy (Number 1 10 1) hope (Number 1 10 1) note (Text null)]
[(archive.createEntry ->e {
(let [nw (apply + accounts)
me (apply + monthlyExpenses)
runway (/ nw me)]
(ui.displayMessage "Your net worth is \$$nw")
(if (< nw 0)
(ui.displayMessage "You are in debt and spending \$$me per month.")
(ui.displayMessage "It will last for roughly $runway months!")))
(addComponent archive e VibeCheck (objectWith [energy (Std.int energy) hope (Std.int hope)] accounts monthlyExpenses note))
(addComponent archive e Dates [=>"Created" (Date.now)])
})])
) )

9
projects/nat-archive-tool/src/nat/components/VibeCheck.hx Normal file
View File

@@ -0,0 +1,9 @@
package nat.components;
typedef VibeCheck = {
accounts: Array<Float>,
monthlyExpenses: Array<Float>,
energy: Int,
hope: Int,
note: String
};