Category Archives: Random Scripts

Sharepoint 2010 Managed Metadata Tag Cloud

Posted on
11

I’m in the process of reorganizing a Sharepoint 2010 site for our department, and one of the big changes is going from a folder based structure to a flat list of tagged and categorized documents.

In order to create a nice visual way of filtering the list, I’ve implemented a tag cloud using the managed metadata fields in the list. Here it is:

Now, Sharepoint’s built in Tag Cloud Webpart can only access Tags, not Managed Metadata columns. Tags are a no-go since they can’t be shown in list views, and you can’t have multiple sets of metadata. Managed Metadata on the other hand, is perfect for our situation.

So, in order to create the managed metadata tag cloud, I used the brilliant Sharepoint 2010 Managed Metadata WebPart from Brian JC. The web part takes as arguments a list, the column from which you want to display the metadata fields, and an XSL stylesheet to format the contents. And it’s free! (GPL license)

The default stylesheet produces the following output:

Now, in order to get it to display as a tag cloud, replace the default stylesheet with this XSL (swap METADATACOLUMNNAME with the actual column name in your list):

<?xml version='1.0' encoding='utf-8'?>
<xsl:stylesheet version='1.0' xmlns:xsl='http://www.w3.org/1999/XSL/Transform' xmlns:msxsl='urn:schemas-microsoft-com:xslt' exclude-result-prefixes='msxsl'>
  <xsl:output method='html' indent='yes'/>
  <xsl:template name='terms' match='//termset'>
    <xsl:param name='d'/>
    <div class='termset' style='padding: 10px 0px; text-align: center;'>
      <xsl:variable name='AvgHit'><xsl:value-of select='sum(//term/itemcount) div count(//term[itemcount > 0])'/></xsl:variable>
      <xsl:for-each select='//term[itemcount > 0]'>
        <xsl:sort select='name'/>
        <xsl:element name='span'>
          <xsl:attribute name='style'>
            padding-right: 5px;
            vertical-align: middle;
            padding-left: 5px;
            <xsl:if test='itemcount > $AvgHit'>font-size:1.5em;</xsl:if>
          </xsl:attribute>
          <xsl:element name='a'>
            <xsl:attribute name='href'>?FilterField1=METADATACOLUMNNAME&amp;FilterValue1=<xsl:value-of select='name'/></xsl:attribute>
            <xsl:value-of select='name'/>
          </xsl:element>
        </xsl:element>
        <xsl:if test='position() != last()'>
          <span style="font-size: 90%; color:#ccc; vertical-align:middle;"> | </span>
        </xsl:if>
      </xsl:for-each>
    </div>
  </xsl:template>
</xsl:stylesheet>

What it does:

  • Ignores the metadata structure, listing all tags
  • Removes tags that aren’t used in the list
  • Increases the font size for all tags used in a higher than average number of items (the most popular tags)
  • Adds a link to filter the given list using the chosen tag (Note: The list to be filtered must be on the same page as this web part)
And that’s it! With some knowledge of XSL, it should be easy to adjust this to whatever needs you might have.
Thanks to Brian for a great web part! Any issues or success stories, feel free to post in the comments.
UPDATE: Added a couple of spaces in the delimiter span to fix a problem where the line doesn’t break if there are no tags with spaces in them. Thanks to Christian for the input!

Fantasy – a Ruby library for scraping Fantasy Premier League

Posted on
Reply

The Fantasy Premier League site has one (quite strange) limitation – the mini league tables aren’t updated live even though the actual team pages are. This makes it a chore to stay updated on how you’re doing compared to your mini league buddies. So I created a small Ruby library to scrape information from the Premier League website and then present it in whichever way is wanted.

The library is available at http://github.com/evenv/fantasy.

It’s released under the MIT license, so feel free to use it for whatever you’d like.

I’ve included the Sinatra app I created along with the library to show updated points for a list of teams. It’s not particularly advanced, but does the trick for me (and works pretty well on the iPhone).

Automatically Unrar Everything In A Folder

Posted on
Reply

This script enters into all subfolders of the given folder, unrars all archives and then deletes the rar files. If the folder name matches HDTV or another filter of your choosing, the script will also move any video files to the root folder and delete the containing folder.

Designed to be run on a regular schedule, the script will skip any folders it has already processed. To run regularly, add to cron.

Here’s the script:

def episode(dir)
  dir.match "HDTV"
end

def unrar_delete(thefile,allfiles)
  if system "/opt/local/bin/unrar e -y %s > /dev/null" % thefile.gsub(' ',' ')
    for file in allfiles
      File.delete(file)
    end
    return true
  end
  return false
end

rootdir = "/Volumes/Filmer/Incoming"

Dir["%s/*" % rootdir].each do |dir|
  if File.directory? dir and not dir.match "UNPACKED"
    ok = false
    Dir.chdir(dir)
    Dir['%s/*.rar' % dir].each do |rarfile|
      puts rarfile
      ok = unrar_delete(rarfile, Dir[rarfile.gsub("part01","part??")]) if rarfile.match "part01.rar"
      ok = unrar_delete(rarfile, Dir[rarfile.gsub(".rar",".r??")]) if not rarfile.match /part[0-9]{2}/
    end

    if ok
      if episode(dir)
        system "mv *.avi %s" % rootdir
        system "mv *.mkv %s" % rootdir
        Dir.chdir(rootdir)
        system "rm -r %s" % dir
      else
        File.rename(dir,"%s UNPACKED" % dir)
      end
    end
  end
end

Export All OmniGraffle Files In A Folder To PDF

Posted on
Reply

So I cooked up this small script that opens all OmniGraffle documents in a folder, and exports them to PDF files. The PDF files are named the same as the Graffle files, and will be saved in the same folder.

To use it, just load up Script Editor, paste, compile, and run. Of course, you could also save it to the AppleScripts folder so you can easily access it.

tell application "Finder"
  set the theFolder to choose folder with
    "Pick a folder containing the OmniGraffle files you want to export to PDF:"
  set theList to every file of the theFolder whose
  name extension is "graffle"
end tell

repeat with theFile in theList
  set theOutFile to ((do shell script "basename \"" & (theFile) & "\"" & " .graffle") & ".pdf")
  set theInFile to theFile as string
  tell application "OmniGraffle Professional 5"
    activate
    open file (theInFile)
    save front window in file theOutFile
    close front window
  end tell
end repeat