[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/eat d8171b9a8c 15/15: ; Ignore a commit while generating C
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/eat d8171b9a8c 15/15: ; Ignore a commit while generating ChangeLog |
Date: |
Tue, 29 Nov 2022 05:58:39 -0500 (EST) |
branch: elpa/eat
commit d8171b9a8cb77b62b93c151c9756419d0650ee8a
Author: Akib Azmain Turja <akib@disroot.org>
Commit: Akib Azmain Turja <akib@disroot.org>
; Ignore a commit while generating ChangeLog
The commit is summary line is "Prefer 'pcase-exhaustive' over
'pcase'", but the ChangeLog in the body isn't formatted
correctly.
---
gitlog-to-changelog | 23 +++++++++++++++++++++--
make-changelog | 6 ++++--
2 files changed, 25 insertions(+), 4 deletions(-)
diff --git a/gitlog-to-changelog b/gitlog-to-changelog
index 82d9f97336..31d1351a42 100755
--- a/gitlog-to-changelog
+++ b/gitlog-to-changelog
@@ -4,6 +4,7 @@
# Convert git log output to ChangeLog format.
# Copyright (C) 2008-2022 Free Software Foundation, Inc.
+# Copyright (C) 2022 Akib Azmain Turja.
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
@@ -19,6 +20,7 @@
# along with this program. If not, see <https://www.gnu.org/licenses/>.
#
# Written by Jim Meyering
+# '--ignore-commits' implemented by Akib Azmain Turja.
# This is a prologue that allows to run a perl script as an executable
# on systems that are compliant to a POSIX version before POSIX:2017.
@@ -35,7 +37,7 @@
eval 'exec perl -wSx "$0" "$@"'
if 0;
-my $VERSION = '2022-01-27 18:49'; # UTC
+my $VERSION = '2022-11-29 10:18'; # UTC
# The definition above must lie within the first 8 lines in order
# for the Emacs time-stamp write hook (at end) to update it.
# If you change this file with Emacs, please let the write hook
@@ -88,6 +90,7 @@ OPTIONS:
--since=DATE convert only the logs since DATE;
the default is to convert all log entries.
--until=DATE convert only the logs older than DATE.
+ --ignore-commits=HASHES Comma-separated list of commits to ignore
--ignore-matching=PAT ignore commit messages whose first lines match PAT.
--ignore-line=PAT ignore lines of commit messages that match PAT.
--format=FMT set format string for commit subject and body;
@@ -243,6 +246,7 @@ sub git_dir_option($)
my $amend_file;
my $append_dot = 0;
my $cluster = 1;
+ my $ignore_commits = '';
my $ignore_matching;
my $ignore_line;
my $strip_tab = 0;
@@ -258,6 +262,7 @@ sub git_dir_option($)
'amend=s' => \$amend_file,
'append-dot' => \$append_dot,
'cluster!' => \$cluster,
+ 'ignore-commits=s' => \$ignore_commits,
'ignore-matching=s' => \$ignore_matching,
'ignore-line=s' => \$ignore_line,
'strip-tab' => \$strip_tab,
@@ -286,6 +291,7 @@ sub git_dir_option($)
my $prev_date_line = '';
my @prev_coauthors = ();
my @skipshas = ();
+
while (1)
{
defined (my $in = <PIPE>)
@@ -307,6 +313,7 @@ sub git_dir_option($)
or die "$ME:$.: invalid SHA1: $sha\n";
my $skipflag = 0;
+
if (@skipshas)
{
foreach(@skipshas)
@@ -398,8 +405,20 @@ sub git_dir_option($)
}
}
+ # Ignore commits that's in --ignore-commits, if specified.
+ my $ignored = 0;
+ foreach(split ',', $ignore_commits)
+ {
+ if ($sha =~ /^$_/)
+ {
+ $ignored = 1;
+ last;
+ }
+ }
+
# Ignore commits that match the --ignore-matching pattern, if specified.
- if (defined $ignore_matching && @line && $line[0] =~ /$ignore_matching/)
+ if ($ignored || (defined $ignore_matching && @line
+ && $line[0] =~ /$ignore_matching/))
{
$skipflag = 1;
}
diff --git a/make-changelog b/make-changelog
index b5aa113a0c..a1c9db9fc6 100755
--- a/make-changelog
+++ b/make-changelog
@@ -1,7 +1,9 @@
#!/bin/sh
-./gitlog-to-changelog --ignore-matching='^; ' --ignore-line='^; ' \
- --format='%B' >ChangeLog
+./gitlog-to-changelog \
+ --ignore-matching='^; ' --ignore-line='^; ' \
+ --ignore-commits='f3fed64957b4e88cfa1ff2c5ddfb665f249624cc' \
+ --format='%B' >ChangeLog
# Find the years covered by the generated ChangeLog, so that
# a proper copyright notice can be output.
- [nongnu] elpa/eat 3e496e8db8 14/15: ; Merge diverged elpa/eat branch of NonGNU ELPA, (continued)
- [nongnu] elpa/eat 3e496e8db8 14/15: ; Merge diverged elpa/eat branch of NonGNU ELPA, ELPA Syncer, 2022/11/29
- [nongnu] elpa/eat 5ce98430e8 07/15: Use more readable '?\C-\s' instead of '?\C-\ ', ELPA Syncer, 2022/11/29
- [nongnu] elpa/eat 10d9f3cb56 11/15: Use 'mapc' to make & kill multiple local variables, ELPA Syncer, 2022/11/29
- [nongnu] elpa/eat 2dd4e42773 01/15: Prefer 'pcase-exhaustive' over 'pcase', ELPA Syncer, 2022/11/29
- [nongnu] elpa/eat dc99739fb8 04/15: * eat.el (eat--trace-exec): Use "-*- mode: MD -*-", ELPA Syncer, 2022/11/29
- [nongnu] elpa/eat c19cf68b28 08/15: * eat.el (eat-term-make-keymap): Use 'cl-flet', ELPA Syncer, 2022/11/29
- [nongnu] elpa/eat 1b2b7aee26 13/15: Bump version to 0.1, ELPA Syncer, 2022/11/29
- [nongnu] elpa/eat 528bfe424d 10/15: Put declare-function and defvar outside functions, ELPA Syncer, 2022/11/29
- [nongnu] elpa/eat 31f93da3fd 06/15: * eat.el (eat-mode): Fix char mode 'help-echo', ELPA Syncer, 2022/11/29
- [nongnu] elpa/eat 86e247137b 09/15: Use 'vector' directly instead of backquote, ELPA Syncer, 2022/11/29
- [nongnu] elpa/eat d8171b9a8c 15/15: ; Ignore a commit while generating ChangeLog,
ELPA Syncer <=