日本語入力時もkey-chorde.elが動いちゃう問題は、egbridge使ってる人限定かもしれないです。 以下のコードはcarbon-emacs用です。 他のemacsの場合は、mac-get-current-key-script の部分を変えてください。 (when (and (featurep 'carbon-emacs-package) (…

タイトルの通りです。全てを消し去りたいときにどうぞ!! (defun my-kill-buffers () (interactive) (let ((buffers (loop for bn in (mapcar 'buffer-name (buffer-list)) when (not (or (string-match (rx bol (+ space)) bn) (string-match (rx bol "#") b…

プロジェクトルートを取ってくる部分は http://trac.codecheck.in/share/browser/lang/elisp/anything-find-project-resources/trunk/anything-find-project-resources.el を参考にしました。っていうかまんまパクりました。すいません。 (defun anything-de…

タイトルの通り、freenodeに #emacs-lisp-ja を作りました。 正確には、#emacs-lisp-jaが欲しいとぼやいたら、直ぐにid:k1LoWが作ってくれました。 色々分からないところとか、気軽に話しましょう。 先生・・・誰かとemacs lispの話がしたいです。 自分はirc…

同じコマンドを連続実行することで挙動を変える（行頭→先頭など） sequential-command.el をリリース - http://rubikitch.com/に移転しましたリリースされたばかりの sequential-command.el を使ってみました。 一つのコマンドで複数の動作ができるのは思っ…

carbonemacsで半透明に切り替えるコマンドとして使っています。 他のEmacsで同じように動くかは不明です。 (defun ik:toggle-opacity () (interactive) (when window-system (ignore-errors (if (= (assoc-default 'alpha (frame-parameters)) 100) (set-fra…

テキストエディタ勉強会2009/02/21に、テキストエディタ勉強会 - 第一回 が行われます。 Emacs,Vi(m),Eclipse,秀丸,使いの人たちが一同に集まってエディター談義を交わすという、とても楽しそうなイベントです。みんな優しい人なので、こう、なんか、戦争的…

el-expectationsを使ったテストに直ぐに移動するための関数です。 つい癖でanything-c-moccurなどを使ってテストの位置まで移動していましたが、コマンドにしたら凄く便利になって気持ちがスッキリしました。14行程コードを書けば世界が変わりますね。まあ名…

(defun take-same-indent-string () (let* ((indent (current-indentation)) (start-point (point)) (end-point (save-excursion (forward-line) (loop while (and (not (>= indent (current-indentation))) (not (eobp))) do (forward-line) finally return…

詳しく調査していないので間違ってたらごめんなさい。anything-etags-enable-tag-file-dir-cache が nil の状態で、 anything-etags-get-tag-file 関数が呼ばれたとき、TAGSファイルが二階層以上上のディレクトリにあると無限ループになっているような気がし…

http://coderepos.org/share/browser/lang/elisp/php-completion/trunk/php-completion.el Ver 0.02です。 gtagsで作ったタグファイルからも補完候補を収得する用にしました。globalがインストールされていない場合は、何もしません。 アイデアは、id:k1LoW…

http://coderepos.org/share/browser/lang/elisp/php-completion/trunk/php-completion.el ver 0.01です。一応動くと思いますが、開発途中のバージョンなので、人柱になっても問題ない人向けです。できる事は、anything.elを使った関数名、定数、iniディレク…

git svn init -s http://svn.coderepos.org/share/lang/elisp/php-completion/ ~/c/php-completionして作ったプロジェクトで、何回かブランチ作ってmergeを繰り返した後に git svn dcommitしたんだけど RA 層のリクエストが失敗しました: ログメッセージを /…

php-completion.elを作っていて、PHPの関数一覧が必要になったので、php.netからスクレイプするスクリプトを Web::Scraper を使って書いた。xpathに疎い自分ですが、cssのセレクターで指定できたので無問題でした。素晴らしすぎる。 use strict; use warning…

id:rubikitchさんが、anything-c-moccur.elのresume部分を修正してコミットしてくれていた!!今まで、anything-c-moccur関係のsourceを起動した直後でないと動かないような微妙な実装でしたが、正常に動作するようになりました。codereposのHPのトップに書い…

同年代(g:1987)の地元友達数人と飲みに行った。酔っぱらった僕はlispの括弧を閉じるときに感じるエクスタシーについて話し始めたんだけど、みんなはlispうんぬん以前にプログラムとは無縁の世界に生きている人たちだったので、その話はあまり盛り上がらなか…

説明 key-chord.elで提供される key-chord-describe コマンドのanythingインターフェイスです。定義されているchordを表示します。 anything-sourceの変数 anything-c-source-key-chord-describe と、それを使ってanythingを起動するコマンド anything-c-key…

クリスマスイブだというのに部屋で一人年賀状を作ってた。 ごらんの有様だよ!!

outputz.el読んでて気付いたので。 (unless (fboundp 'mailcap-parse-mailcaps) (block nil (dolist (path load-path) (when (or (file-exists-p (expand-file-name "mailcap.el" path)) (file-exists-p (expand-file-name "mailcap.elc" path))) (load (exp…

flymakeでエラー出ちゃうので、どうにかしたいと思っていたのですがこんなのを思いついたのでメモ。 とりあえず、3ディレクトリくらい上がっていく間に存在するextlib,libをリストで返す関数を書いた。 (defun* plcmp--get-lib-path-list-liberal (&optional…

普段は20で使っているので問題無いのですが。 (setq ac-candidate-max 100) にしたら候補が表示されなくなった。 (setq ac-candidate-max 1000) にすると表示された。 ソース追ってみたけど複雑で1時間じゃ理解できなかった。あと、auto-complete.elのソース…

昨日trunkにコミットしたVersion1.0からauto-complete.elと連携できるようになりました。 ちょっと実験的な機能です。 (require 'perl-completion) した最にauto-complete.el用のsource ac-source-perl-completion が提供されるので ac-sources に追加してく…

http://d.hatena.ne.jp/xcezx/20081110/1226289856 あと、 anything-c-moccur-anything-idle-delay のカスタマイズ型が'(choice (integer) (boolean))となっていたけどコレだと整数値以外を指定しようとすると「ダメー」って言われちゃうので number とした…

次世代auto-complete.elを読んでみる - http://rubikitch.com/に移転しました id:IMAKADOさんによるとdelete-dupsは要素数が多いと遅いので、本当に高速化したい場合はハッシュテーブルを使ったほうがいいかと。anything.elではそうしている。 簡単なベンチ…

http://svn.coderepos.org/share/lang/elisp/perl-completion/branch/1.0/にコミットしました。カスタマイズ変数を幾つか追加したり、メールアドレスのtypoを直したりです。 trunkにコミットしたかったけどテストする時間がなかったので今日はあきらめました…

cl関数は便利なのがおおい... unionとかremove-ifとかset-differenceとか...etc - IMAKADO::BLOG のエントリーに対してanything.elメンテナーのid:rubikitchさんからトラックバックいただきました。 anything.elはcl関数を使う - http://rubikitch.com/に移…

anything.elは将来的に (require 'cl)をeval-whenで囲むようにする予定とかあるのかな...予定があるのだったら移行する時のためにsource書くときにcl関数使わないようにしたほうが良いっすよね。でもremove-ifとか使えると楽なんですよね。自分で定義するの…

「…俺、perl-completion.elが無事作り終わったら結婚するんだ………」*1 *1:うそです

id:sun-basixさんのset-perl5lib.elのアイデアをperl-completion.elでも実装することにしました。 PERL5LIBに編集中のCatAppのlibまでのパスを追加するelisp - taiyoh独言 このエントリーで書かれているアイデアです。コードは、coderepos上のものを参考にさ…

これもid:k1LoWさんが話していたアイデアです。 (eval-when-compile (require 'cl)) (defun my-chr (list-of-string) (lexical-let ((los list-of-string) (last-word "") (count 0)) (lambda () (interactive) (if (eq this-command real-last-command) (in…