← Back to branch summary

~ubuntu-branches/ubuntu/natty/sawfish/natty

« back to all changes in this revision

Viewing changes to lisp/sawfish/wm/util/display-wininfo.jl

  • Committer: Bazaar Package Importer
  • Author(s): Luis Rodrigo Gallardo Cruz
  • Date: 2009-11-23 09:05:20 UTC
  • mfrom: (1.2.10 upstream) (3.1.5 sid)
  • Revision ID: james.westby@ubuntu.com-20091123090520-3u8sefrr4lmfsiem
Tags: 1:1.5.3-2
http://bugs.debian.org/557250
http://bugs.debian.org/556991
* Remove reference to sawMILL in 00debian.jl (Closes: #557250).
* Remove empty doc dirs and replace them with symlinks (Closes: #556991).
* Rename sawfish maintainer scripts with the binary package name.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lisp/sawfish/wm/util/display-wininfo.jl
32
32
          sawfish.wm.images
33
33
          sawfish.wm.misc
34
34
          sawfish.wm.util.x
35
 
          sawfish.wm.windows)
 
35
          sawfish.wm.windows
 
36
          sawfish.wm.workspace
 
37
          )
36
38
 
37
39
;;; variables
38
40
 
42
44
 
43
45
  (defconst icon-size (32 . 32))
44
46
 
 
47
  (defvar display-wininfo-show-workspace nil)
 
48
 
45
49
  ;; window currently displayed, or nil
46
50
  (define info-window nil)
47
51
 
79
83
  ;; Returns a list of strings describing window W in some way
80
84
  (define (window-info w)
81
85
    (list (concat (and (window-get w 'iconified) ?[)
82
 
                  (window-name w)
83
 
                  (and (window-get w 'iconified) ?]))))
 
86
                  (window-name w)
 
87
                  (and (window-get w 'iconified) ?])
 
88
                  ; potentially include the workspace where the window is
 
89
                  (if (and
 
90
                       display-wininfo-show-workspace
 
91
                       (not (window-in-workspace-p w current-workspace)))
 
92
                      (concat " <" (number->string (car (window-workspaces w))) ">")
 
93
                    ""
 
94
                    )
 
95
                  )
 
96
          )
 
97
    )
84
98
 
85
99
;;; entry point
86
100