A Digital Workflow for Academic Research
Tools for Knowledge and Knowledge for Tools

--http://www.organognosi.com
--2012-03-16
property firstTwoLettersOfMyWikiName : "My"
tell application "Firefox"
activate
set wordsNotForCategories to {"and", "to", "for", "the", "into", "from", "about", "my", "of", "Editing"}
set the clipboard to ""
set fullPageName to name of window 1
set pageName to characters 1 thru ((offset of ("- " & firstTwoLettersOfMyWikiName) in fullPageName) - 2) of fullPageName as text
set wordsPageName to words of pageName
repeat with i from 1 to length of wordsPageName
if item i of wordsPageName is not in wordsNotForCategories then
set newword to item i of wordsPageName
set newCategory to capitalizeFirstCharacter(newword) of me
set the wikiCategory to "[[Category:" & newCategory & "]]"
set the clipboard to (the clipboard) & wikiCategory & return
else
set the clipboard to (the clipboard)
end if
end repeat
tell application "System Events"
tell process "Firefox" to click menu item "Paste" of menu 1 of menu bar item "Edit" of menu bar 1
end tell
end tell
on capitalizeFirstCharacter(this_word)
set firstCharacter to the first character of this_word
set this_number to (ASCII number of firstCharacter)
if this_number is greater than or equal to 97 and ¬
this_number is less than or equal to 122 then
set CapitalizedfirstCharacter to (ASCII character (this_number - 32))
else
set CapitalizedfirstCharacter to firstCharacter
end if
set WordWithoutTheFirstCharacter to ""
if length of this_word > 1 then
set WordWithoutTheFirstCharacter to get text 2 thru -1 of this_word
end if
set capitalizedWord to CapitalizedfirstCharacter & WordWithoutTheFirstCharacter
return capitalizedWord
end capitalizeFirstCharacter

--http://www.organognosi.com
--2012-03-16
tell application "Safari"
activate
set the clipboard to ""
set wordsNotForCategories to {"and", "to", "for", "the", "into", "from", "about", "my", "of"}
set urlSearchString to do JavaScript "var sPath = window.location.search;
sPath.substring(sPath.indexOf('=') + 1);" in document 1
--get the title of the MediaWiki page
set AppleScript's text item delimiters to "&"
set these_items to text items of urlSearchString
set pageName to item 1 of these_items
--get the words of the title
set AppleScript's text item delimiters to {"_"}
set wordsPageName to text items of pageName
set AppleScript's text item delimiters to {" "}
repeat with i from 1 to length of wordsPageName
if item i of wordsPageName is not in wordsNotForCategories then
set newword to item i of wordsPageName
set newCategory to capitalizeFirstCharacter(newword) of me
set the wikiCategory to "[[Category:" & newCategory & "]]"
set the clipboard to (the clipboard) & wikiCategory & return
else
set the clipboard to (the clipboard)
end if
end repeat
tell application "System Events"
tell process "Safari" to click menu item "Paste" of menu 1 of menu bar item "Edit" of menu bar 1
end tell
end tell
on capitalizeFirstCharacter(this_word)
set firstCharacter to the first character of this_word
set this_number to (ASCII number of firstCharacter)
if this_number is greater than or equal to 97 and ¬
this_number is less than or equal to 122 then
set CapitalizedfirstCharacter to (ASCII character (this_number - 32))
else
set CapitalizedfirstCharacter to firstCharacter
end if
set WordWithoutTheFirstCharacter to ""
if length of this_word > 1 then
set WordWithoutTheFirstCharacter to get text 2 thru -1 of this_word
end if
set capitalizedWord to CapitalizedfirstCharacter & WordWithoutTheFirstCharacter
return capitalizedWord
end capitalizeFirstCharacter