From d3ddb34bdc2eb5529d98d4b9f9413a04494b2415 Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Tue, 10 Jan 2012 21:32:50 +0100
Subject: Use relative path for commit message

---
 git-auto-commit-mode.el | 21 ++++++++++++++++++---
 1 file changed, 18 insertions(+), 3 deletions(-)

diff --git a/git-auto-commit-mode.el b/git-auto-commit-mode.el
index 5d2b840..d3bb5e7 100644
--- a/git-auto-commit-mode.el
+++ b/git-auto-commit-mode.el
@@ -1,8 +1,23 @@
+(defun git-auto-commit-relative-file-name (filename)
+  "Find the path to the filename relative to the git directory"
+  (let* ((git-dir
+          (replace-regexp-in-string
+           "\n+$" "" (shell-command-to-string
+                      "git rev-parse --show-toplevel")))
+         (relative-file-name
+          (replace-regexp-in-string
+           "^/" "" (replace-regexp-in-string
+                    git-dir "" filename))))
+    relative-file-name))
+
 (defun git-auto-commit ()
   "Commit `buffer-file-name` to git"
-  (let ((filename (buffer-file-name)))
-    (shell-command (concat "git add " filename
-                           " && git commit -m '" filename "'"))))
+  (let* ((filename (buffer-file-name))
+         (relative-filename
+          (git-auto-commit-relative-file-name filename)))
+    (shell-command
+     (concat "git add " filename
+             " && git commit -m '" relative-filename "'"))))
 
 (define-minor-mode git-auto-commit-mode
   "Automatically commit any changes made when saving with this mode
-- 
cgit v1.2.3-70-g09d2