← Back to branch summary

~ubuntu-branches/ubuntu/lucid/sawfish/lucid-updates

« back to all changes in this revision

Viewing changes to lisp/sawfish/wm/state/ignored.jl

  • Committer: Bazaar Package Importer
  • Author(s): Christian Marillat
  • Date: 2005-02-23 16:16:46 UTC
  • mfrom: (1.2.1 upstream) (2.1.2 hoary)
  • Revision ID: james.westby@ubuntu.com-20050223161646-4id6qyw4h9lkvb0v
Tags: 1:1.3+cvs20050222-1
http://bugs.debian.org/295290
* New cvs release.
* Add an emacs initialisation script to load sawfish.el (Closes: #295290)
* Updated sawfish.el to 1.32

Show diffs side-by-side

added added

removed removed

Lines of Context:
lisp/sawfish/wm/state/ignored.jl
1
1
;; ignore-window.jl -- controlling the ignored property
2
 
;; $Id: ignored.jl,v 1.11 2000/10/09 13:11:58 john Exp $
 
2
;; $Id: ignored.jl,v 1.13 2003/02/20 07:29:10 jsh Exp $
3
3
 
4
4
;; Copyright (C) 1999 John Harper <john@dcs.warwick.ac.uk>
5
5
 
30
30
            toggle-window-ignored
31
31
            toggle-window-never-focus
32
32
            toggle-window-cycle-skip
33
 
            toggle-window-list-skip)
 
33
            toggle-window-list-skip
 
34
            toggle-task-list-skip)
34
35
 
35
36
    (open rep
36
37
          rep.system
82
83
    (window-put w 'window-list-skip (not (window-get w 'window-list-skip)))
83
84
    (call-window-hook 'window-state-change-hook w (list '(window-list-skip))))
84
85
 
 
86
  (define (toggle-task-list-skip w)
 
87
    "Toggle whether a window will be included in the task-list."
 
88
    (window-put w 'task-list-skip (not (window-get w 'task-list-skip)))
 
89
    (call-window-hook 'window-state-change-hook w (list '(task-list-skip))))
 
90
 
85
91
  (define-command 'make-window-ignored make-window-ignored #:spec "%W")
86
92
  (define-command 'make-window-not-ignored make-window-not-ignored #:spec "%W")
87
93
  (define-command 'toggle-window-ignored toggle-window-ignored #:spec "%W")
88
94
  (define-command 'toggle-window-never-focus toggle-window-never-focus #:spec "%W")
89
95
  (define-command 'toggle-window-cycle-skip toggle-window-cycle-skip #:spec "%W")
90
96
  (define-command 'toggle-window-list-skip toggle-window-list-skip #:spec "%W")
 
97
  (define-command 'toggle-task-list-skip toggle-task-list-skip #:spec "%W")
91
98
 
92
99
  (add-window-menu-toggle (_ "_Ignored") 'toggle-window-ignored
93
100
                          window-ignored-p)
96
103
  (add-window-menu-toggle (_ "_Cyclable") 'toggle-window-cycle-skip
97
104
                          (lambda (w) (not (window-get w 'cycle-skip))))
98
105
  (add-window-menu-toggle (_ "In _window list") 'toggle-window-list-skip
99
 
                          (lambda (w) (not (window-get w 'window-list-skip)))))
 
106
                          (lambda (w) (not (window-get w 'window-list-skip))))
 
107
  (add-window-menu-toggle (_ "In _task list") 'toggle-task-list-skip
 
108
                         (lambda (w) (not (window-get w 'task-list-skip)))))
 
109