朝顔日記

以前紹介したとばかり思っていたのですが、実は気のせいだったということがわかったので、日ごろ私が使っている xyzzy 用の lisp をご紹介。

元々は、リージョン・セレクションををタグで囲む という lisp なんですが、リージョンとかセレクション作るのも面倒なんで、カーソル行を一気にマクアプしたいからなんとかなりませんかと、xyzzyでタグ打ってる人の数 → で相談してどなたかに書いていただいたものです。起動するとミニバッファで何か聞いてくるので、何かいってやるとカーソル行をマクアプしてくれます。履歴も効きますので、[↑] キーとか押してみても便利です。数文字打ってからやってみたり。

一応セットで使うと便利なので、両方載せておきます。

;;カーソル行をタグで括る
(defun quote-line-by-tag (&optional (quotetag ""))
  (interactive "*sTag: ") ; s => 文字入力を指示する。
  ; 入力された文字列は quotetag に割り当てられる。
  (setq starttag (string-trim "<>" quotetag))
  (setq endtag (substitute-string starttag " .*" ""))
  (save-excursion
    (goto-eol)
    (insert "</" endtag ">")
    (goto-bol)
    (insert "<" starttag ">")))
(define-key ed::*html+-mode-map* '(#\M-b) 'quote-line-by-tag)

;;リージョン・セレクションををタグで囲む
(defun quote-region-by-tag (&optional (quotetag ""))
  (interactive "*sTag: ") ; s => 文字入力を指示する。
  ; 入力された文字列は quotetag に割り当てられる。
  (setq starttag (string-trim "<>" quotetag))
  (setq endtag (substitute-string starttag " .*" ""))
  (case (get-selection-type)
    ((1 2)
     (exchange-region-and-selection)))
  (let ((begin (mark))
        (end (point)))
    (when (> begin end)
      (let ((tmp begin))
        (setq begin end
              end tmp)))
    (save-excursion
      (goto-char end)
      (insert "</" endtag ">")
      (goto-char begin)
      (insert "<" starttag ">"))))
(define-key ed::*html+-mode-map* '(#\C-t) 'quote-region-by-tag)

私の設定では、M-b でカーソル行を、C-t で、リージョンもしくはセレクションをマクアップしてくれます。.xyzzy に直接貼り付けたり、siteinit.l に書いて、普通にダンプファイルを作り直してたりすれば使えます。ぜひお試しを。結構便利です。どうもありがとうございました。＞某スレの皆様

追記

kyokusho news [2004/06/22 18:19]を見て、汗った。Han's Room / xyzzy-lisp にある リージョンとセレクションをトグルで変換してくれる exchange-region-and-selection が必要です。導入の仕方は exchange-region-and-selection.l 内部に書いてありますし、netinstaller にも対応していますので、そっちで導入されてもいいです。