Displaying Quicksiler Tags.

[NotVeryPC]

Having just started to use Tags with Quicksilver I'd like to display the Tags I've already used on my desktop with GeekTool.

I've found where Quicksilver stores the Tags and I've got a basic command to get the Tags out of the file but I could do with some help removing the duplicates and extra text.

Here's the code:

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

The result in file looks like this:
<string>guides</string>
<string>guides</string>
<string>qs.tag.file</string>
<string>scripts</string>
<string>scripts</string>
<string>qs.tag.file</string>
<string>Guide</string>
<string>Guide</string>
<string>qs.tag.file</string>

I'd like to remove the <string>qs.tag.file</string> lines and the <string> </string>

Does anyone know how to do this?

[nicks]

I'm gonna hack around with this a little. see if I can [find the time to] brush up on my years-old awk/sed/ scripting... no promises

[NotVeryPC]

With help from MacScripter.net, here's the finished scritp:

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.

Just call it from GeekTool.

[paynito]

You need to copy the script into "Script Editor" and save it as "GetTags.scpt"

In GeekTool create a new entry with the command
Code:
osascript /Users/username/path/to/script/GetTags.scpt
Hope this helps.

Yes. It does help a lot.
So in 13 point type I can display all my tags. Anyone know how to make that text file or geektool wordwrap or start a second column? Hmm. We didn't even actually create a text file per se.
I think the mac scripter forum mentioned is here.

[NotVeryPC]

Anyone know how to make that text file or geektool wordwrap or start a second column? Hmm. We didn't even actually create a text file per se.

My original idea was to create a text file and have GeekTool read it but during the course of writing the script I decided to just read the Quicksilver file instead.

As for having GeekTool wordwrap, I don't think that's possible. If you can create a text file with the tags in columns then GeekTool will display that.

[DTrate]

This is a great script! I have no knowledge of Applescript whatsoever, yet I have been able to get it to work.

However, it displays my tags as a (seemingly) random list of words -- is there any way to alphabetize it by modifying the script (or otherwise)?

[mdmunoz]

Originally Posted by DTrate

This is a great script! I have no knowledge of Applescript whatsoever, yet I have been able to get it to work.

However, it displays my tags as a (seemingly) random list of words -- is there any way to alphabetize it by modifying the script (or otherwise)?

All you have to do is change

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

To

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

on the second line of code (a sort pipe is added at the very end).

If you want reverse order, use "sort -r" instead of "sort"

[DTrate]

Excellent! Thanks a lot for the info.

Now if only QS could auto-tag my 'Documents' folder for me.....