2011-10-22

AutoHotKeyでダイヤモンドカーソル+αっぽいの

Autohotkey

今まで使ってたノートPCのキーボードだとFn+Up/DownにはPageUp/Downが割り当てられてたんだけど、
新しいPCは音量とディスプレイの明るさに変わってて不便な思いをしていた。
話変わってダイヤモンドカーソルが便利と聞いていた。
あと前候補変換キーが余ってた。
以上の理由からそれっぽいのをAutoHotKeyで作った。

;前候補変換キー+esdxにUpLeftRightDown、+wafcにPgUpHomeEndPgDn
sc079 & e::Send, {Blind}{UP}
sc079 & s::Send, {Blind}{Left}
sc079 & d::Send, {Blind}{Right}
sc079 & x::Send, {Blind}{Down}
sc079 & w::Send, {Blind}{PgUp}
sc079 & a::Send, {Blind}{Home}
sc079 & f::Send, {Blind}{End}
sc079 & c::Send, {Blind}{PgDn}

前候補変換キーってのはスペースの横にある（はずの）キーです。
ホームポジションからあんまり手を動かさなくていいので結構便利なんじゃないでしょうか。
たまにAltと押し間違えているけど

2011-08-12

Tweenで各種Webサービスに選択中のユーザーのIDを送るAHKスクリプト

Autohotkey Twitter

例えば、発言欄で選択してるユーザーのTwilogのページを一発で開けたりします
Tween自体にも同様の機能がありますが、ひとつしか設定できないのとキーボードショートカットを割り当てられないのが不便だったので自作しました

#IfWinActive, ahk_class WindowsForms10.Window.8.app.0.2bf8098_r15_ad1
;Ctrl+Shift+A押すとふぁぼったーで開く
^+A::IDtoURL("http://favotter.net/user/")
;Ctrl+Shift+L押すとTwilogで開く
^+L::IDtoURL("http://twilog.org/")
;Ctrl+Shift+U押すとスパムバスターでfuck
^+U::IDtoURL("http://spambuster.tk/?fuck=")

;ショートカットキー::IDtoURL("送りたいURL")で簡単に追加できます

IDtoURL(URL)
{
  clipboard =
  Send, +!c
  ClipWait
  Run,%URL%%clipboard%
  return
}
#IfWinActive

2011-07-26

Tweenで選択している発言に含まれるURLを全て開くAutoHotKeyスクリプト

Autohotkey Twitter

選択している発言の中のURLを全て開きます。
複数の発言を選択していたらその中の全てのURLを開きます。
@idやハッシュタグは開きません。

＊更新履歴
11/09/12
URL無かったらツールチップ表示して通知するようにした
末尾…のURLが見つかったらCtrl+Eを送る処理を追加

11/09/11 Tween1060でt.co対応したため正規表現がマッチしなくなったので直した
誤爆しそうな雰囲気
末尾が"…"になってるものは開けません。もしなんかいい方法あったら教えて下さい

!+E::
  clipboard =
  Send, ^c
  ClipWait, 3
  tweet := RegExReplace(Clipboard, "\[http://[\w./]+\]")
  count = 0
  loop {
    RegExMatch(tweet, "[\w-.!~*'();\?:\@&=+\$,%#]+/[\w-.!~*'();\?:/\@&=+\$,%#]*\s", url)
    if url =
    {
      RegExMatch(tweet, "[\w-.!~*'();\?:\@&=+\$,%#]+/[\w-.!~*'();\?:/\@&=+\$,%#]*…", tco)
      if count = 0
      {
        if tco =
        {
         ToolTip, URL無いよ, , , 1
         sleep, 1000
         ToolTip, , , , 1
        }
        else
         Send, ^e
      }
      else
      if tco <>
       send, ^e
      tweet =
      return
    }
    else
    {
      Run, http://%url%
      StringReplace, tweet, tweet, %url%
      count += 1
    }
  }
  return

;Tween1050以前用
;Alt+Shift+Eで全部開く
#IfWinActive, ahk_class WindowsForms10.Window.8.app.0.2bf8098_r15_ad1
!+E::
  clipboard =
  Send, ^c
  ClipWait
  tweet := RegExReplace(Clipboard, "\[http://[\w./]+\]")
  loop {
    RegExMatch(tweet, "http://[\w/\.?=&%-]+", url)
    if url =
    {
      tweet =
      return
    }
    else
    {
      Run, %url%
      StringReplace, tweet, tweet, %url%
    }
  }
  return
#IfWinActive

こんな感じに選択してAlt+Shift+E押すと

このように全部開かれます

最初一発言中の複数のURL開ければいいなーと思って作ってたら、
TweenはCtrl+Cで複数の発言をまとめてコピー出来ることが発覚し
選択した発言のURL全部開けるようになりました。運がいい

2011-07-24

AddressUpdater上でCtrl+B押すと対戦後挨拶定型文を挿入するAHKスクリプト

東方 Autohotkey

AU上でCtrl+Bを押すと"[名前]さん対戦ありがとうございました。"を挿入します。

＊準備
天則観を導入し、"対戦結果コピー"の"相手プロファイル名"を有効にする
以下スクリプトをAutohotkey.ahkに記述

＊更新履歴
11/09/12
フォーカスが当たってない時に押してしまった場合などにクリップボードに"[ID][定型文][定型文]"のような文字列が格納されないようにした

#IfWinActive, ahk_class WindowsForms10.Window.8.app.0.33c0d9d
^b::
  IfNotInString, Clipboard, さん対戦ありがとうございました。 ;連打しても定型文部が増殖しないように
   Clipboard = %Clipboard%さん対戦ありがとうございました。
  Send, ^v
  return
#IfWinActive

あとは対戦後にチャット入力欄にフォーカスを当ててCtrl+Bを押すだけです。
文章はお好みに。

2011-07-23

Opera ExtensionのRead It Later拡張"Reading List" 設定画面メモ

Opera

めもめも

Storage options
Logout ：Read It Laterからログアウト
Clear Save Data ：ローカルのリストのキャッシュを破棄する模様

Behavior
Action executed after marking opened item as read (using the in-page icon).
：ページ上のMark as Readボタン(レ点のボタン)を押した後の動作
None ：何もしない
Close Tab ：タブを閉じる
Open Next Item ：次のアイテムを同一タブに開く。読みまくるならコレか下
Open Random Item ：ランダムなアイテムを同一タブに開く

Action executed after adding item to list.
：ページ上のReadLaterボタンを押した後の動作
None ：何もしない
Close Tab：タブを閉じる

Appearance
Show icons on each page. ：ページ上にReadLater、Mark as Readボタンを表示する。チェック推奨

Right ：画面右側に表示
Left ：画面左側に表示

Top ：画面上側に表示
Bottom ：画面下側に表示

Show paging using links.
Show paging using combo box.
Show favicons in items list (quite slow if you have a lot of unread items).
：だれかおしえて

2011-07-15

amazonのURLをコピーしたら自動的に短縮したものをクリップボードに格納するAHKスクリプト

Autohotkey

長くなりがちなAmazonのURLを自動的に短縮します。
http://www.amazon.(各国末尾)/dp/(商品ID) 形式になります。
コピーしたときに先頭がhttp://www.amazon.以外だと認識しません、文中のURLを置換したりはしません。
ついったーや掲示板でURL張りたいときや糞スパムブログで商品気になったけどアフィ踏みたくないというとき等にたぶん便利

＊履歴
11/08/25 なんとなく各国サイトにも対応させた

#Persistent
return
OnClipboardChange:
RegExMatch(clipboard,"^(?:http://www.amazon.(co.jp|com|co.uk|fr|de|ca|cn|it))(?:.+)(/[\dA-Z]{10}/)", amazonid)
If amazonid <>
{
 clipboard = http://www.amazon.%amazonid1%/dp%amazonid2%
 amazonid =
}
return

2011-07-13

xyzzyのautohotkey-modeでエラーが出る場合の対処方法

xyzzy Autohotkey

今までxyzzyにてahk-modeを使おうとすると、

xyzzy\Extras\Syntax\Commands.txt
が見つかりません

といったようなエラーが出てahk-modeが適用されず困っていた。
結論から言うと、Autohotkeyをインストーラを使用して再インストールしたら解決した。

ahk-mode.lにはAutoHotKey\Extras\Syntax\Commands.txtを参照して色々する機能があるようなのだが、
この場所をレジストリから参照しようとするため、インストーラを使用していない場合値を発見できず、
代わりにxyzzy\Extras\Editors\Syntax\Commands.txtを探し、存在しないためエラーが出る、
というのが原因だったようだ。
直ってよかったよかった