mieki256's diary

Windows上で NTEmacs をタスクバーに登録すると、アイコンが二重になってしまう。AppIDとやらを変更して対処。

_mieki256's diary - NTEmacs 24.4をインストール

runemacs.exe のショートカットファイルを作成して、

Win7AppId1.1.exe ショートカットファイル.lnk GNU.Emacs

を実行。そのショートカットファイルをタスクバーに追加。

今までは 2014/01/02頃に入手した anything を動かしていたけれど、この際だから現行バージョンを入れてみようとして、ちょっとハマった。

今現在、anything は GNU ELPA とやらには登録されてなくて、github に置いてある状態らしい。

_emacs-jp/anything

git を使って入手。

git clone https://github.com/emacs-jp/anything.git

これを ~/.emacs.d/anything/ として置いて、init.el 内で以下のように設定。

;; ----------------------------------------
;; anything

(add-to-list 'load-path "~/.emacs.d/anything/")
(add-to-list 'load-path "~/.emacs.d/anything/extensions/")
(add-to-list 'load-path "~/.emacs.d/anything/contrib/")
(require 'anything)
(require 'anything-config)
(require 'anything-complete)
(setq anything-sources (list
                        anything-c-source-buffers-list
                        ;; anything-c-source-buffers+
                        anything-c-source-recentf
                        anything-c-source-bookmarks
                        anything-c-source-files-in-current-dir+
                        anything-c-source-imenu
                        anything-c-source-file-name-history
                        anything-c-source-locate
                        anything-c-source-kill-ring
                        ))

(global-set-key (kbd "C-;") 'anything)

(define-key anything-map (kbd "C-p") 'anything-previous-line)
(define-key anything-map (kbd "C-n") 'anything-next-line)
(define-key anything-map (kbd "C-v") 'anything-next-source)
(define-key anything-map (kbd "M-v") 'anything-previous-source)

;; M-y で kill-ring を表示
(global-set-key "\M-y" 'anything-show-kill-ring)

(setq anything-enable-shortcuts 'prefix)
(define-key anything-map (kbd "@") 'anything-select-with-prefix-shortcut)

;; C-x b に anything-mini or anything-for-files を設定
(global-set-key (kbd "C-x b") 'anything-mini)

これで、C-; を叩くと、バッファ一覧や履歴一覧が表示されて、絞り込み検索ができるようになった。

しかし、以前は M-x を叩くとコマンド一覧の絞り込み検索ができたのに、新しい版ではできなくなった…。

古い版(2014/01/02頃に入手)に戻して、キー割り当てを確認。

C-;           anything
<execute>     anything-execute-extended-command
<menu>        anything-execute-extended-command
C-x b         anything-mini
C-x c         anything-command-map
M-x           anything-execute-extended-command
M-y           anything-show-kill-ring
C-x c SPC     anything-execute-anything-command
C-x c #       anything-emms
C-x c F       anything-select-xfont
C-x c a       anything-c-apropos
C-x c c       anything-colors
C-x c e       anything-c-etags-select
C-x c f       anything-for-files
C-x c i       anything-imenu
C-x c l       anything-locate
C-x c m       anything-man-woman
C-x c p       anything-list-emacs-process
C-x c r       anything-regexp
C-x c s       anything-surfraw
C-x c t       anything-top
C-x c w       anything-w3m-bookmarks
C-x c x       anything-firefox-bookmarks
C-x c C-,     anything-calcul-expression
C-x c C-:     anything-eval-expression-with-eldoc
C-x c <tab>    anything-lisp-completion-at-point
C-x c h g     anything-info-gnus
C-x c h i     anything-info-at-point
C-x c h r     anything-info-emacs
C-x c C-c C-b    anything-browse-code
C-x c C-c C-x    anything-c-run-external-command
C-x c C-c SPC    anything-all-mark-rings
C-x c C-c f    anything-recentf
C-x c C-c g    anything-google-suggest
C-x c M-x     anything-M-x
C-x c M-y     anything-show-kill-ring
C-x c M-s o    anything-occur
C-x c M-g s    anything-do-grep
C-x c C-x C-b    anything-buffers-list
C-x c C-x C-f    anything-find-files
C-x c C-x C-w    anything-write-file
C-x c C-x i    anything-insert-file
C-x c C-x r b    anything-c-pp-bookmarks
C-x c C-x r i    anything-register

基本的には、C-x c に続けて何かしらを打てば anything の何かしらの機能が使える、と思っておけばいいのだろうか…。

さておき、新版では、anything-execute-extended-command とやらが M-x に割り当てられてない、ということなのかなと。

以下の設定をしてみたら、新版でも M-x で一覧が検索できるようになった。

(global-set-key "\M-x" 'anything-execute-extended-command)

しかし、キー一覧を表示する M-x describe-bindings を実行しても、anything が働かない…。

ググってみたところ、その場合は descbinds-anything.el が必要になるっぽい。

_[Home] descbinds-anything.el

入手して、load-path の通ったどこかに置いて、以下を init.el に記述。

(require 'descbinds-anything)
(descbinds-anything-install)