Re: [rox-devel] Pinboard (fwd)

[Thomas L. <ta...@le...>]

On Thu, 6 Jul 2000, Garrett C wrote:

[ Pinboard support ]
> Sounds cool! Are there plans for RO4-style arrangement of icons
> eventually?

Not sure... what does it do?

> Also, I liked the way that closing a window with the adjust button in RISC
> OS opened its parent. I realise this is a problem when the window manager
> is seperate from the filer, but was wondering if there were any way of
> querying ROX to get that sort of information.  If this were the case, a
> Lisp extension to Sawmill should be possible.
> 
> It does sound like a lot of work for such a small feature though...

Stick this in your .sawmillrc file...

(require 'sawmill-defaults)
(defun open-parent (window)
  "Open the parent directory viewer"
  (interactive "%W")
  (let ((title (caddr (get-x-property window 'WM_NAME))))
    (when (and title (string-match "(~?/(.*/)?)[^/]+" title))
      (let ((path (substring title (match-start 1) (match-end 1))))
        (system (concat "rox " path " &"))
	(delete-window-safely window)
))))

Then bind it to some key press or mouse click from the GUI config
screen...

I'll try to make it faster at some point, too.


Thomas Leonard
-- 
ta...@us...
3rd year computer science
The ROX desktop (free/GPL) : http://rox.sourceforge.net