New revision in http://www-verimag.imag.fr/~moy/bzr/dvc/moy/
------------------------------------------------------------
revno: 556
revision-id: [email protected]
parent: [email protected]
committer: Matthieu Moy <[email protected]>
branch nick: moy
timestamp: Thu 2009-08-06 15:10:43 +0200
message:
a major mode to edit log messages in xgit
=== modified file 'lisp/dvc-log.el'
--- a/lisp/dvc-log.el 2009-01-09 16:43:44 +0000
+++ b/lisp/dvc-log.el 2009-08-06 13:10:43 +0000
@@ -142,7 +142,7 @@
(set-buffer-modified-p nil))
(rename-buffer buffer-name)
(setq dvc-partner-buffer start-buffer)
- (dvc-log-edit-mode)))))
+ (dvc-call "log-edit-mode")))))
(defun dvc-log-edit-abort ()
"Abort the current log edit."
=== added file 'lisp/xgit-log-edit.el'
--- a/lisp/xgit-log-edit.el 1970-01-01 00:00:00 +0000
+++ b/lisp/xgit-log-edit.el 2009-08-06 13:10:43 +0000
@@ -0,0 +1,72 @@
+;;; xgit-log-edit.el --- Major mode to edit commit messages for git
+
+;; Copyright (C) 2009 Matthieu Moy
+
+;; Author: Matthieu Moy <[email protected]>
+;; Keywords: git
+
+;; 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:
+
+;;
+
+;;; Code:
+
+;;;###autoload
+(add-to-list 'auto-mode-alist '("/COMMIT_EDITMSG$" . xgit-log-edit-mode))
+
+(easy-menu-define xgit-log-edit-mode-menu xgit-log-edit-mode-map
+ "`xgit-log-edit-mode' menu"
+ '("Log"
+ ["Insert Signed-Off-By:" xgit-log-edit-insert-sob t]
+ ))
+
+(defvar xgit-log-edit-mode-map
+ (let ((map (make-sparse-keymap)))
+ (define-key map [(control ?c) (control ?s)] 'xgit-log-edit-insert-sob)
+ map)
+ "Keymap used in `xgit-log-edit-mode' buffers.")
+
+(defvar xgit-log-edit-font-lock-keywords
+ `(("^Signed-Off-By: " . 'dvc-header)
+ ("^#.*$" . 'dvc-comment)
+ "Keywords in xgit-log-edit mode."))
+
+(defun xgit-log-edit-insert-sob ()
+ (interactive)
+ (goto-char (point-max))
+ (re-search-backward "^[^#\n]")
+ (end-of-line)
+ (newline 2)
+ (insert "Signed-Off-By: " user-full-name " <" user-mail-address ">"))
+
+;;;###autoload
+(define-derived-mode xgit-log-edit-mode dvc-log-edit-mode "xgit-log-edit"
+ "Major Mode to edit xgit log messages.
+Commands:
+\\{xgit-log-edit-mode-map}
+"
+ (use-local-map xgit-log-edit-mode-map)
+ (easy-menu-add xgit-log-edit-mode-menu)
+ (dvc-install-buffer-menu)
+ (set (make-local-variable 'font-lock-defaults)
+ '(xgit-log-edit-font-lock-keywords t))
+ (set (make-local-variable 'comment-start) "#")
+ (set (make-local-variable 'comment-end) "")
+ (setq fill-column 73)
+ (run-hooks 'xgit-log-edit-mode-hook))
+
+(provide 'xgit-log-edit)
+;;; xgit-log-edit.el ends here
_______________________________________________
Dvc-dev mailing list
[email protected]
https://mail.gna.org/listinfo/dvc-dev
