[xyzzy:02340] Re: ツリー表示

[YAMAMOTO Shinji <sinj@xxxxxxxxxxxx>]

山本です。

面白味に欠けているのでサンプルその３です。


;;; sample3.l
;;;   dirtree.l と Browser.l を使った即席ファイラー
;;;

(defun sample3 ()
  (interactive)
  (dirtree-create nil)
  (sample-navigate)
)

(defun sample-navigate ()
  (interactive)
  (let ((fullpath (merge-pathnames
		   dirtree-current-directory
		   dirtree-current-pathname)))
    (navigate (if (eql (elt dirtree-current-pathname 0) #\/)
		  (concat "file:" fullpath)
		fullpath))))

(add-hook '*dirtree-reverse-hook* #'sample-navigate)
(add-hook '*dirtree-quit-hook* #'close-browser)

-- 
山本真二   sinj@xxxxxxxxxxxx