[sawfish] sawfish.wm.extras: try-require, generate apps-menu from here

[Christopher Bratusek <chrisb src gnome org>]

commit a8ba64054ef44588db10f8a34bdf08fa6a376d35
Author: chrisb <zanghar freenet de>
Date:   Sun Aug 30 21:31:33 2009 +0200

    sawfish.wm.extras: try-require, generate apps-menu from here

 lisp/sawfish/wm/extras.jl |   31 +++++++++++++++++++++++++++++++
 1 files changed, 31 insertions(+), 0 deletions(-)
---
diff --git a/lisp/sawfish/wm/extras.jl b/lisp/sawfish/wm/extras.jl
new file mode 100644
index 0000000..f766bb0
--- /dev/null
+++ b/lisp/sawfish/wm/extras.jl
@@ -0,0 +1,31 @@
+;; This file is part of sawfish.
+
+;; sawfish 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.
+
+;; sawfish 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 sawfish; see the file COPYING.  If not, write to
+;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+
+(declare (in-module user))
+
+;; magic comment to get an alias installed
+;; (define-structure-alias sawfish-extras sawfish.wm.extras)
+
+;; try-require
+;; try to trequire a script, but don't
+;; err if failed, just place a message
+(define (try-require sym)
+  (condition-case nil
+      (require sym)
+    (error nil)))
+
+(require 'sawfish.wm.ext.fdo-menu)
+(update-saw-menu)