priyadarshan’s gists

priyadarshan / hello.go

Last active August 29, 2015 14:27 — forked from fukamachi/hello.go

Go Hello World server

	package main

	import (
	"fmt"
	"log"
	"net/http"
	)

	func hello(w http.ResponseWriter, r *http.Request) {
	fmt.Fprintf(w, "Hello, World")

priyadarshan / libevent-pthreads.lisp

Last active August 29, 2015 14:27 — forked from fukamachi/libevent-pthreads.lisp

	(cffi:define-foreign-library libevent2-pthreads
	(:darwin (:or
	"libevent_pthreads.dylib"
	; brew's install of libevent on Mac OX X
	"/usr/local/lib/libevent_pthreads.dylib"
	; macports
	"/opt/local/lib/libevent_pthreads.dylib"))
	(:unix (:or "/usr/local/lib/event2/libevent_pthreads.so"
	"libevent_pthreads.so"
	"libevent_pthreads-2.0.so.5"

priyadarshan / 00-benchmarking.markdown

Last active August 29, 2015 14:27 — forked from fukamachi/00-benchmarking.markdown

Benchmarking Clack, Wookie and Node.js

Target servers

priyadarshan / gist:c1496e318d343fde043b

Last active August 29, 2015 14:27 — forked from fukamachi/gist:3e4cf07c5b7331d40b64

	;; http://kinokoru.jp/archives/840

	(defmacro css (name elems)
	`(with-open-file
	(standard-output ,(string-downcase name) :direction :output :if-exists :supersede)
	,@(loop for (elem attrs) in elems
	collect
	`(format t "~a {~%" ,elem)
	append
	(mapcar (lambda (attr)

priyadarshan / twitpic-dl.lisp

Last active August 29, 2015 14:27 — forked from fukamachi/twitpic-dl.lisp

Twitpic backup script

	#\|

	Twitpic Downloader
	==================

	This Common Lisp script downloads all image/video files from Twitpic account to the current directory.

	## Usage

	;; SBCL

priyadarshan / if-and-aif.lisp

Last active August 29, 2015 14:27 — forked from fukamachi/if-and-aif.lisp

	(defmacro execution-time (&body body)
	"Return the number of milliseconds it takes to execute `body`. Also
	returns the result as the second value."
	(let ((tm (gensym))
	(res (gensym)))
	`(let* ((,tm (get-internal-real-time))
	(,res (progn ,@body))
	(,tm (floor (* 1000 (- (get-internal-real-time) ,tm))
	internal-time-units-per-second)))
	(values (float ,tm) ,res))))

priyadarshan / clhs.lisp

Last active August 29, 2015 14:27 — forked from fukamachi/clhs.lisp

Common Lisp script to open a HyperSpec HTML which corresponds to a specified symbol. (Works only with SBCL on Mac)

	#!/usr/bin/env sbcl --script
	;; -- mode: common-lisp --

	;; Usage:
	;; clhs [SYMBOL]

	(require 'asdf)

	(defparameter hyperspec-home
	(merge-pathnames "Dropbox/Documents/HyperSpec/" (user-homedir-pathname))

priyadarshan / gist:135ec1880a49d52403f4

Last active August 29, 2015 14:27 — forked from fukamachi/gist:6462977

"Autoload" facility for Common Lisp which is similar to what Emacs Lisp has.

	;; Macros in this file provides a "autoload" facility like Emacs Lisp has.
	;; These are supposed to be used in a Lisp init file.
	;;
	;; Without those, you have to load all libraries you not sure whether they will be used or not.
	;;
	;; (ql:quickload :repl-utilities)
	;; (use-package :repl-utilities)
	;;
	;; "Autoload" facility delays loading libraries until they are needed.
	;; See the following 3 macros and their documentations.

priyadarshan / hello-world.lisp

Last active August 29, 2015 14:27 — forked from fukamachi/hello-world.lisp

Print "Hello World" to the *standard-output* without using integer, string and character literals in Common Lisp.

	;; This is a answer for a question of CodeIQ.
	;; https://codeiq.jp/ace/cielavenir/q431

	(in-package :cl-user)

	(defmacro print-capitalized (symbol &rest symbols)
	`(progn
	(princ ,(string-capitalize symbol))
	,@(loop for s in symbols
	collect `(princ ,(name-char 'space))

priyadarshan / gist:828826ec8d3a7dcab301

Last active August 29, 2015 14:27 — forked from fukamachi/gist:6364983

A Common Lisp function to extract a tarball (.tar.gz) file to a directory (*default-pathname-defaults*).

	(ql:quickload '(chipz archive))

	(defun extract-tarball (pathname)
	"Extract a tarball (.tar.gz) file to a directory (default-pathname-defaults)."
	(with-open-file (tarball-stream pathname
	:direction :input
	:element-type '(unsigned-byte 8))
	(archive::extract-files-from-archive
	(archive:open-archive 'archive:tar-archive
	(chipz:make-decompressing-stream 'chipz:gzip tarball-stream)