[elpa] 02/03: [gnugo maint] Zonk ChangeLog; nfc.

[Thien-Thi Nguyen]

ttn pushed a commit to branch ttn-gnugo
in repository elpa.

commit 47c7037bdf74e6cc92481def35bf59058ce28bb8
Author: Thien-Thi Nguyen <address@hidden>
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  <address@hidden>
-
-       [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  <address@hidden>
-
-       [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  <address@hidden>
-
-       [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  <address@hidden>
-
-       [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  <address@hidden>
-
-       [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  <address@hidden>
-
-       [gnugo int] Zonk unused local var.
-
-       * gnugo.el (gnugo-command): ...here, named ‘last-message’.
-
-2014-02-14  Thien-Thi Nguyen  <address@hidden>
-
-       [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  <address@hidden>
-
-       [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  <address@hidden>
-
-       [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  <address@hidden>
-
-       [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  <address@hidden>
-
-       [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  <address@hidden>
-
-       [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  <address@hidden>
-
-       [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  <address@hidden>
-
-       [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  <address@hidden>
-
-       [gnugo int] Drop unused local var.
-
-       * gnugo.el (gnugo-venerate): ...here, named ‘lb’.
-
-2014-02-05  Thien-Thi Nguyen  <address@hidden>
-
-       [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  <address@hidden>
-
-       [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  <address@hidden>
-
-       [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  <address@hidden>
-
-       [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  <address@hidden>
-
-       [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  <address@hidden>
-
-       [gnugo int] Use ‘redisplay’ more.
-
-       * gnugo.el (gnugo-magic-undo):
-       ...here, instead of ‘(sit-for 0)’.
-
-2014-01-31  Thien-Thi Nguyen  <address@hidden>
-
-       [gnugo doc] Document version-number scheme.
-
-       * gnugo.el (gnugo-version): Rewrite docstring.
-
-2014-01-30  Thien-Thi Nguyen  <address@hidden>
-
-       [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  <address@hidden>
-
-       [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  <address@hidden>
-
-       [gnugo int] Use ‘zerop’.
-
-       * gnugo.el (gnugo-cleanup)
-       (gnugo-magic-undo, gnugo-board-mode): ...here.
-
-2014-01-30  Thien-Thi Nguyen  <address@hidden>
-
-       [gnugo] Presume "modern" GNU Emacs.
-
-       * gnugo.el (delete-dups, window-edges):
-       Delete these conditionally-‘defun’ed funcs.
-
-2014-01-30  Thien-Thi Nguyen  <address@hidden>
-
-       [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  <address@hidden>
-
-       [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  <address@hidden>
-
-       [gnugo] Adapt copyright notice to FSF, headers to ELPA.
-
-       * gnugo.el: ...here.
-
-2014-01-28  Thien-Thi Nguyen  <address@hidden>
-
-       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.