diff options
| -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 |