Skip to content

Instantly share code, notes, and snippets.

@aanoaa

aanoaa/post-commit

Created March 12, 2011 04:44
Show Gist options
  • Save aanoaa/867034 to your computer and use it in GitHub Desktop.
Save aanoaa/867034 to your computer and use it in GitHub Desktop.
Download ZIP
aplay random sounds
Raw
post-commit
#!/usr/bin/env perl
use List::Util qw(shuffle);
my ($music) = shuffle <$ENV{HOME}/.git/sounds/*>;
exec "aplay $music > /dev/null 2>&1 &";
@am0c
Copy link

am0c commented Apr 4, 2011

use List::Util qw(shuffle);
my ($music) = shuffle <$ENV{HOME}/.git/sounds/*>;
exec "aplay $music > dev/null 2>&1 &";

@aanoaa
Copy link
Author

aanoaa commented Apr 8, 2011

우왕 굳

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment