Skip to content

Instantly share code, notes, and snippets.

View edipretoro's full-sized avatar

Emmanuel Di Pretoro edipretoro

33 followers · 53 following
View GitHub Profile
@edipretoro
edipretoro / reveal.pl
Last active February 9, 2016 06:27
Tiny tool to create a webserver and serve my presentations created with Reveal.js
#!/usr/bin/env perl
use strict;
use warnings;
use Plack::Builder;
use Plack::App::Directory;
use Cwd;
my $revealjs_repository = '/Users/manu/projets/reveal.js';
@edipretoro
edipretoro / 01-guid_collision.pl
Created January 25, 2016 12:37
Testing some ways to generate short GUID
#!/usr/bin/env perl
use strict;
use warnings;
use Data::GUID;
use Digest::CRC 'crc32';
use Data::Printer;
my %keys_hex;
@edipretoro
edipretoro / clear_cache_of_domain.pl
Created August 26, 2014 12:51
#!/usr/bin/env perl
use strict;
use warnings;
use Win32::UrlCache::Cache;
use Win32::INET qw/GetUrlCacheFile/;
use File::Remove;
my $index = Win32::UrlCache::Cache->new();
@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;