(provide "my-kamenu")

(defvar *kamenu* nil)

(defun init-kamenu ()
  (setq *kamenu*
        (define-popup-menu
          :sep
          (:popup nil "Web検索(&W)"
           (:item nil "英辞郎(&E)"   'ie-eijiro-selection)
           (:item nil "国語辞書(&J)" 'jj-dictionary-selection)
           (:item nil "Google(&G)"   'search-google-selection)
           )
          :sep
          (:popup nil "ispell(&K)"
           (:item nil "バッファをチェック(&B)"   'ispell-buffer)
           (:item nil "リージョンをチェック(&R)" 'ispell-region)
           )
          (:popup nil "さまざまなメニュー(&S)"
           (:item nil "siteinit.l コンパイル(&S)" 'compile-and-delete-dump-file)
           :sep
           (:item nil "ネットワークドライブの割当(&C)"
            #'(lambda ()(interactive)(network-connect-dialog)))
           (:item nil "ネットワークドライブの切断(&D)"
            #'(lambda ()(interactive)(network-disconnect-dialog)))
           :sep
           (:item nil "文字数(&H)"                      'count-buffer-char)
           (:item nil "現在位置からの文字数/段落数(&K)"  'count-char-from-point)
           )
          (:popup nil "Windows2000専用(&2)"
           (:item nil "半透明(&1)" 'set-translucence-selected-window-default
            #'(lambda () (or (case (os-platform) (windows-2000 t)) :disable)))
           (:item nil "非透明(&2)" 'reset-translucence-selected-window
            #'(lambda () (or (case (os-platform) (windows-2000 t)) :disable)))
           )
          ))
  (insert-popup-menu *app-menu* (get-menu-position *app-menu* 'ed::window)
                     *kamenu* "亀入(&M)"))


(add-hook '*init-app-menus-hook* #'(lambda () (init-kamenu)))