← Back to branch summary

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

« back to all changes in this revision

Viewing changes to debian/sawfish-gnome.menu-method

  • 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:
debian/sawfish-gnome.menu-method
1
 
#!/usr/sbin/install-menu
2
 
 
3
 
compat="menu-1";
4
 
 
5
 
!include menu.h
6
 
 
7
 
compat="menu-2";
8
 
 
9
 
userprefix=".sawfish/lisp";
10
 
rootprefix="/etc/X11/sawfish";
11
 
genmenu="debian-menu.jl";
12
 
rootsection="Debian";
13
 
 
14
 
supported;
15
 
   x11="          '(\"" $title "\" (system \"exec " $command " &\"))" ifneq(entryindex(), sub(entrycount(), "1"), "\n");
16
 
 
17
 
  text="          '(\"" $title "\" (system \"exec " esc(term(), "\"") " &\"))" ifneq(entryindex(), sub(entrycount(), "1"), "\n");
18
 
 
19
 
    wm="          '(\"" $title "\"(progn (setq saved-command-line-args '(\""$command"\")) (restart)))" ifneq(entryindex(), sub(entrycount(), "1"), "\n");
20
 
endsupported;
21
 
 
22
 
preoutput=";; This is -*-Lisp-*-\n;; Automagically generated file.  Do not edit (see /usr/doc/menu/html/index.html)\n\n(provide 'debian-menu)\n\n";
23
 
 
24
 
startmenu="(defvar " tolower(replacewith(replacewith(replacewith($section, "/ ", "--"), "(", "{"), ")", "}")) "-menu\n  (list\n";
25
 
endmenu="))\n";
26
 
submenutitle="  '(\"" $title "\" . " tolower(replacewith(replacewith(replacewith($section, "/ ", "--"), "(", "{"), ")", "}")) "-menu)" ifneq(entryindex(), sub(entrycount(), "1"), "\n");