• Open Menu Close Menu
  • Apple
  • Shopping Bag
  • Apple
  • Mac
  • iPad
  • iPhone
  • Watch
  • TV
  • Music
  • Support
  • Search apple.com
  • Shopping Bag
 

Lists

Open Menu Close Menu
  • Terms and Conditions
  • Lists hosted on this site
  • Email the Postmaster
  • Tips for posting to public mailing lists
Re: Possible to create URL clipping with script?
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Possible to create URL clipping with script?


  • Subject: Re: Possible to create URL clipping with script?
  • From: "Christopher C. Stone" <email@hidden>
  • Date: Wed, 3 Jan 2001 06:42:05 -0600

At 01/02/01 15:55 +0100, Wim Melis wrought:

> If you select a URL in some text, and drag it to the desktop, it will
> become a clickable URL bookmark instead of a text clipping. (Don't know
> the proper English term for them.)
>
> Is there any way to create those URL clippings with AppleScript?
___________________________________________________________________________

Hello Wim,

This is less than elegant, but it works. It requires the Satimage osax.

http://www.satimage.fr/

The most recent version is only available with the AppleScript Editor SMILE (freeware); an older version is available as a separate download.

Watch the wraps.

set fName to "urlClipping"
set pd to path to desktop folder as string
set urlStr to "http://www.macintouch.com";

set a0x2 to (ASCII character 0) & (ASCII character 0)
set a0x3 to (ASCII character 0) & (ASCII character 0) & (ASCII character 0)
set a0x7 to a0x3 & a0x3 & (ASCII character 0)
set a0x9 to a0x3 & a0x3 & a0x3
set a1x1 to ASCII character 1
set a2x1 to ASCII character 2
set a4x1 to ASCII character 4
set txt to "TEXT"
set xurl to "url "

set dragStr to a0x3 & a1x1 & a0x3 & a4x1 & a0x7 & a2x1 ,
& txt & a0x2 & a1x1 & a0x9 & xurl & a0x2 & a1x1 & a0x9

tell application "Finder"

set f to make file at desktop with properties {creator type:"drag", file type:"ilht", name:fName}

end tell

set f to f as alias

PutResource urlStr to f type "TEXT" index 256
PutResource urlStr to f type "url " index 256
PutResource dragStr to f type "drag" index 128

tell application "Finder"
duplicate f
delete f
set name of file (pd & fName & " copy") to fName
end tell


Strangely, the created file activates Easy Open when double clicked, but it's duplicate functions fine.


Best Regards,

Christopher Stone
______________________________
StoneWorks Computer Consulting
email@hidden


References: 
 >Possible to create URL clipping with script? (From: Wim Melis <email@hidden>)

  • Prev by Date: Re: Opening Filemaker Pro files
  • Next by Date: Re: Scripting the OSA Menu?
  • Previous by thread: Possible to create URL clipping with script?
  • Next by thread: Re: Possible to create URL clipping with script?
  • Index(es):
    • Date
    • Thread