Skip to content

Instantly share code, notes, and snippets.

View pesterhazy's full-sized avatar

Paulus Esterhazy pesterhazy

123 followers · 0 following
View GitHub Profile
@pesterhazy
pesterhazy / gist:870831
Created March 15, 2011 15:03
Fatal error: Uncaught exception 'Zend_Controller_Action_Exception' with message 'Forbidden' in /var/www/findfriends.openunivercity.de/application/plugins/Auth.php:61 Stack trace: #0 /opt/ZendFramework-1.11.1/library/Zend/Controller/Plugin/Broker.php(309): Application_Plugin_Auth->preDispatch(Object(Zend_Controller_Request_Http)) #1 /opt/ZendFramework-1.11.1/library/Zend/Controller/Front.php(941): Zend_Controller_Plugin_Broker->preDispatch(Object(Zend_Controller_Request_Http)) #2 /opt/ZendFramework-1.11.1/library/Zend/Application/Bootstrap/Bootstrap.php(97): Zend_Controller_Front->dispatch() #3 /opt/ZendFramework-1.11.1/library/Zend/Application.php(366): Zend_Application_Bootstrap_Bootstrap->run() #4 /var/www/findfriends.openunivercity.de/public/index.php(36): Zend_Application->run() #5 {main} thrown in /var/www/findfriends.openunivercity.de/application/plugins/Auth.php on line 61
@pesterhazy
pesterhazy / gist:999384
Created May 30, 2011 19:54
--- tmp/flashcache 2011-03-14 03:49:35.000000000 +0100
+++ bin/flashcache 2011-04-29 19:39:37.000000000 +0200
@@ -57,6 +57,7 @@
while (my $arg=shift(@ARGV)) {
if ($arg =~ /^-h$/) { usage(); }
if ($arg =~ /^-d$/) { $MAIN::DEBUG=1; next; }
+ if ($arg =~ /^-p$/) { $MAIN::PLAY=1; next; }
if ($arg =~ /^-find$/) { $opt->{find} = shift(@ARGV); next; }
if ($arg =~ /^-post$/) { $opt->{post} = shift(@ARGV); next; }
if ($arg =~ /^-dest$/) { $opt->{dest} = shift(@ARGV); next; }
@pesterhazy
pesterhazy / git-ag
Created March 1, 2014 17:55
Search your git repository using ag (the silver searcher)
#!/bin/bash
# Put additional ignore patterns (one by line) in .grepignore
#
git-ag () {
if [[ "$1" = "-a" ]]
then
all=1
shift
@pesterhazy
pesterhazy / grep-with-exclusions
Created September 22, 2014 17:13
#!/usr/bin/env zsh
#
# Grep in the files of the current git repository *with a list of exclusions*, using `git grep` or `ag`.
#
# Exclusions are defined in .grepignore. Each line is a regex suitable for grep(2); if the filename
# matches any of the regexes, it is excluded from the search.
#
# Works with zsh (bash not tested).
#
# Versions for `git grep` and `ag` are provided.
@pesterhazy
pesterhazy / .zshrc
Created October 5, 2014 17:16
symlink dotfiles in your dropbox folder to your $HOME
dropbox-update-dotfiles () {
src="$HOME/Dropbox/Linux/dotfiles"
dst="$HOME"
if [[ ! -d "$src" ]]; then
print Using $HOME/dotfiles.
src="$HOME/dotfiles"
fi
if [[ ! -d "$src" ]]; then
print "Directory $src not found."
@pesterhazy
pesterhazy / in_vagrant
Created December 22, 2014 13:09
in_vagrant: transparently execute command inside vagrant
#!/bin/bash
#
# Syntax:
#
# ./in_vagrant [command] [args]
#
# Example usage:
#
# Set up a Vagrantfile with a config called "foo"
#
@pesterhazy
pesterhazy / equalsstar.clj
Created February 13, 2015 15:42
Debugging aid: show differences between two data structures
(defn =* [a b]
(if (= a b)
true
(do
(println "No match:" a b)
(println "Dfference:" )
(clojure.pprint/pprint (clojure.data/diff a b))
false)))
@pesterhazy
pesterhazy / constrain.clj
Last active August 29, 2015 14:15
Constrain a sequence in clojure
(defn constrain
"Truncate a sequence
Returns a two-element vector to signal whether of not the seq has
been truncated"
[max coll]
(let [[head tail] (split-at max coll)]
(if (seq tail)
[nil (take max coll)]
[coll])))
@pesterhazy
pesterhazy / nixos-14.12-vagrant
Last active August 29, 2015 14:16
Trying out nixos 14.12 in vagrant
# The vagrant box provided by @zimbatm is still on 14.02. Follow
# this recipe to update the machine to 14.12
#
# Make sure you have a recent version of `vagrant` (https://www.vagrantup.com)
# and virtualbox.
mkdir nixos-test
cd nixos-test
vagrant init zimbatm/nixbox64 # creates Vagrantfile
vagrant up # brings up the box
@pesterhazy
pesterhazy / when-seq.clj
Created May 11, 2015 08:48
when-seq: conditionally apply operation on sequence in threading macro
(defn when-seq
"If condition is true, perform seq operation f on xs with args; otherwise return f.
Intended for use in the thread first macro. For example:
(-> []
(when-seq x conj x))
will be [:foo] if x is :foo, [] if x is nil"
[xs condition f & args]