Sebastián Ortega sortega

## remount.pl
#!/usr/bin/perl -w
use strict;
use Getopt::Long;

# PUT YOUR MOUNTPOINTS HERE
# No trailing slashes
use constant MOUNT_POINTS => qw(
        /mnt
);

## .promptrc
function git_dirty {
	[[ $(git status 2> /dev/null | tail -n1) != "nothing to commit (working directory clean)" ]] && echo "*"
}

function git_prompt {
	__git_ps1 '%s' | sed -e "s/\(.*\)/\1$(git_dirty):/"
}

function proml {

## reindent.pl
#!/usr/bin/perl -w
use Getopt::Long;
use strict;

sub usage {
        print <<EOB ;
usage: $0 --tabwidth 2 <files>

Compacts the indentation to the desired fixed step.

## fix_encoding.pl
#!/usr/bin/perl
use strict;
use Encode;

binmode( STDIN,  ':utf8' );
binmode( STDOUT, ':latin1' );

while (<>) {
        print Encode::decode('utf8', $_);
}

## slidenup.sh
alias slidenup='pdfnup --nup "2x3" --no-landscape --frame true --delta ".25cm .5cm" --offset ".25cm .25cm" --scale 0.9'

## form.php
<?php echo("<?xml version=\"1.0\" encoding=\"utf-8\"?>"); ?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="es" lang="es-ES">
<head>
    <title>Depurador de formularios</title>
</head>

<body>
    <h1>Depurador de formularios</h1>

## love-triangle.clj
(use 'clojure.test)

(defn transpose [m]
  (apply map vector m))

(defn window1d
  "Computes all triples of consecutives elements"
  [padding acoll]
  (partition 3 1 [padding] (cons padding acoll)))

## epochfilter.pl
#!/usr/bin/env perl
use strict;

sub tag {
    my $epoch = shift;
    return "$epoch=<".(scalar (localtime $epoch)).">";
}

sub tag_line {
    my $line = shift;

## force_feed_macports
Just copy the archive to /opt/local/var/macports/distfiles/{port_name}/

## trenes.clj
(ns trenes
  (:require [clojure.string :as str]))

(defn empty-cache [c]
  {:capacity c
   :values   {}
   :time     0
   :misses   0
   })
	#!/usr/bin/perl -w
	use strict;
	use Getopt::Long;

	# PUT YOUR MOUNTPOINTS HERE
	# No trailing slashes
	use constant MOUNT_POINTS => qw(
	/mnt
	);
	function git_dirty {
	[[ $(git status 2> /dev/null \| tail -n1) != "nothing to commit (working directory clean)" ]] && echo "*"
	}

	function git_prompt {
	__git_ps1 '%s' \| sed -e "s/\(.*\)/\1$(git_dirty):/"
	}

	function proml {
	#!/usr/bin/perl
	use strict;
	use Encode;

	binmode( STDIN, ':utf8' );
	binmode( STDOUT, ':latin1' );

	while (<>) {
	print Encode::decode('utf8', $_);
	}
	<?php echo("<?xml version=\"1.0\" encoding=\"utf-8\"?>"); ?>
	<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
	"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
	<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="es" lang="es-ES">
	<head>
	<title>Depurador de formularios</title>
	</head>

	<body>
	<h1>Depurador de formularios</h1>
	(use 'clojure.test)

	(defn transpose [m]
	(apply map vector m))

	(defn window1d
	"Computes all triples of consecutives elements"
	[padding acoll]
	(partition 3 1 [padding] (cons padding acoll)))
	#!/usr/bin/env perl
	use strict;

	sub tag {
	my $epoch = shift;
	return "$epoch=<".(scalar (localtime $epoch)).">";
	}

	sub tag_line {
	my $line = shift;
	(ns trenes
	(:require [clojure.string :as str]))

	(defn empty-cache [c]
	{:capacity c
	:values {}
	:time 0
	:misses 0
	})