OSANAI.ORG

自己嫌悪感を取り去るには

Ryosuke — Wed, 05 Oct 2011 14:52:45 +0000

休みの日などに時間の使い方に納得がいかず、少し自己嫌悪に陥ることがあります。「もうこんな時間か」「やろうとおもっていたことが全然できていない」などの台詞が頭の中に浮かんできます。

もともとの性格が影響している部分もあるとは思いますが、一日にできることを過大評価してしまうのが原因かもしれません。

また、冷静に反省するだけならば特に問題ないですが、イライラを伴っている場合は要注意で、ますます納得いく時間の過ごし方から遠ざかってしまいます。

先週の日曜にも少しそんな状況になったのですが、「起きてからそのときまでの間にちゃんとできたことに着目して紙に書き出す」というのを実践したところ、挙げられた 20 弱くらいの項目を見直していると、思いのほかすぐに気持ちが落ち着きました。

どんな些細な内容であっても達成できたことには変わりなく、それらを書き出して目に見えるようにすることで自己肯定感が高まり、ヒットポイントが回復するような感覚があります。

(Mac にて)一切合切を黒背景にする

Ryosuke — Tue, 04 Oct 2011 14:11:02 +0000

黒背景シリーズ第 4 弾です。Mac のみですが、Nocturne というソフトで画面の表示をガラッと切り替えることができます。

これを Quicksilver で起動するだけで反転、通常色に戻すを交互に指定できるので、そのときの状況に応じて眼にやさしい色合いを実現できるようになりました。

Emacs など、普段から黒背景にしているものは反転すると、当然ながら白背景になってしまうので、その点だけ注意が必要です。

また、OS 標準の機能でも色を反転させるものがありますね。Command + Option + Ctrl + 8 を同時に押すとネガフィルムのように表示が反転します。これを利用するのもいいかもしれません。Windows にも同じ機能があればいいのですが。

Mac OS X ディスプレイの色が反転して表示される (ネガフィルムのように白黒が逆に表示される)

Remember the Milk も黒背景にする

Ryosuke — Mon, 03 Oct 2011 22:41:34 +0000

黒背景シリーズ第 3 弾ということで、タスク管理サービスの Remember the Milk も黒くしてみます。

といっても、前回のはてなダイアリーに書いた CSS をそのまま流用しています。最初は簡単なところから、ということで

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

@-moz-document domain("www.rememberthemilk.com"){

html *{
background-color:#191919 !important;
color:#CCCCCC !important;
}

a:link {
color:#CCCCCC !important
}

a:visited {
color:#777777 !important
}
}

Stylish で「新しいスタイルを書く」として、上記の CSS を入力するだけでした。@-moz-document domain(“hogehoge.com “){ css } の形式で適用させるドメインを指定できるみたいですね。

↑ 黒くなった!

細かい部分では少々使いにくかったりするのですが、とりあえず黒くできてよかったよかった。

はてなダイアリーも黒背景にする

Ryosuke — Sun, 02 Oct 2011 01:20:52 +0000

黒背景第 2 弾ということで、日々のログを残しているはてなダイアリーの blog も背景色を変更してみます。CSS については、要素を指定してプロパティと値をセットで記述するもの、くらいの知識しか現状持ち合わせていないのですが、少し調べてみました。

適当なサンプルを探しているときに値の指定に !important とついているものがあったので調べると、同じ要素について複数の値指定があった場合は以下のように優先されるものが決まるのですね。

後に書いたほうが優先される
詳細に指定したほうが優先される
!important をつけるとその値が優先される

少し試して、とりあえず下記の配色にしてみました。

1
2
3
4
5
6
7
8
9
10
11
12

html *{
background-color:#191919 !important;
color:#CCCCCC !important;
}

a:link {
color:#CCCCCC !important
}

a:visited {
color:#777777 !important
}

↑ 黒くなりました。

参照 URL

CSSの書き方-c.d.t.

Google の背景色を黒にする

Ryosuke — Sat, 01 Oct 2011 15:17:02 +0000

仕事でも仕事以外でも PC のモニタを見続ける時間が長いため、眼の疲れをいかに軽減するかが、今後ますます重要になってくると感じています。

眼の負担が少ない配色については諸説あるようですが、個人的には背景色が黒で文字色が白か薄いグレー、というのが目に優しいのではないかと考えています。

なので、極力「黒背景に白 or グレー」もしくはそれに類する配色で作業できるように、現在少しずつ調べているところですが、今日は Google の背景色を変更するスタイルシート設定が公開されているのを見つけたので、さっそく試してみました。

Firefox では Stylish という「他人のサイトであってもオレオレ CSS を適用してやるぜ」的なナイスな拡張機能があります。(Chrome でもあるかも)

始めに Stylish を入れてから、下記ぺージで公開されているスタイルをインストールするだけで OK です。

Perfect Dark Google (complete rework) – Themes and Skins for Gmodules – userstyles.org

↑ 少しロゴがいつもと違うような気も

↑ 検索結果の表示画面もばっちり黒背景です

大変気に入りました!!

Dropbox で共有フォルダのファイルを Public フォルダで公開する

Ryosuke — Fri, 30 Sep 2011 14:58:05 +0000

久しぶりに仕事でプログラム(と呼べるほどのものではないですが)を書きました。Dropbox には Public という特殊なフォルダがありファイルを公開して外部からアクセス可能にすることができます。また、共有フォルダを作って他の Dropbox ユーザとひとつのファイルを共有して使うこともできます。

今回、共有フォルダにあるファイルを、公開してアクセス可能にする必要があり、少し調べたら意外と簡単にできました。

replace コマンドを
VBScript から実行して
タスクスケジューラで繰り返し

3 行で書くとこういう感じです。

Windows に標準で備わっているコマンドで、あるファイルで別のファイルを置き換える replace というものがありました。これを使って共有フォルダにあるファイルで Public フォルダにあるファイルを常に置き換えるようにします。

1	replace c\:Dropbox\share\hoge.txt c\:Dropbox\public\hoge.txt /u

/u オプションを付けると元のファイルのほうが新しい場合のみ置き換えるようになります。これを Windows 標準のタスクスケジューラで 1 分ごとに繰り返し実行するように設定しておけば、最長でも 1 分以内のタイムラグで常に Public フォルダのファイルが更新されるという仕組みです。

参照 URL

(あとでもう少し追記予定)

Emacs で上書き禁止(読み取り専用)でファイルを開く

Ryosuke — Wed, 28 Sep 2011 23:27:28 +0000

はてなダイアリーで毎日書いているログはひな形となるファイルを用意して、それをコピー・ペーストしてから書き換えるかたちで更新しています。

たまに、Emacs のコマンド入力ミスなどによってひな形ファイルのほうを編集してしまうことがあり、そのたびに C-x u で undo していましたが、ファイルを読み取り専用で開くコマンドがあることを知ったので、今後はこれを使っていこうと思います。

C-x C-r

でファイルを読み取り専用で開きます。編集しようとすると「Buffer is read-only」と表示されて入力は受け付けられません。ひな形ファイルはこれで開くようにすれば安心ですね。

Windows のスクリプト環境について調べてみた

Ryosuke — Tue, 27 Sep 2011 23:25:10 +0000

先日作った RTM にタスクを登録するスクリプトは「とりあえず思い通りに動けばいい」と考えて急いで作ったので、VBScript の文法などを調べたわけではありませんでした。サンプルコードを見て何となく理解して「こんな感じだろう」とやっていたので、あらためて少し調べてみます。

まず Wikipedia の記述を確認してみました。

VBScript – Wikipedia

一部を抜粋します。

Visual Basic (VB) のサブセット(簡易版)
Windowsのネイティブスクリプト言語
Active Server Pages (ASP) などを使用してサーバサイドで動いたり
Windows Script Host (WSH) を利用して Windows 上で動いたり

ランタイムというのは日本語でいうと実行環境というやつですね。このあたりの用語の使われ方をこれまで理解していなかったのですが、少しわかってきました。

Windows Script Host (WSH) とか、Windows PowerShell というのはスクリプトを動かすための環境を指していて、言語の種類ではない、それら実行環境の上で動かすスクリプト言語が VBScript や JScript 、ということか。

と、思ったのですが、PowerShell は実行環境でもあり、スクリプト言語でもあるのですね。

Windows PowerShell – Wikipedia

なるほど。なんとなくわかったような。

Microsoft のサイトで PowerShell を解説しているページがありました。こちらを読み進めていけば初心者からでも習得できそうです。英語の情報を翻訳しているようなので、全体的に文章のノリが英語っぽいですね。

Windows PowerShell でのスクリプティング

他にも関連する項目を Wikipedia で調べてみました(それにしても、項目間でリンクが張ってある Wiki という形式は便利です)。ActiveScripting は後継の .NET Framework があるので非推奨、WSH も後継の PowerShell があるのでその役割を終えたとのこと。

なるほどなるほど。

CraftLaunch から RTM にタスクを登録する (2)

Ryosuke — Mon, 26 Sep 2011 23:20:47 +0000

先日作った RTM へタスクを登録するスクリプトを少し改良してみました。変更したのは次の 2 点です。

入力をキャンセルした場合、処理を中断するようにした
複数回連続してタスクを登録できるようにした

InputBox 関数ではプロンプトが表示されている状態でキャンセルすると、空の文字列が返ってくるようになっていました。それゆえ、最初のスクリプトではキャンセルすると unnamed task として RTM に登録されてしまいます。これは InputBox の入力をファイルに書き込む前に、 if 文で空の文字列の場合は処理を中断するようにしました。

複数回の繰り返しは、入力→ファイル書き込み→メール送信という一連の流れを関数にまとめ、それを while True として止めない限り延々とループするようにしてみました。

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50

' タスクの入力
Dim task
Sub InputTask()
task = InputBox("タスクを入力する", "RTM quick")

If len(task) = 0 then
WScript.Quit
end if
end Sub

' ファイルの操作
Sub WriteFile()
Set objFso = WScript.CreateObject("Scripting.FileSystemObject")
Set objFile = objFso.OpenTextFile("rtmtask.txt", 2, False)

If Err.Number > 0 then
WScript.Echo "Open Error"
else
objFile.WriteLine task
end if

objFile.Close
Set objFile = Nothing
Set objFso = Nothing
end Sub

' メールの送信
Sub SendMail()
Set ws = WScript.CreateObject("WScript.Shell")
ws.Run "rtm_sendmail2.bat", 7

WScript.Echo("タスク追加 OK")
end Sub

' 単発で登録する場合
' TaskAdd()

' 繰り返し登録する場合
' キャンセルでループを抜ける
Do while True
TaskAdd()
Loop

Sub TaskAdd()
InputTask()
WriteFile()
SendMail()
end sub

これで好きなだけタスクを登録できるようになり、少し便利になりました。

参照 URL

ASP講座　4章 VBScriptの制御構文

CraftLaunch から RTM にタスクを登録する (1)

Ryosuke — Sun, 25 Sep 2011 23:10:21 +0000

先日作成した CraftLaunch から Remember the Milk(以下 RTM)へタスクを登録するスクリプトを紹介してみます。

smail という送信専用のメールプログラム(フリーソフト)があることを知り、これを使ってランチャからメールを送信して RTM にタスクを追加できるのではないかと考えました。

[SMAIL] 送信専用コマンドラインメールソフト

まず、smail からのメール送信を試してみます。コマンドラインから下記のように入力して、RTM に登録できていることを確認し、rtm_sendmail2.bat としてバッチファイルにしておきます。

1	smail.exe -d -hsmtp.gmail.com -F"rtmtask.txt" ryskosn+hogefuga+import@rmilk.com

rtmtask.txt はタスク内容を記録するテキストファイル、ryskosn+hogefuga+import@rmilk.com は RTM のタスク登録用メールアドレスです。

RTM にメールからタスクを登録する方法は 2 種類あって、ひとつはメールの件名にタスクを記述して送信するやり方、もうひとつは件名には登録先のリストを指定して(空欄の場合は Inbox に入る)、メール本文にタスクを記述して送信するやり方です。

詳しくは下記の記事などに書かれています。

最初は CraftLaunch から引数としてタスク内容を渡せばよいかと考えたのですが、少し試してみたところ、既に登録したタスク内容が CraftLaunch の履歴に残って補完に引っかかるので、少々微妙です。

Windows の機能でテキスト入力欄を表示させるのが一番簡単そうだったので VBscript について調べて、InputBox 関数で実現できることがわかりました。

InputBox に入力したテキストを rtmtask.txt に書き込んで、smail で rtmtask.txt を本文としてメールを送信するバッチファイルを実行します。

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

' タスクの入力
Dim task
task = InputBox("タスクを入力する", "RTM quick")

' ファイルの操作
Set objFso = WScript.CreateObject("Scripting.FileSystemObject")
Set objFile = objFso.OpenTextFile("rtmtask.txt", 2, False)

If Err.Number > 0 then
WScript.Echo "Open Error"
else
objFile.WriteLine task
end if

objFile.Close
Set objFile = Nothing
Set objFso = Nothing

' メールの送信
SendMail()

Sub SendMail()
Set ws = WScript.CreateObject("WScript.Shell")
ws.Run "rtm_sendmail2.bat", 7

WScript.Echo("タスク追加 OK")
end Sub

あとはこの VBscript を CraftLaunch に登録すれば、いつでもササッとタスクを登録することができます。

↑ CraftLaunch から上記スクリプトを実行します。rrtask というコマンド名を割り当てました。

↑入力ダイアログが表示されるのでタスク内容を入力します。Enter を押すと(OK をクリックすると)バッチファイルが実行されて smail からメールが送信されます。

↑登録完了のメッセージも表示するようにしてみました。

ちょっとスクリーンショットの撮り方がイマイチでした。