;;;; -*- Mode: sawfish -*- #| .sawfishrc - My Sawfish Configuration Copyright (c) 2004 Stefan Kamphausen This file is NOT part of sawfish. This programm 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 programm 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 this programm; see the file COPYING. If not, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. |# (require 'sawmill-defaults) (require 'sawfish.wm) ;-- customisation (setq viewport-dimensions '(3 . 3)) (setq decorate-transients t) (setq ignore-program-positions nil) (setq move-cursor-increment 100) (setq edge-flip-delay 1000) (setq move-snap-mode 'magnetism) (setq menu-program-stays-running t) ;(add-hook 'before-move-hook raise-window) ;(add-hook 'after-move-hook (lambda (w descr) ; (raise-window w))) ;(add-hook 'before-resize-hook raise-window) ;(add-hook 'after-resize-hook (lambda (w descr) ; (raise-window w))) (setq warp-to-window-enabled t) ;(add-hook 'after-add-window-hook ; (lambda (w) ; (if (string= (window-class w) "XTerm") ; (warp-cursor-to-window w 30 -10)))) ;-- extra functions (require 'menus) (defun chb-maybe-quit () (interactive) (popup-menu '(("Yes, quit" (quit)) ("No, forget it" nil)))) (defun ska-xmms-toggle () (interactive) (system "xmms -t&")) (defun ska-xmms-prev () (interactive) (system "xmms -r&")) (defun ska-xmms-next () (interactive) (system "xmms -f&")) (defun ska-xmms () (interactive) (system "xmms&")) (defun ska-xterm () (interactive) (system "xterm&")) (defun ska-xemacs () (interactive) (system "xemacs&")) (defun ska-netzbrowser () (interactive) (system "mozilla&")) (defun ska-new-postit () (interactive) (system "xpad -n&")) (defun ska-lock-stop-xmms () (interactive) (system "xmms -s&") (system "xscreensaver-command -lock&")) (defun ska-screenshot () (interactive) (system "import -window root ~/screenshot.png")) (setq window-keymap (bind-keys (make-keymap) ; pack windows "Super-C-Up" 'pack-window-up "Super-C-Down" 'pack-window-down "Super-C-Left" 'pack-window-left "Super-C-Right" 'pack-window-right ;; states "Super-C-s" 'toggle-window-sticky "Super-C-x" 'maximize-window-toggle "Super-C-v" 'maximize-window-vertically-toggle "Super-C-h" 'maximize-window-horizontally-toggle "Super-C-/" 'lower-window "Super-C-." 'raise-window ;; mouse bindings "Super-Button1-Move" 'move-window-interactively "Super-Button2-Move" 'resize-window-interactively "Super-C-Button2-Click" 'popup-window-menu "Super-Button3-Off" 'raise-lower-window )) (setq title-keymap (bind-keys (make-keymap) "Button1-Move" 'move-window-interactively "Button1-Click" 'raise-window "Button1-Off2" 'toggle-window-shaded "Button2-Move" 'popup-window-menu "Button3-Off" 'raise-lower-window )) (setq global-keymap (bind-keys (make-keymap) ;; the new settings!! ; viewports "Super-Up" 'move-viewport-up "Super-Down" 'move-viewport-down "Super-Left" 'move-viewport-left "Super-Right" 'move-viewport-right ; cursor "Super-M-Up" 'move-cursor-up "Super-M-Right" 'move-cursor-right "Super-M-Left" 'move-cursor-left "Super-M-Down" 'move-cursor-down "Super-M-RET" (lambda () (synthesize-event "Button1-Click1" (input-focus))) "C-M-DEL" chb-maybe-quit ; programs "Super-SPC" 'call-command "Super-RET" ska-xterm "Super-e" ska-xemacs "Super-p" ska-new-postit "Super-n" ska-netzbrowser "Super-F9" ska-xmms-toggle "Super-F10" ska-xmms-prev "Super-F11" ska-xmms-next "Super-F12" ska-xmms "Super-l" ska-lock-stop-xmms "Print" ska-screenshot ;; The OLD settings: ;; programs ;;"S-C-F9" ska-xmms-toggle ;;"S-C-F10" ska-xmms-prev ;;"S-C-F11" ska-xmms-next ;;"S-C-F12" ska-xmms ;;"S-C-l" ska-lock-stop-xmms ;;"S-C-m" ska-run-meai ;;"S-C-RET" ska-xterm ;;"S-C-p" ska-new-postit ;; windows ;;"M-C-Next" lower-window ;;"M-C-Prior" raise-window ;; movement ;;"S-C-Up" 'move-viewport-up ;;"S-C-Down" 'move-viewport-down ;;"S-C-Left" 'move-viewport-left ;;"S-C-Right" 'move-viewport-right ;;"S-M-Up" 'move-cursor-up ;;"S-M-Right" 'move-cursor-right ;;"S-M-Left" 'move-cursor-left ;;"S-M-Down" 'move-cursor-down ;; the following works only in windows accepting synthetic ;; X events (in XEmacs (setq x-allow-sendevents t)) ;;"S-M-RET" (lambda () ;; (synthesize-event "Button1-Click1" (input-focus))) )) ;-- load packages (require 'direction) ;; this uses a modified version of direction which moves the pointer ;; to the focused window (bind-keys global-keymap "S-Super-Up" focus-north "S-Super-Down" focus-south "S-Super-Right" focus-east "S-Super-Left" focus-west) (require 'runner) (bind-keys global-keymap "Super-x" runner-run) (require 'maximize) ;(setq pager-background "~/media/img/bun/pagerback.xpm") (require 'sawfish.wm.ext.pager) (add-hook 'after-initialization-hook pager t) ;(setq window-ops-menu ; `(("_Sticky" toggle-window-sticky (check . ,window-sticky-p)) ; ("_Move" move-window-interactively) ; ("_Upper Layer" raise-window-depth) ; ("_Lower Layer" lower-window-depth) ; ("_Resize" resize-window-interactively) ; ("_Iconify" iconify-window) ; (,(lambda (w) ; (if (window-maximized-p w) ; "Un_maximize" ; "_Maximize")) maximize-window-toggle) ; ("Sawfish window menu" ,@window-ops-menu) ; ("_Destroy" destroy-window) ; ("_Close" delete-window))) ;-- extra packages (load "services" 'noerror) (when (featurep 'services) ; (services-add "Google" ; "Netscape 'http://www.google.com/search?q=#'" ; services-clean-url-query-escaping) ; (services-add "Netscape" ; "Netscape #") (services-add "Dictionary" "xterm -e w3m 'http://dict.leo.org/?search=#'" (lambda (str) (string-replace str "\W" "")))) ;-- start programs ;(system "xset b off &") ;(system "display -size 1278x1024 -window root ;/usr/X11R6/share/enlightenment/themes/BrushedMetal-Tigert/backgrounds/images/light_vertical_gradient_brushed.png") (system "xv -root -quit -max /usr/X11R6/share/enlightenment/themes/BrushedMetal-Tigert/backgrounds/images/light_vertical_gradient_brushed.png") (system "xset dpms 900,0,1200&") ;(system "xset m 5 5&") (system "xpad&") (system "gkrellm&") (system "xautolock -time 5 -locker 'xlock -lockdelay 30 -mode blank'&") (system "wterm -T hidden +sb -tr -fg \"#9e9e9e\" -bg \"#336577\" -fn 6x10 -geometry +668+784 -e top&")