Skip to content

Instantly share code, notes, and snippets.

View be5invis's full-sized avatar

Belleve be5invis

View GitHub Profile
var SequenceRule = function() {
var parts = arguments;
if(!parts.length) return function(phase, onmatch, onfail) {
return onmatch(phase, '')
}
var last = parts[parts.length - 1];
var trailing = function(phase, onmatch, onfail){
last(phase, function(phase1, result){ onmatch(phase1, [result]) }, onfail)
};
for(var j = parts.length - 2; j >= 0; j--) {
@be5invis
be5invis / gist:9377026
Created March 5, 2014 21:29
A draft for some weird language
[semantics [or a b]
[let [ta [evaluate a]]
[if ta [return ta] [return [evaluate b]]]]]
[semantics [while condition body]
[block LOOP_START
[let [continue? [evaluate condition]]
[if continue?
[begin
[evaluate body]
var Ref = function(s){ this.ref = s }
var newt = function(n){
return function(){
return new Ref("_" + (n++))
}
}(0);
function id(x){ return x }
function normalizeTerm(form){ return normalize(form, id) }
function normalize(form, ctx){
<!DOCTYPE html>
<html>
<head>
<meta charset="utf-8">
<title>JS Bin</title>
</head>
<body>
</body>
</html>
<!DOCTYPE html>
<html>
<head>
<meta charset="utf-8">
<title>JS Bin</title>
</head>
<body>
</body>
</html>
var H = 3
var Η = 2
console.log(Η + H) // 5
This file has been truncated, but you can view the full file.
SplineFontDB: 3.0
FontName: Descret-Roman
FullName: Descret Roman
FamilyName: Descret
Weight: Medium
Copyright: Converted by Andrey V. Panov from TeX fonts
Version: 0.1.0 ; ttfautohint (v1.3)
ItalicAngle: 0
UnderlinePosition: -150
Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Console]
"ColorTable00"=dword:00373030
"ColorTable01"=dword:00a86c4f
"ColorTable02"=dword:00008000
"ColorTable03"=dword:00b0a800
"ColorTable04"=dword:002d30bc
"ColorTable05"=dword:009a5685
"ColorTable06"=dword:002d8da1
SplineFontDB: 3.0
FontName: Untitled2
FullName: Untitled2
FamilyName: Untitled2
Weight: Regular
Copyright: Copyright (c) 2015, be5in
UComments: "2015-9-16: Created with FontForge (http://fontforge.org)"
Version: 001.000
ItalicAngle: 0
UnderlinePosition: -100
@be5invis
be5invis / gist:651379
Created October 28, 2010 13:47
A Better <home> key for windows users
function HomeBind(offset)
let cursor=getpos('.')
let s0=getline(line('.'))
let s1=substitute(s0, "^\\s\\+", "", "")
let x=len(s0)-len(s1)+1
if col('.') == x-a:offset
let x=1
endif
call setpos('.', [cursor[0], cursor[1], x, cursor[3]])
endfunction