File: match-window.jl

package info (click to toggle)
sawfish 1%3A1.3.5.2-2
  • links: PTS, VCS
  • area: main
  • in suites: squeeze
  • size: 11,636 kB
  • ctags: 1,327
  • sloc: lisp: 22,765; ansic: 15,810; sh: 10,203; makefile: 675; perl: 19
file content (41 lines) | stat: -rw-r--r-- 1,524 bytes parent folder | download | duplicates (5)
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
;; gnome-match.jl -- match-window settings for when GNOME's available
;; $Id: match-window.jl,v 1.6 2000/11/27 18:17:18 jsh Exp $

;; Copyright (C) 1999 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.gnome.match-window ()

    (open rep
	  sawfish.wm.ext.match-window
	  sawfish.wm.commands)

  (define-structure-alias gnome-match sawfish.wm.gnome.match-window)

  ;; Originally from Ben Liblit <liblit@cs.berkeley.edu>

  ;; the SKIP_WINLIST hint is now tied to the window-list-skip property

  (define-match-window-property 'skip-tasklist 'other 'boolean)

  (define-match-window-setter 'skip-tasklist
    (lambda (window property value)
      (declare (unused property))
      (apply-command (if value
			 'gnome-set-skip-tasklist
		       'gnome-clear-skip-tasklist) (list window)))))