From 3cb9146b919ceeda8fdec167b2970c826d8c5936 Mon Sep 17 00:00:00 2001
From: Tom Willemsen <tom@ryuslash.org>
Date: Thu, 23 Feb 2012 17:02:11 +0100
Subject: [PATCH] .xbindkeysrc.scm

---
 .xbindkeysrc.scm | 17 +++++++++++------
 1 file 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: