Copy selected link(s) from browser as markdown?

Questions & Suggestions
17

OK, I patched together a very simple example/test, based mostly on your above code.
However, I got one error on your code.
The line:

set strText to Unicode text of recClip

gave this error:
Can’t get Unicode text of {«class RTF »:«data RTF

So, to keep things real simple for the example, I replaced your code to create the MD link with simple assignments.

Download AppleScript from here:
CB - How to Put Plain Text and Rich Text on Clipboard.scpt.zip (6.6 KB)

(*
How to Put BOTH Plain Text AND Rich Text on the same Clipboard

Assemble the content you want in HTML, and place an RTF version of it in the clipboard with textutil
Adjust the text content of the clipboard, leaving the RTF unchanged

When you paste into a Rich Text document, the rich text will be pasted.
When you paste into a plain text document (like the KM forum), the markdown text will be pasted.

AUTHOR:
	• ComplexPoint 
		• provided all of the hard code to create RTF and combine on clipboard
	• JMichaelTX 
		• simply added some simple prep code to this
	
VER:  0.2		DATE: Mon, Jul 20, 2015
*)

--- VERY SIMPLE EXAMPLE OF HTML CODE TO BE CONVERTED TO RICH TEXT ---

property gStyleLink : "color:blue"
set strFont to "font-family:verdana,geneva,sans-serif;"
set strLinkFontSize to "font-size:14px;"


set strHTMLLink to my createHTMLLink("Evernote Site", "http:/www.evernote.com")
set strHTMLLink to "<span style=\"" & strFont & strLinkFontSize & "\">" & strHTMLLink & "</span>"
set pstrHTML to strHTMLLink


-- PUT THE RTF Text on the Clipboard
set lstrCMD to "echo " & quoted form of pstrHTML & " | textutil -format html -convert rtf -stdin -stdout | pbcopy -Prefer rtf"
do shell script lstrCMD

-- Read the text and RTF components of the clipboard
set recClip to the clipboard as record
### set strText to Unicode text of recClip  -- gives error
set dataRTF to «class RTF » of recClip

--- My Simple Code to set Markdown Link ---

set strText to "Evernote Web Site"
set strURL to "http://www.evernote.com"
set strMDLink to "[" & strText & "](" & strURL & ")"


-- New text contents, with existing RTF contents
set the clipboard to {Unicode text:strMDLink, «class RTF »:dataRTF}

-- inspect the result
the clipboard as record

--—————————————————————————————————————————————————

on createHTMLLink(pstrLinkText, pstrURL)
	
	return "<a href=\"" & pstrURL & "\" style=\"" & gStyleLink & "\">" & pstrLinkText & "<a>"
	
end createHTMLLink

Comments/suggestions anyone?

Combining RTF in Clipboards