Zettt

set clickDelay to 0.3
set abbreviationList to {}
set snippetsList to {}
set disallowedGroups to {"AutoCorrect", "AutoCorrect Deutsch Snippets", "AlteNeue Rechtschreibung", "Deutsche Akronyme"}
set disallowedSnippetContents to {"%e", "%d", "%a", "%A", "%m", "%1m", "%b", "%B", "%y", "%Y", "%H", "%I", "%1H", "%1I", "%M", "%1M", "%S", "%1S", "%p", "%@+", "%@-", "%key:", "%clipboard", "%|", "%<", "%^", "%>", "%v", "%-", "%+", "%fill:", "%fillpart:", "%filltext:", "%fillpopup:", "%fillarea:"}

-- open the Text tab of Keyboard preferences
tell application "System Preferences"
	activate
	delay 5

Zettt

tell application "Mail"
	set _sel to get selection
	set _links to {}
	repeat with _msg in _sel
		set _messageURL to "message://%3c" & _msg's message id & "%3e"
		set end of _links to _messageURL
	end repeat
	set AppleScript's text item delimiters to return
	set the clipboard to (_links as string)
end tell

Zettt

set googleCacheURL to "http://webcache.googleusercontent.com/search?q=cache:"

tell application "Safari"
	
	-- get url of frontmost tab
	set safariWindow to first window
	set originalURL to (URL of current tab of safariWindow) as text
	--log originalURL
	
end tell

Zettt

(*
http://veritrope.com
Safari URLs List to OmniFocus
Version 1.0
April 23, 2011
Project Status, Latest Updates, and Comments Collected at:
http://veritrope.com/code/safari-tab-list-to-omnifocus
=========
BASED ON THIS SAFARI/EVERNOTE SCRIPT:
http://veritrope.com/code/export-all-safari-tabs-to-evernote/

Zettt

(*
Mail Filer
Files messages in Mail.app using type ahead. Displays one dialog containing all mailboxes and accounts.

Created by Andreas Zeitler on 2013-09-13
Copyright Mac OS X Screencasts 2013. All rights reserved.
*)

set myMailboxes to {}

Zettt

(*
Mail Filer
Files messages in Mail.app using type ahead. Display a dialog for account and one for all mailboxes of that account.

Created by Andreas Zeitler on 2013-09-13
Copyright Mac OS X Screencasts 2013. All rights reserved.
*)

tell application "Mail"
  -- choose account

Zettt

tell application "Safari"
  set urlList to ""
	set tabcount to number of tabs in window 1
	
	repeat with y from 1 to tabcount
		set tabURL to URL of tab y of window 1
		set urlList to urlList & tabURL & linefeed as string

		tell application "Google Chrome" to open location tabURL
	end repeat

Zettt

# =============================================================
# =                  OpenMeta to OS X Tags                    =
# =============================================================
# Script to convert OpenMeta tags to OS X Mavericks tags.
# 
# Created by Zettt (Andreas Zeitler) on 2013-06-28
# Source www.macosxscreencasts.com, mosx.tumblr.com
# 
# OpenMeta to OS X Tags by Andreas Zeitler is licensed under a 
# Creative Commons Attribution-NonCommercial-ShareAlike

Zettt

-- get clipboard and separate lines
set clipboardText to the clipboard as text
set reminderLines to paragraphs of clipboardText
set defaultRemindersList to "Shoppinglist"

-- figure out if a non-default reminder list should be used
if item 1 of reminderLines starts with "!" then
  -- set other reminder list and delete first line
	set remindersList to characters 2 thru -1 of item 1 of reminderLines as text
	set reminderLines to items 2 thru -1 of reminderLines

Zettt

set wrapStart to system attribute "KMPARAM_WrapStart" -- as Unicode text
set wraptext to system attribute "KMPARAM_Text" -- as Unicode text
set wrapEnd to system attribute "KMPARAM_WrapEnd" -- as Unicode text

return wrapStart & wraptext & wrapEnd