.xbindkeysrc.scm

.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: