; -*- sawfish-mode -*-
; vim:ft=lisp

;; crunchy/bindings.jl -- bind my own keymaps and some additionally
;; functions to shortcuts

;; version 0.2.0

;; Copyright (C) 
;; 2001, 2002, 2003, 2004 Andreas BÜsching <crunchy@tzi.de>

;; this is free software; you can redistribute it and/or modify it
;; under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.

;; this is distributed in the hope that it will be useful, but
;; WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with sawfish; see the file COPYING.  If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.

;; Installation (e.g.):
;; - copy this file to ~/.sawfish/lisp/crunchy 
;;   (this path without /crunchy need to be in your load-path)
;; - add (require 'crunchy.remote-terminal) to your ~/.sawfishrc

(require 'crunchy.keymaps)
(require 'crunchy.remote-terminal)

(require 'friedel.fullmax)

;; bind keymaps
(bind-keys global-keymap "Super-w" special-wnd-keymap)
(bind-keys global-keymap "Super-?" help-keymap)

;; mail notification
(bind-keys global-keymap "Super-g" '(system "nalmoctl --tooltip"))
(bind-keys global-keymap "Super-G" '(system "nalmoctl --menu"))

;; dictionary requests
(bind-keys global-keymap "Super-s"
	   '(system "echo search > /tmp/dict-crunchy &"))
(bind-keys global-keymap "Super-d"
	   '(system "echo dict > /tmp/dict-crunchy &"))

;; run remote terminal stuff
(bind-keys global-keymap "Super-t" 'crunchy/remote-terminal)

;; workspace movement
(bind-keys global-keymap "Mod5-h" 'previous-workspace)
(bind-keys global-keymap "Mod5-l" 'next-workspace)

;; runnning programs
(bind-keys global-keymap "Mod5-c" '(system "gmrun &"))
(bind-keys global-keymap "Super-z" '(system "rxvt &"))
(bind-keys global-keymap "Pause" '(system "xscreensaver-command -lock &"))

;; window resizing
(bind-keys global-keymap "Super-M-h" 'size-window-subtract-column)
(bind-keys global-keymap "Super-M-l" 'size-window-add-column)
(bind-keys global-keymap "Super-M-k" 'size-window-subtract-row)
(bind-keys global-keymap "Super-M-j" 'size-window-add-row)

(bind-keys global-keymap "Super-," 'maximize-full-vertical-left-toggle)
(bind-keys global-keymap "Super-." 'maximize-full-vertical-right-toggle)
(bind-keys global-keymap "Super-/" 'maximize-full-toggle)

;; window movement
(bind-keys global-keymap "M-C-h" 'slide-window-left)
(bind-keys global-keymap "M-C-l" 'slide-window-right)
(bind-keys global-keymap "M-C-k" 'slide-window-up)
(bind-keys global-keymap "M-C-j" 'slide-window-down)

(bind-keys global-keymap "Super-h" 'pack-window-left)
(bind-keys global-keymap "Super-l" 'pack-window-right)
(bind-keys global-keymap "Super-k" 'pack-window-up)
(bind-keys global-keymap "Super-j" 'pack-window-down)

;; focus by direction
(bind-keys global-keymap "Mod5-H" 'focus-west)
(bind-keys global-keymap "Mod5-L" 'focus-east)
(bind-keys global-keymap "Mod5-K" 'focus-north)
(bind-keys global-keymap "Mod5-J" 'focus-south)

(provide 'crunchy.bindings)