ryuslash/legacy-dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

.xbindkeysrc.scm

Browse source
This commit is contained in:
Tom Willemsen 2012-02-23 17:02:11 +01:00
parent c834bfb4b5
commit 3cb9146b91
1 changed files with 11 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
.xbindkeysrc.scm
View file

@ -1,8 +1,8 @@
;; -*- eval: (git-auto-commit-mode 1) -*- ;;;_ Import
(use-modules (ice-9 popen) (use-modules (ice-9 popen)
(ice-9 rdelim)) (ice-9 rdelim))
;;; Variables ;;;_ Variables
(define modkey 'mod4) (define modkey 'mod4)
(define dmenu-font (define dmenu-font
"-misc-tamsyn-medium-r-normal-*-14-*-*-*-*-*-iso8859-*") "-misc-tamsyn-medium-r-normal-*-14-*-*-*-*-*-iso8859-*")
@ -22,7 +22,7 @@
(define previous-tag '()) (define previous-tag '())
(define current-tag "default") (define current-tag "default")
;;; Macros ;;;_ Macros
(define-macro (cmd command) (define-macro (cmd command)
`(lambda () `(lambda ()
(run-command ,command) (run-command ,command)
@ -36,7 +36,7 @@
(xbindkey-function `(,modkey g) reset-main-binding) (xbindkey-function `(,modkey g) reset-main-binding)
(grab-all-keys))) (grab-all-keys)))
;;; Functions ;;;_ Functions
(define (reset-main-binding) (define (reset-main-binding)
"reset first binding" "reset first binding"
(close-gui-window) (close-gui-window)
@ -123,7 +123,7 @@
(close-pipe dzen-pipe) (close-pipe dzen-pipe)
(set! dzen-pipe '()))) (set! dzen-pipe '())))
;;; Maps ;;;_ Maps
(define (main-binding) (define (main-binding)
"First binding" "First binding"
(xbindkey `(,modkey shift "1") (string-append "dmenu_run -p 'Run:' " dmenu-args)) (xbindkey `(,modkey shift "1") (string-append "dmenu_run -p 'Run:' " dmenu-args))
@ -190,5 +190,10 @@
(xbindkey `(,modkey f) "herbstclient resize right +0.05") (xbindkey `(,modkey f) "herbstclient resize right +0.05")
(xbindkey-function '(Return) reset-main-binding)) (xbindkey-function '(Return) reset-main-binding))
;;; Main ;;;_ Main
(main-binding) (main-binding)
;;;_ Local Variables
;; Local Variables:
;; eval: (git-auto-commit-mode 1)
;; End: