Skip to content

Instantly share code, notes, and snippets.

@tototoshi
Created March 3, 2011 06:51
Show Gist options
  • Save tototoshi/852453 to your computer and use it in GitHub Desktop.
Save tototoshi/852453 to your computer and use it in GitHub Desktop.
.stumpwmrc
(in-package :stumpwm)
(defcommand conkeror () ()
(run-or-raise "~/bin/conkeror" '(:class "Conkeror")))
(define-key *root-map* (kbd "f") "conkeror")
(defcommand conkeror-new-buffer () ()
(run-shell-command "conkeror"))
(define-key *root-map* (kbd "F") "conkeror-new-buffer")
(defcommand gnome-terminal () ()
(run-or-raise "gnome-terminal -e 'screen'" '(:instance "gnome-terminal")))
(define-key *root-map* (kbd "c") "gnome-terminal")
(define-stumpwm-command "refocus-conkeror" ()
"Re-focus the conkeror buffer.
Useful when you want to escape Flash without a mouse."
(shell-command "conkeror -batch -e 'if (w=window_watcher.activeWindow) {
unfocus(w.buffers.current);
w.minibuffer.message(\"focus regained\");
}'"))
(define-key *root-map* (kbd "X") "refocus-conkeror")
;; push the window in the adjacent frame
(define-key *root-map* (kbd "C-Up") "move-window up")
(define-key *root-map* (kbd "C-Left") "move-window left")
(define-key *root-map* (kbd "C-Down") "move-window down")
(define-key *root-map* (kbd "C-Right") "move-window right")
(define-key *root-map* (kbd "C-f") "fullscreen")
(define-key *root-map* (kbd "Delete") "repack-window-numbers")
(define-key *root-map* (kbd "I") "show-window-properties")
;; ask the user for a search string and search for it in Google
(defcommand google (search)
((:string "Search in Google for: "))
"docstring"
(check-type search string)
(substitute #\+ #\Space search)
(run-shell-command (concat "conkeror http://www.google.com/search?q=" search)))
(define-key *root-map* (kbd "z") "google")
;; from simias
(defun shift-windows-forward (frames win)
(when frames
(let ((frame (car frames)))
(shift-windows-forward (cdr frames)
(frame-window frame))
(when win
(pull-window win frame)))))
(defcommand rotate-windows () ()
(let* ((frames (group-frames (current-group)))
(win (frame-window (car (last frames)))))
(shift-windows-forward frames win)))
;; swap 2 windows
(define-key *root-map* (kbd "q") "rotate-windows")
;; mode line
;; (enable-mode-line (current-screen) (current-head) t)
(setf *mouse-focus-policy* :sloppy) ;; :click, :ignore, :sloppy
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment