Skip to content

Instantly share code, notes, and snippets.

View MattRoelle's full-sized avatar

Matt Roelle MattRoelle

23 followers · 11 following
View GitHub Profile
@MattRoelle
MattRoelle / snake-speed-code.html
Created January 14, 2024 06:17
<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="UTF-8">
<meta name="viewport" content="width=device-width, initial-scale=1.0">
<title>Document</title>
</head>
<body>
@MattRoelle
MattRoelle / vim-mode.fnl
Last active June 2, 2022 17:00
(local editor (require :polywell))
(local fennel (require :polywell.lib.fennel))
(local fmt (require :polywell.lib.fnlfmt))
(local completion (require :polywell.completion))
;; from here -- https://github.com/oakmac/parinfer-lua
(local parinfer (require :lib.parinfer))
(local inspect (require :lib.inspect))
@MattRoelle
MattRoelle / respawnSequence.ts
Created April 7, 2022 23:15
import { GRID_TILE_HEIGHT, GRID_TILE_WIDTH } from "../../constants";
import { addxy, left, midpoint, xy } from "../../utils";
import { BattleActorObject } from "../BattleActorObject";
import { damageNumbers } from "../effects/damageNumbers";
import { Sequence } from "./sequence";
export const respawnSequence: Sequence<{
actor: BattleActorObject,
x: number,
y: number
@MattRoelle
MattRoelle / do-attack.fnl
Created April 7, 2022 22:56
(λ do-attack [action]
(set action.to.animating true)
(set action.from.animating true)
(process-trigger-queue)
(let [mp (action.to.pos:midpoint action.from.pos)]
(timeline.parallel-tween
[0.5 action.to {:pos mp} :outBounce]
[0.5 action.from {:pos mp} :outBounce]))
(set action.from.animating false)
(set action.to.animating false)
@MattRoelle
MattRoelle / do-attack.fnl
Created April 7, 2022 22:53
(λ do-attack [action]
(set action.to.animating true)
(set action.from.animating true)
(process-trigger-queue)
(let [mp (action.to.pos:midpoint action.from.pos)]
(timeline.parallel-tween
[0.5 action.from {:pos action.to.pos} :outBounce]))
;[0.5 action.from {:pos mp} :outBounce]))
(set action.from.animating false)
(set action.to.animating false)
@MattRoelle
MattRoelle / fennel-smalltalk.fnl
Created February 18, 2022 22:00
A smalltalk style object system written in Fennel Lisp
;; A smalltalk inspired object system for lua and Fennel
;; Where all operations are implemented via message passing
(local MethodTable {})
(set MethodTable.__index MethodTable)
(fn MethodTable.dispatch-effect [self k obj ...]
(when (self:get k)
((self:get k) obj ...))
(each [_ ref (pairs self.refs)]
@MattRoelle
MattRoelle / accumulate.fnl
Created February 7, 2022 00:28
accumulate as a find?
(fn party-has? [type]
(let [team (get-team-list :player)]
(accumulate [result false _ {: actor} (ipairs team)
:until result]
(and actor (= actor.type type)))))
@MattRoelle
MattRoelle / redux-example.fnl
Last active December 17, 2021 01:32
;; Redux style state management
(local initial-state
{:screen nil
:energy 0
:deck (icollect [_ ct (ipairs [:scout :warrior :healer :archer :scout :scout :scout])]
(make-card ct))
:hand []
:field []
:discard []})
@MattRoelle
MattRoelle / example.fnl
Last active December 14, 2021 19:17
(require-macros :golly)
(local golly (require :golly))
(defentity test-entity [self props]
{:x 300 :y 200 :width 200 :height 200}
(mixins (golly.mixins.mouse-interaction))
(field :state
(statemachine :red
(transitions
(turn-red {:to :red})
@MattRoelle
MattRoelle / conways-gol.clj
Created September 2, 2021 15:51
(def start-grid [[0 0 0 0 0 1 0 0 0 0]
[0 0 0 0 1 0 0 0 0 0]
[0 0 0 0 1 0 0 0 1 0]
[0 0 0 0 0 0 0 0 1 0]
[0 0 0 0 0 0 0 0 1 0]
[0 0 0 0 0 0 0 0 0 0]
[0 0 0 0 0 1 1 0 0 0]
[0 0 1 0 0 1 1 0 0 0]
[0 1 0 0 0 0 0 0 0 0]
[1 0 0 0 0 0 0 0 0 0]])