http://www.kamilabo.jp/copi/index.html
下記から直接インストールが可能です。
Default以外のツールの説明です。
全部
Formation:http://www.tokyodownstairs.com/ マウスカーソルで円を描いて呼び出すアプリケーション起動ランチャー
円形で、視点の移動の関係かはわかりませんが見やすいです。 また、キーボードのみで、ランチャーを操作できる設定ができるので良いです。 追加はドラッグ&ドロップで追加できます。下記の設定をした後でやりましょう。
OS起動時にはランチャーのみをスタートアップに登録しておき、必要に応じてランチャー経由でアプリケーションを起動するようにすると、OSの起動時間が短縮されますし、メモリの使用量も抑えられるので、高速化に役立つと思います。
高機能なクリップボード拡張ソフト
サイトが消えていたので、下記に圧縮したのを置いておきます。
http://hp.vector.co.jp/authors/VA013280/
松本 圭司
http://portal.nifty.com/writer/index.htm
各種解凍DLL自動ダウンロード機能が便利
http://www.vector.co.jp/soft/win95/util/se106079.html
http://d.hatena.ne.jp/himadatanode/20060930/p1
;バッファのメニュー関係
;バッファのメニュー関係
(add-hook '*init-app-menus-hook*
#'(lambda ()
(let ((menu *buffer-bar-context-menu*))
(add-menu-separator menu nil)
(add-menu-item menu nil "これより右を閉じる(&R)"
'mybb-close-right-buffers)
(add-menu-item menu nil "これより左を閉じる(&L)"
'mybb-close-left-buffers)
(add-menu-item menu nil "これ以外を閉じる(&D)"
'mybb-close-other-buffers)
(add-menu-item menu nil "全てコピー"
'copy-all-to-clipboard)
(add-menu-item menu nil "バイトコンパイル(&C)"
'my-buffer-menu-byte-compile-file
#'(lambda (&optional prog)
(unless
(and(get-buffer-file-name
*buffer-bar-context-menu-buffer*)
(if prog (file-exist-p prog) t))
:disable))
))))
;; これ以外を閉じる
(defun mybb-close-other-buffers ()
(interactive)
(let ((buf0 *buffer-bar-context-menu-buffer*))
(dolist (buffer (buffer-list))
(unless (or (eq buffer buf0)
(string= (buffer-name buffer) "*scratch*"))
(kill-buffer buffer)))))
;; これより右を閉じる(version 0.2.2.233 以降)
(defun mybb-close-right-buffers ()
(interactive)
(let ((buffer *buffer-bar-context-menu-buffer*)
(buff (get-next-buffer (get-next-buffer :bottom nil t) nil t)))
(let ((buf (get-next-buffer buffer nil t)) buf1)
(while (not (equal buf buff))
(setq buf1 buf)
(setq buf (get-next-buffer buf nil t))
(unless (string= (buffer-name buf1) "*scratch*")
(kill-buffer buf1))))
(switch-to-buffer buffer)))
;; これより左を閉じる(version 0.2.2.233 以降)
(defun mybb-close-left-buffers ()
(interactive)
(let ((buffer *buffer-bar-context-menu-buffer*)
(buff (get-next-buffer (get-next-buffer :top nil t) t t)))
(let ((buf (get-next-buffer buffer t t)) buf1)
(while (not (equal buf buff))
(setq buf1 buf)
(setq buf (get-next-buffer buf t t))
(unless (string= (buffer-name buf1) "*scratch*")
(kill-buffer buf1))))
(switch-to-buffer buffer)))
;; 全てクリップボードにコピー
(defun copy-all-to-clipboard ()
(interactive)
(copy-region-to-clipboard (point-min) (point-max)))
;;バイトコンパイルとか
(defun my-buffer-menu-byte-compile-file ()
(interactive)
(if (string= "l" (pathname-type (get-buffer-file-name)))
(byte-compile-file (get-buffer-file-name))))