From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED!not-for-mail From: =?utf-8?B?Sm/Do28gVMOhdm9yYQ==?= Newsgroups: gmane.emacs.devel Subject: [PATCH] New option to make C-x 4 a use file-less ChangeLog buffers (was Re: git history tracking across renames (and emacs support)) Date: Sat, 14 Jul 2018 18:36:57 +0100 Message-ID: <87sh4lwwg6.fsf_-_@gmail.com> References: <87y3li4vh7.fsf@telefonica.net> <87efnan46u.fsf@linux-m68k.org> <86wp12qtgo.fsf@dod.no> <83tvw6chqv.fsf@gnu.org> <86shbprix7.fsf_-_@dod.no> <838t6jgl1k.fsf@gnu.org> <601m6cc6.fsf@lifelogs.com> <83o9fefnv9.fsf@gnu.org> <83in5lg4ol.fsf@gnu.org> <83efg9fxnj.fsf@gnu.org> <838t6hfa4h.fsf@gnu.org> <87h8l4lt9q.fsf@gmail.com> <831sc8fttu.fsf@gnu.org> NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: blaine.gmane.org 1531589896 32557 195.159.176.226 (14 Jul 2018 17:38:16 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Sat, 14 Jul 2018 17:38:16 +0000 (UTC) User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/27.0.50 (gnu/linux) Cc: larsi@gnus.org, cpitclaudel@gmail.com, tzz@lifelogs.com, emacs-devel@gnu.org To: Eli Zaretskii , monnier@iro.umontreal.ca Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Sat Jul 14 19:38:11 2018 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by blaine.gmane.org with esmtp (Exim 4.84_2) (envelope-from ) id 1feOUl-0008Ox-DP for ged-emacs-devel@m.gmane.org; Sat, 14 Jul 2018 19:38:11 +0200 Original-Received: from localhost ([::1]:42240 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1feOWs-0004Xu-Dz for ged-emacs-devel@m.gmane.org; Sat, 14 Jul 2018 13:40:22 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:41639) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1feOTk-0003E7-5X for emacs-devel@gnu.org; Sat, 14 Jul 2018 13:37:09 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1feOTf-0001Hh-6h for emacs-devel@gnu.org; Sat, 14 Jul 2018 13:37:08 -0400 Original-Received: from mail-wr1-x430.google.com ([2a00:1450:4864:20::430]:38024) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1feOTe-0001HO-Qj; Sat, 14 Jul 2018 13:37:03 -0400 Original-Received: by mail-wr1-x430.google.com with SMTP id m1-v6so15229589wrg.5; Sat, 14 Jul 2018 10:37:02 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=from:to:cc:subject:references:date:in-reply-to:message-id :user-agent:mime-version; bh=psXhFNPQeqoOA/auETuVXA0zzIvpTV4zDelk2mw59oE=; b=maDwnz1V5Fic4PgH9vXuf/oSPKSCICKWBXu/OC5OZFpHMuX47yYmyskDK5RAT5kbFh 2NQPVQvNPvhGzMHDtr/1ZgFk1xhVuGrmFhwQhymhQOopxoXJ5nou/F1xa13e+f3YMQMi 6Jg3qgWNPTRB5hvXO38l5hBVKmr8MiWSjcHoD5xJqf/NTp1RUQX6uxyScYj3DuvCX8gH BSceFvw105Te2q0d9IjzpzAPfdQlnUiAEln6DDMNslq4D8AcU7R3hZ4wUGawdjq+XPmq xLp5bDEJ5qBJJWnNbhbM1KlTmqpU/K8TqU+uLk7O4wvlAyDPL0AswvIuykwH/4lI8mlW xXpw== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:from:to:cc:subject:references:date:in-reply-to :message-id:user-agent:mime-version; bh=psXhFNPQeqoOA/auETuVXA0zzIvpTV4zDelk2mw59oE=; b=KOH9jem1sdAINDyQ2gSCQU+26/ga3ik/gJ+IKlgwUZZuSOs2pGgyswmc2bM2ckQz16 6db9zjK7tsCWHTacRzNsuPVZl0WllfAGYnoeS1bbz4IlwCKWuauZWl6KgYDqB4hADrc/ vEd6C1u8KEG5Dv7bkXqMkJrVKgN4UNDTESy8yceQj7dVO91W3nQ5SYf6mOt9JbTn4Njr lhmail+13TTLvd/LosVZdP3uoXs3OCJ7s0KJ0hFb46CVY7wLJeim8DmIungB2oRXx8wx YHIrphMaQf1oBEP5bbaA4W4yH8r5YNNa10QukdwnH/7NZCVgI52JmquWlWzFqAUhpLOw YKUg== X-Gm-Message-State: AOUpUlGVH8P7hIH2pZDEsd1L+9l1qbLG+n/u3X8es+ddfKaREMMrZq7F cVjhb5Zovp2dWE1F7HNS/EM= X-Google-Smtp-Source: AAOMgpcIHaRc6FAtD2WtZf+f0Tn5+5vkE2NYAUoGfZcmcbvNdOaVcw9CwzcrIz0bYmTG7ZXzdZk+uA== X-Received: by 2002:adf:c44c:: with SMTP id a12-v6mr8422527wrg.20.1531589821627; Sat, 14 Jul 2018 10:37:01 -0700 (PDT) Original-Received: from lolita.yourcompany.com (188.139.62.94.rev.vodafone.pt. [94.62.139.188]) by smtp.gmail.com with ESMTPSA id a184-v6sm9188849wmf.30.2018.07.14.10.36.59 (version=TLS1_2 cipher=ECDHE-RSA-CHACHA20-POLY1305 bits=256/256); Sat, 14 Jul 2018 10:37:00 -0700 (PDT) In-Reply-To: <831sc8fttu.fsf@gnu.org> (Eli Zaretskii's message of "Thu, 12 Jul 2018 16:48:45 +0300") X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-Received-From: 2a00:1450:4864:20::430 X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.21 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Original-Sender: "Emacs-devel" Xref: news.gmane.org gmane.emacs.devel:227411 Archived-At: --=-=-= Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Eli Zaretskii writes: > [...] perhaps add-log.el could be extended to be able to use a buffer > name, not just a file name, for where to put the log messages. It > already allows you to customize the file name; it could do something > similar with a buffer name, and that buffer could have no file name. > Then a large part of your problems would go away, AFAIU. Hi Eli, Find attached a patch that does exactly this. It is only lightly tested, so I need a clinical eye that I didn't break anything. Fortunately, it is quite short. Appropriately, I used it to compose the commit message (and I don't have any ChangeLog files lying around). If this is accepted, I can submit more patches for more related functionality. The next two I imagine, in this order, are: * C-c C-c (commit-time in vc-log) somehow disables the entries collected by C-c C-a in the ChangeLog buffer. * Use a single ChangeLog buffer indexed by projects (Stefan's idea) Thanks, Jo=C3=A3o --=-=-= Content-Type: text/x-diff Content-Disposition: inline; filename=0001-New-option-to-make-C-x-4-a-use-file-less-ChangeLog-b.patch >From 867540c9310ee12ca477e744571d93f56f5f888d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Jo=C3=A3o=20T=C3=A1vora?= Date: Sat, 14 Jul 2018 18:29:48 +0100 Subject: [PATCH] New option to make C-x 4 a use file-less ChangeLog buffers * lisp/vc/add-log.el (add-log-file-name): Update docstring. (add-log-use-pseudo-changelog): New defcustom. (add-log-find-changelog-buffer): New helper. (add-change-log-entry): Can work with ChangeLog file-less buffers. Change name of argument FILE-NAME arg to be more explicit. Explain new meaning of arg in docstring. (add-log--changelog-buffer-p): New helper. * lisp/vc/log-edit.el (log-edit-changelog-entries): Use add-log-use-pseudo-changelog and add-log-find-changelog-buffer. --- lisp/vc/add-log.el | 67 +++++++++++++++++++++++++++++++++++++-------- lisp/vc/log-edit.el | 6 ++-- 2 files changed, 59 insertions(+), 14 deletions(-) diff --git a/lisp/vc/add-log.el b/lisp/vc/add-log.el index 4d69aac454..983024327c 100644 --- a/lisp/vc/add-log.el +++ b/lisp/vc/add-log.el @@ -744,6 +744,7 @@ find-change-log file-name) (defun add-log-file-name (buffer-file log-file) + "Compute file-name of BUFFER-FILE as displayed in LOG-FILE." ;; Never want to add a change log entry for the ChangeLog file itself. (unless (or (null buffer-file) (string= buffer-file log-file)) (if add-log-file-name-function @@ -767,15 +768,49 @@ add-log-file-name (file-name-sans-versions buffer-file) buffer-file)))) +(defcustom add-log-use-pseudo-changelog nil + "If non-nil, don't create ChangeLog files for log entries." + :type :boolean) + +(put 'add-log-use-pseudo-changelog 'safe-local-variable 'booleanp) + +(defun add-log--pseudo-changelog-buffer-name (changelog-file-name) + "Compute suitable name for a pseudo-ChangeLog buffer." + (format "*PseudoChangeLog for %s*" + (file-name-directory changelog-file-name))) + +(defun add-log--changelog-buffer-p (changelog-file-name buffer) + "Tell if BUFFER is a ChangeLog for CHANGELOG-FILE-NAME." + (with-current-buffer buffer + (if buffer-file-name + (equal buffer-file-name changelog-file-name) + (equal (add-log--pseudo-changelog-buffer-name changelog-file-name) + (buffer-name))))) + +(defun add-log-find-changelog-buffer (changelog-file-name) + "Find a ChangeLog buffer for CHANGELOG-FILE-NAME. +Respect `add-log-use-pseudo-changelog', which see." + (if (or (file-exists-p changelog-file-name) + (not add-log-use-pseudo-changelog)) + (find-file-noselect changelog-file-name) + (get-buffer-create + (add-log--pseudo-changelog-buffer-name changelog-file-name)))) + ;;;###autoload -(defun add-change-log-entry (&optional whoami file-name other-window new-entry +(defun add-change-log-entry (&optional whoami + changelog-file-name + other-window new-entry put-new-entry-on-new-line) - "Find change log file, and add an entry for today and an item for this file. -Optional arg WHOAMI (interactive prefix) non-nil means prompt for user -name and email (stored in `add-log-full-name' and `add-log-mailing-address'). + "Find ChangeLog buffer, add an entry for today and an item for this file. +Optional arg WHOAMI (interactive prefix) non-nil means prompt for +user name and email (stored in `add-log-full-name' and +`add-log-mailing-address'). -Second arg FILE-NAME is file name of the change log. -If nil, use the value of `change-log-default-name'. +Second arg CHANGELOG-FILE-NAME is file name of the change log. +If nil, use the value of `change-log-default-name'. If the file +thus named exists, it's used for the new entry. If it doesn't +exist, it is created, unless `add-log-use-pseudo-changelog' in +which case a suitably named file-less buffer is used. Third arg OTHER-WINDOW non-nil means visit in other window. @@ -804,20 +839,28 @@ add-change-log-entry (change-log-version-number-search))) (buf-file-name (funcall add-log-buffer-file-name-function)) (buffer-file (if buf-file-name (expand-file-name buf-file-name))) - (file-name (expand-file-name (find-change-log file-name buffer-file))) + (changelog-file-name (expand-file-name (find-change-log + changelog-file-name + buffer-file))) ;; Set ITEM to the file name to use in the new item. - (item (add-log-file-name buffer-file file-name))) + (item (add-log-file-name buffer-file changelog-file-name))) - (unless (equal file-name buffer-file-name) + ;; don't add entries from the ChangeLog file/buffer to itself. + (unless (equal changelog-file-name buffer-file-name) (cond - ((equal file-name (buffer-file-name (window-buffer))) + ((add-log--changelog-buffer-p + changelog-file-name + (window-buffer)) ;; If the selected window already shows the desired buffer don't show ;; it again (particularly important if other-window is true). ;; This is important for diff-add-change-log-entries-other-window. (set-buffer (window-buffer))) ((or other-window (window-dedicated-p)) - (find-file-other-window file-name)) - (t (find-file file-name)))) + (switch-to-buffer-other-window + (add-log-find-changelog-buffer changelog-file-name))) + (t + (switch-to-buffer + (add-log-find-changelog-buffer changelog-file-name))))) (or (derived-mode-p 'change-log-mode) (change-log-mode)) (undo-boundary) diff --git a/lisp/vc/log-edit.el b/lisp/vc/log-edit.el index 6ff782a606..f071d029a5 100644 --- a/lisp/vc/log-edit.el +++ b/lisp/vc/log-edit.el @@ -913,8 +913,10 @@ log-edit-changelog-entries (setq change-log-default-name nil) (find-change-log))))) (when (or (find-buffer-visiting changelog-file-name) - (file-exists-p changelog-file-name)) - (with-current-buffer (find-file-noselect changelog-file-name) + (file-exists-p changelog-file-name) + add-log-use-pseudo-changelog) + (with-current-buffer + (add-log-find-changelog-buffer changelog-file-name) (unless (eq major-mode 'change-log-mode) (change-log-mode)) (goto-char (point-min)) (if (looking-at "\\s-*\n") (goto-char (match-end 0))) -- 2.17.1 --=-=-=--