[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[h-e-w] Re: Dired on windows
From: |
Jeffery B. Rancier |
Subject: |
[h-e-w] Re: Dired on windows |
Date: |
Wed, 12 Feb 2003 13:25:59 -0500 |
User-agent: |
Gnus/5.090013 (Oort Gnus v0.13) Emacs/21.2 (i386-msvc-nt5.1.2600) |
>>>>> "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
`----
- [h-e-w] Re: Dired on windows, (continued)
- [h-e-w] Re: Dired on windows, Benjamin Riefenstahl, 2003/02/09
- Re: [h-e-w] Re: Dired on windows, Dr Francis J. Wright, 2003/02/10
- [h-e-w] Re: Dired on windows, Benjamin Riefenstahl, 2003/02/10
- Re: [h-e-w] Re: Dired on windows, Tom Capey, 2003/02/10
- Re: [h-e-w] Re: Dired on windows, Dr Francis J. Wright, 2003/02/10
- [h-e-w] Re: Dired on windows, Jeffery B. Rancier, 2003/02/10
- Re: [h-e-w] Re: Dired on windows, Dr Francis J. Wright, 2003/02/10
- Re: [h-e-w] Re: Dired on windows, Jean-Philippe Theberge, 2003/02/12
- [h-e-w] Re: Dired on windows,
Jeffery B. Rancier <=
- Re: [h-e-w] Re: Dired on windows, Jean-Philippe Theberge, 2003/02/12
- Re: [h-e-w] Re: Dired on windows, Jason Rumney, 2003/02/12