Warning: this is an htmlized version!
The original is across this link,
and the conversion rules are here.
#######
#
# E-scripts on fvwm.
#
# Note 1: use the eev command (defined in eev.el) and the
# ee alias (in my .zshrc) to execute parts of this file.
# Executing this file as a whole makes no sense.
#
# Note 2: be VERY careful and make sure you understand what
# you're doing.
#
# Note 3: If you use a shell other than zsh things like |&
# and the for loops may not work.
#
# Note 4: I always run as root.
#
# Note 5: some parts are too old and don't work anymore. Some
# never worked.
#
# Note 6: the definitions for the find-xxxfile commands are on my
# .emacs.
#
# Note 7: if you see a strange command check my .zshrc -- it may
# be defined there as a function or an alias.
#
# Note 8: the sections without dates are always older than the
# sections with dates.
#
# This file is at <http://angg.twu.net/e/fvwm.e>
#           or at <http://angg.twu.net/e/fvwm.e.html>.
#        See also <http://angg.twu.net/emacs.html>,
#                 <http://angg.twu.net/.emacs[.html]>,
#                 <http://angg.twu.net/.zshrc[.html]>,
#                 <http://angg.twu.net/escripts.html>,
#             and <http://angg.twu.net/>.
#
#######




# «.wiki»			(to "wiki")
# «.stalonetray»		(to "stalonetray")
# «.fvwm-generic-mode»		(to "fvwm-generic-mode")
# «.fvwm-upstream»		(to "fvwm-upstream")
# «.woody-fvwm-config»		(to "woody-fvwm-config")
# «.fvwm-2.5»			(to "fvwm-2.5")
# «.FvwmConsole»		(to "FvwmConsole")
# «.FvwmConsole-in-emacs»	(to "FvwmConsole-in-emacs")
# «.fwvm-menu-directory»	(to "fwvm-menu-directory")
# «.no-borders»			(to "no-borders")
# «.exec-xterm-256color»	(to "exec-xterm-256color")
# «.style:bare»			(to "style:bare")
# «.gnudoit»			(to "gnudoit")
# «.numlock»			(to "numlock")
# «.fvwm-netbsd»		(to "fvwm-netbsd")
# «.fvwm2rc7»			(to "fvwm2rc7")
# «.menus-with-hot-keys»	(to "menus-with-hot-keys")
# «.fvwm-gnome-wm»		(to "fvwm-gnome-wm")
# «.xinerama»			(to "xinerama")
# «.schedule»			(to "schedule")
# «.knuths-fvwm2rc»		(to "knuths-fvwm2rc")
# «.fullscreen»			(to "fullscreen")
# «.resize»			(to "resize")
# «.fvwm-lua»			(to "fvwm-lua")
# «.fvwm-edrx»			(to "fvwm-edrx")





#####
#
# wiki
#
#####

# «wiki» (to ".wiki")
# http://fvwmwiki.xteddy.org/
# http://fvwmforums.org/wiki/
# http://fvwmforums.org/wiki/Panels/




#####
#
# stalonetray
# 2017fev06
#
#####

# «stalonetray» (to ".stalonetray")
# Passwords: (find-es "networkmanager" "connections")
# http://prgnsh.blogspot.com.br/2013/01/fvwm-and-network-manager.html
# http://stalonetray.sourceforge.net/
# http://stalonetray.sourceforge.net/wmhints.html
# (find-status   "stalonetray")
# (find-vldifile "stalonetray.list")
# (find-udfile   "stalonetray/")
# (find-udfile "stalonetray/README")
# (find-udfile "stalonetray/README" "~/.stalonetrayrc")
# (find-udfile "stalonetray/examples/stalonetrayrc.sample.gz")
# (find-man "1 stalonetray")
# (find-man "1 stalonetray" "--log-level level")
# (find-multiwindow-intro "Several eepitch targets")
# (find-multiwindow-intro "Several eepitch targets" "find-3ee")
# (find-fline "~/.fvwm/.fvwm2rc" "pager-to-top")

* (eepitch-shell3)
* (eepitch-kill)
* (eepitch-shell3)
stalonetray --log-level trace &
sudo nm-applet


# (find-angg ".stalonetrayrc")

* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
zcat /usr/share/doc/stalonetray/examples/stalonetrayrc.sample.gz > ~/.stalonetrayrc
stalonetray &
nm-applet

* (find-3EE '(eepitch-shell) '(eepitch-shell2))
* (find-3ee '(eepitch-shell) '(eepitch-shell2))
* (eepitch-shell)
# stalonetray &
stalonetray --log-level trace
* (eepitch-shell2)
sudo nm-applet







#####
#
# the fvwm config from woody that I used as a basis for my config files
# 2007dec26
#
#####

# «woody-fvwm-config»  (to ".woody-fvwm-config")
# These links are broken...
# (find-fline "/hdd1/etc/X11/fvwm/system.fvwm2rc")
# (code-c-d "woodyfvwm" "/big/hdd1/etc/X11/fvwm/")
# (find-woodyfvwmfile "")
# (find-woodyfvwmfile "" "system.fvwm2rc")

# Something more recent:
# (find-fline "/usr/share/doc/menu/examples/system.fvwm2rc.gz")
# (find-udfile "menu/examples/system.fvwm2rc.gz")





#####
#
# fvwm-generic-mode
# 2007dec26
#
#####

# «fvwm-generic-mode»  (to ".fvwm-generic-mode")
# (find-angg ".fvwm/.fvwm2rc" nil "mode: fvwm-generic")
# (find-efile "generic-x.el")
# (progn (require 'generic-x) (fvwm-generic-mode) (font-lock-mode 1))




#####
#
# fvwm from the upstream source (squeeze)
# 2011dec25
#
#####

# «fvwm-upstream»  (to ".fvwm-upstream")
# http://fvwm.org/
# http://fvwm.org/download/
# http://fvwm.org/contact/
# ftp://ftp.fvwm.org/pub/fvwm/version-2/fvwm-2.6.3.tar.gz
# http://packages.debian.org/source/squeeze/fvwm
# http://ftp.de.debian.org/debian/pool/main/f/fvwm/
# http://ftp.de.debian.org/debian/pool/main/f/fvwm/fvwm_2.5.30.ds-1.dsc
# sudo apt-get build-dep fvwm
#*
rm -Rv ~/usrc/fvwm-2.6.3/
tar -C ~/usrc/ -xvzf \
  $S/ftp/ftp.fvwm.org/pub/fvwm/version-2/fvwm-2.6.3.tar.gz
cd     ~/usrc/fvwm-2.6.3/

#*
rm -Rv ~/usrc/fvwm/
mkdir  ~/usrc/fvwm/
tar -C ~/usrc/fvwm/ -xvzf \
  $S/ftp/ftp.fvwm.org/pub/fvwm/version-2/fvwm-2.6.3.tar.gz
cd     ~/usrc/fvwm/fvwm-2.6.3/

./configure |& tee oc
make        |& tee om

#*
# (code-c-d "fvwm" "~/usrc/fvwm-2.6.3/")
# (code-c-d "fvwm" "~/usrc/fvwm/fvwm-2.6.3/")
# (find-fvwmfile "")
# (find-fvwmfile "oc")
# (find-fvwmfile "om")

# (find-fvwmfile "modules/FvwmCommand/")
# (find-fvwmfile "modules/FvwmConsole/")

# (find-efunction 'eefvwm0)
# (find-efunction 'find-fvwm0)
# (find-fline "~/usrc/fvwm/fvwm-2.6.3/fvwm/")
# (find-fline "~/usrc/fvwm/fvwm-2.6.3/modules/FvwmCommand/FvwmCommand")

(defun find-fvwm0 (str)
  (eefvwm str)
  ;; (find-sh0 "FvwmCommand ee")
  (find-sh0 "~/usrc/fvwm/fvwm-2.6.3/modules/FvwmCommand/FvwmCommand ee")
  )





#####
#
# fvwm from the upstream source
# 2004jul11
#
#####

# «fvwm-2.5»  (to ".fvwm-2.5")
# (find-fline "~/.fvwm/.fvwm2rc")

# http://www.igs.net/~tril/fvwm/
# http://www.plig.org/xwinman/fvwm.html
# http://www.zensites.net/fvwm/guide/

# ftp://ftp.fvwm.org/pub/fvwm/version-2/fvwm-2.5.12.tar.gz

# (code-c-d "fvwm" "~/usrc/fvwm-2.5.10/")
# (find-fvwmfile "")
# (find-fvwmfile "sample.fvwmrc/")
# (find-fvwmfile "modules/FvwmPager/")

#*
rm -Rv ~/usrc/fvwm-2.5.12/
tar -C ~/usrc/ \
  -xvzf $S/ftp/ftp.fvwm.org/pub/fvwm/version-2/fvwm-2.5.12.tar.gz
cd ~/usrc/fvwm-2.5.12/
./configure --prefix=$HOME/ulocal	|& tee oc
make		|& tee om
make install	|& tee omi

#*
~/ulocal/bin/fvwm -replace &

#*
fvwm -replace &

#*
# (find-fvwmfile "sample.fvwmrc/")
# (find-fvwmfile "sample.fvwmrc/system.fvwm2rc-sample-95")
# (find-fvwmfile "sample.fvwmrc/system.fvwm2rc-sample-95" "Showing Settings")


xkill



#*
# (eeb-fvwm)
# (eebd-function-is 'eeb-fvwm)
#*
# (find-man "1 FvwmPager")
FvwmPager 0 1
#*
FvwmPager 0 0
#*
# (find-fvwmhelp "Pick [(conditions)] command")
Pick Destroy
#*
WindowList
#*
GotoPage 1 0
#*



115 letf windows key
64 left alt
113 right alt
116 right windows keys
117 menu key
109 right ctrl




# (find-progoutput "FvwmCommand 'WindowList'")

DestroyFunc ee
AddToFunc ee i read ee.fvwm

(ee-write "GotoPage 1 1" nil "" "" "~/.fvwm/ee.fvwm")




#####
#
# FvwmConsole
# 2004aug15
#
#####

# «FvwmConsole»  (to ".FvwmConsole")
# (find-status   "fvwm")
# (find-vldifile "fvwm.list")
# (find-udfile   "fvwm/")

# (find-man "1 FvwmCommand")
# (find-man "1 FvwmConsole")
# (find-man "1 FvwmConsoleC.pl")
# (find-man "1 FvwmCpp")
# (find-man "1 FvwmDebug")

# (find-man "1 FvwmAnimate")
# (find-man "1 FvwmAuto")
# (find-man "1 FvwmBacker")
# (find-man "1 FvwmBanner")
# (find-man "1 FvwmButtons")
# (find-man "1 FvwmCommand")
# (find-man "1 FvwmConsole")
# (find-man "1 FvwmConsoleC.pl")
# (find-man "1 FvwmCpp")
# (find-man "1 FvwmDebug")
# (find-man "1 FvwmDragWell")
# (find-man "1 FvwmEvent")
# (find-man "1 FvwmForm")
# (find-man "1 FvwmGtk")
# (find-man "1 FvwmIconBox")
# (find-man "1 FvwmIconMan")
# (find-man "1 FvwmIdent")
# (find-man "1 FvwmM4")
# (find-man "1 FvwmPager")
# (find-man "1 FvwmRearrange")
# (find-man "1 FvwmSave")
# (find-man "1 FvwmSaveDesk")
# (find-man "1 FvwmScript")
# (find-man "1 FvwmScroll")
# (find-man "1 FvwmTaskBar")
# (find-man "1 FvwmTheme")
# (find-man "1 FvwmWharf")
# (find-man "1 FvwmWinList")
# (find-man "1 fvwm-config")
# (find-man "1 fvwm-menu-desktop")
# (find-man "1 fvwm-menu-directory")
# (find-man "1 fvwm-menu-headlines")
# (find-man "1 fvwm-menu-xlock")
# (find-man "1 fvwm-update-menu")
# (find-man "1 fvwm2")
# (find-man "1 fvwm24_convert")
# (find-man "1 fvwmbug")
# (find-man "1 fvwmrc_convert")
# (find-man "1 xpmroot")
# (find-man "1x setup-background")



#*
# (eeb-fvwm)
# (find-fvwmhelp "Pick [(conditions)] command")
# (find-fvwmhelp "Style stylename options")
# (find-fvwmhelp "Recapture")
# Style emacs NoTitle, BorderWidth 12
Style emacs NoTitle, FvwmBorder

#*
Style emacs Title, BorderWidth 32

#*
# (eeb-fvwm)
Pick WindowStyle NoTitle
#*
Pick WindowStyle Title
#*
Pick WindowStyle !Title
#*
Pick WindowStyle BorderWidth 20
#*
Pick WindowStyle NoBorder
#*
Recapture
#*
# (eeb-fvwm)
# (find-angg ".fvwm/edrx.fvwm")
# (find-man "fvwm")
# (find-man "fvwm" "Modifiers is any combination")
Key F12 A C  Echo Mod4
Key F12 A S  Echo Shift
Key F12 A M  Echo Meta
Key F12 A L  Echo CapsLock
Key F12 A A  Echo Alt

#*
Key F12 A 1  Echo Mod1   # left or right alt key
Key F12 A 2  Echo Mod2
Key F12 A 3  Echo Mod3
Key F12 A 4  Echo Mod4   # left or right windows key
Key F12 A 5  Echo Mod5
Key F12 A 6  Echo Mod6
Key F12 A 7  Echo Mod7   # bad modifier
Key F12 A 8  Echo Mod8   # bad modifier; "\e[29~"; menu key

#*





#####
#
# FvwmConsole in a terminal in Emacs
# 2012nov16
#
#####

# «FvwmConsole-in-emacs» (to ".FvwmConsole-in-emacs")
# (find-man "1 FvwmCommand")
# (find-man "1 FvwmConsole")

Idea: if I can run something like FvwmConsole in an arbitrary terminal
then I should be able to create an `eepitch-fwvm', like these things:

  (find-eev "eepitch.el" "eepitch-bash")

and then send commands to its REPL-ish interface interactively from
Emacs, like what is shown in this video here:

  http://www.youtube.com/watch?v=doeyn5MOaB8&t=43m20s
  (find-angg "eev-videos/README")
  (find-eev2introvideo "43:20" "shell and python")

It is easy to do - as a simple hack - something much more primitive
than an FvwmConsole, by improvising a REPL and using FvwmCommand to
execute each line of input given in it... but how to make it handle
cleanly multi-line commands like these?

  # (find-angg ".fvwm/.fvwm2rc" "KeyboardMenu")
  DestroyMenu KeyboardMenu
  AddToMenu KeyboardMenu "Mod4-K: Keyboard" Title
  + "xset mouse 0 0"     Exec exec xset mouse 0 0
  + "xset mouse default" Exec exec xset mouse default
  + "mysetxkb us"        Exec exec mysetxkb us
  + "mysetxkb us_intl"   Exec exec mysetxkb us_intl
  + "mysetxkb abnt2"     Exec exec mysetxkb abnt2
  + "mysetxkb xkbprint"  Exec exec mysetxkb xkbprint

and would that give me all the niceties of FvwmConsole?...




* (eepitch-lua51)
* (eepitch-kill)
* (eepitch-lua51)
fvwmfile = ee_expand "~/.eev/ee.fvwm"
fvwmsave = function (str) writefile(fvwmfile, str) end
fvwmrun0 = function ()
    return getoutput("cat "..fvwmfile.." | FvwmCommand -i 1 -c")
  end
f = function (str) fvwmsave(str); print(fvwmrun0()) end

f [[ CursorMove +0 +100 ]]
f [[ badCursorMove +0 +100 ]]


* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
echo 'BadCommand' | FvwmCommand -i 0 -c
echo 'BadCommand' | FvwmCommand -i 1 -c
tail ~/.xsession-errors
# (find-fline "~/.xsession-errors")

# (find-fline "~/LOGS/2012nov16.fvwm")



# (find-fvwmfile "modules/")
# (find-sh "locate FvwmConsole")
# (find-fline "~/.fvwm/.FvwmConsole-History")
# (find-fline "/usr/lib/fvwm/2.5.30/FvwmConsole")
# (find-fline "/usr/lib/fvwm/2.5.30/FvwmConsoleC")
# (find-fline "/usr/lib/fvwm/2.5.30/FvwmConsoleC.pl")
# (find-udfile "fvwm/html/modules/FvwmConsole.html")
# (find-man "1 FvwmConsole")
# (find-man "1 FvwmConsoleC.pl")











#####
#
# debian menus (on Sarge)
# 2004aug17
#
#####

# (find-status "menu")
# (find-vldifile "menu.list")
# (find-fline "/usr/share/doc/menu/")
# (find-fline "/usr/share/doc/menu/menu.txt.gz")

sudo update-menus -v
sudo update-menus --stdout
sudo update-menus --stdout > /tmp/fvwmmenus

sudo update-menus -v
update-menus[2863]: Dpkg is not locking dpkg status area, good.
update-menus[2863]: Reading installed packages list...
update-menus[2863]: Reading menu-entry files in /etc/menu/.
update-menus[2863]: 0 menu entries found (0 total).
update-menus[2863]: Reading menu-entry files in /usr/lib/menu/.
update-menus[2863]: 229 menu entries found (229 total).
update-menus[2863]: Reading menu-entry files in /usr/share/menu/.
update-menus[2863]: 0 menu entries found (229 total).
update-menus[2863]: Reading menu-entry files in /usr/share/menu/default/.
update-menus[2863]: 3 menu entries found (232 total).
update-menus[2863]: Running menu-methods in /etc/menu-methods/.
update-menus[2863]: Running method: /etc/menu-methods/twm
update-menus[2863]: Running method: /etc/menu-methods/fvwm

# (find-man "1 update-menus")
# (find-man "1 update-menus" "\nFILES")
# (find-fline "~/.menu/")
# (find-fline "/etc/menu/")
# (find-fline "/usr/lib/menu/")
# (find-fline "/usr/share/menu/default/")

# (find-fline "/etc/menu-methods/")
# (find-fline "/etc/menu-methods/fvwm")

#   Read /etc/X11/fvwm/menudefs.hook
#   Popup /Debian
# (find-fline "/usr/share/doc/fvwm/sample.fvwmrc/manoj/menudefs.hook.gz")


# (find-man "1 install-menu")
# (find-man "5 menufile")

# (find-man "5 menufile")
# (find-fline "/usr/share/doc/menu/examples/system.fvwm2rc.gz")
# (find-fline "/etc/X11/fvwm/")



# (find-status "fvwm")
# (find-vldifile "fvwm.list")
# (find-fline "/usr/doc/fvwm/")

sudo update-menus -v




#####
#
# fwvm-menu-directory
# 2004aug29
#
#####

# «fwvm-menu-directory»  (to ".fwvm-menu-directory")
# (find-man "1 fvwm" "MissingSubmenuFunction")
# (find-man "1 fvwm-menu-directory")
# (find-fline "/usr/bin/fvwm-menu-directory")
# http://www.zensites.net/fvwm/guide/advanced_menu.html


# (find-man "update-menus")
# (eev "sudo update-menus -v")

strace-to /tmp/s update-menus -v

# (find-fline "/tmp/s")
# (find-progoutput "sort /tmp/s | uniq")
#
# (find-fline "/etc/X11/fvwm/menudefs.hook")
# (find-fline "menudefs.hook")
# (find-fline "main-menu.hook")

# file:///usr/share/doc/menu/html/index.html
# file:///usr/share/doc/menu/html/ch2.html
# (find-fline "/etc/menu-methods/fvwm")


# (find-man "1 fvwm-menu-directory" "+ I PipeRead")
#
AddToFunc FuncFvwmMenuDirectory
+ I PipeRead "fvwm-menu-directory -d '$0'"




# (find-status   "fvwm")
# (find-vldifile "fvwm.list")
# (find-udfile   "fvwm/")

# (find-udfile "fvwm/sample.fvwmrc/system.fvwm2rc-sample-1.gz")
# (find-udfile "fvwm/sample.fvwmrc/system.fvwm2rc-sample-2.gz")
# (find-udfile "fvwm/sample.fvwmrc/system.fvwm2rc.gz")



zcat /usr/share/doc/menu/examples/system.fvwm2rc.gz > /tmp/lw.fvwm2rc
fvwm -replace -f /tmp/lw.fvwm2rc -f edrx.fvwm

# (find-fvwmfile "fvwm/events.c" "_cdim")



# (find-angg ".fvwm/")
# (find-angg ".fvwm/edrx.fvwm" "restart-pager")
#*
# (ee-once (eeb-fvwm))
KillModule FvwmPager
# Style "FvwmPager"   Sticky, StaysOnTop, Handles, HandleWidth 5
Style "FvwmPager"   Sticky, StaysOnBottom, Handles, HandleWidth 5
Module FvwmPager

#*
# (ee-once (eeb-fvwm))
KillModule FvwmPager
Style "FvwmPager" StaysOnBottom
Module FvwmPager

#*
# (ee-once (eeb-fvwm))

DestroyFunc PagerToBottom
AddToFunc   PagerToBottom
+ "I" KillModule FvwmPager
+ "I" Style "FvwmPager" StaysOnBottom
+ "I" Module FvwmPager

DestroyFunc PagerToTop
AddToFunc   PagerToTop
+ "I" KillModule FvwmPager
+ "I" Style "FvwmPager" StaysOnTop
+ "I" Module FvwmPager

Key p  A   4 PagerToBottom
Key p  A  S4 PagerToTop

#*


# (find-angg ".fvwm/edrx.fvwm" "ee")
# (find-angg ".fvwm/edrx.fvwm" "restart-pager")
# (find-anggfile ".fvwm/" "ee.fvwm")



# (find-eev "eev-langs.el")
# (find-man "1 fvwm" "\nCOMMAND EXPANSION\n")
# (find-man "1 fvwm" "\n       Borders\n")



#####
#
# removing the borders and title bar
# 2004dec30
#
#####

# «no-borders»  (to ".no-borders")
# (find-fvwmhelp "       Current [(conditions)] command")
# (find-fvwmhelp "Key [(window)] Keyname Context Modifiers Function")
# (find-angg ".fvwm/")
# (find-angg ".fvwm/edrx-system.fvwm")
# (find-angg ".fvwm/edrx.fvwm")
#*
# (eeb-fvwm0)
Key f  A  4 WindowStyle Title, Borders
Key g  A  4 WindowStyle NoTitle, !Borders
#*
# (eeb-fvwm0)
Current WindowStyle NoTitle, !Borders
NoPager
#*
# (eeb-fvwm0)
Current WindowStyle Title, Borders
PagerOnBottom
#*




#####
#
# waddletron2k's xterm-256color problem
# 2006sep04
#
#####

# «exec-xterm-256color»  (to ".exec-xterm-256color")
#*
# (eeb-fvwm0)
# (find-efunction 'eeb-fvwm0)
# (find-anggfile ".fvwm/nokeys.fvwm")
# (find-anggfile ".fvwm/keys.fvwm")

DestroyMenu Waddletron
AddToMenu Waddletron "Waddletron xterm stuff" Title
+ "Exec"         Exec      xterm -tn xterm-256color
+ "Exec exec"    Exec exec xterm -tn xterm-256color
 
Key w   A   4 Popup Waddletron

#*




#####
#
# style: bare
# 2006sep05
#
#####

# «style:bare»  (to ".style:bare")
# (find-angg ".fvwm/.fvwm2rc" "style-bare")
# (find-angg ".fvwm/nokeys.fvwm" "style-bare")
# (find-angg "ICON/tron.icn")
# (find-anggfile "LOGS/2006sep05.fvwm")
# (find-anggfile "LOGS/2006sep05.fvwm" "<thomas_adam> Style bare !Title,")
# (find-man "X" "-xrm resourcestring")
# http://linuxgazette.net/127/adam1.html
# http://linuxgazette.net/127/adam.html
# Problem: I don't know how to pass "-class Bare" to Icon programs yet.

* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
xterm &
xterm -class Bare &
xterm -class Bare -bg yellow -fg red &
xterm -class Bare -bg tan1 -fg red3 &
xterm -class Bare -bg yellow -fg red3 &
xterm -class Bare -bg lightyellow -fg red3 &
xterm -class Bare -bg '#fbf352' -fg red3 &

function setmsg () {
  echo '#!/bin/sh' > /tmp/msg
  cat             >> /tmp/msg
  chmod 777          /tmp/msg
}
setmsg <<'%%%'
  echo Foo bar
  sleep 2
%%%
xterm -class Bare -bg yellow -fg red3 -e /tmp/msg &


#*
# (eeb-fvwm0)
# (find-angg ".fvwm/keys.fvwm")
# (find-angg ".fvwm/nokeys.fvwm")
# (find-angg ".fvwm/nokeys.fvwm" "window-styles")

Style bare       !Title, !Borders
Style baremanual UseStyle bare, ManualPlacement
Style Bare       !Title, !Borders
Style BareManual UseStyle Bare, ManualPlacement

#*
* (eepitch-shell)
xterm -class Bare &
xterm -class BareManual &
xterm -class Baremanual &
xterm &





#####
#
# PrintScreen calling gnudoit
# 2006oct16
#
#####

# «gnudoit»  (to ".gnudoit")
# (find-es "emacs" "gnuserv")







#####
#
# strokes (from nibtip)
# 2005apr21
#
#####

#Mouse Strokes
Stroke 32147   0 A	N	Exec exec firefox
Stroke 3574159 0 A	N	Exec exec xterm -fg white -bg black
Stroke 14789   0 A  N   Exec exec anjuta

# C for Close
Stroke 3214789 0 A  N   Close

#Down-Right to Iconify
Stroke 357     0 A  N   Iconify
Stroke 32547   0 A  N   Iconify
Stroke 36587   0 A  N   Iconify
Stroke 3657    0 A  N   Iconify
Stroke 3547    0 A  N   Iconify





#####
#
# when NumLock is on clicking on another window doesn't change focus
# 2007jan14
#
#####

# «numlock»  (to ".numlock")
# (find-es "x" "no-capslock")
# (find-angg ".fvwm/.fvwm2rc" "numlock")
# (find-angg ".fvwm/keys.fvwm" "numlock")
# (find-status   "fvwm")
# (find-vldifile "fvwm.list")
# (find-udfile   "fvwm/")
# (find-udfile   "fvwm/docs/")
# (find-udfile   "fvwm/docs/FAQ.gz")
# (find-udfile   "fvwm/docs/FAQ.gz" "NumLock, CapsLock or ScrollLock key is pressed")
# (find-udfile   "fvwm/docs/FAQ.gz" "IgnoreModifiers L25")

# (find-fvwmhelp "IgnoreModifiers [Modifiers]")

(find-fvwm0 "IgnoreModifiers L25")






#####
#
# fvwm-2.5.18 on NetBSD
# 2007dec28
#
#####

# «fvwm-netbsd»  (to ".fvwm-netbsd")
# (find-angg ".zshrc" "fvwm-netbsd")
# http://ftp.de.debian.org/debian/pool/main/f/fvwm/fvwm_2.5.18.orig.tar.gz
#*
rm -Rv ~/usrc/fvwm-2.5.18/
tar -C ~/usrc/ -xvzf \
  $S/http/ftp.de.debian.org/debian/pool/main/f/fvwm/fvwm_2.5.18.orig.tar.gz
cd     ~/usrc/fvwm-2.5.18/

mkdir usr/
./configure --prefix=$PWD/usr/ |& tee oc
make                           |& tee om
make install                   |& tee omi

#*
# (code-c-d "fvwm" "~/usrc/fvwm-2.5.18/")
# (code-c-d "fvwm" "~/usrc/fvwm-2.5.18/" :woman)
# (find-fvwmfile "")
# (find-fvwmfile "INSTALL" "`--prefix=PATH'")
# (find-fvwmsh "find usr | sort")
# (find-fvwmsh "find * | sort")
# (find-fvwmsh "find * | sort | grep -i module")
# (find-fvwmfile "fvwm/fvwm.1")
# (find-fvwmwoman "fvwm/fvwm.1" "FVWM_MODULEDIR")
# (find-fvwmwoman "fvwm/fvwm.1" "ModulePath path")
# (find-fvwmfile "")
# (find-fvwmfile "usr/bin/")
# (find-fvwmsh "find * | grep Comm")

* (eepitch-shell)
cd ~/bin/
ln -sf ../usrc/fvwm-2.5.18/usr/bin/FvwmCommand .
ln -sf ../usrc/fvwm-2.5.18/usr/bin/fvwm .
ln -sf fvwm-netbsd fvwm
# (find-angg "bin/fvwm-netbsd")
# (find-angg ".zshrc" "fvwm-netbsd")

* (eepitch-shell)
cd ~/bin/
cat > fvwm-netbsd <<'%%%'
#!/bin/sh
# (find-es  "fvwm"    "fvwm-netbsd")
# (find-angg ".zshrc" "fvwm-netbsd")
FVWM_MODULEDIR=$HOME/usrc/fvwm-2.5.18/usr/libexec/fvwm/2.5.18 \
 LD_LIBRARY_PATH=/usr/X11R6/lib \
   exec ~/usrc/fvwm-2.5.18/fvwm/fvwm $*
%%%
chmod 755 fvwm-netbsd

# (find-fline "~/bin/")
# (find-fline "~/bin/fvwm-netbsd")
# (find-angg ".zshrc" "fvwm-replace")





#####
#
# .fvwm2rc7
# 2007dec28
#
#####

# «fvwm2rc7»  (to ".fvwm2rc7")
# (find-angg ".fvwm/")
# (find-angg ".fvwm/.fvwm2rc")
# (find-angg ".fvwm/withkeys.fvwm")
# (find-angg ".fvwm/nokeys.fvwm")
# (find-angg ".fvwm/keys.fvwm")
# (find-angg ".fvwm/.fvwm2rc7")

# -*- mode: fvwm-generic; coding: raw-text-unix -*-
# (progn (require 'generic-x) (fvwm-generic-mode) (font-lock-mode 1))
# (find-angg ".fvwm/.fvwm2rc")
# (find-angg ".fvwm/.fvwm2rc0")
# (find-angg ".fvwm/.fvwm2rc1")
# This file:
# (find-angg ".fvwm/.fvwm2rc7")
# (find-angg ".zshrc" "fvwm-replace")
# (eev "fvwm-replace 7")
# (find-sh "cat nokeys.fvwm")
# (find-sh "cat keys.fvwm")
# (find-sh "cat nokeys.fvwm keys.fvwm")
# (insert (find-sh00 "cat nokeys.fvwm keys.fvwm"))

# (find-sh0 "fvwm -replace -f ~/.fvwm/.fvwm2rc")

# Old notes:
# (eev "fvwm-replace 7")
# (eev "fvwm -replace -f ~/.fvwm/.fvwm2rc7 &")

;; (find-angg "bin/mysetxkb")
;; (find-sh "~/bin/mysetxkb us")

;; Tests:
;; (find-fvwm0 "KillModule FvwmPager")
;; (find-fvwm0 "Module FvwmPager")
;; (find-fvwm0 "Key F1 A M    Popup Window-Ops")
;; (find-fvwm0 "Key F2 A M    Popup KeyboardMenu")
;; (find-fvwm0 "Key F4 A M    Popup /Debian")

;; (find-fvwm0 "Key F5 A M WindowStyle NoTitle, !Borders # no borders")
;; (find-fvwm0 "Key F6 A M WindowStyle Title, Borders    # borders")
;; (find-fvwm0 "Key F7 A M Maximize   0 100  # maximize vertically (toggle)")
;; (find-fvwm0 "Key F8 A M Maximize 100 100  # maximize both ways (toggle)")
;; (global-set-key (kbd "C-M-s") 'toggle-scroll-bar)
;; (global-set-key (kbd "C-M-d") 'display-time-mode)
;; (find-sh "~/bin/mysetxkb us")




#####
#
# menus with hot-keys
# 2008may31
#
#####

# «menus-with-hot-keys»  (to ".menus-with-hot-keys")
# (find-angg ".fvwm/.fvwm2rc" "Mod4Menu")
# (find-fvwmhelp "AddToMenu menu-name [menu-label action]")
# (find-fvwmhelp "AddToMenu menu-name [menu-label action]" "&")
# (find-eev "eev-langs.el" "fvwm")
# (find-angg ".fvwm/.fvwm2rc")
# (find-angg ".fvwm/.fvwm2rc" "4-v,h,b")
#*
# (eefvwm0-bounded)

DestroyMenu Mod4Menu
AddToMenu   Mod4Menu "Mod4-keys" Title
+ "4-&v: maximize vertically (toggle)"   Maximize 0 100
+ "4-&h: maximize horizontally (toggle)" Maximize 100 0
+ "4-&b: maximize both ways (toggle)"    Maximize 100 100
+ "4-&f: full (no borders or title bar)" WindowStyle NoTitle, !Borders
+ "4-&g: put back borders and title bar" WindowStyle Title, Borders
+ "" Nop
+ "4-&k: KeyboardMenu"                   Popup KeyboardMenu
+ "4-&u: UnclutterMenu"                  Popup UnclutterMenu

# Meta-F1, anywhere
Key F1    A    M    Popup Mod4Menu

#*




#####
#
# Fvwm one Gnome: starting as default wm
# 2010aug08
#
#####

# «fvwm-gnome-wm»  (to ".fvwm-gnome-wm")
# (find-es "gnome" "saving-sessions")
# (find-man "1 gnome-wm")
# (find-man "1 gnome-wm" "WINDOW_MANAGER environment variable")
# http://ubuntuforums.org/archive/index.php/t-463928.html
# http://doc.gwos.org/index.php/Xfwm4

# (find-fline "~/.gnomerc")
export WINDOW_MANAGER=/usr/bin/fvwm

* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
gconf-editor &
# /desktop/gnome/session/required_components/filemanager
# /desktop/gnome/session/required_components/panel
# /desktop/gnome/session/required_components/windowmanager

# http://linuxgazette.net/100/adam.html
#   killall [wm] && sleep 5s && fvwm &

# http://linuxgazette.net/104/tag/4.html
# http://linuxidx.com/linux.php?q=Fvwm





#####
#
# xinerama
# 2011dec25
#
#####

# «xinerama»  (to ".xinerama")
# (find-fvwmhelp "XINERAMA SUPPORT")
# http://www.fvwm.org/doc/unstable/commands/Xinerama.html
# http://www.fvwm.org/doc/unstable/commands/XineramaPrimaryScreen.html
# http://fvwmforums.org/phpBB3/viewtopic.php?f=33&t=2758

# (find-fvwmhelp "Xinerama [bool]")
# (find-fvwmhelp "XineramaPrimaryScreen [primary-screen]")
# (find-fvwmhelp "XineramaSls [bool]")
# (find-fvwmhelp "XineramaSlsSize Horizontal Vertical")
# (find-fvwmhelp "XineramaSlsScreens number-of-screens [screen-spec ...]")

# (find-sh "fvwm -V" "Xinerama")
# (find-fvwm0 "Xinerama on")

# http://wiki.linuxquestions.org/wiki/Using_multiple_monitors_with_XFree86
# http://sourceforge.net/projects/xinerama/




#####
#
# Schedule (to remove borders and maximize with a single key)
# 2012mar12
#
#####

# «schedule»  (to ".schedule")
# (find-angg ".fvwm/.fvwm2rc" "no-super-key")
# (find-man "1 fvwm" "Schedule [Periodic] delay_ms [command_id] command")




#####
#
# Knuth's .fvwm2rc
# 2012mar27
#
#####

# «knuths-fvwm2rc»  (to ".knuths-fvwm2rc")
# http://www-cs-faculty.stanford.edu/~uno/programs.html
# http://www-cs-faculty.stanford.edu/~uno/programs/.fvwm2rc





#####
#
# A full-screen mplayer should not use manual placement
# 2012sep15
#
#####

# «fullscreen»  (to ".fullscreen")
# (find-angg ".fvwm/.fvwm2rc" "style-fullscreen")
# (find-man "1 fvwm" "-r | --replace")
# (find-man "1 fvwm" "     Window Manager placement")

(setq ee-mplayer-options '("-fs" "-title" "mplayer-fullscreen" "-osdlevel" "2"))
(setq ee-mplayer-options '("-fs"                               "-osdlevel" "2"))

<ruskie> edrx, you could just exclude it from manual placement?
<edrx> ruskie: how do I do that? 8-|
<ruskie> set a different placement model for mplayer
<ruskie> Style urxvt PositionPlacement UnderMouse, MiniIcon
         term.png, Icon term.png <-- example I use that for urxvt
<ruskie> while everything else is set to: Style *
         MinOverlapPercentPlacement




#####
#
# resize
# 2012nov03
#
#####

# «resize» (to ".resize")
# (find-angg ".fvwm/.fvwm2rc")
# (find-angg ".fvwm/.fvwm2rc" "window-ops-menu")
# (find-angg ".fvwm/.fvwm2rc" "window-ops-menu" "Mod4-F8:  Resize")
# (find-man "1 fvwm")
# (find-man "1 fvwm" "DestroyMenu MenuFvwmWindowOps")
# (find-man "1 fvwm" "DestroyMenu MenuFvwmWindowOps" "  Resize")
# (find-man "1 fvwm" "Current [(conditions)] command")
# (find-man "1 fvwm" "Resize [[frame]")
# (find-man "1 fvwm" "Resize [[frame]" "NorthWest")

# Use this
# ========
# Use with: (find-eval-intro "`M-e'")
# width--:  (find-sh0 "FvwmCommand 'Current Resize w-1c keep'")
# width++:  (find-sh0 "FvwmCommand 'Current Resize w+1c keep'")
# height--: (find-sh0 "FvwmCommand 'Current Resize keep w-1c'")
# height++: (find-sh0 "FvwmCommand 'Current Resize keep w+1c'")

# (find-angg ".fvwm/.fvwm2rc")
# (find-angg "eev-videos/0.sh")




#####
#
# fvwm-lua
# 2014sep17
#
#####

# «fvwm-lua» (to ".fvwm-lua")
# http://box-look.org/content/show.php?content=127229
# http://box-look.org/CONTENT/content-files/127229-fvwm-lua-0.4.tar.gz
# (find-angg ".emacs" "auto-mode-alist")
# (add-to-alist 'auto-mode-alist '("\\.fvwm2rc$" . fvwm-generic-mode))

* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
#*
rm -Rv ~/usrc/fvwm-lua-0.4/
tar -C ~/usrc/ -xvzf \
  /home/edrx/snarf/http/box-look.org/CONTENT/content-files/127229-fvwm-lua-0.4.tar.gz
cd     ~/usrc/fvwm-lua-0.4/

#*
# (code-c-d "fvwmlua"   "~/usrc/fvwm-lua-0.4/")
# (code-c-d "fvwmluaw"  "~/usrc/fvwm-lua-0.4/widgets/")
# (code-c-d "fvwmluawc" "~/usrc/fvwm-lua-0.4/widgets/configs/")
# (find-fvwmluafile "")
# (find-fvwmluawcfile "examples-complete.fvwm2rc")

# (find-fvwmluawcfile "examples-complete.fvwm2rc")





#####
#
# fvwm-edrx
# 2014oct09
#
#####

# «fvwm-edrx» (to ".fvwm-edrx")
# (find-man "fvwm")

* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
rm -v ~/.fvwm/.fvwm2rc.edrx
wget -O ~/.fvwm/.fvwm2rc.edrx http://angg.twu.net/.fvwm/.fvwm2rc
fvwm --replace -f ~/.fvwm/.fvwm2rc.edrx &
rm -v ~/.fvwm/.fvwm2rc.edrx


fvwm --replace


config-command
           Causes fvwm to use config-command instead of 'Read config' (or 'Read
           .fvwm2rc') as its initialization command.  (Note that up to 10 -f and









gnome-session-save
gnome-session

# (find-man "1 gnome-session-save")
# (find-man "1 gnome-session")
# (find-fline "~/.config/gnome-session/saved-session/")


* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
w fvwm
xwininfo
# xwininfo: Window id: 0x2000020 "x-nautilus-desktop"
# xwininfo: Window id: 0x2200003 "Bottom Expanded Edge Panel"
# xwininfo: Window id: 0x2200049 "Top Expanded Edge Panel"

# (find-man "fvwm" "EXTENDED WINDOW MANAGER HINTS")



After some searching, I found the gconf entry
/desktop/gnome/session/required_components/windowmanager, which
pointed to gnome-wm on my system. That scripts contains the following
comment:

# NOTE: DON'T USE THIS. Please have your window manager install
# a desktop file and change the gconf key
# /desktop/gnome/session/required_components/windowmanager

Setting the windowmanager key in gconf-editor in fact fixed my
problem, and I now get metacity when logging into a Gnome session.
Shouldn't there be a entry in the System menu for doing this?

# (find-fline "~/.gconf/desktop/gnome/applications/window_manager/%gconf.xml")
# (find-fline "~/.gconf/system/networking/connections/1/connection/%gconf.xml")








# (find-vldifile "fvwm.list")
# (find-udfile "fvwm/html/commands/")

# (find-udfile "fvwm/README.gz")
# (find-udfile "fvwm/docs/ANNOUNCE.gz")
# (find-udfile "fvwm/docs/BUGS.gz")
# (find-udfile "fvwm/docs/COMMANDS.gz")
# (find-udfile "fvwm/docs/CONVENTIONS.gz")
# (find-udfile "fvwm/docs/ChangeLog.gz")
# (find-udfile "fvwm/docs/DEVELOPERS.gz")
# (find-udfile "fvwm/docs/FAQ.gz")
# (find-udfile "fvwm/docs/TODO")
# (find-udfile "fvwm/docs/error_codes.gz")
# (find-udfile "fvwm/docs/fvwm.lsm.gz")


# (find-man "1 fvwm-perllib")

fvwm-perllib man
fvwm-perllib man FVWM::Module
fvwm-perllib --help
fvwm-perllib --version


# (find-man "1 fvwm" "AutomaticHotkeys")
# (find-man "1 fvwm" "AddToMenu StartMenu@linux-menu.xpm@")
# (find-man "1 fvwm" "AddToMenu StartMenu@linux-menu.xpm@^blue^")
# (find-man "1 fvwm" "AddToMenu   MenuFvwmWindowOps")
# (find-man "1 fvwm" "hot-key")










#  Local Variables:
#  coding:               raw-text-unix
#  ee-delimiter-hash:    "\n#*\n"
#  ee-delimiter-percent: "\n%*\n"
#  ee-anchor-format:     "«%s»"
#  End: