From 8866cc66c3d7055209a3027653aa2c247ba3aad5 Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Tue, 16 Oct 2012 22:47:48 +0200 Subject: Add emacs interface Only has a `gitto-register' function for now. Just a start. --- emacs/gitto.el | 46 ++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 46 insertions(+) create mode 100644 emacs/gitto.el (limited to 'emacs/gitto.el') diff --git a/emacs/gitto.el b/emacs/gitto.el new file mode 100644 index 0000000..90fcf50 --- /dev/null +++ b/emacs/gitto.el @@ -0,0 +1,46 @@ +;;; gitto.el --- Gitto in emacs + +;; Copyright (C) 2012 Tom Willemsen + +;; Author: Tom Willemsen +;; Keywords: convenience +;; Package-Version: 0.1.0 + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program. If not, see . + +;;; Commentary: + +;; Small interface between gitto and emacs. + +;;; Code: + +(defgroup gitto nil + "Gitto settings." + :group 'applications) + +(defcustom gitto-program "gitto" + "The gitto executable." + :group 'gitto + :type 'string) + +;;;###autoload +(defun gitto-register (dir) + (interactive (list (locate-dominating-file (buffer-file-name) ".git"))) + (unless dir + (error "Not a git repository.")) + + (shell-command (concat gitto-program " -r " dir))) + +(provide 'gitto) +;;; gitto.el ends here -- cgit v1.2.3-54-g00ecf