リージョン内の行数と文字数をモードラインに表示する（範囲指定している時だけ） - memo486
「○○文字以内のきりのいい長さで文字列をコピーして別のところにペーストしたい」みたいなことがよくある 文字数・行数をカウントするコマンド count-lines-region はあるが、カーソルを移動させて M-=、カーソルを移動させて M-=、 ... の繰り返しになってしまい、めんどくさい カーソル移動に合わせて自動的に表示が更新されるようになってると楽でいい リージョン選択していない時は表示しなくていい (defun count-lines-and-chars () (if mark-active (format "%d lines,%d chars " (count-lines (region-beginning) (region-end)) (- (region-end) (region-beginning))) ;;(count-lines-region (region-beg
Emacs Lisp の正規表現をちょっと見やすくする - memo88
はい、Emacs Lisp の正規表現です。とても見づらいです。 しかし、よく見ると \ ( ) | のところだけフォントが太字になっているではありませんか！ ひょっとしてそこだけ違うフェイスになっているのでは？ というわけで、 describe-face を使って調べてみたところ、次の 2つのフェイスが使われていることが分かりました。 font-lock-regexp-grouping-backslash font-lock-regexp-grouping-construct とりあえず色だけ変えてみました。 (set-face-foreground 'font-lock-regexp-grouping-backslash "#666") (set-face-foreground 'font-lock-regexp-grouping-construct "#f60") これだけでもだいぶ
save-excursionとカーソル周辺のブロック（関数など）の自動インデントを組み合わせてみた - memo486
Emacs Lisp を書いているときに自動インデントしたいときは C-M-a（beginning-of-defun）で関数の頭に移動して C-M-q（indent-pp-sexp）しているが、2ストロークなので面倒くさくなってきた 1つにまとめよう どうせだから save-excursion で囲んだらいいんじゃね？ どうせだから自分が良く使う他の言語でも同じフィーリングで使えるようにしたらいいんじゃね？ というわけで以下のようになりました。 言語によっては beginning-of-defun や indent-pp-sexp に相当するコマンド・関数が使えないこともあるので、その場合は ルールで指定された関数を使ってブロックの先頭に移動した後で ルールで指定された関数を使ってブロックの末尾に移動し、 その間をインデント するようにしました。 なので、移動する関数を適当にいじるとカーソ
Emacs: *Apropos* バッファの見出しにタイプ別で色を付ける - 再発明日記
なんだか Emacs Lisp の練習問題みたいなネタですね。 最後の行から上向きに 1行ずつ見ていき、 見出し行でなければ "Function", "Variable" などのタイプを item-type にセット 見出し行なら item-type をもとにフェイス設定 という動作をしています。 他のトピック: アドバイス、連想配列、テキストプロパティ ;; hi-apro.el ;; author: sonota ;; license: GPL (defvar hi-apro:type2face-alist ;;(setq hi-apro:type2face-alist '(("Command" . font-lock-keyword-face) ("Face" . font-lock-string-face) ("Function" . font-lock-function-name
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
