[emacs-wiki-discuss] Re: vc and planner?

[Jody Klymak]

Hi All,

I modified planner-log-edit to make entries like:

****
.#1 Commit [[/Users/jklymak/emacs-common/planner-config.el]] 1.10

Modified log-edit to be the way I like it
*****

The following code does this, in case anyone else was interested.  It
does not handle multiple files because I don't use VC that way.  I
just use RCS to keep versions of text files - matlab scripts, LaTeX
docs, etc.

The default function crashed on my emacs anyways; all the module-name
code had to be removed, perhaps because I do not have module names:

;; log edit (VC) and planner
(require 'planner-log-edit);

(defvar jmk-vc-filename nil
"Variable to keep vc file name")

(defadvice vc-log-edit (before jmk activate)
  "Schedule next task if there are no other unfinished tasks for this project."
  (setq jmk-vc-filename file))

;; redefine log-edit-add-note...
(defun planner-log-edit-add-note ()
  "Add a note describing the commit to the current planner page."
  (let* ((buffer (current-buffer))
         (files (log-edit-files))
         ;; This should be a function call into log-edit, but until it
         ;; exists ...
;;       (module-name (when (fboundp 'cvs-get-module) (cvs-get-module))))
         (module-name nil))
    (if (if (functionp planner-log-edit-notice-commit-function)
            (funcall planner-log-edit-notice-commit-function)
          planner-log-edit-notice-commit-function)
        (save-excursion
          (save-window-excursion
            (planner-create-note nil)
            (insert "Commit [[")
            (insert jmk-vc-filename)
            (insert "]] ")
            (insert (vc-workfile-version jmk-vc-filename))
;;            (newline)
            (when planner-log-edit-include-files-flag
              (newline)(newline))
            (insert-buffer-substring buffer))))))

-- 
Jody Klymak      http://opg1.ucsd.edu/~jklymak/
mailto:address@hidden