Skip to content

Instantly share code, notes, and snippets.

View edipretoro's full-sized avatar

Emmanuel Di Pretoro edipretoro

24 followers · 53 following
View GitHub Profile
@edipretoro
edipretoro / pmb_deploy.pl
Created June 3, 2013 11:02
#!/usr/bin/env perl
use strict;
use warnings;
use DBI;
use File::Slurp;
use File::Basename;
use File::Next;
use Getopt::Long;
@edipretoro
edipretoro / .emacs.el
Created February 3, 2013 10:37
(defun manu/substr-repo-from-filename (string)
(interactive)
(substring
(expand-file-name string)
(length
(expand-file-name (vc-call-backend 'git 'root default-directory)))))
(defun manu/log-edit-insert-filenames ()
(interactive)
(insert "* " (mapconcat 'manu/substr-repo-from-filename (log-edit-files) ", ") ": "))
@edipretoro
edipretoro / .emacs.el
Created November 12, 2012 14:37
(defun toggle-fullscreen (&optional f)
(interactive)
(let ((current-value (frame-parameter nil 'fullscreen)))
(set-frame-parameter nil 'fullscreen
(if (equal 'fullboth current-value)
(progn
(setq left-margin 0)
(setq right-margin 0)
(set-window-margins (selected-window) left-margin right-margin))
(if (boundp 'old-fullscreen) old-fullscreen nil)
@edipretoro
edipretoro / bootstrap-plugins.txt
Created October 21, 2012 08:42 — forked from mklabs/bootstrap-plugins.txt
h5bp + twitter bootstrap integration
bootstrap-tooltip.js
bootstrap-popover.js
bootstrap-alert.js
bootstrap-button.js
bootstrap-carousel.js
bootstrap-collapse.js
bootstrap-dropdown.js
bootstrap-modal.js
bootstrap-scrollspy.js
bootstrap-tab.js
@edipretoro
edipretoro / comment.pl
Created October 8, 2012 13:46 — forked from anonymous/comment.pl
HTML4 comment parsing issue with Mojo::DOM
#!/usr/bin/env perl
use strict;
use warnings;
use 5.010;
use Mojo::DOM;
use HTML::TreeBuilder;
my $content = <<'EOF';
<html>
<body>
@edipretoro
edipretoro / benchmark.pl
Created October 8, 2012 13:46 — forked from anonymous/benchmark.pl
Simple Mojo::DOM vs HTML::TreeBuilder comparison
#!/usr/bin/env perl
use strict;
use warnings;
use HTML::TreeBuilder;
use Mojo::DOM;
use Benchmark qw(:hireswallclock cmpthese);
use Template;
@edipretoro
edipretoro / mypkm_indexer.pl
Created June 14, 2012 13:24
#!/usr/bin/env perl
use strict;
use warnings;
use FindBin;
use lib "$FindBin::Bin/../lib";
use myPKM::Schema;
use Lucy::Analysis::PolyAnalyzer;
@edipretoro
edipretoro / mypkm_indexer.pl
Created June 14, 2012 13:20
#!/usr/bin/env perl
use strict;
use warnings;
use FindBin;
use lib "$FindBin::Bin/../lib";
use myPKM::Schema;
use Lucy::Analysis::PolyAnalyzer;
@edipretoro
edipretoro / gist:2924302
Created June 13, 2012 14:09 — forked from SebDeclercq/gist:2924300
#! /usr/bin/perl -w
use strict;
use warnings;
use feature 'say';
use Data::Dump;
my %total_bytes;
while (<>) {
my ($source,$destination,$bytes) = split;
@edipretoro
edipretoro / LawVersion.pm
Created June 6, 2012 12:07
use utf8;
package LawDB::Schema::Result::LawVersion;
# Created by DBIx::Class::Schema::Loader
# DO NOT MODIFY THE FIRST PART OF THIS FILE
=head1 NAME
LawDB::Schema::Result::LawVersion