Skip to content

Instantly share code, notes, and snippets.

@hiiamboris
Created August 14, 2023 14:07
Show Gist options
  • Save hiiamboris/5128c45f2aa0f00549216a17548ddf9d to your computer and use it in GitHub Desktop.
Save hiiamboris/5128c45f2aa0f00549216a17548ddf9d to your computer and use it in GitHub Desktop.
Argument and facet constraints from Spaces
(x >= 0)
(0 < length? s)
(none? y)
(none? m)
(same? type? X1 type? X2)
(xrange >= 0)
(frange >= 0)
(nmax > 0)
(find [binary interp jump] guess)
(host? host)
(limit >= 0)
(0x0 +<= pair)
(0 <= pair)
(find [x y] axis)
(words block-of? word!)
(space? space)
(any [map! = type find series! type])
(amnt >= 100%)
(all [0 <= alpha alpha <= 1])
(4 <= length? points)
(length >= 1)
(step > 0)
(x2 >= x1)
(range? limits)
(same? type? i1 type? i2)
(find [x y] axis)
(0x0 +<= |canvas|)
(0x0 +<= canvas)
(find [x y] axis)
(block? :body/1)
(parse name [2 word!])
(parse map [end | object! block! to end])
(width >= 0)
(amount >= 0)
((length? limits) = length? weights)
(0 < length? limits)
(space? space)
(space? space)
(space? space)
(find [cached drawn] state)
(space? space)
(space? space)
(space? space)
(host? host)
(space? space)
(space? cause)
(find [size look] scope)
(any [space? space host? space])
(any [space? obj is-face? obj])
(parse space [any object!])
(space? space)
(length >= 0)
(1 = abs sign)
(map-offset1 >= 0)
(map-offset2 >= map-offset1)
(all [face/rate not face =? timer-host])
(even? length? data)
(parse data [end | 1 3 [skip integer!] to end])
('all = range)
(even? length? data)
(even? length? data)
(even? length? data)
('clipboard-format = class? content)
(0x0 +<= ((1, 1) * margin))
(0x0 +<= ((1, 1) * spacing))
(weight >= 0)
(space? original)
(find [n s w e] dir)
(-1x-1 +<= align +<= 1x1)
(find [x y] axis)
(all [0 <= offset offset <= 1])
(all [0 <= amount amount <= 1])
(0 <= arrow-size)
(space? back-arrow)
(space? back-page)
(space? thumb)
(space? forth-page)
(space? forth-arrow)
(find [planar horizontal vertical] content-flow)
(space? hscroll)
(space? vscroll)
(space? scroll-timer)
(0x0 +<= canvas)
(find [left right] side)
(width > 0)
(find/case [left right] side)
(find [x y] axis)
(-1x-1 +<= align +<= 1x1)
(find/only [
[n e] [n w] [s e] [s w] [e n] [e s] [w n] [w s]
[→ ↓] [→ ↑] [↓ ←] [↓ →] [← ↑] [← ↓] [↑ →] [↑ ←]
] axes)
(find [left right] side)
(find [left right] side)
(find [left right] side)
(find [left right] side)
(row >= 1)
(find [left right] side)
(caret >= 0)
(find [left right] side)
(find [left right] side)
(space? items)
(even? length? items)
(space? items)
(even? length? items)
(even? length? data)
(space? data)
(slide-length > 0)
(look-around > 0)
(space? window)
(space? slide-timer)
(all [0 < map-index map-index <= half length? list/map])
(find [x y] req-axis)
(1 = abs dir)
(requested >= 0)
(canvas +< infxinf)
(find [before after] dir)
(parse items [any integer!])
(find [replace include exclude invert extend] sel-mode)
(all [0 < target target <= length])
(index > 0)
(space? list)
('cell = select cell 'type)
(0x0 +<= pinned)
(all [
bounds: bounds
any [none =? bounds/x 'auto = bounds/x all [linear? bounds/x bounds/x >= 0]]
any [none =? bounds/y 'auto = bounds/y all [linear? bounds/y bounds/y >= 0]]
])
(from >= 0)
(requested >= 0)
(space? grid)
(rounding >= 0)
(look-around >= 0)
(parse left [integer! [pair! | none!] any-string!])
(parse right [integer! [pair! | none!] any-string!])
(not by)
(not by)
(not by)
(weight >= 0)
(origin <= 0)
(space? caret)
(level >= 1)
(level >= 1)
(face? level)
(any [space? space is-face? space])
(space? root)
(is-face? face)
(is-face? face)
(not empty? path)
(space? path)
(is-face? path)
(any [space? space is-face? space])
(space? space)
(space? space)
(space? child)
(space? space)
(limit >= 20)
(not by)
(not by)
(find [left right] cside)
(not by)
(any [space? data 'clipboard-format = class? data])
(any [space? data 'clipboard-format = class? data])
(parse indent [2 [set-word! linear!]])
(find [rich-text-span rich-text-block] select data 'name)
(find [up down] dir)
(shift >= 0)
(axis = 'y)
(page-size >= 0)
(find [bold italic underline strike] name)
(command = 'pick)
(size = 'pick)
(font = 'pick)
(color = 'pick)
(0x0 +<= margin)
(0x0 +<= spacing)
@hiiamboris
Copy link
Author

(x >= 0) 
(0 < length? s) 
(none? y) 
(none? m) 
(same? type? X1 type? X2) 
(xrange >= 0) 
(frange >= 0) 
(nmax > 0) 
(find [binary interp jump] guess) 
(host? host) 
(limit >= 0) 
(0x0 +<= pair) 
(0 <= pair) 
(find [x y] axis) 
(words block-of? word!) 
(space? space) 
(any [map! = type find series! type]) 
(amnt >= 100%) 
(all [0 <= alpha alpha <= 1]) 
(4 <= length? points) 
(length >= 1) 
(step > 0) 
(x2 >= x1) 
(range? limits) 
(same? type? i1 type? i2) 
(0x0 +<= |canvas|) 
(0x0 +<= canvas) 
(block? :body/1) 
(parse name [2 word!]) 
(parse map [end | object! block! to end]) 
(width >= 0) 
(amount >= 0) 
((length? limits) = length? weights) 
(0 < length? limits) 
(find [cached drawn] state) 
(space? cause) 
(find [size look] scope) 
(any [space? space host? space]) 
(any [space? obj is-face? obj]) 
(parse space [any object!]) 
(length >= 0) 
(1 = abs sign) 
(map-offset1 >= 0) 
(map-offset2 >= map-offset1) 
(all [face/rate not face =? timer-host]) 
(even? length? data) 
(parse data [end | 1 3 [skip integer!] to end]) 
('all = range) 
('clipboard-format = class? content) 
(0x0 +<= ((1, 1) * margin)) 
(0x0 +<= ((1, 1) * spacing)) 
(weight >= 0) 
(space? original) 
(find [n s w e] dir) 
(-1x-1 +<= align +<= 1x1) 
(all [0 <= offset offset <= 1]) 
(all [0 <= amount amount <= 1]) 
(0 <= arrow-size) 
(space? back-arrow) 
(space? back-page) 
(space? thumb) 
(space? forth-page) 
(space? forth-arrow) 
(find [planar horizontal vertical] content-flow) 
(space? hscroll) 
(space? vscroll) 
(space? scroll-timer) 
(find [left right] side) 
(width > 0) 
(find/case [left right] side) 
(find/only [
    [n e] [n w] [s e] [s w] [e n] [e s] [w n] [w s] 
    [→ ↓] [→ ↑] [↓ ←] [↓ →] [← ↑] [← ↓] [↑ →] [↑ ←]
] axes) 
(row >= 1) 
(caret >= 0) 
(space? items) 
(even? length? items) 
(space? data) 
(slide-length > 0) 
(look-around > 0) 
(space? window) 
(space? slide-timer) 
(all [0 < map-index map-index <= half length? list/map]) 
(find [x y] req-axis) 
(1 = abs dir) 
(requested >= 0) 
(canvas +< infxinf) 
(find [before after] dir) 
(parse items [any integer!]) 
(find [replace include exclude invert extend] sel-mode) 
(all [0 < target target <= length]) 
(index > 0) 
(space? list) 
('cell = select cell 'type) 
(0x0 +<= pinned) 
(all [
    bounds: bounds 
    any [none =? bounds/x 'auto = bounds/x all [linear? bounds/x bounds/x >= 0]] 
    any [none =? bounds/y 'auto = bounds/y all [linear? bounds/y bounds/y >= 0]]
]) 
(from >= 0) 
(space? grid) 
(rounding >= 0) 
(look-around >= 0) 
(parse left [integer! [pair! | none!] any-string!]) 
(parse right [integer! [pair! | none!] any-string!]) 
(not by) 
(origin <= 0) 
(space? caret) 
(level >= 1) 
(face? level) 
(any [space? space is-face? space]) 
(space? root) 
(is-face? face) 
(not empty? path) 
(space? path) 
(is-face? path) 
(space? child) 
(limit >= 20) 
(find [left right] cside) 
(any [space? data 'clipboard-format = class? data]) 
(parse indent [2 [set-word! linear!]]) 
(find [rich-text-span rich-text-block] select data 'name) 
(find [up down] dir) 
(shift >= 0) 
(axis = 'y) 
(page-size >= 0) 
(find [bold italic underline strike] name) 
(command = 'pick) 
(size = 'pick) 
(font = 'pick) 
(color = 'pick) 
(0x0 +<= margin) 
(0x0 +<= spacing)

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment