切実な必要性に駆られたわけではなく、思いついたのでなんとなく脊髄反射的に作って見ました。scrot、cURL、beep、xclip に依存しています（beep は必須ではありません）。エラー処理とかはほとんどやってないです。Windows 向けに修正したいという場合は sc…

次のように関数定義内で行頭に開き括弧がある場合にその内側から beginning-of-defun で関数の先頭に移動しようとすると、 デフォルトの挙動では (let ...) の開き括弧の位置にカーソルが移動してしまいます。 行頭に開き括弧があったら、それを関数の開始位…

やっつけです。タブ区切りで標準出力に吐きます。ソースとして政治家WEBリンク集 http://db.kosonippon.org/link/link.phpを使いました。ちなみに 衆議院 480 + 参議院 242 = 722 このスクリプトで得た件数 = 676 です。食い違いの理由については「ウェブサ…

Emacs Lisp を書いているときに自動インデントしたいときは C-M-a（beginning-of-defun）で関数の頭に移動して C-M-q（indent-pp-sexp）しているが、2ストロークなので面倒くさくなってきた 1つにまとめよう どうせだから save-excursion で囲んだらいいんじ…

なんだか Emacs Lisp の練習問題みたいなネタですね。最後の行から上向きに 1行ずつ見ていき、 見出し行でなければ "Function", "Variable" などのタイプを item-type にセット 見出し行なら item-type をもとにフェイス設定 という動作をしています。他のト…

というかこないだのこれhCalendar の存在を検出するだけの Greasemonkey スクリプト（誤検出もあるよ） - 再発明日記を複数のパターンに対応させただけですが。指定したパターンを検出すると画面左上にこのように表示されます。クリックすると消えます。docu…

Universal Extractor http://legroom.net/software/uniextractを使うと gpg.exe などが抽出できるので、パスの通った所に置いて使う。抽出に使ったインストーラ: gnupg-w32cli-1.4.11.exe

Thunderbird の GUI 画面でドラッグ＆ドロップするとフォルダ構造（階層）だけコピーされて個々のメールが移動していなかったり、そもそも移動したいのにコピーされたり、コピーも移動もできなかったり、どうも挙動が謎で、結局どうすればいいか分からなかっ…

個人的にはすごく便利なのですがこんなの自分以外誰も使わないだろうという気がしてきたので適当に書きます。 ダウンロード https://gist.github.com/sonota88/3187c5f60f67c3eafd31fbf0b457035f 用語 ブックマークページ: ある URL に対して複数のユーザの…

hCalendar が使われているサイトのリストみたいなのがあるといいかも（参考にしたり、どのくらい普及しているかを知るために） ないなら作るか でも今のところ3サイトくらいしか知らない…… まずはどこで使われているか気付けるようにするか…… というのが経緯…

1. 現在開いているファイルをHTMLにエクスポート 2. kindlegen で .mobi に変換 3. Kindle内のフォルダに移動 をスクリプト化しただけです。即席。UTF-8 だったら日本語入りでも大丈夫。 目次も勝手に生成されます。 Kindleの Home では org-mode の "#+TITL…

メモメモ。 var idleTimer = null; function callback() { // } function resetTimer() { if (idleTimer) { clearTimeout(idleTimer); } idleTimer = setTimeout(callback, 500); } inputText.addEventListener("keydown", resetTimer, false);

手元でちょっとメモる時のオレオレ記法として、コマンドの出力やログ片、コード片はタブでインデントしている。これまでは yank 貼り付けた範囲を選択 string-rectangle（C-x r t）でタブを挿入 とやっていたが、いいかげん面倒に感じてきたので「タブでイン…

frame-title-format を設定するのと同じ要領で icon-title-format を使って設定する。参考: マニュアル: Frame Titles http://www.geocities.co.jp/SiliconValley-Bay/9285/ELISP-JA/elisp_440.html Frame Titles - GNU Emacs Lisp Reference Manual http://…

Firefox のアドオン Operator を使って ATND から Googleカレンダーにイベントを登録しようとすると "Request-URI Too Large" と言われて失敗するので。 (function(){ function selectByXPath(root, xpath){ if(root === null){ root = document; } var snap…

記事日付の記載がないのって新聞の記事としてどうなんでしょうか。 location.href.match("http://newsmanga\.com/.+?/(\\d{4})(\\d{2})(\\d{2})"); var date = document.createElement("p"); date.textContent = RegExp.$1 + "-" + RegExp.$2 + "-" + RegExp…

もっと根元の方で対処すると良さそうだな、と思いつつ lib-plugins/yapra/plugin/feed/custom.rb の run の中味を begin/rescue/end で囲んで pp config させただけ。 class Custom < Yapra::Plugin::MechanizeBase def run(data) begin urls = if config['u…

画像はサムネイルで良いのでこんな感じで。 date が不要なら EFT 使わなくてもいいんですが…… - module: Config::WebPost config: url: "http://www.pixiv.net/login.php" params: mode: login pixiv_id: FOO pass: BAR - module: Feed::Custom config: url:…

sense-region でフェイスがおかしくなるので調べたんですが、もうすでに解決されてましたorz ↓ 参考: sense-region.el on Emacs23でface設定が壊れないようにする - Emacs/Lisp/Drill - Emacsグループ http://emacs.g.hatena.ne.jp/k1LoW/20090822/125091966…

7c7 < pipeline.context['mechanize_agent'] ||= WWW::Mechanize.new --- > pipeline.context['mechanize_agent'] ||= Mechanize.new "WWW::" を取っただけ。grep すると他にも見つかる。必要ならここらへんも直すと良いかも: ./legacy_plugins/Filter/Trans…

タイトルの通り。 - 20100930追記 引数 arg で non-nil を渡すとファイル名のないバッファでも使えるっぽい。

XPathGraphだと特定のURL（+XPath）の場合に取得に失敗する でもデータを取って見てみたい というわけで自作したら1行で済んだ require "open-uri" require "rubygems" require "nokogiri" def xpathgraph_modoki(url, xpath) Nokogiri::HTML(open(url)).xpa…

「ニュースまるわかり」は以前「今週の大ハテナ」だったコーナーです。 RSS::save などに渡して使ってください。 =begin config example: - module: KodomoNews::hatena config: recent: 10 # optional =end require "rubygems" require "yapra/plugin" requ…

やっつけです。画面左上に入力ボックスが出ます。ブックマークレットにすると良いかもです。 (function(){ function $id(){ var elem, id; switch(arguments.length){ case 1: elem = document ; id = arguments[0]; break; case 2: elem = arguments[0]; id…

# dropbox-sync.rb module Dropbox def self.exec(cmd) puts cmd `#{cmd}` end def self.sync self.exec %Q!dropbox start! loop do result = exec( %Q!dropbox status! ) p result break if result == "Idle\n" sleep 5 end self.exec %Q!dropbox stop! end…

color-moccur.el の 関数 moccur-view-file の次の箇所を修正。 ;; 修正前 (moccur-color-current-line) ;; 修正後 (moccur-color-current-line) (recenter)