← Back to branch summary

~ubuntu-branches/ubuntu/wily/sawfish-merlin-ugliness/wily

« back to all changes in this revision

Viewing changes to ugliness.jl

  • Committer: Bazaar Package Importer
  • Author(s): Christian Marillat
  • Date: 2004-01-26 19:47:51 UTC
  • mfrom: (1.1.1 upstream)
  • mto: This revision was merged to the branch mainline in revision 3.
  • Revision ID: james.westby@ubuntu.com-20040126194751-p55l4p7q7mrpr8lu
Tags: 1.0.1.5-4
* Add gnome-icon-themes path for uglicon. Now display gnome-unknow.png
  icon instead of an ugly gray icon.
* Update to standards version 3.6.1 (No changes)

Show diffs side-by-side

added added

removed removed

Lines of Context:
ugliness.jl
1
1
;; merlin/ugliness.jl -- options for ugliness
2
2
 
3
 
;; version 0.9.2
 
3
;; version 0.9.4
4
4
 
5
5
;; Copyright (C) 2000-2001 merlin <merlin@merlin.org>
6
6
 
78
78
    :group (focus focus-ugliness)
79
79
    :type boolean)
80
80
 
 
81
  (defcustom ugly-cycle-show-icons t
 
82
    "Display icons above window names when cycling."
 
83
    :group (focus focus-ugliness)
 
84
    :type boolean)
 
85
 
81
86
  (defcustom ugly-cycle-relative 'screen
82
87
    "Display cycle list relative to: \\w"
83
88
    :type symbol
182
187
  (let (ugly-w ugly-g width height rectangle icons labels)
183
188
    (define (ugly-cycle-show win win-list) ;; bleargh!!!
184
189
      (setq width 0 height 0 rectangle nil icons nil labels nil)
185
 
      (if cycle-show-window-icons
 
190
      (if ugly-cycle-show-icons
186
191
(let* ;; just hideous; tidy this all up??
187
192
((fonts (list* ugly-cycle-current-font ugly-cycle-iconified-font ugly-cycle-font))
188
193
 (th (apply max 0 (mapcar (lambda (f) (font-height f)) fonts)))
247
252
               (mapc
248
253
                 (lambda (label)
249
254
                   (x-change-gc ugly-g `((foreground . ,(nth 0 label))))
250
 
                   (x-draw-string ugly-w ugly-g (nth 1 label) (nth 2 label) (nth 3 label))) labels))))
 
255
                   (x-draw-string ugly-w ugly-g (nth 1 label) (nth 2 label) (nth 3 label))) labels)
 
256
               nil)))
251
257
        (if ugly-w
252
258
            (x-configure-window ugly-w
253
259
                                `((x . ,(car pos))