tell application "Google Chrome"
	tell front window
		set theClip to active tab execute javascript "(function(){clip = window.getSelection();
url = location.href;
var brackets = \"\\[\\[\";
var myDate = new Date();
var year = myDate.getFullYear();
var month = myDate.getMonth();
if(month < = 9)
	month = month + 1
    month = '0'+month;
var day= myDate.getDate();
if(day < = 9)
    day = '0'+day;
var prettyDate = year +'-'+ month +'-'+ day;
var minutes = myDate.getMinutes();
if(minutes < = 9)
	minutes = '0' + minutes; 
var hours = myDate.getHours();
if(hours < = 9)
	hours = '0' + hours;
theFinalString = clip + \" (\" + url + \" - \" + brackets + prettyDate + \"]] \" + hours + \":\" + minutes + \")\";
return theFinalString;}());"
	end tell
	set the clipboard to theClip
end tell

javascript:(function(){clip%20=%20window.getSelection();%20url%20=%20location.href;%20var%20currentdate%20=%20new%20Date();%20var%20weekdayNames%20=%20new%20Array("Sunday",%20"Monday",%20"Tuesday",%20"Wednesday",%20"Thursday",%20"Friday",%20"Sat");%20var%20weekday%20=%20weekdayNames[currentdate.getDay()];%20var%20brackets%20=%20"[[";%20%20var%20myDate%20=%20new%20Date();%20%20var%20year%20=%20myDate.getFullYear();%20var%20month%20=%20myDate.getMonth();%20if(month%20<=%209)%20%20%20%20%20month%20=%20'0'+month;%20var%20day=%20myDate.getDate();%20if(day%20<=%209)%20%20%20%20%20day%20=%20'0'+day;%20var%20prettyDate%20=%20year%20+'-'+%20month%20+'-'+%20day;%20var%20minutes%20=%20myDate.getMinutes();%20if(minutes%20<=%209)%20minutes%20=%20'0'%20+%20minutes;%20%20%20var%20hours%20=%20myDate.getHours();%20if(hours%20<=%209)%20hours%20=%20'0'%20+%20hours;%20%20%20theFinalString%20=%20clip%20+%20"%20("%20+%20url%20+%20"%20-%20"%20+%20brackets%20+%20prettyDate%20+%20"]]%20"%20+%20weekday%20+%20",%20"%20+%20hours%20+%20":"%20+%20minutes%20+%20")";%20prompt('Copy%20text%20to%20clipboard',theFinalString);}());

(*
organognosi.com
How to copy the frontmost Skim PDF document to Dropbox
Version: 1.0
Date: 24 November 2012
 
// LIKE THIS SCRIPT?
If this AppleScript is helpful to you, please show your support here:
 
http://www.organognosi.com/support
 
// SCRIPT INFORMATION AND UPDATE PAGE
www.organognosi.com/how-to-copy-the-frontmost-skim-pdf-document-to-dropbox-and-icloud
// REQUIREMENTS
Apps: Skim, Dropbox
 
Customize the value of the dropboxPath variable according to your system
 
// CHANGELOG
1.0 Initial Release
 
*)
 
tell application "Skim"
	set namePDF to name of document 1
	set dropboxPath to ":Users:MB:Dropbox:0 PDF files:"
	set last4char to characters -1 thru -4 of namePDF as string
	if last4char is ".pdf" then set namePDF to characters 1 thru -5 of namePDF as string
	save document 1 in dropboxPath & namePDF as "PDF with Embedded Notes"
end tell

(*
organognosi.com
How to copy the frontmost Skim PDF document to iCloud
Version: 1.0
Date: 24 November 2012
 
// LIKE THIS SCRIPT?
If this AppleScript is helpful to you, please show your support here:
 
http://www.organognosi.com/support
 
// SCRIPT INFORMATION AND UPDATE PAGE
www.organognosi.com/how-to-copy-the-frontmost-skim-pdf-document-to-dropbox-and-icloud
// REQUIREMENTS
Apps: PDFpen or PDFpen Cloud Access, Skim
 
Customize the value of the iCloudPDFpenPath variable according to your system
 
// CHANGELOG
1.0 Initial Release
 
*)
 
tell application "Skim"
	set namePDF to name of document 1
	set iCloudPDFpenPath to ":Users:MB:Library:Mobile Documents:7PKJ6G4DXL~com~smileonmymac~PDFpen:Documents:"
	set last4char to characters -1 thru -4 of namePDF as string
	if last4char is ".pdf" then set namePDF to characters 1 thru -5 of namePDF as string
	save document 1 in iCloudPDFpenPath & namePDF as "PDF with Embedded Notes"
end tell

--http://www.organognosi.com
-- 2012-09-30
--it matches exact phrases using quotes and single words
--the locked files in DEVONthink are excluded from the search
--the index is created for the active DEVONthink database
tell application "DEVONthink Pro"
set searchWord to text returned of (display dialog "Enter the search word/phrase:" default answer "")
set searchWordList to every word of searchWord
set numberOfSearchWords to count searchWordList
set the searchWordWithoutSpaces to replaceText(searchWord, " ", "_") of me
set searchWordQuoted to "\"" & searchWord & "\""
set resultList to search searchWordQuoted in current database locking no
set numberResults to count resultList
if numberResults = 0 then display dialog "No matches were found." buttons {"Cancel"}
set numberOfDocuments to text returned of (display dialog "The found docs are " & numberResults & ", please set the numbers of docs for processing:" default answer numberResults)
if numberResults > numberOfDocuments then set resultList to items 1 thru numberOfDocuments of resultList
set RefType to my chooseRefType({"MediaWiki", "RTF"})
if RefType is 1 then
set indexLinks to "===Universal index of \"" & searchWord & "\"===
number of sources:" & numberOfDocuments & " out of " & numberResults & " matches - " & (the current date) & "
"
else if RefType is 2 then
set indexLinks to "<html>
<body>
<h3>Universal index of \"" & searchWord & "\"</h3>
number of sources: " & numberOfDocuments & " out of " & numberResults & " matches - " & (the current date)
end if
repeat with book in resultList
set pathBook to path of book
set referenceURL to reference URL of book
set nameBook to name of book
set wordInstances to ""
tell application "Skim"
try
open pathBook --κολλάει εάν κάποια αρχεία δεν υπάρχου
tell document 1
set all_pages to count of pages -- so we only calculate it once
if RefType is 1 then
set bookTitle to "
====" & nameBook & "====
[" & referenceURL & "?search=" & searchWordWithoutSpaces & " " & searchWord & "] in [[@" & nameBook & "]]<br />
"
repeat with pageNumber from 1 to all_pages --
set DEVONthinkPageNumber to pageNumber - 1
if numberOfSearchWords ≤ 1 then
set pageText to (get text for page pageNumber) -- suck up the text into a string!
ignoring hyphens
set pageText to (every word of pageText) as list -- tokenise!
end ignoring
if pageText contains searchWord then -- record page number if word on page
set wordInstances to wordInstances & "[" & referenceURL & "?page=" & DEVONthinkPageNumber & "&?search=" & searchWordWithoutSpaces & " " & pageNumber & "] "
end if
else
set pageText to (get text for page pageNumber) as Unicode text -- suck up the text into a string!
if pageText contains searchWord then
set wordInstances to wordInstances & "[" & referenceURL & "?page=" & DEVONthinkPageNumber & "?search=" & searchWordWithoutSpaces & " " & pageNumber & "] "
end if
end if
end repeat
else if RefType is 2 then
set bookTitle to "<h4>" & nameBook & "</h4>
<a href=" & referenceURL & "?search=" & searchWordWithoutSpaces & ">" & searchWord & "</a>: "
repeat with pageNumber from 1 to all_pages --
set DEVONthinkPageNumber to pageNumber - 1
if numberOfSearchWords ≤ 1 then
set pageText to (get text for page pageNumber) -- suck up the text into a string!
ignoring hyphens
set pageText to (every word of pageText) as list -- tokenise!
end ignoring
if pageText contains searchWord then -- record page number if word on page
set wordInstances to wordInstances & "<a href=" & referenceURL & "?page=" & DEVONthinkPageNumber & ">" & pageNumber & "</a> "
end if
else
set pageText to (get text for page pageNumber) as Unicode text -- suck up the text into a string!
if pageText contains searchWord then
set wordInstances to wordInstances & "<a href=" & referenceURL & "?page=" & DEVONthinkPageNumber & ">" & pageNumber & "</a> "
end if
end if
end repeat
end if
end tell
close document 1
end try
end tell
if RefType is 1 then
set indexLinks to indexLinks & bookTitle & wordInstances & "
"
else if RefType is 2 then
set indexLinks to indexLinks & bookTitle & wordInstances & "
</body>
</html>"
else if RefType is 3 then
end if
end repeat
if RefType is 1 then
set the clipboard to indexLinks
else if RefType is 2 then
set the clipboard to indexLinks
tell application "Finder"
do shell script "pbpaste | textutil -stdin -format html -convert rtf -stdout | pbcopy -Prefer rtf"
end tell
end if
end tell
on chooseRefType(typeList)
tell application "Skim"
set theResult to choose from list typeList with prompt "Reference type:" default items {"RTF"}
if theResult is false then return 0
set refTypeNumber to theResult as string
if refTypeNumber is "MediaWiki" then
return 1
else if refTypeNumber is "RTF" then
return 2
end if
end tell
return RefType
end chooseRefType
on replaceText(thisText, searchString, replacementString)
set AppleScript's text item delimiters to the searchString
set the itemList to every text item of thisText
set AppleScript's text item delimiters to the replacementString
set thisText to the itemList as string
set AppleScript's text item delimiters to {""}
return thisText
end replaceText

--http://www.organognosi.com
tell application "DEVONthink Pro"
set nameCurrentPDF to name of content record of window 1
set targetgroup to parent of content record of window 1
set AppleScript's text item delimiters to {""}
set charFullStop to character -4 of nameCurrentPDF
if charFullStop is "." then set nameCurrentPDF to characters 1 thru -5 of nameCurrentPDF as string
display dialog "Enter bookmark name:" default answer nameCurrentPDF buttons {"Send bookmark to current group", "Select the target group", "Cancel"} default button 2
copy the result as list to {nameBookmark, selectedDestination}
set DEVONthinkPageNum to current page of window 1
set realCurrentPageNum to DEVONthinkPageNum + 1
set DEVONthinkPage to DEVONthinkPageNum as text
set realCurrentPage to realCurrentPageNum as text
set fileLink to the reference URL of content record of window 1
if selectedDestination is "Send bookmark to current group" then
create record with {type:bookmark, name:nameBookmark, URL:fileLink & "?page=" & DEVONthinkPage} in item 1 of targetgroup
else if selectedDestination is "Select the target group" then
create record with {type:bookmark, name:nameBookmark, URL:fileLink & "?page=" & DEVONthinkPage} in display group selector
else if selectedDestination is "Cancel" then
--do nothing
end if
end tell

--http://www.organognosi.com
tell application "Skim"
set colorMessage to ""
set pageNotes to notes of current page of document 1
repeat with pageNote in pageNotes
set noteColor to color of pageNote
set noteColorText to ""
repeat with codeColor in noteColor
set noteColorText to noteColorText & codeColor & " "
end repeat
set noteText to text of pageNote
set lengthNoteText to length of noteText
if lengthNoteText > 10 then
set noteText to characters 1 thru 10 of noteText as text
else
set noteText to noteText
end if
set colorMessage to colorMessage & "The color code of the note \"" & noteText & "...\" is " & noteColorText & return & return
end repeat
display dialog colorMessage
end tell