e2wm plugin for direx file list

e2wm-direx-plugin.el

;;; direx plugin

(require 'direx)
(require 'direx-project)
(setq direx:leaf-icon "  "
      direx:open-icon "▾ "
      direx:closed-icon "▸ ")

(defun e2wm:def-plugin-direx (frame wm winfo) 
  (let* ((buf (e2wm:history-get-main-buffer))
         (dbuf (with-current-buffer buf 
                 (or
                  (ignore-errors
                    (direx-project:jump-to-project-root-noselect))
                  (direx:find-directory-noselect
                   (or default-directory "."))))))
    (with-current-buffer dbuf
      (direx:item-expand direx:root-item))
    (wlf:set-buffer wm (wlf:window-name winfo) dbuf)))

(e2wm:plugin-register 'direx
                     "DireX"
                     'e2wm:def-plugin-direx)

direx-project 使うように修正してみた