09/03/27 08:36:38 uLEdSD+L0
Outline Tree2 でSchemeの解析を行わせたかったので
以下のことを試しましたが
アウトラインタイプ選択で出てくる一覧に
アイテムを追加する方法がわかりませんでした。
基本的にユーザはこのサイトの方がされている様な
正規表現での追加しかできないのでしょうか？
URLﾘﾝｸ(se-suganuma.blogspot.com)
ソースを追っていこうと頑張ってはみたものの
かなり心が挫けてきましたので
どなたか分かる方教えていただけると嬉しいです。
--試したこと--
site-init\outline-tree\cr-lisp.l -copy&rename-> cr-script-fu.l して
$XYZZYHOME$\.outline-tree\autoload に移動
- (provide "outline-tree/cr-lisp")
- (defun outline-tree-create-outline-lisp (root-node)
+ (defun outline-tree-create-outline-script-fu (root-node)
- root-node "[defun (command)]" (compile-regexp "[ \t]*(defun\\_S") t)
+ root-node "[define (command)]" (compile-regexp "[ \t]*(define\\_S") t)
- (outline-tree-add-create-outline-function
- 'outline-tree-create-outline-lisp "LISP" '(:language)
+ (outline-tree-add-create-outline-function
+ 'outline-tree-create-outline-script-fu "Script-Fu" '(:language)
$XYZZYHOME$\.outline-tree\.config に以下を追加
(add-hook 'ed::*lisp-mode-hook*
#'(lambda ()
(setq outline-tree-create-outline-function
'outline-tree-create-outline-script-fu)))
;拡張子での切り分けはとりあえず動いてから後ほど考える。