Created
November 24, 2010 19:46
-
-
Save cole/714266 to your computer and use it in GitHub Desktop.
Shorten clipboard URL using Lessn and TextExpander
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| -- CONFIGURATION OPTIONS BEGIN | |
| set the yourLessnUrl to "http://yoursite.com/lessn/" | |
| set the yourApiKey to "dsfdasfsadfsdfsadfsdfadsfsdfasdfsadfasdf" | |
| -- CONFIGURATION OPTIONS END | |
| set the LessnURL to (the clipboard as string) | |
| ignoring case | |
| if ((characters 1 through 7 of LessnURL as string) is not "http://") then | |
| return "Malformed URL." | |
| else | |
| set the EncodedLessnURL to urlencode(LessnURL) of me | |
| set curlCMD to "curl --stderr /dev/null \"" & yourLessnUrl & "-/?url=" & EncodedLessnURL & "&api=" & yourApiKey & "\"" | |
| -- Run the script and get the result: | |
| set tinyURL to (do shell script curlCMD) | |
| return tinyURL | |
| end if | |
| end ignoring | |
| on urlencode(theText) | |
| set theTextEnc to "" | |
| repeat with eachChar in characters of theText | |
| set useChar to eachChar | |
| set eachCharNum to ASCII number of eachChar | |
| if eachCharNum = 32 then | |
| set useChar to "+" | |
| else if (eachCharNum ≠ 42) and (eachCharNum ≠ 95) and (eachCharNum < 45 or eachCharNum > 46) and (eachCharNum < 48 or eachCharNum > 57) and (eachCharNum < 65 or eachCharNum > 90) and (eachCharNum < 97 or eachCharNum > 122) then | |
| set firstDig to round (eachCharNum / 16) rounding down | |
| set secondDig to eachCharNum mod 16 | |
| if firstDig > 9 then | |
| set aNum to firstDig + 55 | |
| set firstDig to ASCII character aNum | |
| end if | |
| if secondDig > 9 then | |
| set aNum to secondDig + 55 | |
| set secondDig to ASCII character aNum | |
| end if | |
| set numHex to ("%" & (firstDig as string) & (secondDig as string)) as string | |
| set useChar to numHex | |
| end if | |
| set theTextEnc to theTextEnc & useChar as string | |
| end repeat | |
| return theTextEnc | |
| end urlencode |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment