org-config

twm.org (6339B)

---

 #+TITLE: TWM - Tabbed Window Manager
 #+PROPERTY: header-args :tangle xdg-config/twm/config :mkdirp yes
 
 * Aesthetics
 
 ** Fonts
 
 #+begin_src conf
   TitleFont	"fixed"
   ResizeFont	"fixed"
   MenuFont	"fixed"
   IconFont	"fixed"
   IconManagerFont	"fixed"
 #+end_src
 
 ** Colours
 
 Start a Color block
 
 #+begin_src conf
   Color
   {
 #+end_src
 
 *** List of colours
 
 I set different colours for commonly used programs. These are defined
 both for titlebar and border, so I use noweb.
 
 #+NAME: colours
 #+begin_src conf :tangle no
   {
   "emacs"	"skyblue"
   "st-256color"	"darkred"
   "vimb"	"black"
   "mpv"	"thistle"
   "mg"	"forestgreen"
   "info"	"honeydew"
   }
 #+end_src
 
 *** Title
 
 Background Colours
 
 #+begin_src conf :noweb yes
   TitleBackground		"darkslateblue"
   <<colours>>
 #+end_src
 
 Foreground Colours - Default is white, which doesn't work well with
 programs for which I set a light background colour.
 
 #+begin_src conf
   TitleForeground "white"
   {
   "emacs"	"black"
   "mpv"	"black"
   "info"	"black"
   }
 #+end_src
 
 *** Border
 #+begin_src conf :noweb yes
   BorderColor		"darkslateblue"
   <<colours>>
 #+end_src
 
 *** Menu
 
 #+begin_src conf
   MenuBackground		"white"
   MenuForeground		"black"
   MenuBorderColor		"black"
   MenuTitleBackground	"gray70"
   MenuTitleForeground	"darkslateblue"
 #+end_src
 
 *** Icon
 
 #+begin_src conf
   IconBackground		"darkslateblue"
   IconForeground		"white"
   IconBorderColor		"white"
   IconManagerBackground	"darkslateblue"
   IconManagerForeground	"white"
 #+end_src
 
 *** finish the Color block
 
 #+begin_src conf
   }
 #+end_src
 
 ** Border
 
 Don't highlight inactive windows with an ugly border, and make the
 width a bit bigger.
 
 #+begin_src conf
   NoHighlight
   BorderWidth	3
 #+end_src
 
 * COMMENT Autoraise
 
 #+begin_src conf
   AutoRaise { "vimb" "emacs" "st-256color" "mpv" "mg" }
 #+end_src
 
 * Functions
 
 #+begin_src conf
   Function "move-or-lower" { f.move f.deltastop f.lower }
   Function "move-or-raise" { f.move f.deltastop f.raise }
   Function "move-or-iconify" { f.move f.deltastop f.iconify }
 #+end_src
 
 * Menus
 
 ** Left menu - TWM interaction.
 
 #+begin_src conf
   menu "defops"
   {
   "Twm"		f.title
   "Iconify"	f.iconify
   "Resize"	f.resize
   "Move"		f.move
   ""		f.nop
   "Show Iconmgr"	f.showiconmgr
   "Hide Iconmgr"	f.hideiconmgr
   ""		f.nop
   "Kill"		f.destroy
   "Delete"	f.delete
   ""		f.nop
   "Restart"	f.restart
   "Exit"		f.quit
   }
 #+end_src
 
 ** Launch programs
 
 This menu has a direct link to a terminal and browser, as well as
 menus for editors, dmenu scripts, and other window managers.
 
 #+begin_src conf
   menu "exec"
   {
   "Terminal"	f.exec "exec st &"
   "Terminal..."	f.menu "term"
   "Dmenu"		f.menu "dmenu"
   "Editors"		f.menu "editors"
   "Browser"		f.exec "vimb &"
   "Calculator"	f.exec "xcalc -rpn &"
   "Window Managers"	f.menu "startwm"
   "Audio"		f.menu "audio"
   }
 #+end_src
 
 *** Terminal programs
 
 A bunch of terminal programs. Mainly here so that I can change the
 window title.
 
 #+begin_src conf
 menu "term"
 {
 "htop"	f.exec "st -t htop -e htop &"
 "screen"	f.exec "st -t screen -e screen &"
 "ncmpcpp" f.exec "st -t ncmpcpp -e ncmpcpp &"
 "nethack"	f.menu "nethack"
 }
 #+end_src
 
 **** nethack
 
 A menu to access all my nethack saves.  These are shell scripts from
 [[file:nethack.org][nethack.org]].
 
 #+begin_src conf
   menu "nethack"
   {
   "knight"	f.exec "nh kni &"
   "samurai"	f.exec "nh sam &"
   "ranger"	f.exec "nh ran &"
   }
 #+end_src
 
 *** Editors
 
 #+begin_src conf
   menu "editors"
   {
   "Emacs"		f.exec "emacsclient -c -a '' &"
   "QEmacs"	f.exec "qemacs -fs 12 -geometry '100x40' &"
   "Micro Emacs"	f.exec "st -g 100x40 -t mg -e mg &"
   "Neovim"	f.exec "st -g 100x40 -t neovim -e nvim &"
   }
 #+end_src
 
 *** Dmenu
 
 #+begin_src conf
   menu "dmenu"
   {
   "Dmenu"		f.exec "dmenu_recency &"
   "Videos"	f.exec "video-opener &"
   "Documents"	f.exec "pdf-opener &"
   }
 #+end_src
 
 *** Window Managers
 
 #+begin_src conf
   menu "startwm"
   {
   "EXWM"		f.startwm "exec exwm"
   "ratpoison"	f.startwm "ratpoisonrc; exec twmrc"
   "dwm"		f.startwm "dwm; exec twmrc"
   }
 #+end_src
 
 *** Audio Programs
 
 #+begin_src conf
   menu "audio"
   {
   "Ardour"	f.exec "ardour6 &"
   "Calf Tools"	f.exec "calfjackhost &"
   "Patchbay"	f.exec "patchmatrix &"
   "qjackctl"	f.exec "qjackctl &"
   "Helm"		f.exec "helm-synth &"
   "Guitarix"	f.exec "guitarix &"
   }
 #+end_src
 
 * Icons
 
 ** Icon Managers
 
 Create a two-column icon manager for emacs frames, and don't iconify
 emacs frames.
 
 #+begin_src conf
   IconManagers
   {
   "emacs"	"=400x5+0+0"  2
   "st-256color" "st"	"=400x5+0+100" 2
   "mpv" "=400x5+0+200" 1
   }
 #+end_src
 
 ** Disabling icons
 
 Disable icons for windows with their own icon manager.
 
 #+begin_src conf
   IconifyByUnmapping
   {
   "emacs"
   "st-256color"
   "mpv"
   }
 #+end_src
 
 * Mouse bindings
 ** Root window
 
 Bind left-click to open TWM menu, right-click for programs.
 
 #+begin_src conf
   Button1 = : root : f.menu "defops"
   Button3 = : root : f.menu "exec"
 #+end_src
 
 ** Super key
 
 These bindings all use the super (AKA Windows) key, and are used on a
 window or icon.
 
 | 1 (left)   | Move or raise window    |
 | 2 (middle) | Iconify/minimise window |
 | 3 (right)  | Resize window           |
 
 #+begin_src conf
   Button1 = Mod4 : window|icon : f.function "move-or-raise"
   Button2 = Mod4 : window|icon : f.iconify
   Button3 = Mod4 : window|icon : f.resize
 #+end_src
 
 ** Titlebar
 
 I hardly use these ones, it's kind of annoying to get the cursor on
 the title bar.
 
 | 1 (left)   | Move or raise window  |
 | 2 (middle) | Raise or lower window |
 
 #+begin_src conf
   Button1 = : title : f.function "move-or-raise"
   Button2 = : title : f.raiselower
 #+end_src
 
 ** Icons
 
 Left button can move the icon, all buttons toggle iconification.
 
 #+begin_src conf
   Button1 = : icon : f.function "move-or-iconify"
   Button2 = : icon : f.iconify
   Button3 = : icon : f.iconify
 #+end_src
 
 ** Icon Manager
 
 All buttons toggle iconification.
 
 #+begin_src conf
   Button1 = : iconmgr : f.iconify
   Button2 = : iconmgr : f.iconify
   Button3 = : iconmgr : f.iconify
 #+end_src
 
 * Key bindings
 
 ** fullscreen
 
 Bind =s-f= to the function =fullzoom=, which toggles fullscreen mode.
 
 #+begin_src conf
   "f"	= mod4	: all : f.fullzoom
 #+end_src
 
 ** dmenu
 
 Bind =s-&= to execute dmenu_run, similarly to exwm.
 
 #+begin_src conf
   "7"	= mod4|s  : all : f.exec "dmenu_run"
 #+end_src
 
 * Miscellaneous
 
 #+begin_src conf
   NoGrabServer
 #+end_src