joekarma’s gists

joekarma / gist:5565735

Created May 13, 2013 02:01

Common Lisp macro for easily creating new projects on subdomains of site.

	(defvar projects nil)

	(defmacro defproject (project-name (project-domain &key use)
	&body project-routes)

	(let ((project (alexandria:make-keyword project-name)))

	(pushnew project projects)

	(eval

joekarma / gist:5507161

Created May 3, 2013 04:09

	(sort
	(remove-if #'null
	(mapcar (lambda (release)
	(cons (ql-dist:name release)
	(release-last-updated-date release)))
	(ql-dist:provided-releases (ql-dist:find-dist "quicklisp")))
	:key #'cdr)
	#'local-time:timestamp<
	:key #'cdr)

joekarma / gist:5507137

Last active December 16, 2015 22:29

	(defun release-last-updated-date (quicklisp-release)
	(ppcre:register-groups-bind (year month day)
	("-(\\d{4})(\\d{2})(\\d{2})(?:-\|$)" (ql-dist:prefix quicklisp-release))
	(local-time:encode-timestamp 0 0 0 0 (parse-integer day) (parse-integer month) (parse-integer year))))

joekarma / gist:5507075

Created May 3, 2013 03:46

	(mapcar (lambda (d)
	(format nil "~{~a~^-~}"
	(series:collect
	(series:until-if
	(lambda (string-part)
	(ppcre:scan "^\\d{8}$" string-part))
	(series:scan (ppcre:split "-" (lastcar (pathname-directory d))))))))
	(list-directory
	(merge-pathnames
	#P"software/"

joekarma / gist:5506854

Last active December 16, 2015 22:29

Install every system / library / release in quicklisp. Download all the things.

joekarma / gist:5493426

Created May 1, 2013 02:41

joekarma / gist:5486646

Last active December 16, 2015 19:39

	(defun forgiving-subseq (seq &key (start 0) (seq-length (length seq)) (end seq-length))
	(let ((empty-seq (subseq seq 0 0)))
	(cond ((> start seq-length) empty-seq)
	(t (subseq seq start (min seq-length end))))))

	(defun group-seq (seq group-size)
	(unless (and (>= group-size 1)
	(integerp group-size))
	(error "Group size must be an integer greater than zero."))
	(loop with seq-length = (length seq)

joekarma / gist:5457570

Created April 25, 2013 04:51

	CL-USER> (fad:pathname-as-directory #P"/Users/joekarma/src/tmp/test\\[one]")
	#P"/Users/joekarma/src/tmp/test\\\\[one]/"
	CL-USER> (fad:pathname-as-directory #P"/Users/joekarma/src/tmp/test\\[one]/")
	#P"/Users/joekarma/src/tmp/test\\[one]/"

joekarma / gist:5457536

Created April 25, 2013 04:38

	CL-USER> (defun gethash* (hash-table key &rest more-keys)
	(cond ((null more-keys) (gethash key hash-table))
	(t (apply #'gethash*
	(append (list (gethash key hash-table)
	(car more-keys))
	(cdr more-keys))))))
	GETHASH*
	CL-USER> (gethash* (yason:parse "{foo:{bar:{baz:42}}}") "foo" "bar" "baz")
	42
	T

joekarma / gist:5440227

Created April 23, 2013 01:55

Joe Taylor joekarma