MattRoelle’s gists

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 / 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 / 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 / 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 / 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 / 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 / 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 / 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 / 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 / conways-gol.clj

Created September 2, 2021 15:51

Matt Roelle MattRoelle