keyconfig FireGestures MozRepl + Ruby http://gist.github.com/160204 MozRepl + xyzzy http://gist.github.com/186012 Ubiquity#preview() は 0.5.5 から。 Firefox を前面に持ってくる方法が判らず，minimize();restore();focus() は苦肉の策。

#\" と #\' を入れ替え。 (defun switch-quote (&optional (n 1)) (interactive "p") (if (> n 0) (if (looking-at "[^\"']*?\\([\"']\\)") (let ((q (match-string 1))) (goto-char (match-end 1)) (delete-backward-char) (insert (if (string= q "'") #\"…

マウスを使わずにタブを並べ替える方法。 Firefox デフォルト どうにかしてタブバーにフォーカス。「ctrl+K → Tab」が最短？ ctrl+Up / ctrl+Left ctrl+Down / ctrl+Right ctrl+Home ctrl+End で動かす。 カスタム gBrowser.moveTabForward() gBrowser.moveT…

(defunkey filter-selection #\C-\| (cmd) (interactive "*e| " :history0 'execute) (if (get-selection-type) (let ((s (selection-mark)) (e (selection-point))) (and (> s e) (rotatef s e)) (filter-region cmd s e)) (filter-region cmd))) filter-re…

をようやく使い始めた。 (defmacro filer-command (name key . body) (let ((fname (intern (concat "filer-" (string name))))) `(progn (defun ,fname () ,@body) (define-key filer-keymap ,key ',fname)))) (setf (get 'filer-command 'lisp-indent-hook…

ゴルフしたコードが余りに読み辛いのでscheme-modeを導入した上で作成。 (defun golf-buffer-scheme () (interactive) (let ((spc "[ \r\n\t]") (-- "\\|")) (replace-buffer (compile-regexp (concatenate 'string spc "*" "\\(" ; <1> "\"\\(?:[^\"]\\|\\\…