# -*- mode: fvwm-generic; coding: raw-text-unix -*-
# Build the /Debian menu adding a few extra things.
# Edrx 2004aug29
# (progn (require 'generic-x) (fvwm-generic-mode) (font-lock-mode 1))
# (find-angg ".fvwm/.fvwm2rc1")
# (eev "fvwm-replace 1")

# «debian-menu»  (to ".debian-menu")
# (find-man "1 fvwm" "MissingSubmenuFunction")
# (find-man "1 fvwm-menu-directory")
# (find-man "1 fvwm-menu-directory" "+ I PipeRead")
# (find-fline "/usr/bin/fvwm-menu-directory")
# http://www.zensites.net/fvwm/guide/advanced_menu.html
# (find-woodyfvwmfile "system.fvwm2rc" "AddToMenu /Debian")

# (find-fvwmhelp "Menu menu-name [position] [double-click-action]")
# (find-fvwmhelp "Popup PopupName [position] [default-action]")

DestroyMenu Quit-Verify
AddToMenu Quit-Verify "Really quit FVWM?" Title
+ "No, restart Fvwm"   Restart
+ ""                   Nop
+ "Yes, really quit"   Quit

MenuStyle "*" mwm, Foreground black, Background grey, Greyed white, \
  Font -adobe-helvetica-bold-r-*-*-12-*

DestroyMenu /Debian
Read menudefs.hook Quiet	# (find-fline "/etc/X11/fvwm/menudefs.hook")
AddToMenu /Debian
+ ""            Nop
+ "xterm"       Exec xterm
+ "uxterm"      Exec uxterm
+ "xzoom"       Exec xzoom
+ "FvwmConsole" Module FvwmConsole
+ "xmms"        Exec xmms
+ "Xscreenshot" Exec Xscreenshot
+ "Xscreenshot-rect" Exec Xscreenshot-rect
+ "Xscreenshot-rect ee" Exec sh -c 'source $EEVTMPDIR/ee.getrect'
   # (find-angg "elisp/eeimage.el")
+ "Xscreenshot: xzgv" Exec xzgv /tmp/screenshots/
   # (find-angg "bin/Xscreenshot")
   # (find-angg "bin/Xscreenshot-rect")
+ ""            Nop
+ "Exit Fvwm"   Popup Quit-Verify