#.ratpoisonrc --- my own ratpoison customizations
 
 #Copyright (C) 2006 by maru dubshinki
 
 #Author: maru dubshinki <marudubshinki0@gmail.com>
 #License: BSD license, minus advertising clause.
 #Where: http://en.wikipedia.org/wiki/User:Marudubshinki/.ratpoisonrc
 #When: Time-stamp: "2006-09-06 18:22:39 maru"
 #Keywords: local,customization,ratpoison
 
 #Commentary
 #This is my own all-singing all-dancing personal ratpoisonrc. 
 #It depends on two scripts, rpws, and expose (which can either be gotten
 #at Reactorcore or at the ratpoison wiki) and a number of other programs, chief
 #among which are xclip, surfraw, and firefox.
 #Anyway, there are three main sections, so to speak.
 #The first tweaks some ratpoison settings directly. The main feature of 
 #note is the changing of the escape sequence from two keys, C-t, to a single
 #key (called by ratpoison "less"), and the mirroring of less with another key,
 #so there are actually two equivalent escape keys.
 #The second section runs a number of programs like unclutter. This section generally
 #modifies X, modifies the keybindings (i.e making caps lock a control), and runs some
 #useful programs if possible.
 #The third section handles application key bindings. My general philosophy here has 
 #been to make the lower-case key invoke the "heavy" or feature-rich version of the 
 #idealized type of application, and the uppercase one runs a different, smaller and 
 #lighter-weight application which does much the same thing. For example, d runs 
 #Firefox, and D runs terminal elinks. e runs Emacs, and E runs nano in a terminal.
 #And so on.
 
 ##change directory to $HOME
 chdir
 
 ##What's the shell?
 alias term exec aterm
 
 ##Banish the mouse with each screenchange
 #addhook switchwin banish
 
 ##Setting the prefix keys
 ###Set the ctrl-t key to something easier
 escape less
 
 ###Set the ctrl-t key to something easier
 definekey top Insert readkey root
 definekey root Insert link less
 
 ##Set the mouse warping option.
 warp on
 
 ##Hush up, ratpoison. I know what the prefix key is.
 startup_message off
 
 ##There are three different ways ratpoison can "name" frames.
 ##By title, name, or class. Title gets you gunk like "emacs@localhost.localdomain";
 ##but name and class give you the sensible "emacs" or "Emacs". 
 set winname class
 
 ##Graphics tweaks
 ###Not quite sure what these do, copied from Reactor Core.
 ###Supposedly make borders take up less space.
 defborder 0
 defpadding 0 0 0 0
 defbarpadding 0 0 
 
 #This was suggested on the ratpoison wiki as a way to
 #make messages clearer. Doesn't work right now. Maybe I have the wrong
 #font name?
 #deffont -etl-*-*-r-*-*-*-400-*-*-*-*-*-*
 
 ##What programs do we run on startup?
 ###Do some key re-mapping
 exec xmodmap -quiet ~/.Xmodmap
 
 ###Apparently modifies some low-level GUI bits of X.
 exec xrdb -load ~/.Xresources
 
 ###Change the background and pointer in X
 #exec xsetroot -solid black -cursor_name left_ptr
 exec xsetroot -cursor_name left_ptr
 
 ###I like astronomical images. Let us make use of xplanet.
 #exec xplanet -body earth -fork -random -light_time -transparency -wait 60
 
 ####This is an alternative- setting electricsheep as the background.
 #exec electricsheep --root 1 --nick maru --zoom 1 --mplayer 1 --history 50 &
 
 ###Set a background, randomly picking from a certain directory.
 exec cd ~/pics && xsetbg -border black -fork -type jpeg -fit -onroot -fullscreen `w=(*.jpg); n=${#w[@]}; echo "${w[RANDOM%n]}"` && cd ~/
 #exec xsetbg -border black -fork -type jpeg -fit -onroot -fullscreen `w=(*.jpg); n=${#w[@]}; echo "~/pics/${w[RANDOM%n]}"`
 
 ###Run unclutter so the mouse hangs around no longer than needed.
 exec unclutter -idle 1 -jitter 2 -root
 
 ###I use xscreensaver as a screensaver. The first line makes sure any running xscreensaver is killed.
 ###The second starts and backgrounds xscreensaver
 exec xscreensaver-command -exit
 exec xscreensaver &
 
 ###This should set up rpws and groups
 ###http://ratpoison.elektrubadur.se/rpws
 exec rpws -i
 exec rpws -b
 ###This should be pretty obvious. Why not use function keys?
 bind F1 exec ~/bin/rpws 1
 bind F2 exec ~/bin/rpws 2
 bind F3 exec ~/bin/rpws 3
 bind F4 exec ~/bin/rpws 4
 bind F5 exec ~/bin/rpws 5
 bind F6 exec ~/bin/rpws 6
 bind F7 exec ~/bin/rpws 7
 bind F8 exec ~/bin/rpws 8
 bind F9 exec ~/bin/rpws 9
 bind F10 exec ~/bin/rpws 10
 bind F11 exec ~/bin/rpws 11
 bind F12 exec ~/bin/rpws 12
 
 ###xbindkeys can alias for some neat things.
 #This is last- low priority. Commented out, currently does nothing,
 #exec xbindkeys
 
 
 
 
 ##aliasing keys within ratpoison
 ###make semicolon invoke ratpoison command, and colon shell command.
 bind semicolon colon
 bind colon exec
 
 ###Show-the-root-window script
 alias showroot exec ratpoison -c fdump; ratpoison -c 'select -' -c only
 alias unshowroot exec ratpoison -c "frestore `cat $HOME/.rpfdump`"
 #bind B showroot
 
 ###Change the date from 24-hour to 12-hour
 bind a time
 
 ###(Getting a root terminal. There is no binding for "c", since that
 ###is a default binding, to a terminal.)
 ###I've since changed this since I don't use it very often.
 #bind C exec ssh -X root@127.0.0.1 aterm
 bind C colon exec aterm -e 
 
 ###Shortcut for emacs. Emacsclient is called, but it expects
 ###a filename. This can be circumvented by instructing it to
 ###instead evaluate a Emacslisp expression- the current one
 ###says "open up a new frame on the current display device".
 ###It has to be quoted or else sh will try to open up the lisp
 ###expression in a sub-shell as a shell command.
 ###Neatly, if an emacs isn't already running, then emacsclient runs
 ###$EDITOR, which points back to regular emacs!
 bind M-e exec emacsclient --eval '(make-frame-command)'
 ###Shortcut for nano
 bind M-E exec aterm -e nano
 
 ###Shortcut for firefox
 bind d exec mozilla-firefox
 #bind d exec mozilla-firefox & ratpoison -c "title firefox"
 
 ###A new hack using xclip (which prints out the current text selection) to
 ###open up a new tab in a running firefox with the address as the current selection.
 ###The idea is, you highlight an URL and then instead of manually inputting it,
 ###simply whack R-b ('b' standing for "browse").
 #bind b exec mozilla-firefox -new-tab `xclip -o`
 bind B exec mozilla-firefox -new-tab `$RATPOISON -c getsel`
 bind b colon exec mozilla-firefox 
 
 ###Shortcut for elinks
 bind D elinks http://www.google.com/
 #bind B elinks http://www.google.com/
 
 ###Shortcut for dillo- currently I use elinks instead. dillo's 
 ###keyboard commands are too awkward as of yet.
 #bind D exec dillo
 
 ###Shortcut for gqview
 bind g exec gqview +t
 
 ###Binding for xpdf
 bind x exec xpdf
 
 ###Runs a perl script which emulates the Mac's expose feature.
 ###http://ratpoison.elektrubadur.se/expose.pl
 bind w exec ~/bin/expose.pl
 
 ###Runs a shell script which creates an alt-tab menu analog
 ###http://reactor-core.org/ratpoison-config.html
 bind W exec ~/bin/windows
 
 ###Make prtscreen work, as long as in ratpoison mode. "import" is an Imagemagick command.
 bind Print exec import -window root png:$HOME/xwd-$(date +%s)$$.png
 
 ###Crikey, I'm gonna need a separate section just for surfraw shortcuts.
 ###Anyway, the model for these (thanks to aon) is "bind r colon exec surfraw wikipedia "- note
 ###the space. If the space isn't there, then the user will need to manually add a space, which is not good
 ###In the shell, one can omit the surfraw command, but not in ratpoison, as ratpoison's PATH currently does
 ###not include the directory with the elvi in it.
 ###List of useful surfraw elvi follows:
 ###amazon bbcnews cia cite cnn debbugs debcontents deblists deblogs debpackages debpts deja dmoz ebay etym freshmeat google imdb rfc rhyme slashdot sourceforgen translate
 
 ###Surfraw aliases.
 alias cnn exec surfraw cnn
 alias debbugs exec surfraw debbugs
 alias debbug debbugs
 alias debpackages exec surfraw debpackages
 alias google exec surfraw google
 alias gutenberg exec surfraw gutenberg
 alias surfraw exec surfraw
 alias wayback exec surfraw wayback
 alias wikipedia exec surfraw wikipedia
 alias wookieepedia exec wookieepedia
 
 ###Surfraw keybindings
 bind t colon wikipedia 
 #bind t exec wikipedia `xclip -o` #See previous comment for R-b
 bind T exec wikipedia `$RATPOISON -c getsel`
 bind E google `$RATPOISON -c getsel`
 bind e colon google 
 #bind T colon google 
 bind Y colon wayback 
 bind y colon wookieepedia 
 bind u colon debbugs 
 bind U colon debpackages 
 
 ##Aliasing long commands within ratpoison
 ###Leaving open the option to use conkeror, a skin over firefox.
 ###Wish I could get sane tabbed browsing in it...
 alias conkeror exec mozilla-firefox -chrome chrome://conkeror/content
 alias elinks exec aterm -e elinks