By the way, I made .scpt files in the appropriate directory for each of
these, but I can't get either of them to work.
On Thursday, December 31, 2015 at 5:44:41 PM UTC+2, 1.61803 wrote:
>
> On Wednesday, December 30, 2015 at 4:25:27 AM UTC+1, Jonathan Levi wrote:
>>
>> I am often testing web pages to see what a not-logged-in user would see.
>> I find that the fastest way to do this is to open a new Private window in
>> Safari (or incognito window in Chrome) and paste the URL there.
>> It would be so much faster if we could either add an action "Open in
>> Private Window" or "Open With..." (tab) "Safari Private Window"
>> Then, from there, I could pretty easily make a custom trigger so that it
>> took my clipboard contents and automatically opened in a private url.
>> Something like Option + Command + Control + N.
>>
>
> This is a short applescript that you can put in ~/Library/Application
> Support/Quicksilver/Actions/.
>
> using terms from application "Quicksilver"
> on process text theURL
> tell application "Google Chrome"
> make new window with properties {mode:"incognito"}
> activate
> set URL of active tab of first window to theURL
> end tell
> end process text
> on get direct types
> return {"NSStringPboardType", "Apple URL pasteboard type"}
> end get direct types
> end using terms from
>
>
> This is a longer applescript that also let's you open multiple URLs
> separated by commas, use web search strings (see comment in script), close
> the default window when launching Chrome and switch to either full screen
> or presentation mode.
>
> using terms from application "Quicksilver"
>
> on process text theURLs
>
> if not running of application "Google Chrome" then ¬
> tell application "Google Chrome" to close front window
>
> if theURLs contains "," then ¬
> set theURLs to theURLsToCSV(theURLs)
> if (count of theURLs) is 2 and item 1 of theURLs contains "***" then ¬
> set theURLs to theURLsToWebSearch(theURLs)
>
> repeat with theURL in theURLs as list
> if theURL does not start with "http" then set theURL to "http://"; &
> theURL
> tell application "Google Chrome"
> activate
> if not ((some window whose mode is "incognito") exists) then
> make new window with properties {mode:"incognito"}
> set URL of active tab of first window to theURL
> else
> make new tab at (front window whose mode is "incognito") with properties
> {URL:theURL}
> end if
> end tell
> end repeat
>
> -- Full Screen Mode
> tell application "System Events"
> if not (value of attribute "AXFullScreen" of front window of process "Google
> Chrome") then ¬
> keystroke "f" using {command down, control down}
> end tell
> -- Presentation Mode
> (** tell application "Google Chrome" to tell front window
> if not presenting then enter presentation mode
> end tell **)
>
> end process text
>
> on get direct types
> return {"NSStringPboardType", "Apple URL pasteboard type"}
> end get direct types
>
> end using terms from
>
>
> on theURLsToCSV(theURLs)
> -- for multiple values use comma-separated text
> -- comma trick doesn't work with text nor URLs #1727
> set ASTID to AppleScript's text item delimiters
> set AppleScript's text item delimiters to ","
> set theCSURLs to text items of theURLs
> set AppleScript's text item delimiters to ASTID
> return theCSURLs
> end theURLsToCSV
>
>
> on theURLsToWebSearch(theURLsAsWebSearch)
> -- usage: select QS Web Search, change to text mode, add search terms
> after a comma
> -- example: http://www.google.com/search?hl=en&q=***,søren
> <http://www.google.com/search?hl=en&q=***,s%C3%B8ren> kierkegaard
> set theSearchTerms to urlEncode(item 2 of theURLsAsWebSearch)
> set QSWebSearchURL to item 1 of theURLsAsWebSearch
> set theWebSearchURL to findReplace("***", theSearchTerms, QSWebSearchURL)
> return theWebSearchURL
> end theURLsToWebSearch
>
>
> on urlEncode(theSearchTerms)
> return do shell script "php -r 'echo urlencode(\"" & theSearchTerms &
> "\");'"
> end urlEncode
>
>
> on findReplace(findText, replaceText, sourceText)
> set ASTID to AppleScript's text item delimiters
> set AppleScript's text item delimiters to findText
> set sourceText to text items of sourceText
> set AppleScript's text item delimiters to replaceText
> set sourceText to sourceText as text
> set AppleScript's text item delimiters to ASTID
> return sourceText
> end findReplace
>
> I tested with most cases (full screen, presentation, normal, incognito, 1+
> tabs) at the same time. Let me know how it works.
>
--
You received this message because you are subscribed to the Google Groups
"Quicksilver" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
To post to this group, send email to [email protected].
Visit this group at https://groups.google.com/group/blacktree-quicksilver.
For more options, visit https://groups.google.com/d/optout.
