Skip to content

Instantly share code, notes, and snippets.


Dan Leslie dleslie

View GitHub Profile
View gist:0c19364680a76a04577cfc5d01919585
pacman -S mingw-w64-x86_64-toolchain ruby python3 openssh mingw-w64-x86_64-allegro mingw-w64-x86_64-SDL2 mingw-w64-x86_64-SDL2_gfx mingw-w64-x86_64-SDL2_image mingw-w64-x86_64-SDL2_mixer mingw-w64-x86_64-SDL2_net mingw-w64-x86_64-SDL2_ttf wget curl emacs
dleslie / identifiers.txt
Created Apr 4, 2017
wget -r -H -nc -np -nH --cut-dirs=1 -A .mp3 -e robots=off -l1 -B '' -i ./identifiers.txt
View identifiers.txt
dleslie / custom-scheme.el
Created Apr 3, 2012
Dan's Custom Scheme for Emacs
View custom-scheme.el
(require 'paredit)
(require 'auto-complete)
(require 'auto-complete-etags)
(require 'yasnippet-bundle)
(require 'scheme)
;; Some utilities of mine
(defun add-font-lock-keywords (modes new-keywords)
(mapc (lambda (mode)
(font-lock-add-keywords mode `((, (concat "(\\(" (regexp-opt (mapcar 'symbol-name (remove-if 'numberp new-keywords)) t) "\\)\\>")
View moglen on guis
What I saw in the Xerox PARC technology was the caveman interface,
you point and you grunt. A massive winding down, regressing away
from language, in order to address the technological nervousness
of the user. Users wanted to be infantilized, to return to a
pre-linguistic condition in the using of computers, and the Xerox
PARC technology`s primary advantage was that it allowed users to
address computers in a pre-linguistic way. This was to my mind a
terribly socially retrograde thing to do, and I have not changed
my mind about that.
dleslie / .xbindkeysrc
Created Oct 15, 2013
Adds PgUp and PgDn to a keyboard that doesn't have those buttons.
View .xbindkeysrc
"xvkbd -xsendev -text "\[Prior]""
m:0x8 + c:111
Alt + Up
"xvkbd -xsendev -text "\[Next]""
m:0x8 + c:116
Alt + Down
View bits.scm
(test-group "records"
;; Define a record type with setters for each field
(define-record test (setter bit) (setter byte) (setter nibble) (setter bytes))
;; Define a 'bits' conversion function
(define test-bits
(bit test-bit) ; 1 bit
(byte test-byte) ; 8 bits
(nibble test-nibble) ; 4 bits
(bytes 2 test-bytes))) ; 16 bits
View start.scm
(set! video-conf:clear-color (al:make-color-rgb 0 40 70))
(define credits-scene
(let* ((screen-padding 50) (credit-text "A game by Dan Leslie")
(label-width 200) (label-height 20)
(label-left (+ screen-padding (random (- video-conf:width label-width (* 2 screen-padding)))))
(label-top (+ screen-padding (random (- video-conf:height label-height (* 2 screen-padding)))))
(rect (make-rectangle label-left label-top label-width label-height))
(label (make-label rect credit-text padding-left: 5 padding-right: 5
View lazy-wrap.scm
(define-syntax lazy-wrap
(syntax-rules ()
((_ val)
(lazy-seq (cons val (lazy-seq '()))))))
View gist:2c8d2e5a463672fbb822
I loved season 19 of South Park. It ended about as well as I could have hoped.
For those wondering: no, the overall theme of this season was /not/ that
fighting for social justice is wrong. On the contrary, it affirmed that seeking
to improve society is a laudable goal. Where it drew a line was where it was
reasonable; the point at which one's belief in their own righteousness has
allowed them to overlook their own faults and poor behaviour.
IMHO, what South Park primarily attempted to convey is that something to be
concerned about is the manner in which media and advertising wields our concerns
View gist:3765312
(assoc 'window-id (frame-parameters (selected-frame)))