// Template for IPSMS metadata (http://www.gov.ie/webstandards/metastandards/index.html)

<!--IPSMS DC metadata-->

<!--mandatory IPSMS elements-->

<meta name="DC.Title" content="">
<meta name="DC.Creator" content="">
<meta name="DC.Subject" content="">
<meta name="DC.Subject" content="">
<meta name="DC.Subject" content="">
<meta name="DC.Subject" content="">
<!--repeat the dc.subject line if more subject terms are needed-->
<meta name="DC.Publisher" content="">
<meta name="DC.Date.created" scheme="ISO 8601" content="">
<meta name="DC.Date.modified" scheme="ISO 8601" content="">
<!--date format yyyy-mm-dd-->
<meta name="DC.Identifier" content="">
<meta name="DC.Type" scheme="IPSDT" content="">
<!--IPSDT mandatory types=legislation-press release-speech-form-policy-report-->

<!--end of mandatory IPSMS elements-->

<meta name="DC.Title.alternative" content="">
<meta name="DC.Description" content="">
<meta name="DC.Contributor" content="">
<meta name="DC.Type" content="">
<meta name="DC.Format" content="text/html">
<meta name="DC.Source" content="">
<meta name="DC.Language" scheme="ISO 639-1" content="en">
<!--language format english=en irish=ga-->
<meta name="DC.Relation" content="">
<meta name="DC.Coverage" content="">
<meta name="DC.Rights" content="© Government of Ireland">

<!--end of IPSMS DC metadata-->

// Sample from Dept of Social Welfare (http://www.welfare.ie/)

<meta name="DC.Title" content="Search page for the website of the Department of Social and Family Affairs, Ireland" />
<meta name="DC.Creator" content="Department of Social and Family Affairs, Ireland" />
<meta name="DC.Subject" content="Irish Government Social Ministry Information Search Facility" />
<meta name="DC.Description" content="This page provides the search facility for the Department of Social and Family 
Affairs website." />
<meta name="DC.Publisher" content="Information Services Section, Department of Social and Family Affairs, Ireland" />
<meta name="DC.Contributor" content="Information Services Section, Department of Social and Family Affairs, Ireland" />
<meta name="DC.Date.created" content="2003-09-19" />
<meta name="DC.Date.modified" content="2004-02-24" />
<meta name="DC.Type" content="index" />
<meta name="DC.Format" content="text/html" />
<meta name="DC.Identifier" content="http://www.welfare.ie/search.html" />
<meta name="DC.Source" content="http://www.welfare.ie" />
<meta name="DC.Language" content="en" />
<meta name="DC.Rights" content="&copy; Department of Social and Family Affairs 2004" />

// can anyone tell me what this is? Is it applescript?
How do I call it from geektool? I found this here
http://theappleblog.com/community/development/588-displaying-quicksiler-tags/#post6596

set QuicksilverTags to (path to home folder as string) & "Library:Caches:Quicksilver:Indexes:QSPresetQSFileTagsPlugIn.qsindex"

do shell script "grep string " & (quoted form of POSIX path of QuicksilverTags) & " | awk {'print $1'}"

set theTags to result

--> From the MacScripter.net Text Delimiters Tutorial.
set newText to switchText of theTags from "<string>qs.tag.file</string>" to ""
to switchText of currentText from SearchString to ReplaceString
        set storedDelimiters to AppleScript's text item delimiters
        set AppleScript's text item delimiters to SearchString
        set currentText to currentText's text items
        set AppleScript's text item delimiters to ReplaceString
        set currentText to currentText as Unicode text
        set AppleScript's text item delimiters to storedDelimiters
        
        currentText
        
        set this_text to currentText
        
        set new_text to ""
        
        --> From the MacScripter Forum.
        repeat with myPara in paragraphs of this_text
                if new_text does not contain myPara then set new_text to new_text & myPara & return
        end repeat
        set new_text to (characters 1 thru -2 of new_text) as text
        
        set more_text to new_text
        set replace_text to ""
        
        --> From MacScripter Forum.
        repeat with myPara in paragraphs of more_text
                
                if replace_text does not contain myPara then set replace_text to replace_text & (text 9 thru -10 of myPara) & return
        end repeat
        
        set output to "Tags: " & return & replace_text
        
end switchText -- the end of the handler.

// this code taken from http://bbs.applescript.net/viewtopic.php?id=20330

do shell script "grep string /Users/username/Desktop/QSPresetQSFileTagsPlugIn.qsindex | awk {'print $1'}"

set theTags to result

set newText to switchText of theTags from "<string>qs.tag.file</string>" to ""

to switchText of currentText from SearchString to ReplaceString -- the handler
   
   set storedDelimiters to AppleScript's text item delimiters
   -- this simply stores the current value of AppleScript's AppleScript's text item delimiters
   -- so they can be restored later (thus helping to avoid potential problems elsewhere).
   -- Remember, we always set them back to what they were.
   
   set AppleScript's text item delimiters to SearchString
   -- AppleScript's AppleScript's text item delimiters are now set to "Purple"
   
   set currentText to currentText's text items -- note we have changed currentText's value
   -- create a list of text items from the original text, separated at the points where the
   -- current text item delimiter ("Purple") appeared.
   --> {"What, ", " Shoes?"} - Note that the spaces and punctuation are retained.
   
   set AppleScript's text item delimiters to ReplaceString
   -- AppleScript's AppleScript's text item delimiters are now set to "Green"
   
   set currentText to currentText as Unicode text
   -- coerce the list {"What, ", " Shoes?"} to Unicode text. This operation will also
   -- insert the current value of AppleScript's AppleScript's text item delimiters ("Green")
   -- between each of the listed items
   
   --> "What, Green Shoes?"
   
   set AppleScript's text item delimiters to storedDelimiters
   -- restore the value of AppleScript's AppleScript's text item delimiters
   -- to whatever they were on entering the subroutine. Remember that a call to this
   -- might have been made from within a section of script that had the TIDs set to
   -- something else. Hand the result back with the TIDs as they were.
   
   currentText
   -- return the now modified text (and restored TIDs) -- "What, Green Shoes?"
   
   
   set this_text to currentText
   
   set new_text to ""
   
   --Loop through paragraphs of old text
   repeat with myPara in paragraphs of this_text
       --Check for paragraph’s contents in new text
       --If not there add new text to end of new text
       if new_text does not contain myPara then set new_text to new_text & myPara & return
   end repeat
   --Remove final return
   set new_text to (characters 1 thru -2 of new_text) as text
   
end switchText -- the end of the handler.

// stick this into the terminal it generates a text file that you can display with geektool

grep string /Users/username/Library/Caches/Quicksilver/Indexes/QSPresetQSFileTagsPlugIn.qsindex | awk {'print $1'}  > /Users/username/Desktop/tags.txt