1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
|
;; package to have some windows always float on top of others
;; toi use, just include (load 'float) in your .profile.gwm
;; rwhitby@adl.austek.oz.au (Rod Whitby)
;; Rod Whitby
;; Austek Microsystems Pty. Ltd.
;; Technology Park
;; Adelaide, SA 5095 Australia
;;
;; ACSnet: rwhitby@austek.oz ARPA: rwhitby@austek.oz.au
;; UUCP: uunet.uu.net!munnari!austek.oz.au!rwhitby
;;
;; modified & integrated by colas Dec 27 90.
;; Changes to the standard behaviour to add auto-raise functionality.
(defaults-to
float.menupos 2
float.iconmenupos 2
float.menufont (font-make "*-symbol-medium-r-normal--14-*")
float.up "\xad"
float.down "\xaf"
float.no "\xbb"
)
(if (= float.menufont font) (progn
(setq float.menufont (font-make "cursor"))
(: float.up "\x72")
(: float.down "\x6a")
(: float.no "\x2a")
))
(defun float.top-window ()
(with (l (list-of-windows 'stacking-order)
len (length l)
i (- len 1))
(tag ret
(while (> i -1)
(with (win (# i l))
(if (and (not (= (with (wob win) window-client-class) 'Gwm))
(not (= (# 'float win) 'up))
(not (= wob win)))
(exit ret win))
(: i (- i 1)))))))
(setq standard-behavior
(state-make
standard-behavior
(on visibility-fully-obscured
(if (= (# 'float window) 'up)
(raise-window (float.top-window)))
)
(on visibility-partially-obscured
(if (# 'float window)
(if (= (# 'float window) 'up)
(raise-window (float.top-window))
(= (# 'float window) 'down)
(lower-window)))
)
(on visibility-unobscured
(if (= (# 'float window) 'down)
(lower-window)))
))
(if (boundp 'reparse-standard-behaviors)
(reparse-standard-behaviors)
)
;; Now add some routines to the window menu to toggle floating
(defun float.toggle (dir)
(## 'float window dir)))
;; add toggle float menu item to window menu
(if (and (not (boundp 'float.menu-added))
(boundp 'window-pop-items)
(boundp 'icon-pop-items))
(progn
(setq float.menu-added t)
(insert-at '(multi-item-make
"Float: "
()
("Up" (float.toggle 'up))
("Down" (float.toggle 'down))
("No" (float.toggle ()))
)
window-pop-items
float.menupos)
;; same with smaller labels for icon menu
(insert-at '(multi-item-make
"Float: "
()
((label-make float.up float.menufont) (float.toggle 'up))
((label-make float.down float.menufont) (float.toggle 'down))
((label-make float.no float.menufont) (float.toggle ()))
)
icon-pop-items
float.iconmenupos)
))
|
