お品書き

概要 *

filescope-2007.02.22.zip

指定された条件に合う場合のみ、グローバルマップやローカルマップより
優先されるキーバインドの設定をすることができます。
条件に合わなければローカルマップやグローバルマップで
設定されたコマンドが実行されます。

あとライブラリ的に。
(こっちがメインかも)

使い方 *

詳しくはファイルを見てください

  1. lisp-modeで行頭に;;や;;;がある時にRETを押したら次の行も同じ数のセミコロンを自動挿入
    (add-hook '*lisp-mode-hook* 'scope-lisp-mode-init)
    (defun scope-lisp-mode-init ()
      (define-scope-key #\RET
                        #'(lambda () (interactive)
                            (save-excursion
                              (goto-bol) (scan-buffer "^[ \t]*;\\{2,3\\}[ \t]*" :regexp t))
                            (newline) (insert (match-string 0)))
                        #'(lambda () (unless (bolp)
                                       (scope-get-match "^;\\{2,3\\}[^;]\\(.\\|[  \t]\\)*$")))
                        "newline with &;"))
  2. php-modeで↓みたいになってるところでRETを押したら次の行も*と適当な量の空白を挿入
/*
 *
 */
(add-hook '*lisp-mode-hook* 'scope-lisp-mode-init)
(defun scope-php-mode-init ()
  (define-scope-key #\RET
                    #'(lambda () (interactive)
                        (save-excursion
                          (goto-bol) (scan-buffer "^[ \t]*\\*[ \t]*" :regexp t))
                        (newline) (insert (match-string 0)))
                    #'(lambda () (and (not (bolp))
                                      (scope-get-syntax ":comment")
                                      (scope-get-match "^[ \t]*\\*\\([  \t]\\|.\\)*$")
                                      (scope-get-match "/\\*\\([  \t\n\r]\\|.\\)*?\\*/")))
                    "newline with &*"))

履歴 *

2007.02.22

  • いろいろ
  • lisp-modeでのac-modeとの連携追加

2007.02.19

  • 初版

コメント *

最新の10件を表示しています。 コメントページを参照

お名前:

Tag: xyzzy script



添付ファイル: filescope-2007.02.22.zip 1079件 [詳細] filescope-2007.02.19.zip 563件 [詳細]
トップ   編集 凍結 差分 BACKUP 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2007-02-22 (木) 20:00:15 (3689d)