some sawfish 1.3 things

Just some stuff that I wrote. See also some ruby things and some emacs things.

You need the latest sawfish and a lotta luck.

Most of these files have the most basic of instructions at the top. Some don't.

stylMii.tar.gz (0.1.0)
A small red theme.
stylM.tar.gz (0.3.0)
An older version of the theme.
merlin-1.3-1.tgz
All the following in a gzipped tarchive.
merlin/placement.jl (0.4.1)
Opaque placement modes plus twm-style place-and-then-resize option.
merlin/message.jl (0.5.2)
A more flexible message display function.
merlin/ugliness.jl (0.9.4)
Gives flexibility over the appearance of the popup window when you move/resize/cycle windows. Includes the option of displaying a list of all windows when m-tab cycling.
merlin/uglicon.jl (0.2)
Ugly window icon handling.
merlin/util.jl (0.7.3)
A few common utility functions for my stuff.
merlin/mp3.jl (0.2)
An xmms/mp3 playlist menu.
merlin/sawlet-placement.jl (0.3.1)
A placement mode that packs windows in a row or column growing from a screen corner. Use it as an icon or applet dock type thing.
contrib/wmresize.jl (0.1)
A contributed wm-like window animation (move/resize) mode.

The following things are evil. You will want to ignore them unless you have a strong will and can stand up to, and spit in the face of, evil

x.c.patch (-0.8.7)
A patch to the sawfish source that adds some extra functions to the sawfish XLib bindings.
merlin/x-util.jl (-0.4)
Some XLib utility funtions.
merlin/sawlet.jl (-0.4.3)
A saw(fish app)let framework.
merlin/clock.jl (-0.2.1)
A clock sawlet.
merlin/iconbox.jl (-0.98.1)
An icon box sawlet.
merlin/pager.jl (-0.91.3)
A pager sawlet.
merlin/fishbowl.jl (-0.4.4)
A prototype dock sawlet. This hosts dockapps from, e.g., WindowMaker.
merlin/pile.jl (-0.3.1)
A prototype window pile. Swallow multiple windows into one.
merlin/icons.jl (-0.5.3)
Iconified window icons.
merlin/menu.jl (-0.1.2)
Raw (in-core) sawfish menus. Eliminates the external GTK process.
debian - debianized packaging of the above (use Christian's packaging unless you want sawlets)
- sawfish_1.3+cvs20050222-merlin_1_3_1_1_i386.deb - sawfish for non GNOME
- sawfish-gnome_1.3+cvs20050222-merlin_1_3_1_1_i386.deb - sawfish for GNOME
- sawfish-lisp-source_1.3+cvs20050222-merlin_1_3_1_1_all.deb - sawfish lisp source
- sawfish-extensions_1.3+cvs20050222-merlin_1_3_1_1_all.deb - basic extensions
- sawfish-sawlets_1.3+cvs20050222-merlin_1_3_1_1_all.deb - sawlet extensions
- sawfish_1.3+cvs20050222-merlin_1_3_1_1.dsc
- sawfish_1.3+cvs20050222-merlin_1_3_1_1.3+cvs20050222-merlin_1_3_1_1.diff.gz
- sawfish_1.3+cvs20050222.orig.tar.gz

The old stuff is there. Ignore it.

changes

1.3-1

placement.jl (0.4.1) - make placement modes #:for-normal t

sawlet.jl (-0.4.3) - default task-list-skip, avoid the gnome panel

sawlet-placement.jl (0.3.1) - option to avoid the gnome panel, etc.

pager (-0.91.3) - ignore desktop, dock windows

beware that pango fonts are broken in 1.3/cvs so there is currently only ever one pango font (change any font, it changes them all). use (setq merlin-menu-item-font (get-font-typed "XFT" "Sans:pixelsize=10")) or equivalent to overcome this..

1.1-2

no changes - yet

1.0.1-5

message.jl (0.5.2) - fix when used without x.c.patch

1.0.1-4

x.c.patch (-0.8.6) - non-nil return from event-handler suppresses call to default event handler, decode configure-request events

<all> - update for default handler suppression

fishbowl.jl (-0.4.4) - use substructure-redirect to control fish better

menu.jl (-0.1.2) - ungrab pointer before popup

pile.jl (-0.3.1) - use substructure-redirect to control children better, use new #f for false in match-windows (requires CVS sawfish)

ugliness.jl (0.9.4) - cycle-show-window-icons gone from gnome 2 sawfish

1.0.1-3

mp3.jl (0.2) - xmms/mp3 playlist menu

1.0.1-2

menu.jl (-0.1.1) - don't barf on null menu strings

sawlet.jl (-0.4.1) - reconfigure sawlets after their frame is added, support per-sawlet matched window actions

pile.jl (-0.3) - hack into the beos-window-menu so piles list their contents, set window matchers correctly

1.0.1-1

pile.jl (-0.2) - piles can be resized, windows forced to pile size

sawlet.jl (-0.4) - sawlets can be resized, have resizing hooks

x-util.jl (-0.4) - full support for x-set-wm-size-hints

x.c.patch (-0.8.5) - support for x-get-window-property, widespread support for any window type parameters, bug fix in x-configure-window

1.0-4

added menu.jl, raw sawfish menus.

1.0-3

added pile.jl, a bad window pile prototype.

modified ejection code from fishbowl; rapid reparent and then add-window doesn't work anymore.

1.0-2

added configure notify support to x.c.patch, sawlet.jl and fishbowl.jl so captured dockapps can (e.g., xmms) can resize/reposition themselves.

1.0-1

updated for sawfish 1.0

0.38-4

added define-sawlet-subplacement-mode for composite sawlet placement modes

0.38-3

fixed a recursive move-window-interactively bug in merlin/pager.jl

macroized creation of cons-ops in merlin/util.jl

0.38-2

added support for dragging into and out of pager and iconbox

a few more utility functions

misc packaging stuff (from christian)

btw

By the way, if you want window cycling to warp the pointer, you'll need something like this in $HOME/.sawfish/rc:

(require 'sawfish.wm.windows)

(setq warp-to-window-enabled t)
(setq warp-to-window-offset (cons 50 50))

(eval-in
  `(let
       ((old-raise-window* raise-window*))
     (define (raise-window* win)
       (warp-cursor-to-window win)
       (old-raise-window* win)))
  'sawfish.wm.commands.x-cycle)

If you want working (XFT) fonts, you'll need something like this:

(setq ugly-cycle-font
  (get-font-typed "XFT" "Sans:pixelsize=10"))
(setq ugly-cycle-current-font
  (get-font-typed "XFT" "Sans:Bold:pixelsize=10"))
(setq ugly-cycle-iconified-font
  (get-font-typed "XFT" "Sans:Italic:pixelsize=10"))
(setq ugly-cycle-caption-font
  (get-font-typed "XFT" "Sans:pixelsize=12"))
(setq ugly-move-resize-font
  (get-font-typed "XFT" "Sans:Bold:pixelsize=18"))
(setq merlin-menu-item-font
  (get-font-typed "XFT" "Sans:pixelsize=10"))
(setq merlin-menu-active-item-font
  (get-font-typed "XFT" "Sans:Bold:pixelsize=10"))
(setq merlin.sawlet:pager:win-font
  (get-font-typed "XFT" "Nimbus Sans L:pixelsize=6"))
(setq merlin.sawlet:pager:focused-win-font
  merlin.sawlet:pager:win-font)
(setq merlin.sawlet:iconbox:icon-font
  (get-font-typed "XFT" "Nimbus Sans L:pixelsize=8"))
(setq merlin.sawlet:iconbox:focused-icon-font
  merlin.sawlet:iconbox:icon-font)

yeah

Yeah, nothing will probably work.

merlin.