diff options
| author |  Tom Willemsen | 2012-02-23 17:02:11 +0100 |
|---|---|---|
| committer | Tom Willemsen | 2012-02-23 17:02:11 +0100 |
| commit | 3cb9146b919ceeda8fdec167b2970c826d8c5936 (patch) | |
| tree | 8d971b0e38214757c6ec881fbbcda5af12fcddfb /.xbindkeysrc.scm | |
| parent | c834bfb4b5fca06ac0255da05dcabe6e28d6f68d (diff) | |
| download | dotfiles-3cb9146b919ceeda8fdec167b2970c826d8c5936.tar.gz dotfiles-3cb9146b919ceeda8fdec167b2970c826d8c5936.zip | |
.xbindkeysrc.scm
Diffstat (limited to '.xbindkeysrc.scm')
| -rw-r--r-- | .xbindkeysrc.scm | 17 |
1 files changed, 11 insertions, 6 deletions
diff --git a/.xbindkeysrc.scm b/.xbindkeysrc.scm index 79addce..93510ff 100644 --- a/.xbindkeysrc.scm +++ b/.xbindkeysrc.scm @@ -1,8 +1,8 @@ -;; -*- eval: (git-auto-commit-mode 1) -*- +;;;_ Import (use-modules (ice-9 popen) (ice-9 rdelim)) -;;; Variables +;;;_ Variables (define modkey 'mod4) (define dmenu-font "-misc-tamsyn-medium-r-normal-*-14-*-*-*-*-*-iso8859-*") @@ -22,7 +22,7 @@ (define previous-tag '()) (define current-tag "default") -;;; Macros +;;;_ Macros (define-macro (cmd command) `(lambda () (run-command ,command) @@ -36,7 +36,7 @@ (xbindkey-function `(,modkey g) reset-main-binding) (grab-all-keys))) -;;; Functions +;;;_ Functions (define (reset-main-binding) "reset first binding" (close-gui-window) @@ -123,7 +123,7 @@ (close-pipe dzen-pipe) (set! dzen-pipe '()))) -;;; Maps +;;;_ Maps (define (main-binding) "First binding" (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-function '(Return) reset-main-binding)) -;;; Main +;;;_ Main (main-binding) + +;;;_ Local Variables +;; Local Variables: +;; eval: (git-auto-commit-mode 1) +;; End: |