Oldes

Rebol [
    name:     enlist
    purpose: "Format series to human readable list"
    usage: [
        print enlist []      ;= none
        print enlist [1]     ;= just 1
        print enlist [1 2]   ;= 1 and 2
        print enlist [1 2 3] ;= 1, 2 and 3
    ]
    note: https://gitter.im/red/help?at=5f9c02f906fa0513dd8119d1

Oldes

Rebol [
	name:  png-size
	needs: 3.2.0
	usage: [
		png-size http://avatars-04.gitter.im/gh/uv/4/oldes
	]
]

png-size: func[
	"Read PNG size from raw binary data"

Oldes

Rebol [
	name:    wait-for-key
	title:   "Simple Rebol `wait-for-key` function"
	purpose: "Demonstrate how to get simple user keyboard input from console without need to press ENTER"
	author:  "Oldes"
	date:    7-Jun-2020
	needs:   3.8.0  ; https://github.com/Oldes/Rebol3
	note:    "So far works only on Windows!"
	usage: [
		print "Press any key!"

Oldes

Rebol []

last-20-closed-issues: {
  query($owner:String!,$repo:String!) {
    repository(owner:$owner, name:$repo) {
      issues(last:20, states:CLOSED) {
        edges {
          node {
            title
            url

Oldes

Rebol [
  title: "Github API"
  author: "Oldes"
  license: MIT
]

My-GitHub-authorization: "token ..." ;<--- replace ...  with your API token!

github: context [
	api.github: https://api.github.com/

Oldes

Red [
  Title:   "HTML entities"
  Purpose: "To decode HTML entities in a text"
  Author:  "Oldes"
  Date:    12-May-2020
  Version: 1.0.2
  License: MIT
  Usage: [
    "Test: ♠ & ¢ <a> and Δδ ¾" =
    decode-html-entities {Test: &spades; & &#162; &lt;a&gt;&#32;and &Delta;&delta; &frac34;}

Oldes

Rebol [
	note: {There are some hacks in this, based on empirical testing.}
]

func-spec-ctx: context [
	func-spec: context [
		desc: none
		attr: none
		params: copy []
		refinements: copy []

Oldes

REBOL [ ]

listen: open tcp://:8080
port: open tcp://localhost:8080
start: 0
listen/awake: func [event] [
    ;print "Listen Awake"
    switch/default event/type [
        accept [
            ;print "Accept"

Oldes

Red [
  title: "GitHub's graphql request test"
  author: "Oldes"
  reference: https://developer.github.com/v4/
]

;@@ https://developer.github.com/apps/building-oauth-apps/creating-an-oauth-app/
graphql-header: [Authorization: "token YOUR_OAUTH_TOKEN_HERE"]

graphql-request: func[

Oldes

Red []

whitespace: charset reduce [space tab cr lf]
ws: [any whitespace]

rule-object: [
	ws <purchaseObject> [
		ws <OKPD2> [
			ws <code> copy *cd to "<" </code>
			ws <name> copy *nm to "<" </name>