[Date Prev] [Date Index] [Date Next]
[Thread Prev] [Thread Index] [Thread Next]

[xyzzy:00007] Re: menu 拡張



亀井さん、こんにちは。逸見 です。

> (add-hook 'ed::*html-mode-hook* 'html-mode-addin)
 
> とすると幸せになれます(^^
> *html-mode-hook* がまだ export されていないので、`ed::' で修飾しなきゃな
> らないところが不細工ですが。

どうも、ありがとうございます。今度直しておきます。

ところで、以前教えてもらった、右クリックのポップアップメニューも研究中です。
lispモードで右クリックしたら、例によって、なにか便利な事を起こそうかと。

(defun create-my-popup ()
  (let ((menu nil))
    (setq menu
       (define-popup-menu
 	   (:item nil "help:scan-buffer(&1)"        'help-scan-buffer)
	   (:item nil "help:help-window(&2)"        'help-help-window)
	   (:item nil "insert:merge-pathnames(&3)"  'insert-merge-pathnames)
           :sep
           (:item nil "&1:siteinit.l"    'open-siteinit)
       )
    )
    (setq *my-popup-menu* menu)
  )
)

(defun foo-popup ()
  (interactive)
  (set-window *last-mouse-window*)   ; クリックされたウィンドウをアクティブに
  (continue-pre-selection)           ; セレクションを残す
  (track-popup-menu ed::*my-popup-menu*)) ; ポップアップメニュー表示


(define-key ed::*lisp-interaction-mode-map*
	    #\RBtnDown 'foo-popup)
(define-key ed::*lisp-mode-map*
	    #\RBtnDown 'foo-popup)

言語モードごとに右メニューを変更することできました(^_^)/~~~

ところで、これに気をよくした私は、foo-popupをファンクションキーに
割り当ててみました。(ちょっとキーボードから手を放したくない時
ファンクションキーでもポップアップできないかと思って)

これ、うまく動いてくれませんでした。残念。これってやっぱり反則??

-----    メニュー拡張ばっかりやっている私^^; -----

------------------------------------------------------------
逸見雅人        Email   henmi@xxxxxxxxxxxxx
Masahito Henmi

Index Home