Skip to content

Instantly share code, notes, and snippets.

View winny-'s full-sized avatar
๐Ÿ‘‹
***status goes here***

Winston (Winny) Weinert winny-

๐Ÿ‘‹
***status goes here***
View GitHub Profile
Sandbox = {}
Sandbox.Frame = CreateFrame('Frame', 'Sandbox')
Sandbox.Evals = {}
function prn(s)
DEFAULT_CHAT_FRAME:AddMessage(s)
end
function len(tbl)
local n = 0
function prn(s)
DEFAULT_CHAT_FRAME:AddMessage(s)
end
SLASH_SANDBOX1 = '/sandbox'
SlashCmdList['SANDBOX'] = function() prn('Sandbox loaded! :)') end
SLASH_EVAL1 = '/eval'
SlashCmdList['EVAL'] = function(s)
if s == nil or s == '' then
#lang racket
(define/contract (split-on lst func)
(list? (any/c any/c . -> . boolean?) . -> . list?)
(define-values (l r) (split-on-first lst func))
(if (empty? r)
(list l)
(append (list l) (split-on r func))))
(define/contract (split-on-first lst func)
#lang racket
(require irc)
(require net/http-client)
(require json)
(require net/uri-codec)
(require net/url)
(require (planet neil/html-parsing:3:0))
(require racket/sandbox)
;;;;;;;;;;;;;
#lang racket
(require irc)
(require net/http-client)
(require json)
(require net/uri-codec)
(require net/url)
(require (planet neil/html-parsing:3:0))
(require racket/sandbox)
;;;;;;;;;;;;;
#lang racket
(require irc)
(require net/http-client)
(require json)
(require net/uri-codec)
(require net/url)
(require (planet neil/html-parsing:3:0))
;;;;;;;;;;;;;
;; Structures
@winny-
winny- / init.el
Last active February 10, 2016 16:36
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; custom-set-*
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(custom-set-variables
;; custom-set-variables was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
'(ansi-color-faces-vector
@winny-
winny- / dwm-6.1-warp-fixes.diff
Last active December 15, 2015 01:28
Fixes http://dwm.suckless.org/patches/dwm-6.1-warp.diff to (A) not warp if cursor is on selected window's border (B) when using topbar = 1, do not warp when cursor is touching top edge of screen (C) Cleans up duplicate XQueryPointer() code using getrootptr()
diff -ruN dwm-6.1-orig/dwm.c dwm-6.1/dwm.c
--- dwm-6.1-orig/dwm.c 2015-11-08 16:39:37.000000000 -0600
+++ dwm-6.1/dwm.c 2015-12-14 19:17:19.656091228 -0600
@@ -227,6 +227,7 @@
static void updatetitle(Client *c);
static void updatewmhints(Client *c);
static void view(const Arg *arg);
+static void warp(const Client *c);
static Client *wintoclient(Window w);
static Monitor *wintomon(Window w);
;; This buffer is for notes you don't want to save, and for Lisp evaluation.
;; If you want to create a file, visit that file with C-x C-f,
;; then enter the text in that file's own buffer.
(progn (princ "---\n") (mapcar (lambda (p) (princ p) (princ "\n")) package-activated-list) '---)
---
coffee-mode
conkeror-minor-mode
crosshairs
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; custom-set-*
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(custom-set-variables
;; custom-set-variables was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
'(ansi-color-faces-vector