3
# I tried: `REP_LOAD_PATH=... exec ...' but solaris /bin/sh won't play along
5
REP_LOAD_PATH="__nokogiridir__"
12
#| nokogiri-main.jl -- entry point
14
$Id: main.jl.in,v 1.10 2000/11/18 00:32:43 jsh Exp $
16
Copyright (C) 2000 John Harper <john@dcs.warwick.ac.uk>
18
This file is part of sawfish.
20
sawfish is free software; you can redistribute it and/or modify it
21
under the terms of the GNU General Public License as published by
22
the Free Software Foundation; either version 2, or (at your option)
25
sawfish is distributed in the hope that it will be useful, but
26
WITHOUT ANY WARRANTY; without even the implied warranty of
27
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
28
GNU General Public License for more details.
30
You should have received a copy of the GNU General Public License
31
along with sawfish; see the file COPYING. If not, write to
32
the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
44
sawfish.ui.user-level)
46
(define socket-id nil)
48
(when (get-command-line-option "--help")
49
(write standard-output "\
50
usage: sawfish-ui [OPTIONS...]\n
51
where OPTIONS are any of:\n
55
--socket-id=WINDOW-ID\n")
58
(let ((group (get-command-line-option "--group" t)))
60
(setq group (read-from-string group))
61
(set-top-group (if (listp group) group `(root ,group)))))
63
(let ((level (get-command-line-option "--user-level" t)))
65
(setq *nokogiri-user-level* (read-from-string level))))
67
(when (get-command-line-option "--flatten")
68
(setq *nokogiri-flatten-groups* t))
70
(when (get-command-line-option "--single-level")
71
(setq *nokogiri-single-level* t))
73
(let ((id (get-command-line-option "--socket-id" t)))
75
(setq socket-id (string->number id))))
77
(setq interrupt-mode 'exit)
79
(add-widget-prefix 'sawfish.ui.widgets)
80
(run-shell socket-id))
84
;; major-mode: lisp-mode
added
removed
lisp/sawfish/ui/main.jl.in
