■[emacs] 便利な削除関数いろいろ

使えそうな削除処理をいくつか書いたので、anything のソースにまとめてみました。こうすれば、覚えるキーバインドは一つですみます。僕は D の連打に割り当てる予定。ためしに (anything-enable-shortcuts 'alphabet) を使ってみたので、anything.el の更新が必要かもしれません。

(defvar anything-delete-command-list
      '(("ポイントより上を kill" . "(kill-region (point) (point-min))")
        ("ポイントより下を kill" . "(kill-region (point) (point-max))")
        ("バッファ全体を kill" . "(kill-region (point-min) (point-max))")
        ("ポイントより上を delete" . "(delete-region (point) (point-min))")        
        ("ポイントより下を delete" . "(delete-region (point) (point-max))")
        ("バッファ全体を delete" . "(delete-region (point-min) (point-max))")))

(defvar anything-l-source-delete-commands
  '((name . "削除コマンド集")
    (candidates . anything-delete-command-list)    
    (type . sexp)))

(defun anything-delete-commands ()
  (interactive)
  (let* ((anything-enable-digit-shortcuts t)
        (anything-enable-shortcuts 'alphabet))
    (anything (list anything-l-source-delete-commands) nil nil nil)))

Permalink | コメント(0)