diff options
author | Tom Willemsen | 2012-10-16 22:47:48 +0200 |
---|---|---|
committer | Tom Willemsen | 2012-10-16 22:47:48 +0200 |
commit | 8866cc66c3d7055209a3027653aa2c247ba3aad5 (patch) | |
tree | ba69dd28cd39606d24a53e2ed8708dbeff5f0a44 | |
parent | b585ff11d0675332f090d120624df82368ff0362 (diff) | |
download | gitto-8866cc66c3d7055209a3027653aa2c247ba3aad5.tar.gz gitto-8866cc66c3d7055209a3027653aa2c247ba3aad5.zip |
Add emacs interface
Only has a `gitto-register' function for now. Just a start.
-rw-r--r-- | emacs/gitto.el | 46 |
1 files changed, 46 insertions, 0 deletions
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 <thomas@aethon.nl> +;; 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 <http://www.gnu.org/licenses/>. + +;;; 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 |