Skip to content

Instantly share code, notes, and snippets.

Andy Terra airstrike

Block or report user

Report or block airstrike

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
@airstrike
airstrike / generate.c
Last active Apr 1, 2019 — forked from Joker-vD/generate.c
Dungeon Generator (Uncompressed, MS Visual Studio 2008)
View generate.c
// Uncompressed version of dungeon generator, backported for MS Visual Studio 2008
// Original work: https://gist.github.com/munificent/b1bcd969063da3e6c298be070a22b604
// Original uncompressed version: https://gist.github.com/Joker-vD/cc5372a349559b9d1a3b220d5eaf2b01
// Tested with Microsoft (R) C/C++ Optimizing Compiler Version 16.00.30319.01 for x64
#include <time.h> // Robert Nystrom
#include <stdio.h> // @munificentbob
#include <stdlib.h> // for Ginny
// #include <stdbool.h> // 2008-2019
typedef int bool;
@airstrike
airstrike / codeanywhere.css
Last active Mar 11, 2019
User style for codeanywhere.com editor
View codeanywhere.css
/*
From https://github.com/romainl/flattened
TERMCOL HEX RGB
------- ------- -----------
black #073642 7 54 66
red #dc322f 220 50 47
green #859900 133 153 0
yellow #b58900 181 137 0
blue #268bd2 38 139 210
magenta #d33682 211 54 130
@airstrike
airstrike / .vimrc
Last active Mar 18, 2019
Latest vimrc file (2019)
View .vimrc
" VIM user interface
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
" Set 7 lines to the curors - when moving vertical..
set so=2
set ruler "Always show current position
set cmdheight=1 "The commandbar height
" Set backspace config
set backspace=eol,start,indent
set whichwrap+=<,>,h,l
View excelparser.py
#========================================================================
# Description: Tokenise an Excel formula using an implementation of
# E. W. Bachtal's algorithm, found here:
#
# Blog post: https://ewbi.blogs.com/develops/2004/12/excel_formula_p.html
# See also: https://ewbi.blogs.com/develops/popular/excelformulaparsing.html
# Direct link to this port: http://www.ewbi.com/ewbi.develop/samples/jsport_nonEAT.py
#
# Originally written for Python v2.5 (win32)
# Author: Robin Macharg
@airstrike
airstrike / anne.ahk
Created Jul 25, 2018
Anne Pro AutoHotkey (AHK) Script
View anne.ahk
SetCapsLockState, AlwaysOff
; The above lets you use hotkeys at the bottom end of the file on keyboards other than Anne and emulate the Fn Caps behavior
Menu, Tray, Icon, %A_WorkingDir%\anne.ico,, 1
<+J::Send, +{Left}
<+K::Send, +{Down}
<+L::Send, +{Right}
<+I::Send, +{Up}
<+#J::Send, +#{Left}
@airstrike
airstrike / Apple Keyboard Autohotkey Script
Created Mar 19, 2018 — forked from mattheath/Apple Keyboard Autohotkey Script
A script for autohotkey to remap keys when using an Apple Keyboard with a Windows PC
View Apple Keyboard Autohotkey Script
;
; AutoHotkey Version: 1.x
; Language: English
; Platform: Win9x/NT
; Author: Matt Heath <matt@mattheath.com>
;
; Script Function:
; Remaps keys when using an Apple Keyboard with a Windows PC
;
@airstrike
airstrike / stringifs.bas
Last active Dec 13, 2018
JoinIf, GetIf, Split functions for Excel
View stringifs.bas
Option Explicit
Public Function GetIf(ByRef Rng As Range, ByVal If1 As Variant, ByVal If2 As Variant, Optional ByVal Indx As Variant) As Variant
Dim i As Long, cell_count As Long
cell_count = Rng.Cells.Count
Dim Results As New Collection
For i = 1 To cell_count
If GetObject(If1, i) = GetObject(If2, i) Then Results.Add Rng.Cells(i)
Next
View lot-price.csv
price lot
1.689468884 3178.137652
1.730093363 3443.478261
1.686871655 2454.545455
1.757363529 4773.722628
1.763768192 2619.946092
1.824463184 3165
1.799693705 2774.86911
1.77497838 2160.493827
1.751901238 3622.340426
View LabelLastPoint.bas
'from http://peltiertech.com/Excel/Charts/LabelLastPoint.html
Sub LastPointLabel()
Dim mySrs As Series
Dim iPts As Long
Dim bLabeled As Boolean
If ActiveChart Is Nothing Then
MsgBox "Select a chart and try again.", vbExclamation, "No Chart Selected"
Else
For Each mySrs In ActiveChart.SeriesCollection
bLabeled = False
@airstrike
airstrike / RemoveUnusedNumberFormats.bas
Created Oct 24, 2016
Remove Unused Number Formats in Excel (VBA)
View RemoveUnusedNumberFormats.bas
Sub RemoveUnusedNumberFormats()
Dim strOldFormat As String
Dim strNewFormat As String
Dim aCell As Range
Dim sht As Worksheet
Dim strFormats() As String
Dim fFormatsUsed() As Boolean
Dim i As Integer
If ActiveWorkbook.Worksheets.Count = 0 Then
You can’t perform that action at this time.