しょぼしょぼすくりぷと xyzzy > lisp サンプルLibaray集 > コンテキストメニューカスタマイズ

コンテキストメニューカスタマイズ

このぺーじは右クリックのコンテキストメニューを書き換えるサンプルが置いてあるページです。 右クリックメニューをいろいろ便利にします。

実際にカスタマイズする設定例は以下を見てください。

siteinit.lと .xyzzy
xyzzyの実際の設定集

mini lispサンプルライブラリ
自作 しょぼしょぼ lispライブラリです

ページ内目次

右クリックメニューに機能を追加

右クリックメニュー

以下三つのサンプルプログラム


ちょっと reffer

右クリックメニューにリファレンスへのジャンプ(IE)をつける

メニュー(ヘルプ)にリファレンスを付け加えます。
;menu
(defun open-xyzzy-reference ()
  (interactive)
  (shell-execute "D:/internet/www1.mirai.ne.jp/~gyo/xyzzy/xmldoc/html/index.html" t));この場合 HTML を開く


(add-hook '*post-startup-hook*
          #'(lambda ()
              (let ((help (get-menu *app-menu* 6 t)))
                (insert-menu-item help 2 'reference "りふぁれんす" 'open-xyzzy-reference))))
 

操作マニュアルポップアップ表示

xyzzyのキーバインドをついつい忘れてしまう人は F1キーにヘルプを表示させてもいいかもしれません。 下の例は、popupによる簡易ヘルプ機能です。

呼び出し直後のメニュー操作が表示されるだけ


(defun popup-xyzzy-operation ()
  (interactive)
  (let (branch-lists)
    (setq branch-lists
          (list "00:移動" "01:挿入と削除" "02:取消" "03:検索"))
    (popup-list branch-lists 'popup-operation-explain)))


(defun popup-operation-explain (type)
  (let ((num)(explain))
    (setq num (parse-integer (substring type 0 2)))
    (setq explain
          (case num
            (0 "C-a       beginning-of-line
C-e       end-of-line
C-n       next-virtual-line
C-f       forward-char
C-b       backward-char
C-p       previous-virtual-line
M-b       backward-word
M-f       forward-word
M-{       backward-paragraph
M-}       forward-paragraph
M-<       beginning-of-buffer
M->       end-of-buffer
C-l       recenter")
            (1 "C-d       delete-char(or delete-char-or-selection)
C-h       backward-delete-char(-untabify)
C-k       kill-line
C-y       yank-overwrite
M-d       kill-word")
            (2 "End       undo
S-End     redo")
            (3 "C-s        search-forward(isearch-forward)
C-r        search-backward(isearch-backward)
M-s        re-search-forward
M-C-s      re-search-backward
F5         repeat-forward-search
S-F5       repeat-backward-search")))
    (popup-string explain (point))))
 

(global-set-key #\F1 'popup-xyzzy-operation)

xyzzyのリファレンスはココから

htmlhelpに xyzzyは から対応しました。 服部さんとこから wikiのページでダウンロード出来ます。

htmlhelpは以下の設定で 導入できました。 (xyzzy -> ヘルプ(?) -> りふぁれんす )

(load-library "ni-autoload/reference.chm.l")
(defun open-xyzzy-reference ()
  (interactive)
  (ed::html-help  (merge-pathnames "reference.chm" (etc-path)) (ed::get-winhelp-topic)))



しょぼしょぼすくりぷと xyzzy | lisp サンプルLibrary集