カテゴリー別アーカイブ: アプリケーション

-- Alfred Extentionのままでサーセン
property nb : ""
 
on alfred_script(q)
	set notetext to q as text
	set t to do shell script "date +'%Y/%m/%d'"
	set timeStr to time string of (current date)
	set AppleScript's text item delimiters to ","
	try
		set tit to text item 1 of notetext
		set txt to text item 2 of notetext
	on error
		set tit to ""
		set txt to text item 1 of notetext
	end try
	set tit to "[" & timeStr & "] " & tit
	set t to t & "の日記"
 
	tell application "Evernote"
		if nb = "" then
			set foundNotes to find notes "intitle:\"" & t & "\""
			set found to ((length of foundNotes) is not 0)
			if not found then
				set curnote to create note with html "" title t
				tell curnote to append html "<h3>" & tit & "</h3>"
				tell curnote to append text txt
				tell curnote to append html ""
			else
				repeat with curnote in foundNotes
					tell curnote to append html "<h3>" & tit & "</h3>"
					tell curnote to append text txt
					tell curnote to append html "<br>"
				end repeat
			end if
		else
			set foundNotes to find notes "notebook:\"" & nb & "\"" & " intitle:\"" & t & "\""
			set found to ((length of foundNotes) is not 0)
			if not found then
				set curnote to create note with html "" title t notebook nb
				tell curnote to append html "<h3>" & tit & "</h3>"
				tell curnote to append text txt
				tell curnote to append html ""
			else
				repeat with curnote in foundNotes
					tell curnote to append html "<h3>" & tit & "</h3>"
					tell curnote to append text txt
					tell curnote to append html "<br>"
				end repeat
			end if
		end if
	end tell
	do shell script "afplay /System/Library/Sounds/Hero.aiff"
end alfred_script