Digital Signage Project

defaults write com.apple.iWork.Keynote SaveCompressionLevel 0
defaults write com.apple.iWork.Keynote FormatXML YES

#!/bin/bash

if [ ! -e $1 ];
then
  echo "The file you specified does not exist.";
  exit 1;
fi;

echo -ne "Searching $1.";

./stripnullandemptytags.pl $1 | xmllint -format - > refold.xml;
diff $1 refold.xml &> /dev/null;

while [ $? -eq 1 ];
do

  mv refold.xml $1;
  echo -ne ".";

  ./stripnullandemptytags.pl $1 | xmllint -format - > refold.xml;
  diff $1 refold.xml &> /dev/null;

done;

mv refold.xml $1;
echo " stable.";

#!/usr/bin/perl

#./stripnullandemptytags.pl presentation.xml | xmllint -format - > refold.xml

open(BLARG, "$ARGV[0]");
 @lines = ;
close(BLARG);

$blarg = join("", @lines);

$blarg =~ s/>s*</></g;
$blarg =~ s/>s*<(?!sf:br)([wd:s]+)/>s*</></g;
print "$blarg";

#!/usr/bin/perl

# ./findids.pl index.apxl 13928-14195 slide-description | xmllint -format - > newindex.apxl

open(INDEX, "$ARGV[0]");
  @indexfile = ;
close(INDEX);

($start_line, $count) = split(/D+/, $ARGV[1]);

$count -= $start_line;

@examine = splice @indexfile, $start_line, $count;

print STDERR "Examining $count lines for references in $ARGV[0]...n";

foreach $line (@examine) {

# Find sfa:ID values.
  if($line =~ /sfa:ID="([w-]+)"/) {

    $id = $1;

    push @idlist, $id;

    $lineno = 1;
    foreach $origline (@indexfile) {
      $origline =~ s/^s+//;
      $origline =~ s/s+$//;
      push @matches, "t$lineno: $origline" if($origline =~ /"$id"/);

      $lineno += $count if($lineno == ($start_line - 1));
      $lineno++;
    }

    if(scalar(@matches) gt 0) {
      print STDERR "$id appears in:n";
      print STDERR join "n", @matches;
      print STDERR "n";
    }

    $outreferences += scalar(@matches);
    @matches = ();

  }

}

if($outreferences gt 0) {
  print STDERR "The range you specified is not self-referential.n";
  exit;
}

$rangetext = join "n", @examine;
@alphabet = (A..Z);

foreach $id (@idlist) {

  # Create a new ID.
  $id =~ /^[A-Z]+(?![a-z])([A-Za-z]+)-d+$/;
  $types{$1}++;

  $newids{$id} = "$ARGV[2]-" . $1 . "-" . $alphabet[$types{$1}-1];

  $rangetext =~ s/"$id"/"$newids{$id}"/g;

}

# Reintegrate the spliced array back into the collective.
splice @indexfile, $start_line, 0, ($rangetext);
# Concat and print to STDOUT.
print join "n", @indexfile;

print STDERR "Replacement complete.n";

#!/bin/sh

PID=(`ps -ax | grep Keynote | grep -v grep | cut -b 1-5`)

if [ ! -z "$PID" ]; then
  kill $PID && echo "Keynote killed"
else
  echo "Keynote not running"
fi

on run argv
  tell application "Keynote"
    set presentation to item 1 of argv
    do shell script "open /System/Library/Frameworks/ScreenSaver.framework/Resources/ScreenSaverEngine.app"
    GetURL presentation
    repeat with curDoc in slideshows
      if curDoc is not equal to slideshow then
        try
          close curDoc
        end try
      end if
    end repeat
  end tell
end run