Re: [h-e-w] Re: Dired on windows

[Jean-Philippe Theberge]

Thanks you all for the hints.

Here's my first draft...
(only show the network drives)

(defun netdir()
  (interactive)
  (require 'widget)
  (let ((drvL))
    (with-temp-buffer
      (shell-command "net use" (current-buffer))
      (while (re-search-forward "[A-Z]: +\\\\\\\\[^ ]+" nil t nil)
        (setq drvL (cons (split-string (match-string 0)) drvL))))
    (pop-to-buffer "*NET DIR LIST*")
    (erase-buffer)
    (widget-minor-mode 1)
    (mapcar
     (lambda (x)
       (lexical-let ((x x))
         (widget-create 'push-button
                        :notify (lambda (widget &rest ignore)
                                  (kill-buffer (current-buffer))
                                  (dired (car x)))
                        (concat (car x) "  " (cadr x))))
       (widget-insert "\n"))
     drvL)))


-jp