/etc/menu-methods/sawfish is in sawfish 1:1.5.3-2build1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 | #!/usr/bin/install-menu
!include menu.h
compat="menu-2";
outputencoding="UTF-8";
outputlanguage="C";
userprefix=".sawfish/lisp";
rootprefix="/var/lib/sawfish";
genmenu="debian-menu.jl";
rootsection="Debian";
function label($arg)=tolower(replacewith($arg,"/ ","--"));
function q($arg)=esc($arg,"\"\\");
supported;
x11=" '(\"" q(title()) "\" (system \"exec " q($command) " &\"))" ifneq(entryindex(), sub(entrycount(), "1"), "\n");
text=" '(\"" q(title()) "\" (system \"exec " q(term()) " &\"))" ifneq(entryindex(), sub(entrycount(), "1"), "\n");
wm=" '(\"" q(title()) "\" (progn (setq saved-command-line-args '(\"" q($command) "\")) (restart)))" ifneq(entryindex(), sub(entrycount(), "1"), "\n");
endsupported;
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";
startmenu="(defvar " label($section)"-menu\n (list\n";
endmenu="))\n";
submenutitle=" '(\"" translate("",title()) "\" . " label($section) "-menu)" ifneq(entryindex(), sub(entrycount(), "1"), "\n");
sort=tolower(translate("",title()))
|