dot/lisp-init.lisp: Don't set SBCL source directory if there's no source there.

[profile] / dot / e16-bindings

diff --git a/dot/e16-bindings b/dot/e16-bindings
index 143ae43..15434ea 100644 (file)
--- a/dot/e16-bindings
+++ b/dot/e16-bindings
@@ -24,32 +24,55 @@ MouseDown      S 2 menus show groupmenu
 Tooltip Display Group Menu
 MouseDown      - 3 menus show settings.menu
 Tooltip Display Settings Menu
 Tooltip Display Group Menu
 MouseDown      - 3 menus show settings.menu
 Tooltip Display Settings Menu

-MouseDown      * 4 desk prev
-Tooltip Go Back a Desktop
-MouseDown      * 5 desk next
-Tooltip Go Forward a Desktop

 Aclass KEYBINDINGS global
 Aclass KEYBINDINGS global

-KeyDown    5       F7 exec un-backslashify-selection
-KeyDown    5       F8 exec xatom set XINIT_COMMAND :terminal
-KeyDown    5       F9 exec xatom set XINIT_COMMAND :ask-run
-KeyDown           5      F10 exec xatom set XINIT_COMMAND :ask-command
-KeyDown           5      F11 exec gnome-screensaver-command --lock
-KeyDown    5      F12 exec xshutdown
-KeyDown    5      Tab focus next
-KeyDown    5     plus desk next
-KeyDown    5    minus desk prev
+KeyDown   5        F6 exec gconftool --toggle /desktop/gnome/accessibility/keyboard/mousekeys_enable
+KeyDown   5        F7 exec un-backslashify-selection
+KeyDown   5        F9 exec xinitcmd :ask-run
+KeyDown   5       F10 exec xinitcmd :ask-command
+KeyDown   5       F11 exec lock-screen
+KeyDown   5       F12 exec xshutdown
+KeyDown   5       Tab focus next
+KeyDown   5      plus exec disorder-notify volume-up
+KeyDown   5     minus exec disorder-notify volume-down
+KeyDown   5      Home wop * opacity 100
+KeyDown   5      Next wop * opacity -5
+KeyDown   5     Prior wop * opacity +5
+KeyDown   5        Up area move 0 -1
+KeyDown   5      Down area move 0 1
+KeyDown   5      Left area move -1 0
+KeyDown   5     Right area move 1 0
+KeyDown   C5        1 exec xzoomscr 1
+KeyDown   C5        2 exec xzoomscr 2/3
+KeyDown   C5        3 exec xzoomscr 2
+KeyDown   C5        4 exec xzoomscr 3
+KeyDown   C5        4 exec xzoomscr 4

 KeyDown   C5        a desk arrange
 KeyDown   C5        a desk arrange

+KeyDown   C5        c cm start
+KeyDown          C5        d exec xfce4-display-settings

 KeyDown   C5        f wop * fullscreen
 KeyDown   C5        g magwin show
 KeyDown   C5        h wop * tw available
 KeyDown   C5        i wop * iconify
 KeyDown   C5        k wop * kill
 KeyDown   C5        f wop * fullscreen
 KeyDown   C5        g magwin show
 KeyDown   C5        h wop * tw available
 KeyDown   C5        i wop * iconify
 KeyDown   C5        k wop * kill

+KeyDown   C5        l exec xrepaint -a

 KeyDown   C5        m wop * ts available
 KeyDown   C5        m wop * ts available

+KeyDown   C5        p exec xsetroot -cursor_name left_ptr

 KeyDown   C5        r wop * shade
 KeyDown   C5        s wop * stick
 KeyDown   C5        r wop * shade
 KeyDown   C5        s wop * stick

+KeyDown   C5        t exec xinitcmd :terminal

 KeyDown   C5        v wop * th available
 KeyDown   C5        w menus show winops.menu
 KeyDown   C5        x wop * close
 KeyDown   C5        v wop * th available
 KeyDown   C5        w menus show winops.menu
 KeyDown   C5        x wop * close

+KeyDown   C5        y exec xfce4-find-cursor
+KeyDown   C5 numbersign exec xinitcmd "sh -c 'pavucontrol >/dev/null 2>&1'"
+KeyDown   C5 apostrophe exec xinitcmd disobedience -u$(realpath $HOME/.disorder/passwd)
+KeyDown   C5 semicolon exec disorder-notify next-config
+KeyDown   C5     plus desk next
+KeyDown   C5    minus desk prev
+KeyDown   C5   period exec disorder-notify enable/disable
+KeyDown   C5    comma exec disorder-notify notify-now-playing
+KeyDown   C5    slash exec disorder-notify scratch
+KeyDown   C5    space exec disorder-notify play/pause

 KeyDown   C5       F1 menus show file.menu
 KeyDown   C5       F2 menus show enlightenment.menu
 KeyDown   C5       F3 menus show settings.menu
 KeyDown   C5       F1 menus show file.menu
 KeyDown   C5       F2 menus show enlightenment.menu
 KeyDown   C5       F3 menus show settings.menu


@@ -57,10 +80,15 @@ KeyDown   C5       F4 menus show windowlist
 KeyDown   C5       Up wop * raise
 KeyDown   C5     Down wop * lower
 KeyDown   C5      End exit restart
 KeyDown   C5       Up wop * raise
 KeyDown   C5     Down wop * lower
 KeyDown   C5      End exit restart

-KeyDown   S5        h wop * tw conservative
-KeyDown   S5        m wop * ts conservative 
-KeyDown   S5        v wop * th conservative
-KeyDown   S5       Up area move 0 -1
-KeyDown   S5     Down area move 0 1
-KeyDown   S5     Left area move -1 0
-KeyDown   S5    Right area move 1 0
+KeyDown   S5       Up wop * mr 0 -15
+KeyDown   S5     Down wop * mr 0 +15
+KeyDown   S5     Left wop * mr -15 0
+KeyDown   S5    Right wop * mr +15 0
+KeyDown   SC5       c cm stop
+KeyDown   SC5       h wop * tw conservative
+KeyDown   SC5       m wop * ts conservative
+KeyDown   SC5       v wop * th conservative
+KeyDown   SC5      Up wop * sr 0 -15
+KeyDown   SC5    Down wop * sr 0 +15
+KeyDown   SC5    Left wop * sr -15 0
+KeyDown   SC5   Right wop * sr +15 0