Export Safari's Tab to frontmost FoldingText 2.x window - Alfred ready.

gistfile1.applescript

-- All code grabbed and requested help with from generous parties and unsuspecting github users.
--
-- Create Markdown link from front most tab in safari and append
-- to end of current FoldingText document as new list item.
-- UNCOMMENT FOR USE IN ALFRED
on alfred_script(q)
--on run
	
	-- -- -- -- -- -- -- -- --
	--
	-- BEGIN - INSERT ROUNDED TIME FUNCTION
	--
	-- SHOULD MAKE IT A LIBRARY 
	-- i.e. path from "go to file" or clintxs' "getCurrentDocument()"
	--
	-- -- -- -- -- -- -- -- --
	
	-- https://gist.github.com/Zettt/1081322
	--
	-- Inserts rounded time (15 minutes). Can be called from, e.g. TextExpander. (AppleScript version)
	
	-- AM/PM script by - http://forums.macrumors.com/showpost.php?p=9845114&postcount=2
	
	set currentHour to hours of (current date)
	set currentMinute to minutes of (current date)
	set pre to "AM" -- AM/PM script addition
	if (currentHour > 12) then -- AM/PM script addition
		set currentHour to (currentHour - 12) -- AM/PM script addition
		set pre to "PM" -- AM/PM script addition
	end if -- AM/PM script addition
	
	if (currentHour ≥ 0) and (currentHour < 10) then
		set currentHour to "0" & currentHour
	end if
	
	if (currentMinute ≥ 0) and (currentMinute ≤ 7) then
		set currentMinute to "00"
	else if (currentMinute > 7) and (currentMinute ≤ 23) then
		set currentMinute to "15"
	else if (currentMinute > 23) and (currentMinute ≤ 37) then
		set currentMinute to "30"
	else if (currentMinute > 37) and (currentMinute ≤ 52) then
		set currentMinute to "45"
	else if (currentMinute > 52) then
		set currentMinute to "00"
		set currentHour to currentHour + 1
		----Get "AM or PM"
		--set Pos to offset of " " in timeStr
		--set theSfx to characters (Pos + 1) through end of timeStr as string
	else
		return "Error"
	end if
	
	-- return (currentHour as string) & ":" & (currentMinute as string)
	
	-- -- -- -- -- -- -- -- --
	--
	-- END - INSERT ROUNDED TIME FUNCTION BEGIN
	--
	-- -- -- -- -- -- -- -- ----
	
	
	set time_stamp_rounded to (currentHour as string) & ":" & (currentMinute as string) & (pre as string) -- & " " & (pre as string) -- AM/PM script addition
	-- return time_stamp_rounded
	
	set the date_stamp to (short date string of (current date))
	set parentText to ("# ") & time_stamp_rounded & " - " & the date_stamp & return & ("### Safari Tabs") & " - " & " @ta	g1" & return
	
	
	## ") & time_stamp_rounded & " - " & the date_stamp & " - " & ("Safari Tabs") & " @linklist" & return
	set MDLink to ""
	tell application "Safari"
		set safariWindow to window 1
		try
			repeat with t in (tabs of safariWindow)
				set TabTitle to (name of t)
				set TabURL to (URL of t) as text
				set MDLink to (MDLink & (" - [" & TabTitle & "]" & "(" & TabURL & ") ") & return)
			end repeat
		end try
	end tell
	tell application "FoldingText"
		tell front document
			evaluate script "function(editor, options) {
                var tree = editor.tree();
                var range = tree.createRangeFromLocation(tree.textLength(), 0);
                tree.replaceTextInRange(range, options.link);
            }" with options {link:(parentText & MDLink)}
		end tell
	end tell
--end run
end alfred_script