2012-05-05

「ClearlyをVimperatorキーバインドで発動する設定」が、うまく動かなくなってしまったので、少し調べてみた。

Vimperator Evernote

Mac Explorer｜ ReadabilityやClearlyをVimperatorキーバインドで発動する設定 を参考にして、VimperatorからEvernote Clearlyを起動して、快適にWebを閲覧できていたんだけど、Clearlyのバージョンアップが原因なのか、数ヶ月前からエラーが出て、使えなくなっていた。
検索して、解決策を探してみたけど、解決策が見つからなかった（Macでは動くとかかな？）ので、わからないなりに、がんばってみたら、Clearlyを起動するだけならできるようになったのでメモ。
.vimperatorrcに↓の1行を追加したら、"e"でClearly起動。

noremap e :js __readable_by_evernote.readable_by_evernote__menu__call(buffer.URL)

Evernoteにクリップする方は、よくわからなかった。
Javascriptとかよくわからないというか、プログラム自体がよくわからないので、もうちょっと勉強して、わかりそうだったら、再挑戦してみるか。下の追記（2012/05/08）参照


2012/05/06 追記
Evernoteにクリップする方法を、@anekosさんにTwitterで教えていただきました。
これで、Evernoteにクリップし放題です。


2012/05/08 追記
僕が元々やりたかったのはClearlyで余計なものを消してから、右側にあるやつで、クリップするというものだったので、さらに調べてみた。
f:id:cd01:20120508233026j:image
動いたから、多分大丈夫なはず。
これで、eを押して、余計なものを消してから、読んで、保存したかったら、Eで保存という風にテンポよくネットが見られるようになる気がする。

noremap E :js __readable_by_evernote.__readable_by_evernote__launch(true);

2012-05-04

今年の花粉症対策まとめ 2012

花粉症

今まで、あまり花粉症対策をキッチリやれていなかったけど、今年は少しがんばってみた。
季節的には、もう終わりだけど、来年に備えてメモっておく。

  • マスクのフィッティング

　　普通のマスクを使っているけど、息を吸った時に、顔に引き寄せられる感覚があるというのを目安に調整するようにした。

フィッティ(R) お得用マスク ふつう60枚入

フィッティ(R) お得用マスク ふつう60枚入

  • 空気清浄機

　　1部屋1台

ZOJIRUSHI 空気清浄機 PA-HA16-WB ホワイト PA-HA16-WB

ZOJIRUSHI 空気清浄機 PA-HA16-WB ホワイト PA-HA16-WB

  • 洗濯乾燥機

　　洗濯物は外に干さない

SHARP タテ型洗濯乾燥機 穴なし槽カビぎらい ブルー系 洗濯容量5.5kg ES-TG55L-A

SHARP タテ型洗濯乾燥機 穴なし槽カビぎらい ブルー系 洗濯容量5.5kg ES-TG55L-A

  • 布団乾燥機

　　布団も外に干さない

イズミ ふとん乾燥機IZUMI FK-800 FK800-D

イズミ ふとん乾燥機IZUMI FK-800 FK800-D

  • 窓の隙間を塞ぐ

　　テープで塞ぎまくる。

P-カットテープ 透明 No.4140 50mm×25M

P-カットテープ 透明 No.4140 50mm×25M

  • ハナノア

　　目を洗うやつも。
　　目と鼻から花粉を洗い流す。

ハナノア 洗浄器具+専用洗浄液 300ml(鼻洗浄)

ハナノア 洗浄器具+専用洗浄液 300ml(鼻洗浄)


ロート)アルガード目すっきり洗眼薬α 500ml

ロート)アルガード目すっきり洗眼薬α 500ml

  • 掃除ロボット

　　毎日掃除するのは大変なので。
　　ルンバは高いので、アナバス。

ANABAS UV殺菌灯付き自動充電式ロボクリーナー SZ-300

ANABAS UV殺菌灯付き自動充電式ロボクリーナー SZ-300

2012-05-03

PHPの開発環境をローカルに作った

PHP

家で試してみたいなあと思うことがあっても、さっと試せる環境がなかったので、XAMMPをインストールしてみた。
XAMPP for Windows のダウンロードとインストールと設定を参考にしながら、インストールして、念のためネットを切ってから、XAMPPの設定 | PHP Laboを参考にセキュリティ関連の設定をした。
インストーラでインストールして、http://localhost/security/index.phpにアクセスして、赤く「要注意」と表示されているところを、なんとかしておけばOKという感じ？

2012-04-08

ckw + PowershellでVimを使うときの配色

ckw

ckw + PowershellでVimを使ったり、ファイル操作をしているのですが、Vimの配色が、あまり気に入らなかったので、変更してみた。
そのまま使うと原色っぽい色ばかりで、あまり目にやさしい感じがしないので、目にやさしそうな配色にしようとVimのカラースキーマを設定してみたけど、設定通りの配色になっていないみたいだったので、ckw.cfgを編集して、配色を変更することにした。
solarizedというカラースキーマが、よさそうだなと思ったので、Gvimには、これを適応しておいて、同じようにしようと思ったけど、同じ色で設定できる範囲が狭いのか、うまく行かなかったので、solarizedの中で、あまり目立たなさそうな色を、それっぽいところに設定してみた。
設定が、どこに反映されているのか分からない部分もあったので、そこは設定しないでおくことにした。
今後、使っていって、修正していくと思うけど、とりあえず、今の状態をメモっておくことにする。

2012.05.27 VimにPowerlineを入れたら、色が変わらない部分があったので、色を追加。

Ckw*foreground: #CCCCCC
Ckw*background: #333333
Ckw*cursorColor: #90EE90
Ckw*cursorImeColor: #FFB6C1

Ckw*title: ckw
Ckw*exec: powershell.exe
Ckw*chdir: c:\Users\「ユーザー名」

Ckw*scrollHide: no
Ckw*scrollRight: yes
Ckw*internalBorder: 1
Ckw*lineSpace: 0
Ckw*topmost: no

!Ckw*backgroundBitmap: ckw_background.bmp
Ckw*transp: 220
!Ckw*transpColor: #000000

Ckw*font: Ricty
Ckw*fontSize: 18

Ckw*geometry: 133x33
Ckw*saveLines: 500

Ckw*color0: #000000
Ckw*color1: #330000
Ckw*color2: #660000
Ckw*color3: #FF0000
Ckw*color4: #222222
Ckw*color5: #6c71c4
Ckw*color6: #00FF00
Ckw*color7: #FF0000

Ckw*color8: #eee8d5
Ckw*color9: #6c71c4
Ckw*color10: #839496
Ckw*color11: #268bd2
Ckw*color12: #859900
Ckw*color13: #2aa198
Ckw*color14: #b58900
Ckw*color15: #268bd2

2012-04-07

PC環境（Windows 7 x86）を鍛える

Windows

PCを使用する時間が増えたので、効率よく使うために、いろいろ調べたり、インストールしたので、次にPCを買うときのためにメモ。
忘れていて抜けてたり、追加したら、変更・追記する予定。

  • その他
    • Microsoft Security Essentials (Avastよりも軽いと思った。)
    • RamPhantomEX (OSが管理してないメモリ1GBをブラウザのキャッシュに充てた。)
    • あとは、AutopagerizeとかSpyBotとか、定番系のソフトは入れてる。

================================================================================


2012-04-06

ショートカットキーの登録方法を変えた

AutoHotkey

今まで、Windowsでソフトを起動するときに、デスクトップにショートカットを置いて、そのショートカットにプロパティからショートカットキーを登録して起動していた。
これはこれで、便利だったけど、デスクトップにあるショートカットがない方がいいなあと思っていた。
よく考えたら、Autohotkeyでできるなあと思ったので、ショートカットキーをAutohotkeyに移行することにした。
基本は、Ctrl+Shift+アルファベットで登録していくことにする。
書き方は、「^+g::Run, "C:\(略)\vim\gvim.exe", '', MAX」みたいな感じで、最大化した状態で、Gvimが開く。

とりあえず、今は、こんな感じ↓
他にも、いろいろ便利そうな使い方がありそうなので、ちょこちょこ調べて、追加していこうと思う。

; ↓を見たら、便利そうだったので、マネしてみる。
; Windows7 搭載マシンを買ってきてやったことまとめ
; http://d.hatena.ne.jp/amachang/20111226/1324874731
!h::Send, {Left}
!l::Send, {Right}
!j::Send, {Down}
!k::Send, {Up}

!+h::Send, +{Left}
!+l::Send, +{Right}
!+j::Send, +{Down}
!+k::Send, +{Up}

; ここからショートカットの設定
; Powershell
^+p::Run, "C:\(略)\ckw\ckw.exe", '', MAX

; Firefox
^+f::Run, "C:\Program Files\Mozilla Firefox\firefox.exe", '', MAX

; Chrome
^+c::Run, "C:\Program Files\Google\Chrome\Application\chrome.exe", '', MAX

; IE
^+i::Run, "C:\Program Files\Internet Explorer\iexplore.exe", '', MAX

; Mery
^+q::Run, "C:\(略)\Mery\Mery.exe", '', MAX

; Gvim
^+g::Run, "C:\(略)\vim\gvim.exe", '', MAX

; My Document
^+d::Run, "explorer", 'C:\(略)\Documents'

2012-01-03

文化系トークラジオ Life ポッドキャストの曲名のフォーマットを変換するVBScriptを作ってみた。("renameLifePodcast_DateTitlePart2DatePartTitle.vbs" ver.0.01)

WSH


Twitterを見ていたら、ＴＢＳラジオ「文化系トークラジオ Life」のポッドキャストの曲名のフォーマットがiPodで再生中に見づらいということでした。
それで、フォーマットを変更するスクリプトがあったらいいなあと思ったので、スクリプトを書く練習も兼ねて、作ってみました。
ちゃんと動いてくれるか、かなり心配です・・・


とりあえず、僕の環境では動いたので問題はないと思うのですが、万一ということもありますので、使用する場合は、バックアップした上で、自己責任でお願いします。


機能としては、
　　　・”2010年3月28日「ライブメディアの現在」 Part1” を ”2010年3月28日 Part1「ライブメディアの現在」”というように変換します。他の形式では変換しません(もしくは、うまく変換できません。)
　　　・「予告編」という文字列を「Part0」に変換
　　　・全角数字を半角数字に変換
　　　・「（日）」という文字列を削除
　　　・「part」は「Part」に統一
というようにしています。


この辺は、自分のやりたいようにしました。
もし要望があれば、変更はするかもしれません。
他のフォーマットへの変換も要望と時間があれば作るかもしれませんが、1RTなので要望はないでしょう(笑)


使い方は、下の四角に囲われた部分を、コピーして、メモ帳に貼りつけて保存。
保存したファイルの拡張子を.vbsに変更(名前は何でもいいです。「renameLifePodcast.vbs」とでもしておいてください。)
その後、iTunesで名前を変更するLifeのポッドキャスト(日付「タイトル」Part○というような形式のもののみ)を選択した状態で、先ほど保存したファイルをダブルクリックします。
しばらく待つとリネームされたあと、「リネームしました。」と表示されて、終了です。


使う人が存在するのか、わかりませんが、責任は負えませんので、バックアップ後に、自己責任でお願いします。

'====================================================
'
' iTunes上で選択しているLifeのPodcastの名前を変更
'
'====================================================
set iTunes = CreateObject("iTunes.Application")

' iTunesから選択されたトラック取得
set selectedTracks = iTunes.SelectedTracks

private trackCnt
trackCnt = 0
Dim strings, str, titleForward, titleMiddle, titleRear, outputName

if Not( selectedTracks is Nothing ) Then
trackCnt = selectedTracks.Count
end if

if trackCnt = 0 then
WScript.Echo "iTunesでトラックを選択してください"
WScript.Quit
else


' 選択されたトラック分処理
for i = 1 to trackCnt
set current = selectedTracks.Item( i )
title = current.Name
if Left(title, 2) = "20" Then
If InStr(title, "「") > 0 Then
If InStr(title, "」") > 0 Then
strings = Split(current.Name, "「")
titleForward = strings( 0 ) 'タイトルの前にある日付

titleMiddle = strings( 1 )
strings = Split(titleMiddle, "」")
titleMiddle = strings( 0 ) '「」の中に書いてあるタイトル

strings = Split(current.Name, "」")
For Each str In strings
titleRear = str 'タイトルの最後にあるPart Number
NEXT

'元の名前
'WScript.Echo "名前＝" + titleForward + "「" + titleMiddle + "」" + titleRear
outputName = titleForward + " " + titleRear + "「" + titleMiddle + "」"

'全角数字を半角数字に置換
outputName = Replace(outputName, "０", "0")
outputName = Replace(outputName, "１", "1")
outputName = Replace(outputName, "２", "2")
outputName = Replace(outputName, "３", "3")
outputName = Replace(outputName, "４", "4")
outputName = Replace(outputName, "５", "5")
outputName = Replace(outputName, "６", "6")
outputName = Replace(outputName, "７", "7")
outputName = Replace(outputName, "８", "8")
outputName = Replace(outputName, "９", "9")

outputName = Replace(outputName, "（日）", "")
outputName = Replace(outputName, "予告編", "Part0")
outputName = Replace(outputName, "part", "Part")

current.Name = outputName
End If
End If
End If
next

end if

WScript.Echo "リネームしました。"


参考
【iTunes】曲の読みがなを自動でつける for Windows - 狩塊-KARIKATAMARI-
実はすごい簡単なiTunesスクリプトの書き方(Windows版iTunes) - 犬も歩けば棒も歩く
iTunes for Windows まとめ - 便利なスクリプト -