Rui Carmo rcarmo

rcarmo / blu.hy

Created March 14, 2015 09:30

Blu, a CLI tool for Azure

	(import
	[azure.servicemanagement [ServiceManagementService]]
	[base64 [b64decode]]
	[click [argument command group option]]
	[json [loads dumps]]
	[os [environ]]
	[os.path [join]]
	[OpenSSL.crypto [load-pkcs12 dump-privatekey dump-certificate filetype-pem]]
	[subprocess [Popen pipe]]
	[tabulate [tabulate]]

rcarmo / hazelcast-in-jython-startup.txt

Last active August 29, 2015 14:13

Hazelcast in Jython

	$ export CLASSPATH=$CLASSPATH:lib/hazelcast-3.4.jar
	$ python
	sys-package-mgr: processing new jar, '/home/rcarmo/Development/jython-hazelcast/lib/hazelcast-3.4.jar'
	Jython 2.7b3 (default:e81256215fb0, Aug 4 2014, 02:39:51)
	[Java HotSpot(TM) 64-Bit Server VM (Oracle Corporation)] on java1.8.0_05
	Type "help", "copyright", "credits" or "license" for more information.
	>>> import com.hazelcast.core.Hazelcast as Hazelcast
	>>> import com.hazelcast.config.Config as Config
	>>> h = Hazelcast.newHazelcastInstance(Config())
	jan 09, 2015 4:17:23 PM com.hazelcast.instance.DefaultAddressPicker

rcarmo / extract.hy

Last active August 29, 2015 14:11

Readability-like HTML extraction in Hy

	; originally posted on https://github.com/rodricios/eatiht/issues/2#issuecomment-67769343
	(import
	[collections [Counter]]
	[cookielib [CookieJar]]
	[lxml.etree [HTML tostring]]
	[urllib2 [build-opener HTTPCookieProcessor]])

	(def min-length 20)

	(def text-xpath (+ "//body//[not(self::script or self::style or self::i or self::b or self::strong or self::span or self::a)]/text()[string-length(normalize-space()) > " (str min-length*) "]/.."))

rcarmo / gist:2350a663d074e97b58b3

Created December 17, 2014 23:05

keybase.md

	### Keybase proof

	I hereby claim:

	* I am rcarmo on github.
	* I am rcarmo (https://keybase.io/rcarmo) on keybase.
	* I have a public key whose fingerprint is 0E2D 06BA B19C 2006 AA54 A7C1 ACD1 5B9D E6C8 ADE1

	To claim this, I am signing this object:

rcarmo / indexer.hy

Created August 4, 2014 14:26

	(import [os [walk environ]]
	[os.path [dirname exists join getmtime]]
	[datetime [datetime]]
	[time [time]]
	[whoosh.writing [BufferedWriter AsyncWriter]]
	[whoosh.index [create-in open-dir]]
	[whoosh.fields [Schema TEXT STORED ID KEYWORD NUMERIC DATETIME]]
	[xml.etree [cElementTree]]
	[bs4 [BeautifulSoup]]
	[hashlib [sha1]]

rcarmo / 538.json

Created July 3, 2014 21:34 — forked from CamDavidsonPilon/538.json

rcarmo / chekhov.hy

Created May 4, 2014 19:27

map-reduce in hylang

	; Packed shepherd together with mincemeat for convenience
	(import [mincemeat.shepherd [run_server]])

	; chunker is temporarily broken
	;(defn chunker [gen size]
	; (let [[gen (iter gen)]
	; [chunk []]
	; (try
	; (while True
	; (for [_ (xrange size)]

rcarmo / hosetests.hy

Created December 7, 2013 19:19

First stab at a plugin for running tests in hylang

	(import os sys logging nose)
	(import [nose.plugins [Plugin]])

	(setv log (.getLogger logging "nose.plugins.hylang"))

	(.setLevel log logging.DEBUG)

	(defclass HoseTests [Plugin]
	[[name "HoseTests"]
	[options

rcarmo / setup.hy

Last active December 28, 2015 05:59

Setuptools in hylang

	(import [os [walk]]
	[os.path [join splitext]]
	[distutils.core [setup]]
	[distutils.command.build [build]]
	[fnmatch [fnmatch]]
	[subprocess [Popen PIPE]])

	(defn glob [path pattern]
	"find all files matching a given pattern"
	(for (step (walk path))

rcarmo / template.html

Created November 2, 2013 15:36 — forked from tinabeans/template.html

	<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
	<html>

	<head>
	<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
	<title>Single-Column Responsive Email Template</title>

	<style>
	@media only screen and (min-device-width: 541px) {
	.content {