Kenneth Jacker wrote:
> jody> I ... keep track of checked-in/checked RCS out files ...
>
> Hmmm ... I hadn't thought of that.
>
> Could you (please) summarize how/what you do?
Hi,
I think this is all of the relevant info. I'm not sure you need to
redefine log-edit-add-note as I have done. Mine gives me entries like
the following on my Project pages:
<quote>
.#1 Commit [[/Users/jklymak/flip/doc/NearfieldDiss/NearfieldDiss.tex]]
([[2006.08.09#1]])
1.1
Version to Rob before AESOP trip...
</quote>
where I am asked for a Project to put the note into. That notation is a
little messy - my Project pages look a little mucked up because of it.
Might be nice not to have the full file path displayed, but narrowing it
is beyond my lisp skills!
I'm sure someone helped me write this - probably Sacha Chua.
Cheers, Jody
;; 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))
(defvar planner-log-edit-add-xref t
"If non-nil makes attaches the note to a plan page")
;; redefine log-edit-add-note.
;; What I really want it to do is to associate with a plan page.
(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))
; (plan-page (planner-read-name (planner-file-alist)))
;; 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)
(planner-narrow-to-note)
(if planner-log-edit-add-xref
(remember-planner-add-xref))
(narrow-to-page))))))
_______________________________________________
Planner-el-discuss mailing list
[email protected]
https://mail.gna.org/listinfo/planner-el-discuss
