browserxで編集結果確認後、編集に戻るときに自動的に閉じる

;; ==================================================
;;
;; Browser Pop  (c) Hidachionoiro.
;;
;; browserxでファイルの内容を確認後、
;; 編集に戻るためにバッファをクリックしたときに
;; browserxを自動的に閉じるスクリプト
;;
;; 例:
;;
;; (pop-browser "http://www.google.com")
;;
;; ==================================================

(defvar *browser-pop-map* (make-sparse-keymap))
(define-key *browser-pop-map* #\LBtnUp 'close-browser)

(defun pop-browser (url)
	(browserex::navigate url)
	(other-window 1 t)
	(set-minor-mode-map *browser-pop-map*))

(defun close-browser () (interactive)
	(browserex::close-browser)
	(unset-minor-mode-map *browser-pop-map*))

phpやHTMLを作っているときにbrowserxで結果確認後、
バッファをクリックするとbrowserxを自動的に閉じるスクリプトです。