ttn pushed a commit to branch ttn-gnugo
in repository elpa.
commit 47c7037bdf74e6cc92481def35bf59058ce28bb8
Author: Thien-Thi Nguyen <t...@gnu.org>
Date: Tue Feb 18 10:57:42 2014 +0100
[gnugo maint] Zonk ChangeLog; nfc.
This commit will not be included in the "next (first)" release.
Likewise the branch will be stripped of ChangeLog-related hunks.
(See HACKING.)
For the (to be ultimately removed :-D) record, henceforth
commit-message-via-ChangeLog machinery is handled by the code:
| (defvar pseudo-ChangeLog-filename ".ttn.ChangeLog")
|
| (defun find-relevant-ChangeLog-files (relative-file-names)
| (or (remove-if-not (lambda (s)
| (string-match "ChangeLog$" s))
| relative-file-names)
| (let ((maybe (delete-dups (mapcar 'file-name-directory
| relative-file-names)))
| ok)
| (while maybe
| (let* ((dir (pop maybe))
| ;; hmm: maybe ‘expand-file-name’ (absolute) is ok, too
| (fn (concat dir pseudo-ChangeLog-filename)))
| (cond ((file-exists-p fn) (push fn ok))
| ((not dir))
| (t (push (file-name-directory
| (directory-file-name dir))
| maybe)))))
| (delete-dups ok))
| (error "No ChangeLog files")))
|
| (defun compute-commit-log-text (relative-file-names)
| (let ((changelogs (find-relevant-ChangeLog-files relative-file-names))
| head body)
| (dolist (fn changelogs)
| (with-temp-buffer
| (insert-file-contents fn)
| (search-forward "\n\n" nil nil 2)
| (push (buffer-substring (point-min) (point)) head)
| (unless (or (null (cdr head))
| (string= (car head) (cadr head)))
| (error "head mismatch for %s" fn))
| (push (buffer-substring
| (point) (progn (re-search-forward
change-log-start-entry-re)
| (match-beginning 0)))
| body)))
| (setq head (car head)
| head (and (string-match "\n\n\t" head)
| (substring head (match-end 0)))
| body (map 'list
| (lambda (fn bod)
| (let ((pre (file-name-directory fn)))
| (with-temp-buffer
| (insert bod)
| (goto-char (point-min))
| (while (search-forward "\t* " nil 1)
| (when pre
| (insert pre)))
| (while (re-search-backward "^\t" nil t)
| (delete-char 1))
| (buffer-string))))
| (nreverse changelogs)
| body))
| (cons head body)))
|
| (defun git-scan-log-buffer-and-insert-commit-log ()
| (interactive)
| (apply 'insert (compute-commit-log-text log-edit-initial-files)))
|
| (defun ttn-set-default-directory-to-project-root ()
| (setq default-directory
| (expand-file-name (vc-find-root default-directory
| ".git"))))
|
| (add-hook 'log-edit-mode-hook 'ttn-set-default-directory-to-project-root)
|
| (eval-after-load "log-edit"
| '(define-key log-edit-mode-map "\C-c\C-d"
| 'git-scan-log-buffer-and-insert-commit-log))
Probably it is a good idea to polish this up, removing
(or making customizable) the last vestiges of hardcoded
ttn-style elements, and either publishing an ELPA package,
or folding it into Emacs proper.
* packages/gnugo/ChangeLog: Delete file.
---
packages/gnugo/ChangeLog | 243 ----------------------------------------------
1 files changed, 0 insertions(+), 243 deletions(-)
diff --git a/packages/gnugo/ChangeLog b/packages/gnugo/ChangeLog
deleted file mode 100644
index aad79b2..0000000
--- a/packages/gnugo/ChangeLog
+++ /dev/null
@@ -1,243 +0,0 @@
-2014-02-17 Thien-Thi Nguyen <t...@gnu.org>
-
- [gnugo] Don't show underscore in group-animation message.
-
- * gnugo.el (gnugo-animate-group):
- Don't take COMMAND; instead, take W/D, a symbol;
- construct command w/ it; rework messages accordingly.
- (gnugo-worm-stones): Update call to ‘gnugo-animate-group’.
- (gnugo-dragon-stones): Likewise.
-
-2014-02-16 Thien-Thi Nguyen <t...@gnu.org>
-
- [gnugo] Fix bug: Relax sync regexp.
-
- * gnugo.el (gnugo-merge-showboard-results): ...here,
- to handle certain increases in captured stones count.
-
-2014-02-15 Thien-Thi Nguyen <t...@gnu.org>
-
- [gnugo int] Revamp gnugo-{put,get} doc / indentation decl.
-
- * gnugo.el (gnugo-put): Move shared docstring here;
- specialize it; replace top-level direct symbol-plist
- assignment w/ an internal ‘declare’ form for indentation.
- (gnugo-get): Add docstring.
-
-2014-02-15 Thien-Thi Nguyen <t...@gnu.org>
-
- [gnugo int] Use ‘dolist’ and ‘destructuring-bind’.
-
- * gnugo.el (gnugo-board-mode): ...here,
- instead of ‘mapc’ and ‘apply (lambda () ...)’.
-
-2014-02-15 Thien-Thi Nguyen <t...@gnu.org>
-
- [gnugo int] Use ‘set-process-query-on-exit-flag’.
-
- * gnugo.el (gnugo-board-mode): ...here,
- instead of avoiding ‘process-kill-buffer-query-function’.
-
-2014-02-15 Thien-Thi Nguyen <t...@gnu.org>
-
- [gnugo int] Zonk unused local var.
-
- * gnugo.el (gnugo-command): ...here, named ‘last-message’.
-
-2014-02-14 Thien-Thi Nguyen <t...@gnu.org>
-
- [gnugo] Use ‘user-error’.
-
- * gnugo.el (gnugo-gate)
- (gnugo-synchronous-send/return, gnugo-toggle-image-display)
- (gnugo-position, gnugo-pass, gnugo-animate-group)
- (gnugo-toggle-dead-group, gnugo-write-sgf-file)
- (gnugo-read-sgf-file, gnugo-magic-undo)
- (gnugo-display-final-score, gnugo-board-mode): ...here.
-
-2014-02-13 Thien-Thi Nguyen <t...@gnu.org>
-
- [gnugo int] Add abstraction: gnugo--unclose-game
-
- * gnugo.el (gnugo--unclose-game): New func.
- (gnugo-magic-undo): Use it.
- (boardsize, clear_board, fixed_handicap):
- Likewise, in the value of the ‘:post-thunk’ property.
-
-2014-02-11 Thien-Thi Nguyen <t...@gnu.org>
-
- [gnugo] Indicate buffer not modified after load.
-
- * gnugo.el (gnugo-read-sgf-file):
- Clear buffer-modified state at end.
-
-2014-02-07 Thien-Thi Nguyen <t...@gnu.org>
-
- [gnugo int] Drop leading "*" in docstrings.
-
- * gnugo.el (gnugo-program, gnugo-board-mode-hook)
- (gnugo-post-move-hook, gnugo-animation-string, gnugo-mode-line)
- (gnugo-X-face, gnugo-O-face, gnugo-grid-face): ...here.
-
-2014-02-07 Thien-Thi Nguyen <t...@gnu.org>
-
- [gnugo int] Hang the sync-return-stash on the process object.
-
- * gnugo.el (gnugo-synchronous-send/return):
- Don't use ‘gnugo-put’, ‘gnugo-get’; instead, use
- ‘process-put’, ‘process-get’ with property ‘:srs’.
-
-2014-02-07 Thien-Thi Nguyen <t...@gnu.org>
-
- [gnugo] Give names and docstrings to ‘lambda’ commands.
-
- * gnugo.el (gnugo-quit, gnugo-leave-me-alone)
- (gnugo-fancy-undo, gnugo-toggle-image-display-command)
- (gnugo-describe-position): New commands.
- (gnugo-board-mode-map): Bind ‘q’, ‘Q’, ‘U’, ‘i’, ‘=’ to them.
-
-2014-02-06 Thien-Thi Nguyen <t...@gnu.org>
-
- [gnugo int] Use cl-{plus,minus}p more.
-
- * gnugo.el (gnugo-merge-showboard-results)
- (gnugo-venerate, gnugo-refresh, gnugo-magic-undo)
- (gnugo-board-mode, gnugo, GTP undo, GTP gg-undo):
- Use ‘cl-plusp’ and ‘cl-minusp’ instead of comparison against 0.
-
-2014-02-06 Thien-Thi Nguyen <t...@gnu.org>
-
- [gnugo int] Use ‘number-sequence’ more.
-
- * gnugo.el (gnugo-animate-group):
- For image display ‘spec’ handling, don't map over
- an exploded string, ignoring the individual characters,
- and manually toggling the state; instead, map over an
- integer, using the number's divisibility by two to select.
-
-2014-02-06 Thien-Thi Nguyen <t...@gnu.org>
-
- [gnugo int] Drop unused local var.
-
- * gnugo.el (gnugo-venerate): ...here, named ‘lb’.
-
-2014-02-05 Thien-Thi Nguyen <t...@gnu.org>
-
- [gnugo gtp int] Use :post-thunk instead of :post-hook.
-
- * gnugo.el (gnugo-command):
- Consult :post-thunk, if set, ‘funcall’ the value.
- (:gnugo-gtp-command-spec add): Delete.
- (:gnugo-gtp-command-spec defgtp): Use ‘jam’ unconditionally.
- (:gnugo-gtp-command-spec): Do ‘s/:post-hook/:post-thunk/g’.
-
-2014-02-05 Thien-Thi Nguyen <t...@gnu.org>
-
- [gnugo int] Avoid variable FORMAT for ‘message’.
-
- We don't want weirdness should the variable value include ‘?%’.
-
- * gnugo.el (gnugo-command): Don't use var as
- ‘message’ first arg; instead say ‘(message "%s" ...)’.
-
-2014-02-03 Thien-Thi Nguyen <t...@gnu.org>
-
- [gnugo] Indicate buffer not modified after save.
-
- * gnugo.el (gnugo-animate-group): Use current
- value of ‘buffer-modified-p’ in loop instead of ‘t’.
- (gnugo-write-sgf-file): Clear buffer-modified state.
-
-2014-01-31 Thien-Thi Nguyen <t...@gnu.org>
-
- [gnugo int] Use ‘(split-string STR SEP t)’.
-
- * gnugo.el (gnugo-animate-group): ...here,
- instead of manually deleting the empty strings
- returned from a two-arg call to ‘split-string’.
-
-2014-01-31 Thien-Thi Nguyen <t...@gnu.org>
-
- [gnugo int] Use ‘display’ property more.
-
- * gnugo.el (gnugo-toggle-image-display): ...here,
- with ‘(space :width 0)’, instead of ‘invisible’.
-
-2014-01-31 Thien-Thi Nguyen <t...@gnu.org>
-
- [gnugo int] Use ‘redisplay’ more.
-
- * gnugo.el (gnugo-magic-undo):
- ...here, instead of ‘(sit-for 0)’.
-
-2014-01-31 Thien-Thi Nguyen <t...@gnu.org>
-
- [gnugo doc] Document version-number scheme.
-
- * gnugo.el (gnugo-version): Rewrite docstring.
-
-2014-01-30 Thien-Thi Nguyen <t...@gnu.org>
-
- [gnugo] Don't use ‘process-kill-buffer-query-function’.
-
- * gnugo.el (gnugo-board-mode):
- Make ‘kill-buffer-query-functions’ buffer-local and
- then remove ‘process-kill-buffer-query-function’ from it.
-
-2014-01-30 Thien-Thi Nguyen <t...@gnu.org>
-
- [gnugo] Wait at most 30sec for subproc output chunk.
-
- * gnugo.el (gnugo-synchronous-send/return):
- Specify TIMEOUT of 30 seconds to ‘accept-process-output’.
-
-2014-01-30 Thien-Thi Nguyen <t...@gnu.org>
-
- [gnugo int] Use ‘zerop’.
-
- * gnugo.el (gnugo-cleanup)
- (gnugo-magic-undo, gnugo-board-mode): ...here.
-
-2014-01-30 Thien-Thi Nguyen <t...@gnu.org>
-
- [gnugo] Presume "modern" GNU Emacs.
-
- * gnugo.el (delete-dups, window-edges):
- Delete these conditionally-‘defun’ed funcs.
-
-2014-01-30 Thien-Thi Nguyen <t...@gnu.org>
-
- [gnugo] Presume working time-date.el.
-
- * gnugo.el: Require ‘time-date’ w/o ignoring errors.
- (time-subtract): Delete conditionally-‘defun’ed func.
-
-2014-01-30 Thien-Thi Nguyen <t...@gnu.org>
-
- [gnugo] Use ‘cl-labels’ instead of ‘flet’.
-
- * gnugo.el: Don't require ‘cl’;
- instead, require ‘cl-lib’; do ‘s/flet/cl-labels/g’.
- (gnugo-note): Use #'mog instead of 'mog as ‘mapcar’ 1st arg.
- (gnugo-toggle-dead-group): Use #'populate.
- (:gnugo-gtp-command-spec defgtp): Use #'jam, #'add.
- (gnugo/sgf-write-file): Use #'one, #'two.
-
-2014-01-28 Thien-Thi Nguyen <t...@gnu.org>
-
- [gnugo] Adapt copyright notice to FSF, headers to ELPA.
-
- * gnugo.el: ...here.
-
-2014-01-28 Thien-Thi Nguyen <t...@gnu.org>
-
- Import gnugo.el from ttn-pers-elisp 1.59.
-
- * gnugo.el: New file.
- (gnugo-version): Bump to "2.2.14".
-
-
-Copyright (C) 2014 Free Software Foundation, Inc.
-
-Copying and distribution of this file, with or without modification,
-are permitted provided the copyright notice and this notice are preserved.
