Joe Taylor joekarma

Vancouver

Recently created

Least recently created

Recently updated

Least recently updated

joekarma / gist:5430913

Last active December 16, 2015 11:58

regex-replace-all-to-list can be used to replace parts of a string with arbitrary objects. An example use-case (shown below) is to linkify parts of a string while still escaping the rest for HTML.

	(defun scan-to-ranges (regex target-string)
	(let ((matches (ppcre:all-matches regex target-string))
	(end-pos (length target-string))
	(starts-with-match nil)
	(all-ranges nil))

	(when (not matches)
	(return-from scan-to-ranges
	(list (cons 0 end-pos))))

joekarma / television-subreddit.css

Last active December 15, 2015 21:19

Tweaks to /r/television's subreddit CSS.

	.side .spacer
	{
	margin:4px 0 3px;
	}

	.submit-text
	{
	display:none;
	}

joekarma / gist:5321929

Last active December 15, 2015 20:58

sha512 password digesting function

	(defun 5-random-base64-encoded-bytes ()
	(base64:usb8-array-to-base64-string
	(map 'vector (lambda (place)
	(declare (ignore place))
	(random 255))
	(make-sequence 'vector 5))))

	(defun digest-password (password &optional (salt (5-random-base64-encoded-bytes)))
	(values
	(base64:usb8-array-to-base64-string

joekarma / gist:5312207

Created April 4, 2013 17:13

	(in-package :cl-user)

	(defun yaclml-defaults (thunk)
	(eval `(let ((,(intern "YACLML-INDENT" :yaclml) nil))
	(funcall ,thunk))))

	(asdf:defsystem :foo
	:serial t
	:description "Foo is baz for bar."
	:author "Joe Taylor"

joekarma / gist:5311681

Created April 4, 2013 16:00

	;; cl-who

	(let ((colors '("red" "green" "blue")))
	(who:with-html-output-to-string (s)
	(:html
	(:head
	(:title "Colors"))
	(:body
	(:ul
	(dolist (c colors)

joekarma / yaclml-indent

Created April 4, 2013 15:24

	CL-USER> (setf yaclml::yaclml-indent t)
	T
	CL-USER> (<:html (<:head (<:title "Hello, world")))
	<html
	><head
	><title
	>Hello, world</title
	></head
	></html
	>

joekarma / gist:4653386

Created January 28, 2013 06:11

	(defvar foo (get-foo))

	(defun get-foo ()
	42)

	(format t "~a" foo)

	;; The above code will not work, but it's analogous to the JavaScript below, which will:

	;; var foo = getFoo();

joekarma / gist:4652004

Created January 28, 2013 01:25

	(defun a-bound-p ()
	(boundp 'a))

	(defun funcall-with-a-as-special-variable (function &optional a)
	(declare (special a))
	(funcall function))

	(funcall-with-a-as-special-variable
	#'a-bound-p) ;;; => T

joekarma / gist:4583919

Created January 21, 2013 05:58

Interact with SDL window live, per http://code.google.com/p/lispbuilder/wiki/PortableInteractiveDevelopment

	(defun draw-frame ()
	(sdl:clear-display sdl:black)
	(sdl:draw-box-* 0 0 100 100)
	(sdl:update-display))

	(sdl:with-init ()
	(sdl:window 1024 768)
	(sdl:with-events ()
	(:quit-event () t)
	(:idle ()

joekarma / gist:4583873

Created January 21, 2013 05:45

	(defun draw-frame ()
	(sdl:clear-display sdl:black)
	(sdl:draw-box-* 30 30 100 100)
	(sdl:update-display))

	(sdl:with-init ()
	(sdl:window 1024 768)
	(sdl:with-events ()
	(:quit-event () t)
	(:idle ()

Newer Older