Saturday, October 31, 2009

more on .stumpwmrc

(in-package :stumpwm)
;;(setf *new-window-preferred-frame* :empty)
(setf *mouse-focus-policy* :sloppy)
;; really messed stuff up check this (set-prefix-key (kbd "F20")) ; F20 = start key i think?

(defcommand windowlist-pull (&optional (fmt *window-format*)) (:rest)
(if (null (group-windows (current-group)))
(message "No Managed Windows")
(let* ((group (current-group))
(window (select-window-from-menu (sort-windows group) fmt)))
(if window
(pull-window window)
(throw 'error :abort)))))
(define-key *root-map* (kbd "C-z") "windowlist-pull")



(defcommand conkeror () () (run-shell-command "conkeror"))
(define-key *root-map* (kbd "c") "conkeror")
(defcommand konsole () () (run-shell-command "konsole"))
(define-key *root-map* (kbd "x") "konsole")
(defcommand emacsa () () (run-shell-command "emacs"))
(define-key *root-map* (kbd "e") "emacsa")
(defcommand iceweasel () () (run-shell-command "iceweasel"))
(define-key *root-map* (kbd "i") "iceweasel")

3 comments:

VIVI 情趣精品 said...

情趣商品,情趣精品,情趣用品,情趣味用品,情趣用品坊,情趣用品店,情趣用品網站,情趣用品專賣店,情人趣味,情色遊戲

情人趣味用品,情趣,情色,色情,色遊戲,一夜情,色情網站,情色自拍,情人趣味愛蜜莉,情人趣味用品液,情人趣味用品轉

情人趣味用品娃,情人趣味用品珠,情人趣味用品店,情人趣味用品控制,情人趣味用品轉珠,情去商品,情趣禮物,情人節

情趣用具,情趣網,情趣用性品,情趣性用品,情趣用品爽翻天,情趣爽翻天,情趣內衣,情趣椅,情趣貼圖,情趣睡衣,情色小說

VIVI 情趣精品 said...

飛機杯,按摩棒,自慰套,SM,吊帶襪,潤滑液,跳蛋,性感睡衣,充氣娃娃,角色扮演,G點,高潮,性感,威而柔,跳蛋情人趣味

跳蛋情人,跳蛋影片,跳蛋變頻,跳蛋調情,按摩情人趣味,按摩器,按摩椅,按摩半套,按摩全套,按摩精油,吊帶襪影片

自衛方法,自衛棒,自慰器專賣店,自衛器,自衛杯,自慰器,自慰杯,自慰棒,吊帶襪美女,潤滑情人趣味,潤滑油,潤滑劑

潤滑液用品,充氣情人趣味,充氣玩具,角色情人趣味,角色扮演遊戲,角色扮演服裝,震動情人趣味,震動保險套,震動器

逼真情人趣味,保險套,保險套情人趣味,性感內衣

VIVI 情趣精品 said...

情趣商品,情趣精品,情趣用品,情趣味用品,情趣用品坊,情趣用品店,情趣用品網站,情趣用品專賣店,情人趣味,情色遊戲

情人趣味用品,情趣,情色,色情,色遊戲,一夜情,色情網站,情色自拍,情人趣味愛蜜莉,情人趣味用品液,情人趣味用品轉

情人趣味用品娃,情人趣味用品珠,情人趣味用品店,情人趣味用品控制,情人趣味用品轉珠,情去商品,情趣禮物,情人節

情趣用具,情趣網,情趣用性品,情趣性用品,情趣用品爽翻天,情趣爽翻天,情趣內衣,情趣椅,情趣貼圖,情趣睡衣,情色小說