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

[Jeffery B. Rancier]

>>>>> "Jean-Philippe" == Jean-Philippe Theberge <address@hidden> writes:

I got the impression that using 'NET USE' wasn't generic enough for
across the board implementation?

    > 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





-- 

Thanks,
Jeff
,----
| Jeffery B. Rancier
| 
| Softechnics
| a METTLER TOLEDO company
`----