; -*- sawfish-mode -*- ; vim:ft=lisp ;; crunchy/keymap.jl -- defines some special key maps ;; - the special-wnd-keymap defines a set of commands for window ;; navigatiob based on the hjkl keys ;; - the help-keymap defines to bindings to aquire help about ;; functions and variables ;; version 0.2.0 ;; Copyright (C) ;; 2001, 2002, 2003, 2004 Andreas BÜsching ;; 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 (defvar special-wnd-keymap (make-keymap)) (bind-keys special-wnd-keymap "H" 'maximize-window-horizontally-toggle) (bind-keys special-wnd-keymap "V" 'maximize-window-vertically-toggle) (bind-keys special-wnd-keymap "M" 'maximize-window-toggle) (bind-keys special-wnd-keymap "l" 'send-to-next-workspace) (bind-keys special-wnd-keymap "h" 'send-to-previous-workspace) (bind-keys special-wnd-keymap "1" 'send-to-workspace:1) (bind-keys special-wnd-keymap "2" 'send-to-workspace:2) (bind-keys special-wnd-keymap "3" 'send-to-workspace:3) (bind-keys special-wnd-keymap "4" 'send-to-workspace:4) (bind-keys special-wnd-keymap "5" 'send-to-workspace:5) (bind-keys special-wnd-keymap "6" 'send-to-workspace:6) (bind-keys special-wnd-keymap "7" 'send-to-workspace:7) (defvar help-keymap (make-keymap)) (bind-keys help-keymap "f" 'apropos-function-to-screen) (bind-keys help-keymap "v" 'apropos-variable-to-screen) (provide 'crunchy.keymaps)