[PLUG] .sawfish/rc

[Jeff Abrahamson <jeff@purple.com>]

As per request from tonight's meeting, here is my sawfish init file.

-- 
 Jeff

 Jeff Abrahamson  <http://www.purple.com/jeff/>
 GPG fingerprint: 1A1A BA95 D082 A558 A276  63C6 16BF 8C4C 0D1D AE4B

(autoload 'prompt-for-string "sawfish/wm/util/prompt-extras")
(require 'sawfish.wm.util.prompt)


(defun my_readfile (file-name)
  (setq definition nil)
  (let ((fd (open-file file-name 'read)) (reading t))
        (while reading
            (let ((line (read-line fd)))
                  (if line
                    (setq definition (concat definition line "\n"))
                    (progn (setq reading nil) (close-file fd))))))
  definition)

(defun print-command-to-screen (string_command)
    (system (concat string_command " > /tmp/.sawfish.out 2> /tmp/.sawfish.err"))
    (display-message (my_readfile "/tmp/.sawfish.out")))


; (bind-keys global-keymap "C-S-_" 'size-window-subtract-row)
; (bind-keys global-keymap "C-S-+" 'size-window-add-row)

; Implicit shift for +/-
(bind-keys global-keymap "C-_" 'size-window-subtract-row)
(bind-keys global-keymap "C-+" 'size-window-add-row)

(bind-keys global-keymap "C-S-Up" 'grow-window-up)
(bind-keys global-keymap "C-S-Down" 'grow-window-down)
(bind-keys global-keymap "C-S-Left" 'grow-window-left)
(bind-keys global-keymap "C-S-Right" 'grow-window-right)

(bind-keys global-keymap "C-S-n" (lambda () (display-message nil)))
(bind-keys global-keymap "C-S-k" 'describe-key-to-screen)
(bind-keys global-keymap "C-S-t" (lambda () (print-command-to-screen "date")))
(bind-keys global-keymap "C-S-c" (lambda () (print-command-to-screen "cal")))
(bind-keys global-keymap "C-S-d" (lambda ()
				   ((let ((dictword (prompt-for-string "Find word: ")))
				      (print-command-to-screen (concat "dict -m " dictword))))))
(bind-keys global-keymap "C-S-e" (lambda ()
				   ((let ((dictword (prompt-for-string "Define word: ")))
				      (print-command-to-screen (concat "dict " dictword))))))

(bind-keys global-keymap "C-S-F9" '(run-shell-command "xscreensaver-command -lock"))

;(bind-keys global-keymap "C-M-j" '(run-shell-command "jpilot"))
(bind-keys global-keymap "C-S-j" '(run-shell-command "jpilot"))
;(bind-keys global-keymap "C-M-m" '(run-shell-command "mozilla"))
(bind-keys global-keymap "C-S-m" '(run-shell-command "mozilla"))

;(bind-keys global-keymap "C-M-x" '(run-shell-command "bin/xt"))
(bind-keys global-keymap "C-S-x" '(run-shell-command "bin/xt"))
; (bind-keys global-keymap "C-S-x" '(run-shell-command "bin/xt"))
;(bind-keys global-keymap "C-M-g"
;	   '(run-shell-command "gnome-terminal --use-factory --start-factory-server"))
(bind-keys global-keymap "C-S-g"
 	   '(run-shell-command "gnome-terminal --use-factory --start-factory-server"))'

Attachment: pgpMuMRKDPgpr.pgp
Description: PGP signature