outline-tree

Last modified: "2003/08/17 08:40:07"

Intro

outline-tree (olt) は、 OHKUBO Hiroshi さんがつくられた, アウトラインを表示するためのツールです。 最新版は、NetInstaller からインストールしましょう。


Table of contents


いろいろ

perl-mode 用の設定例

xyzzy Part8 375 (おそらく大久保さん)より。 ~/.olt に書けば良いみたい。

;; 階層構造の場合
(defun olt-make-regexp-344-perl-mode (root-hitem)
  (olt-make-regexp-internal
   :root-hitem root-hitem
   :layer-regexp-list-order :top-miss
   :layer-regexp-list
   '("^#" "^\\(sub .+?\\){" "^&.+;$")))
;; フラット構造の場合
(defun olt-make-regexp-344-perl-mode (root-hitem)
  (olt-make-regexp-internal
   :root-hitem root-hitem
   :layer-regexp-list-order :non-miss
   :layer-regexp-list
   '("^\\(#.*\\|sub .+{\\|&.+;$\\)")))
;; 登録
(unless (member 'olt-make-regexp-344-perl-mode *olt-make-function-alist* :key 'cdr)
  (setq *olt-make-function-alist*
        (nconc *olt-make-function-alist*
               '(("* 344 perl (簡易)" . olt-make-regexp-344-perl-mode)))))
(defun olt-setting-344-perl-mode ()
  (setq *olt-make-function* 'olt-make-regexp-344-perl-mode))
(add-hook '*perl-mode-hook* 'olt-setting-344-perl-mode)

アウトライン更新&recenter&URL、メールアドレスの強調表示をリフレッシュ

大久保さんの小ネタより。

(defun my-recenter ()
  (interactive)
  (if (fboundp 'clickable-url-recenter)
      (clickable-url-recenter)
    (recenter))
  (when (olt::treeview-open-p)
    (olt::olt-set-node-by-cursor-or-make)))
(global-set-key #\C-l 'my-recenter)

outline-tree の表示/非表示を切替

HONAMI Shoji さんの日記より。

(global-set-key '(#\C-c #\o) #'(lambda ()
                                 (interactive)
                                 (if (olt::treeview-open-p)
                                     (olt::olt-close)
                                   (olt::olt-set-node-by-cursor-or-make))))


(^_^)