← Back to branch summary

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

« back to all changes in this revision

Viewing changes to lisp/sawfish/wm/util/nokogiri.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/util/nokogiri.jl
1
1
#| nokogiri-sawfish.jl -- code to load into window manager
2
2
 
3
 
   $Id: nokogiri.jl,v 1.17 2001/04/11 21:48:38 jsh Exp $
 
3
   $Id: nokogiri.jl,v 1.20 2002/04/21 04:52:17 jsh Exp $
4
4
 
5
5
   Copyright (C) 2000 John Harper <john@dcs.warwick.ac.uk>
6
6
 
39
39
          sawfish.wm.util.keymap
40
40
          sawfish.wm.ext.match-window)
41
41
 
42
 
 
43
 
;;; meta customizations
44
 
 
45
 
  (defcustom nokogiri-user-level 'intermediate
46
 
    "Show options suitable for \\w users."
47
 
    :type (choice novice intermediate expert)
48
 
    :user-level novice
49
 
    :group ())
50
 
 
51
 
  (defcustom nokogiri-buttons 'ok
52
 
    "Buttons shown in configurator: \\w"
53
 
    :type (choice ok revert/cancel/ok apply/revert/cancel/ok)
54
 
    :user-level expert
55
 
    :group ())
56
 
 
57
 
  (defcustom customize-show-symbols nil
58
 
    "Show variable names of each customization option."
59
 
    :group misc
60
 
    :user-level expert
61
 
    :type boolean)
 
42
  (defvar customize-show-symbols nil
 
43
    "Show variable names of each customization option.")
 
44
 
 
45
  (defvar customize-command-classes '(default)
 
46
    "Also include commands of these classes the key bindings panel.")
62
47
 
63
48
 
64
49
;;; interfaces
71
56
           (value (if (get symbol 'custom-get)
72
57
                      ((get symbol 'custom-get) symbol)
73
58
                    (custom-serialize (symbol-value symbol) type)))
74
 
           (user-level (get symbol 'custom-user-level))
75
59
           (widget-flags (get symbol 'custom-widget-flags)))
76
60
      (when (stringp doc)
77
61
        (setq doc (_ doc))
99
83
                   #:value value)
100
84
             (and dep (list #:depends dep))
101
85
             (and doc (list #:doc doc))
102
 
             (and user-level (list #:user-level user-level))
103
86
             (and widget-flags (list #:widget-flags widget-flags)))))
104
87
 
105
88
  (define (nokogiri-report-slots names)
126
109
 
127
110
  (define (nokogiri-report-commands)
128
111
    (mapcar (lambda (sym)
129
 
              (let ((params (command-type sym))
130
 
                    (user-level (command-user-level sym)))
131
 
                (if (or params user-level)
132
 
                    (nconc (list sym)
133
 
                           (and params (list #:type params))
134
 
                           (and user-level (list #:user-level user-level)))
 
112
              (let ((params (command-type sym)))
 
113
                (if params
 
114
                    (list sym #:type params)
135
115
                  sym)))
136
116
            (sort (apropos "" (lambda (x)
137
117
                                (and (commandp x)
138
 
                                     (not (get x 'deprecated-command))))))))
 
118
                                     (memq (command-class x)
 
119
                                           customize-command-classes)))))))
139
120
 
140
121
  (define (nokogiri-grab-key) (event-name (read-event)))
141
122