Конфиг:xbindkeys.scm: различия между версиями

Материал из Linux Wiki
Перейти к навигацииПерейти к поиску
(Создана новая страница размером <source lang="scheme"> (define (aosd-echo text) (define osdcmd "aosd_cat -x 0 -y 0 -t 2 -p 1 -n Consolas\\ 22 -f 100 -u 2000 -o 200 -R w...)
 
Строка 33: Строка 33:
(switch-to-desk 8)
(switch-to-desk 8)
</source>
</source>
[[Category:Конфиг-файл]]

Версия 15:45, 29 мая 2009

(define (aosd-echo text)
  (define osdcmd "aosd_cat -x 0 -y 0 -t 2 -p 1 -n Consolas\\ 22 -f 100 -u 2000 -o 200 -R white -l 5")
  (run-command (string-append "echo $@ " text "|" osdcmd)))

(define (run-and-osd keys cmd osd-text)
  (xbindkey-function keys
                     (lambda () 
                       (run-command cmd)
                       (aosd-echo osd-text))))


(xbindkey '(mod4 r) "/home/dk/bin/rundmenu")
(xbindkey '(mod4 w) "/home/dk/bin/windmenu")
(xbindkey '(mod4 f) "/home/dk/bin/dmenfm")
(xbindkey '(mod4 l) "xscreensaver-command -lock || (xscreensaver -no-splash & xscreensaver-command -lock)")
(xbindkey '(mod4 t) "urxvt")
;;(xbindkey 'XF86AudioNext "mocp -f")
;;(xbindkey 'XF86AudioPrev "mocp -r")
;;(xbindkey 'XF86AudioPlay "mocp -G")
;;(xbindkey 'XF86AudioStop "mocp -s")
;;(xbindkey 'XF86AudioStop "mocp -s")
;;(xbindkey 'XF86AudioMedia "urxvt -e mocp -y")
(run-and-osd '(mod4 g) "gvim" "Gvim running")


(define (switch-to-desk number)
  (if (>= number 0)
    (begin
      (xbindkey (list 'mod4 (string-append "c:1" (number->string number))) (string-append "wmctrl -s " (number->string number)))
      (switch-to-desk (- number 1)))))
    
(switch-to-desk 8)