LouD LouDnl

Move your stashes from one repo to another

This was useful for me when we created a new branch for a new major release, but were still working on our current version as well. I cloned our repo again and kept the new project on our new branch, but also wanted to get my stashes there.

Download your stashes

git stash show -p > patch

You'll have to specify your stash and name your file whatevery you want. Do this for as all your stashes, and you'll have patch files in your pwd.

make changes
git stash save
git checkout -b xxx
git stash pop

where xxx is the new branch name

Clojure Destructuring Tutorial and Cheat Sheet

(Related blog post)

Simply put, destructuring in Clojure is a way extract values from a datastructure and bind them to symbols, without having to explicitly traverse the datstructure. It allows for elegant and concise Clojure code.

	import _winreg

	def DecodeKey(rpk):
	rpkOffset = 52
	i = 28
	szPossibleChars = "BCDFGHJKMPQRTVWXY2346789"
	szProductKey = ""

	while i >= 0:
	dwAccumulator = 0

	#!/bin/sh

	#
	# Copyright (C) 2010 Matthias Buecher (http://www.maddes.net/)
	#
	# This program is free software; you can redistribute it and/or modify
	# it under the terms of the GNU General Public License as published by
	# the Free Software Foundation; either version 2 of the License, or
	# (at your option) any later version.
	# http://www.gnu.org/licenses/gpl-2.0.txt

	#!/usr/bin/perl
	######################################################################
	#
	# File : split_bootimg.pl
	# Author(s) : William Enck <[email protected]>
	# Description : Split appart an Android boot image created
	# with mkbootimg. The format can be found in
	# android-src/system/core/mkbootimg/bootimg.h
	#
	# Thanks to alansj on xda-developers.com for

	(defn select-vals [map keyseq]
	"Returns a list containing the entries in map whose key is in keys, in order of the supplied keys, with nil in place of keys not found"
	(loop [ret [] keys (seq keyseq)]
	(if keys
	(let [value (first (rest (. clojure.lang.RT (find map (first keys)))))]
	(recur
	(if value
	(conj ret value)
	(conj ret nil))
	(next keys)))

	/*
	Test your JKS file easily.

	You have created a java JKS trust store file to access a webservice with a certificate, and you want to test if it works?
	Some colleagues often test this by deploying the jks to the application server (tomcat, weblogic...), restarting the server and manually running tests,
	and repeating this procedure until the jks is properly created.

	you can speed up this test by using this simple java program:

	> javac TestJKS.java

	(defn rand-str [len]
	(apply str (take len (repeatedly #(char (+ (rand 26) 65))))))

	;; This fn allows calling any method, as long as it's the first with that name in getDeclaredMethods().
	;; Works even when the arguments are primitive types.

	(defn call-method
	[obj method-name & args]
	(let [m (first (filter (fn [x] (.. x getName (equals method-name)))
	(.. obj getClass getDeclaredMethods)))]
	(. m (setAccessible true))
	(. m (invoke obj (into-array Object args)))))

LouD LouDnl

Move your stashes from one repo to another

Download your stashes

Clojure Destructuring Tutorial and Cheat Sheet

Vectors and Sequences