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
103
104
105
106
107
108
109
110
111
|
;; shade-hover.jl -- temporarily unshade windows while hovered over
;; $Id: shade-hover.jl,v 1.20 2002/04/21 22:25:13 jsh Exp $
;; Copyright (C) 2000 John Harper <john@dcs.warwick.ac.uk>
;; This file is part of sawmill.
;; sawmill is free software; you can redistribute it and/or modify it
;; under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; sawmill is distributed in the hope that it will be useful, but
;; WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with sawmill; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
(define-structure sawfish.wm.ext.shade-hover ()
(open rep
rep.system
rep.io.timers
sawfish.wm.windows
sawfish.wm.custom
sawfish.wm.events
sawfish.wm.state.shading)
(define-structure-alias shade-hover sawfish.wm.ext.shade-hover)
(defgroup shade-hover "Shade Hover"
:group focus
:require sawfish.wm.ext.shade-hover)
(defcustom shade-hover-mode nil
"Enable shade-hover mode."
:tooltip "(Temporarily unshades windows while the mouse pointer is over them.)"
:group (focus shade-hover)
:type boolean
:require sawfish.wm.ext.shade-hover)
(defcustom shade-hover-delay 250
"Delay in milliseconds before unshading windows."
:group (focus shade-hover)
:depends shade-hover-mode
:type (number 0 5000))
(defcustom shade-hover-raise nil
"Raise windows when they are unshaded."
:group (focus shade-hover)
:depends shade-hover-mode
:type boolean)
(define shade-hover-timer nil)
(define shade-hover-window nil)
(define (clean-up)
(when shade-hover-timer
(delete-timer shade-hover-timer)
(setq shade-hover-timer nil))
(setq shade-hover-window nil)
(when (in-hook-p 'pre-command-hook shade-hover-before)
(remove-hook 'pre-command-hook shade-hover-before)))
(define (shade-hover-leave w)
(when (eq shade-hover-window w)
(clean-up)
(when (window-get w 'shade-hover-unshaded)
(window-put w 'shade-hover-unshaded nil)
(shade-window w))))
(define (shade-hover-before)
(let ((w (current-event-window)))
(when (and (windowp w) (window-get w 'shade-hover-unshaded))
(case this-command
((toggle-window-shaded unshade-window)
;; don't want window to shade then unshade
(clean-up)
(window-put w 'shade-hover-unshaded nil)
(setq this-command nil))
((shade-window)
(clean-up))))))
(define (shade-hover-enter w)
(when (and (windowp w)
(or shade-hover-mode (window-get w 'shade-hover)))
(when (window-get w 'shaded)
(let ((callback
(lambda ()
(window-put w 'shade-hover-unshaded t)
(let
((raise-windows-when-unshaded shade-hover-raise))
(unshade-window w)))))
(when shade-hover-timer
(delete-timer shade-hover-timer))
(setq shade-hover-window w)
(if (zerop shade-hover-delay)
(callback)
(setq shade-hover-timer
(make-timer callback
(quotient shade-hover-delay 1000)
(mod shade-hover-delay 1000))))
(unless (in-hook-p 'pre-command-hook shade-hover-before)
(add-hook 'pre-command-hook shade-hover-before))))))
(add-hook 'enter-notify-hook shade-hover-enter)
(add-hook 'leave-notify-hook shade-hover-leave)
(add-hook 'focus-out-hook shade-hover-leave))
|
