Ignacy Moryc ignacy

🦆

duck typing

ignacy / solrsetup.sh

Created May 7, 2013 08:02 — forked from chrisl8888/solrsetup.sh

	#/bin/bash
	# stolen from http://kingstonlabs.co.uk/blog/how-to-install-solr-36-on-ubuntu-1204/
	sudo apt-get update; sudo apt-get upgrade -y;

	# Install solr and jetty packages
	sudo apt-get install jetty openjdk-7-jdk libjetty-extra unzip -y
	cd ~;
	wget http://www.eng.lsu.edu/mirrors/apache/lucene/solr/3.6.2/apache-solr-3.6.2.tgz
	tar -xvzf *.tgz;
	rm *.tgz;

ignacy / sublime-text-2.el

Created April 25, 2013 11:29 — forked from k-bx/sublime-text-2.el

ignacy / init-projectile.el

Created March 30, 2013 20:07


	(defadvice find-tag-at-point (before auto-visti-tags)
	"Load default TAGS file from home directory if needed"
	(visit-tags-table (concat (projectile-project-root) "TAGS")))
	(ad-activate 'find-tag-at-point)

ignacy / im-keys.el

Created March 8, 2013 10:25

	(defun run-file-or-spec ()
	"If we're in a spec file - run rspec; in other case use quickrun"
	(interactive)
	(let ((file-name-ending (substring (file-name-nondirectory (buffer-file-name)) -8 nil)))
	(if (string= "_spec.rb" file-name-ending)
	(rspec-verify)
	(quickrun))))

	(bind "<f14>" 'run-file-or-spec)

ignacy / core..clj

Created January 7, 2013 16:34

	(ns word_wrap_cata_clojure.test.core
	(:use [word_wrap_cata_clojure.core])
	(:use [midje.sweet])
	(:use clojure.pprint))


	;; Source: http://blog.8thlight.com/uncle-bob/2013/01/07/FPBE3-Do-the-rules-change.html


	(facts

ignacy / gist:3951226

Created October 25, 2012 07:42

	(defun get-candidate-by-email (email)
	(comint-send-string (inf-ruby-proc)
	(format "candidate = User.find_by_email('%s').try(:profile)" email)))

	(defun get-your-candidate ()
	(interactive)
	(get-candidate-by-email "someemail@gmail.com"))

ignacy / whole_page.el

Created August 10, 2012 10:34

	(defun welcome-page-handler (httpcon)
	(elnode-http-start httpcon "200" '("Content-type" . "text/html"))
	(elnode-http-return httpcon (my-main-page)))

	(defun html (x)
	"Return valid HTML code constructed from passed list"
	(if (not (listp x))
	x
	(let ((tag (car x))
	(body (cdr x)))

ignacy / page_generation.el

Created August 10, 2012 10:30

	(html '("html"
	("head"
	("body"
	("div"
	("h1" "Hello world")
	("div" "I don't" ("b" " like ") "plain html page look")
	("br")
	("div" ("attributes" "class=span9 style=\"color:red\"")
	"This is a webpage served by elnode!"))))))

ignacy / html.el

Created August 10, 2012 10:26

	(defun html (x)
	"Return valid HTML code constructed from passed list"
	(if (not (listp x))
	x
	(let ((tag (car x))
	(body (cdr x)))
	(if (and (listp (car body)) (string= "attributes" (first (car body))))
	(concat "<" tag " " (car (cdr (car body))) ">"
	(apply 'concat (mapcar 'html (cdr body)))
	"</" tag ">")

ignacy / basic_elnode.el

Created August 10, 2012 10:17

	(defun welcome-page-handler (httpcon)
	(elnode-http-start httpcon "200" '("Content-type" . "text/html"))
	(elnode-http-return httpcon "<html><body><h1>Hello there!!</h1></body></html>"))

	(elnode-start 'welcome-page-handler :port 8010 :host "localhost")