わかばマークのMacの備忘録 : Quicksilver/ AppleScript でいろいろ操作（2）

prev | 2008 / 08 | next

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

http://wakabamac.blog95.fc2.com/blog-entry-499.html

2008/02/15 (Fri)

Quicksilver : ランチャ+システムの一部のような総合ユーティリティ
OS10.4以上（UB）、OS10.3.9 各対応
ドネーションウェア

『Quicksilver/ AppleScript でいろいろ操作（1）』のつづき

前の記事では、Spaceを移動して、そこのSpace番号をQuicksilverで表示させるAppleScriptの話でしたが、今回はGrowlでSpace番号を表示させるAppleScriptです。

こんな感じで表示されます。
071023qs344

使用条件、システム環境設定の設定や、「\」を「＼（バックスラッシュ）」の半角に直すことは『Quicksilver/ AppleScript でいろいろ操作（1）』と同じなので、そちらを参照して下さい。

【 Growl に登録する為の AppleScript 】

Spacesに関するスクリプトが複数あるので、まとめて管理できるように、まず Growl にそれらのスクリプトを登録する為の AppleScript を作ります。

icn_ScriptEditor

下のスクリプトをスクリプトエディタにコピペして、「Growl_Spaces.scpt」というファイル名で、「Scripts」フォルダなどに保存して下さい。

(* Growl_Spaces *)
-- Growl に登録
tell application "GrowlHelperApp"
	-- Make a list of all the notification types 
	-- that this script will ever send:
	set the allNotificationsList to �
		{"Go Next Space", "Go Previous Space", "Go Upper Space", "Go Lower Space", "Launch Spaces", "Show SpaceNumber", "Growl_Spaces"}
	
	-- Make a list of the notifications 
	-- that will be enabled by default.      
	-- Those not enabled by default can be enabled later 
	-- in the 'Applications' tab of the growl prefpane.
	set the enabledNotificationsList to �
		{"Go Next Space", "Go Previous Space", "Go Upper Space", "Go Lower Space", "Launch Spaces", "Show SpaceNumber"}
	
	-- Register our script with growl.
	-- You can optionally (as here) set a default icon 
	-- for this script's notifications.
	register as application �
		"Growl_Spaces" all notifications allNotificationsList �
		default notifications enabledNotificationsList �
		icon of application "Spaces"
	
	--	Send a Notification...
	notify with name �
		"Growl_Spaces" title �
		"Growl_Spaces" description �
		"これは他のスクリプトを Growl に登録する為の AppleScript です。" application name "Growl_Spaces"
end tell

--システム環境設定を開く
tell application "System Preferences"
	activate
	tell pane id "com.growl.prefpanel" to reveal
end tell

（参考 : AppleScript Support for Growl ）

これを1度だけ実行して、あとは保存しておくだけです。
実行すると、システム環境設定の「Growl」パネルが開きます。「アプリケーション」タブを開くと「Growl_Spaces」というものが保存されており、表示スタイルの設定などはここで行います。
071023qs345

ここの「Growl_Spaces」の中で、これから紹介する下記の各AppleScriptのGrowlの設定ができます。

【 Space を移動して番号をGrowl表示する AppleScript 】

Space を移動して、そこのSpace番号をGrowl表示するスクリプトです。4種類あります。
これらのスクリプトをスクリプトエディタにコピペして、「Scripts」フォルダなどに保存して下さい。
4つとも「\」を半角の「＼」（半角英数入力モードで option+\ で入力できる）に直して下さい。

▶ 次のSpaceへ移動する（Go Next Space）

(* Go Next Space - Growl *)

tell application "System Events"
	
	-- Spaces の総数を調べる
	tell expose preferences
		tell spaces preferences
			set sp_row to spaces rows
			set sp_clm to spaces columns
			set sp_all to sp_row * sp_clm
		end tell
	end tell
	
	
	-- 現在の Space Number を調べる
	tell process "SystemUIServer"
		tell menu bar 1
			set mb to count (every menu bar item)
			repeat with i from 1 to mb
				tell menu bar item i
					if size = {34, 22} then
						try
							set sp_no_x to value as number
							if sp_no_x < 17 then set sp_no to sp_no_x
						end try
					end if
				end tell
				set i to i + 1
			end repeat
		end tell
	end tell
	
	
	-- 次の Space へ移動
	if sp_no < sp_all then
		set sp_no to sp_no + 1
	else
		set sp_no to 1
	end if
	
	run script ("tell application \"System Events\" to keystroke \"" & sp_no & "\"using control down")
	(* 上記の「\」を半角の「＼」に直して下さい *)
end tell

delay 0.3
-- Growl で Space Number を表示
set growl_title to "Space " & sp_no as text
set growl_description to ("The SpaceNumber here is" & " Space " & sp_no as text)

tell application "GrowlHelperApp"
	--	Send a Notification...
	notify with name �
		"Go Next Space" title �
		growl_title description �
		growl_description application name "Growl_Spaces"
end tell

--おまけ
--say "Space " & sp_no

▶ 前のSpaceへ移動する（Go Previous Space）

(* Go Previous Space - Growl *)

tell application "System Events"
	
	-- Spaces の総数を調べる
	tell expose preferences
		tell spaces preferences
			set sp_row to spaces rows
			set sp_clm to spaces columns
			set sp_all to sp_row * sp_clm
		end tell
	end tell
	
	
	-- 現在の Space Number を調べる
	tell process "SystemUIServer"
		tell menu bar 1
			set mb to count (every menu bar item)
			repeat with i from 1 to mb
				tell menu bar item i
					if size = {34, 22} then
						try
							set sp_no_x to value as number
							if sp_no_x < 17 then set sp_no to sp_no_x
						end try
					end if
				end tell
				set i to i + 1
			end repeat
		end tell
	end tell
	
	
	-- 前の Space へ移動
	if sp_no > 1 then
		set sp_no to sp_no - 1
	else
		set sp_no to sp_all
	end if
	
	run script ("tell application \"System Events\" to keystroke \"" & sp_no & "\"using control down")
	(* 上記の「\」を半角の「＼」に直して下さい *)
end tell

delay 0.3
-- Growl で Space Number を表示
set growl_title to "Space " & sp_no as text
set growl_description to ("The SpaceNumber here is" & " Space " & sp_no as text)

tell application "GrowlHelperApp"
	--	Send a Notification...
	notify with name �
		"Go Previous Space" title �
		growl_title description �
		growl_description application name "Growl_Spaces"
end tell

--おまけ
--say "Space " & sp_no

▶ 上のSpaceへ移動する（Go Upper Space）

(* Go Upper Space - Growl *)

tell application "System Events"
	
	-- Spaces の総数を調べる
	tell expose preferences
		tell spaces preferences
			set sp_row to spaces rows
			set sp_clm to spaces columns
			set sp_all to sp_row * sp_clm
		end tell
	end tell
	
	
	-- 現在の Space Number を調べる
	tell process "SystemUIServer"
		tell menu bar 1
			set mb to count (every menu bar item)
			repeat with i from 1 to mb
				tell menu bar item i
					if size = {34, 22} then
						try
							set sp_no_x to value as number
							if sp_no_x < 17 then set sp_no to sp_no_x
						end try
					end if
				end tell
				set i to i + 1
			end repeat
		end tell
	end tell
	
	
	-- 上の Space へ移動
	if sp_no > sp_clm then
		set sp_no to sp_no - sp_clm
	else
		set sp_no to sp_no + (sp_clm * (sp_row - 1))
	end if
	
	run script ("tell application \"System Events\" to keystroke \"" & sp_no & "\"using control down")
	(* 上記の「\」を半角の「＼」に直して下さい *)
end tell

delay 0.3
-- Growl で Space Number を表示
set growl_title to "Space " & sp_no as text
set growl_description to ("The SpaceNumber here is" & " Space " & sp_no as text)

tell application "GrowlHelperApp"
	--	Send a Notification...
	notify with name �
		"Go Upper Space" title �
		growl_title description �
		growl_description application name "Growl_Spaces"
end tell

--おまけ
--say "Space " & sp_no

▶ 下のSpaceへ移動する（Go Lower Space）

(* Go Lower Space - Growl *)

tell application "System Events"
	
	-- Spaces の総数を調べる
	tell expose preferences
		tell spaces preferences
			set sp_row to spaces rows
			set sp_clm to spaces columns
			set sp_all to sp_row * sp_clm
		end tell
	end tell
	
	
	-- 現在の Space Number を調べる
	tell process "SystemUIServer"
		tell menu bar 1
			set mb to count (every menu bar item)
			repeat with i from 1 to mb
				tell menu bar item i
					if size = {34, 22} then
						try
							set sp_no_x to value as number
							if sp_no_x < 17 then set sp_no to sp_no_x
						end try
					end if
				end tell
				set i to i + 1
			end repeat
		end tell
	end tell
	
	
	-- 下の Space へ移動
	if sp_no ≤ (sp_all - sp_clm) then
		set sp_no to sp_no + sp_clm
	else
		set sp_no to sp_no - (sp_clm * (sp_row - 1))
	end if
	
	run script ("tell application \"System Events\" to keystroke \"" & sp_no & "\"using control down")
	(* 上記の「\」を半角の「＼」に直して下さい *)
end tell

delay 0.3
-- Growl で Space Number を表示
set growl_title to "Space " & sp_no as text
set growl_description to ("The SpaceNumber here is" & " Space " & sp_no as text)

tell application "GrowlHelperApp"
	--	Send a Notification...
	notify with name �
		"Go Lower Space" title �
		growl_title description �
		growl_description application name "Growl_Spaces"
end tell

--おまけ
--say "Space " & sp_no

全く関係ないことだけど、Safari3だとテキストエリアの右下の角をドラッグして、大きく表示することができます。これは便利。
（詳細 : 『Hys.LOG | Safari3から？？』）

【現在のSpace番号をGrowl表示する AppleScript 】

これは、実行すると現在のSpace番号をGrowl表示する単純なAppleScriptです。

▶ 現在のSpace番号を表示（Show SpaceNumber）

【 Spacesを起動し、選択後にSpace番号をGrowl表示する AppleScript 】

このスクリプトを実行すると、まず Spaces を起動します。
071103sp1

そこでSpaceを選択した後に、そのSpace番号をGrowl表示します。
071023qs346

▶ Spacesを起動、選択後にSpace番号を表示（Launch Spaces）

(* Launch Spaces - Growl *)

-- Spaces を起動
try
	tell application id "com.apple.spaceslauncher" to launch
end try

delay 1 -- タイムラグ
-- Space Number を調べる
tell application "System Events"
	tell process "SystemUIServer"
		tell menu bar 1
			set mb to count (every menu bar item)
			set sp_no to 17 -- ありえない数字をセット
			repeat until (sp_no < 17) -- 選ぶまで無限ループ
				repeat with i from 1 to mb
					tell menu bar item i
						if size = {34, 22} then
							try
								set sp_no_x to value as number
								if sp_no_x < 17 then set sp_no to sp_no_x
							end try
						end if
					end tell
					set i to i + 1
				end repeat
			end repeat
		end tell
	end tell
end tell

-- Growl で Space Number を表示
set growl_title to "Space " & sp_no as text
set growl_description to ("The SpaceNumber here is" & " Space " & sp_no as text)

tell application "GrowlHelperApp"
	--	Send a Notification...
	notify with name �
		"Launch Spaces" title �
		growl_title description �
		growl_description application name "Growl_Spaces"
end tell

--おまけ
say "Space " & sp_no

上記のすべてのスクリプトは、Quicksilver の機能を使っていません。
AppleScriptを実行する際に、Triggerを使って実行すると便利という代物です。

ここの記事のタイトルは『Quicksilver/ AppleScript でいろいろ操作（2）』となっていますが、別に Quicksilver でなくとも、Butler、AmScriptsCMX、Spark などを使えば、いろいろな方法でAppleScriptを実行することができます。
もちろん、スクリプトメニューからも実行できます。

実質初めて作ったようなAppleScriptなので、ときどきちゃんと動作しないこともあります。

また、Grwolの表示スタイルによっては、特に「Bezel」を選択していると、表示が遅れたりすることもあります。
オススメの表示スタイルは「Music Video」です。ちょっと表示が遅れることもあるけど。

『Quicksilver/ AppleScript でいろいろ操作（3）』につづく

（ダウンロードリンク）
Site top page : Blacktree
Download page : Blacktree

（関連記事）
Quicksilver/ AppleScript でいろいろ操作（1）
Quicksilver/ AppleScript でいろいろ操作（2）
Quicksilver/ AppleScript でいろいろ操作（3）

Quicksilver --- 基本的な概略説明
Quicksilver/ 基本的な使用例
Quicksilver/ Catalogの設定
Quicksilver/ Actionについて（1）
Quicksilver/ Actionについて（2）
Quicksilver/ Actionについて（3）
Quicksilver/ Actionについて（4）- Command Objects
Quicksilver/ Triggers の説明（1）
Quicksilver/ Triggers の説明（2）
Quicksilver/ Plug-ins について
Quicksilver/ Proxy Objects について
Quicksilver/ Triggers の説明（3）- Mouse Triggers
Quicksilver/ Triggers の説明（4）- Abracadabra Triggers
Quicksilver/ ショートカットまとめ

すべてのQuicksilver記事のリンクは『Quicksilver』の（関連記事）にあります。

Quicksilver | CM：0 | TB：0| edit

tag : Quicksilver AppleScript Growl Spaces

2008/02/15(Fri)

Quicksilver/ AppleScript でいろいろ操作（2）

newer | top | older △

name
subject
mail
URL
comment
pass
秘密	管理者にだけ表示を許可する