~/bin/somafm #!/bin/sh play() { osascript -e 'tell app "iTunes" to open location "'${1}'"' echo "play [ ${2} ]" } case $1 in stop) osascript -e 'tell app "iTunes" to stop' echo 'iTunes stop.' ;; help) echo "Usage: $0 {|help|stop|jazz|goa}"…

Safari osascript -e 'tell app "Safari"' -e 'activate' -e 'do JavaScript "window.location.reload();" in first document' -e 'end tell' Firefox System Eventsを使うので、「システム環境設定 -> ユニバーサルアクセス」の「補助装置にアクセスできる…

set lastApp to (path to frontmost application as string) -- なんかの処理 tell application lastApp to activate

ドロップしたフォルダに'.wdgt'をつけて、dashboardにインストールする。 やっつけ on open theList set thePath to POSIX path of (item 1 of theList as string) set theSrc to thePath set tmp to AppleScript's text item delimiters set AppleScript's …

applescript tell application "iTunes" current stream title -- the name of the current song in the playing stream name of current track -- the URL of the playing stream or streaming web site end tell shell script #!/bin/sh # osascript -e 't…

property thePlaylist : "IndiePopRocks" tell application "iTunes" launch stop set the_playlist to user playlist thePlaylist set view of front window to the_playlist play the_playlist end tell そのシェルスクリプト版 #!/bin/sh PLAY_LIST='Indi…

applescript.vim - Syntax highlighting for AppleScript : vim online

a.scpt on run argv return "hello, " & item 1 of argv & "." end run実行 % osascript a.scpt world hello, world.

set theConfFile to "~/.synergy_home.conf" try set thePid to do shell script ("/bin/ps -x|grep synergys| grep -v grep|perl -ne '/^\\s*(\\d+)\\s+/;print $1;'") do shell script ("/bin/kill " & thePid) on error end try try -- 会社は有線 set is…

splhack: vim7.1.100 property CR : ASCII character of 13 property ESC : ASCII character of 27 on open theList set thePath to POSIX path of (item 1 of theList as string) --display dialog thePath tell application "Vim" to activate tell applic…

Firefoxが起動してない時に tell application "Firefox"するとParallels内のFirefoxを起動しようとするので、 if ( isRunFs() ) then tell application "Firefox" -- 処理 end tell else display dialog { "try again." } -- つづけて処理をしようとすると -…

~/.pearrcを差し替える /usr/local/phpにsymlinkを張り直す。 apacheを再起動させる property PEAR_RC : "/path/to/.pearrc" property PHP_DIR : "/path/to/php" property PHP_CURRENT : PHP_DIR --& "current" property PHP : PHP_CURRENT & "/bin/php" pro…

property SMB : "smb://WORKGROUP;user:pass@COMPUTER_NAME/path/to/dir" tell application "Finder" mount volume SMB activate -- なんとなく end tell

むちゃ遅 むちゃ環境依存（日頃、cmd+spaceを使用してる人向け） より詳しくは、 defaults -currentHost read com.apple.HIToolbox AppleCurrentInputSourceして"Input Mode"で種別を判断する。 applescript版 property ROMAN : "smRoman" set IM to do shel…

php-doc.vimの中途半端なパクリ phpdoc を挿入してくれるスクリプト - 呆備録 property TYPE_MIXED : "mixed" property TYPE_BOOL : "bool" property TYPE_ARRAY : "array" property TYPE_STR : "string" on run tell application "mi" tell document 1 set …

property PHP5 : "path/to/php5" property PHP4 : "path/to/php4" property PHP_DIR : "/usr/local/php/" property PHP_CURRENT : PHP_DIR & "current" property PHP : PHP_CURRENT & "/bin/php" property USER : "oppara" property PASS : "pass" property …

MTASC http://www.mtasc.org/#download インストール $ unzip ~/download/mtasc-1.12-osx.zip $ sudo mv ~/download/mtasc-1.12-osx /usr/local/. $ sudo ln -s /usr/local/mtasc-1.12-osx /usr/local/mtasc $ vi ~/.bashrc $ source ~/.bashrc $ mtasc -h m…

動けばOK牧場 ?はバックスラッシュ set theConfFile to "~/.synergy_home.conf" set theOfficeIp to "xxx.xxx.xxx.xxx" try set theCmd to "ps -x|grep synergys|grep -v grep|" set theCmd to theCmd & "perl -ne '/^??s*(??d+)??s+/;print $1;'" set thePi…

getCwd(path to me) on getCwd(thePathToMe) set thePath to POSIX path of ((thePathToMe) as string) as string set theCwd to do shell script "perl -e '?"" & thePath & "?"=~ m@^(.+/).+/?@;print $1;'" return theCwd as string end getCwd

俺々ルール POSIXパスの文字列で取り扱う。 ディレクトリは"/"で終わる。 "/hoge/moge/" -- ディレクトリ "hoge/moge" -- ファイル パッケージ化されたファイルをfileパスに変換するとディレクトリ扱いになる（あたりまえ） "/hoge/moge.app" as POSIX file …

on writePropAndSaveAppBundle(theProp, theSrcPath, theDestPath) if isExistsItem(theDestPath) = false then do shell script "touch " & theDestPath end if tell application "Script Editor" activate open theSrcPath as POSIX file if theProp is no…

on getPosixStr(theItem) if class of theItem is string then if theItem contains ":" then return (POSIX path of theItem) as string else return theItem end if else if class of theItem is Unicode text then return theItem as string else return …

詳しくは、man osacompile $ osacompile -o 保存するファイルのパス 読み込むファイルのパス保存するファイルを*.appにするとアプリケーションバンドルで保存される。 （ScriptEditorで保存したのとInfo.plistがちょっと違う） 読み込むファイルは、*.scptで…

on open theList set thePath to POSIX path of (item 1 of theList as string) display dialog thePath end open `

-- okボタンのみ on dispOk(theMessage) display dialog (theMessage) buttons {"OK"} default button "OK" giving up after 20 end dispOk -- cancelボタンのみ on dispError(theMes) display dialog theMes buttons {"Cancel"} default button 1 end dispE…

on getFileList(thePosixPath, theExtension) set theList to {} set theFilePath to thePosixPath as POSIX file set theFileList to list folder theFilePath repeat with curItem in theFileList if curItem contains theExtension then set end of theLi…

そのまんまがあった...orz tell application "Finder" exists 参照 ende tell on isExistItem(thePosixPath) try set theFilePath to thePosixPath as POSIX file set theAliasPath to theFilePath as alias return true on error return false end try end …