greggirwin

Red [
	title: "A simple flat-block db model."
	author: "Gregg Irwin"
	url: https://gist.github.com/greggirwin/d990fff8cf55d2aaa53bd23a0e47acde
	notes: {
		Mocked up in response to chat that came up based on `remove/key`
		being case sensitive, and how Reducers can/should use flat blocks.

		https://github.com/red/red/issues/5652
		

greggirwin

Red [
	Title:   "BMR (Basal Metabolic Rate) Calculator"
	Author:  "Gregg Irwin"
	File: 	 %bmr-calc.red
	Needs:	 View
	Comment: {
		An experiment in reactivity and data modeling.

		TBD: Caloric calcs based on activity level.

greggirwin

Red []

do %step.red

; Wrapper that hides the detail of whether a value is indirectly referenced.
arg-val: func [arg][
	either any [any-word? arg  any-path? arg] [get arg][arg]
]

test-step: func [arg /by amt][

greggirwin

Red []

;styles: keys-of system/view/vid/styles
style-name: [
	'base | 'button | 'text | 'field | 'area | 'rich-text | 'toggle
	| 'check | 'radio | 'progress | 'slider | 'scroller | 'camera
	| 'calendar | 'text-list | 'drop-list | 'drop-down | 'panel
	| 'group-box | 'tab-panel | 'h1 | 'h2 | 'h3 | 'h4 | 'h5 | 'box
	| 'image
]

greggirwin

Red []

; A quick hack for capturing VID set-words into a context, and limiting their global damange.

view-ctx: function [
	"View a layout, binding set-words in it to a returned context."
	spec [block!] "VID layout spec; LAY will refer to the root of the face tree in the result."
][
	words: collect-words/set/deep spec		; what about draw words though?

greggirwin

Red [
	Title:   "BMR (Basal Metabolic Rate) Calculator"
	Author:  "Gregg Irwin"
	File: 	 %bmr-calc.red
	Needs:	 View
	Comment: {
		An experiment in reactivity and data modeling.

		TBD: Caloric calcs based on activity level.

greggirwin

Comment {
APPLY is coming! To keep it simple, it won't support named args in
the initial release. These are experiments for how we can think of
ways to do that at the mezz level and play.

APPLY is an avanced func and may be used in both very dynamic code
(think thunks) but also code that requires high performance. We may
not get all the features to do both without some effort, but some
of the ideas here may give you clues about how to do things to your
taste, that meets your needs.

greggirwin

Red [
	Title:  "Gradient Lab"
	Author: "Gregg Irwin"
	File: 	%gradient-lab.red
	Needs:	View
	Notes: {
		Found Carl's old R2 version after starting this from %fill-pen-lab.red,
		so took some ideas from that too.
	}
]

greggirwin

Red []

; We should give our survey a name so we can identify
; responses for it.

survey-name: "Ren datatype survey"

types: [
    none
    true

greggirwin

Red [
	Title:	 "Hunt the Wumpus"
	;Date:	 25-Jun-2016
	Author:  "Gregg Irwin"
	Version: 1.0.2
	Comment: {
		2001 Notes:
		I found an old version, in C (by Eric Raymond), which was adapted from
		an even older version, in BASIC (by Magnus Olsson), that had been found
		in a SIMTEL archive. It's got lineage.