This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Red [] | |
note: {OAuth oauth_nonce="K7ny27JTpKVsTgdyLdDfmQQWVLERj2zAK5BslRsqyw", oauth_callback="http%3A%2F%2Fmyapp.com%3A3005%2Ftwitter%2Fprocess_callback", oauth_signature_method="HMAC-SHA1", oauth_timestamp="1300228849", oauth_consumer_key="OqEqJeafRSF11jBMStrZz", oauth_signature="Pc%2BMLdv028fxCErFyi8KXFM%2BddU%3D", oauth_version="1.0"} | |
; do %json.red | |
user: #() | |
twitter: https://api.twitter.com/ | |
verification-page: %oauth/authorize?oauth_token= |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Red[] | |
Arial: make font! [name: "Consolas" size: 20] | |
d0: [ | |
pen 240.240.240 | |
fill-pen 240.240.240 | |
box 0x0 80x40 | |
fill-pen | |
] | |
d1: compose [ | |
(d0) red |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Red [ | |
Needs: 'View | |
] | |
; #include %support/call.red | |
print "clr - define object" | |
celer: object [ |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Red [] | |
inc-value: func [ | |
face | |
color-id | |
dest-face | |
/local value rate | |
] [ | |
unless face/extra [face/font/color: 255.255.255] | |
overflow?: false |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Red [ | |
Title: "Nsource - native source" | |
Purpose: "Print source for native functions" | |
Author: "Boleslav Březovský" | |
Date: "8-6-2017" | |
] | |
indent: func [ | |
"(Un)indent text by tab" | |
string [string!] "Text to (un)indent" |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Red[] | |
join: func [ | |
"Reduce values in a block and joins them into a string" | |
block [block!] | |
/with "Add delimiter between values" | |
delimiter | |
/trim "Remove NONE values" | |
] [ | |
if empty? block [return ""] |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Red [ | |
Title: "Replace with /CASE support" | |
] | |
replace: func [ | |
"Returns the series where a value is found, or NONE. " | |
series [series!] | |
pattern | |
value | |
/all |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Red [ | |
file: %base32.red | |
date: 17-Sep-2015 | |
author: "Graham Chiu" | |
red-version: "Boleslav Březovský" | |
version: 0.0.3 | |
notes: { | |
encodes string to base32 or base32hex | |
padding to 5 characters is not required in this method | |
>> to-base32/decode/hex to-base32/hex "yessir" |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Red[] | |
reduce+: func [ | |
"Reduce with unset!, error! -> none! conversion" | |
block | |
/local value new-block | |
][ | |
new-block: block | |
collect [ | |
until [ |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
console.log("%main.js"); | |
rooms = null; | |
users = null; | |
// load room names | |
load_rooms = function (){ | |
d3.csv("data/room-list.csv", function(error, data) { | |
if (error) throw error; | |
console.log("loading rooms"); |