####### # # 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 # or at . # See also , # , # , # , # and . # ####### # «.fvwm-generic-mode» (to "fvwm-generic-mode") # «.woody-fvwm-config» (to "woody-fvwm-config") # «.fvwm-2.5» (to "fvwm-2.5") # «.FvwmConsole» (to "FvwmConsole") # «.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") ##### # # 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 # 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-fline "/usr/doc/fvwm/") # (find-fvwmfile "modules/") # (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 # ##### # # 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/nokeys.fvwm" "style-bare") # (find-angg "ICON/tron.icn") # (find-anggfile "LOGS/2006sep05.fvwm") # (find-anggfile "LOGS/2006sep05.fvwm" " 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. # # (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-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 # # (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: