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:

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)
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 35DB 878B A6B8 69A8 EE4A B304 C5F7 4693 F248 EF57

To claim this, I am signing this object:

View callable.ls
# a trick that makes class instances function instances and not object instances
# aka - callable objects. (expects object to have a 'call' function defined)
callable = (cls) ->
callable_cls = (...args) ->
obj = (...args) -> obj.call.apply obj, args
obj.__proto__ = cls::
cls.apply obj, args
obj
@leshy
leshy / ai.md
Created Nov 8, 2012
answer to some questions about hard ai and rights
View ai.md
You can’t perform that action at this time.