1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
1001
1002
1003
1004
1005
1006
1007
1008
1009
1010
1011
1012
1013
1014
1015
1016
1017
1018
1019
1020
1021
1022
1023
1024
1025
1026
1027
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037
1038
1039
1040
1041
1042
1043
1044
1045
1046
1047
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
1058
1059
1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081
1082
1083
1084
1085
1086
1087
1088
1089
1090
1091
1092
1093
1094
1095
1096
1097
1098
1099
1100
1101
1102
1103
1104
1105
1106
1107
1108
1109
1110
1111
1112
1113
1114
1115
1116
1117
1118
1119
1120
1121
1122
1123
1124
1125
1126
1127
1128
1129
1130
1131
1132
1133
1134
1135
1136
1137
1138
1139
1140
1141
1142
1143
1144
1145
1146
1147
1148
1149
1150
1151
1152
1153
1154
1155
1156
1157
1158
1159
1160
1161
1162
1163
1164
1165
1166
1167
1168
1169
1170
1171
1172
1173
1174
1175
1176
1177
1178
1179
1180
1181
1182
1183
1184
1185
1186
1187
1188
1189
1190
1191
1192
1193
1194
1195
1196
1197
1198
1199
1200
1201
1202
1203
1204
1205
1206
1207
1208
1209
1210
1211
1212
1213
1214
1215
1216
1217
1218
1219
1220
1221
1222
1223
1224
1225
1226
1227
1228
1229
1230
1231
1232
1233
1234
1235
1236
1237
1238
1239
1240
1241
1242
1243
1244
1245
1246
1247
1248
1249
1250
1251
1252
1253
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264
1265
1266
1267
1268
1269
1270
1271
1272
1273
1274
1275
1276
1277
1278
1279
1280
1281
1282
1283
1284
1285
1286
1287
1288
1289
1290
1291
1292
1293
1294
1295
1296
1297
1298
1299
1300
1301
1302
1303
1304
1305
1306
1307
1308
1309
1310
1311
1312
1313
1314
1315
1316
1317
1318
1319
1320
1321
1322
1323
1324
1325
1326
1327
1328
1329
1330
1331
1332
1333
1334
1335
1336
1337
1338
1339
1340
1341
1342
1343
1344
1345
1346
1347
1348
1349
1350
1351
1352
1353
1354
1355
1356
1357
1358
1359
1360
1361
1362
1363
1364
1365
1366
1367
1368
1369
1370
1371
1372
1373
1374
1375
1376
1377
1378
1379
1380
1381
1382
1383
1384
1385
1386
1387
1388
1389
1390
1391
1392
1393
1394
1395
1396
1397
1398
1399
1400
1401
1402
1403
1404
1405
1406
1407
1408
1409
1410
1411
1412
1413
1414
1415
1416
1417
1418
1419
1420
1421
1422
1423
1424
1425
1426
1427
1428
1429
1430
1431
1432
1433
1434
1435
1436
1437
1438
1439
1440
1441
1442
1443
1444
1445
1446
1447
1448
1449
1450
1451
1452
1453
1454
1455
1456
1457
1458
1459
1460
1461
1462
1463
1464
1465
1466
1467
1468
1469
1470
1471
1472
1473
1474
1475
1476
1477
1478
1479
1480
1481
1482
1483
1484
1485
1486
1487
1488
1489
1490
1491
1492
1493
1494
1495
1496
1497
1498
1499
1500
1501
1502
1503
1504
1505
1506
1507
1508
1509
1510
1511
1512
1513
1514
1515
1516
1517
1518
1519
1520
1521
1522
1523
1524
1525
1526
1527
1528
1529
1530
1531
1532
1533
1534
1535
1536
1537
1538
1539
1540
1541
1542
1543
1544
1545
1546
1547
1548
1549
1550
1551
1552
1553
1554
1555
1556
1557
1558
1559
1560
1561
1562
1563
1564
1565
1566
1567
1568
1569
1570
1571
1572
1573
1574
1575
1576
1577
1578
1579
1580
1581
1582
1583
1584
1585
1586
1587
1588
1589
1590
1591
1592
1593
1594
1595
1596
1597
1598
1599
1600
1601
1602
1603
1604
1605
1606
1607
1608
1609
1610
1611
1612
1613
1614
1615
1616
1617
1618
1619
1620
1621
1622
1623
1624
1625
1626
1627
1628
1629
1630
1631
1632
1633
1634
1635
1636
1637
1638
1639
1640
1641
1642
1643
1644
1645
1646
1647
1648
1649
1650
1651
1652
1653
1654
1655
1656
1657
1658
1659
1660
1661
1662
1663
1664
1665
1666
1667
1668
1669
1670
1671
1672
1673
1674
1675
1676
1677
1678
1679
1680
1681
1682
1683
1684
1685
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
1696
1697
1698
1699
1700
1701
1702
1703
1704
1705
1706
1707
1708
1709
1710
1711
1712
1713
1714
1715
1716
1717
1718
1719
1720
1721
1722
1723
1724
1725
1726
1727
1728
1729
1730
1731
1732
1733
1734
1735
1736
1737
1738
1739
1740
1741
1742
1743
1744
1745
1746
1747
1748
1749
1750
1751
1752
1753
1754
1755
1756
1757
1758
1759
1760
1761
1762
1763
1764
1765
1766
1767
1768
1769
1770
1771
1772
1773
1774
1775
1776
1777
1778
1779
1780
1781
1782
1783
1784
1785
1786
1787
1788
1789
1790
1791
1792
1793
1794
1795
1796
1797
1798
1799
1800
1801
1802
1803
1804
1805
1806
1807
1808
1809
1810
1811
1812
1813
1814
1815
1816
1817
|
;;; debian-changelog-mode.el --- major mode for Debian changelog files.
;; Copyright (C) 1996 Ian Jackson
;; Copyright (C) 1997 Klee Dienes
;; Copyright (C) 1999 Chris Waters
;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005 Peter S Galbraith
;; Copyright (C) 2006, 2007, 2009, 2010 Peter S Galbraith
;;
;; This file is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;;
;; debian-changelog-mode.el is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with your Debian installation, in /usr/share/common-licenses/GPL
;; If not, write to the Free Software Foundation, 51 Franklin Street,
;; Suite 500 Boston, MA 02110-1335, USA
;;; Commentary:
;;
;; This is a major mode for Debian changelog files. The main features
;; are:
;;
;; - fontification (varies with upload urgency, etc).
;; - create a entry for a new version (guessing the version number).
;; - finalize a version with proper timestamp and syntax.
;; - add an entry from another file in the source package.
;; - interface with `debian-bug' to fetch list of bugs from the web,
;; read a bug report via browse-url or as email, close a bug with
;; thanks.
;; - closed bugs are fontified and clickable to view them via browse-url.
;;
;; The mode is entered automatically when editing a debian/changelog file.
;; See the menus "Bugs" and "Changelog" for commands or do `C-h m' to get
;; the list of keybindings.
;;
;; From other files in unpacked sources, do `M-x debian-changelog-add-entry'
;; to add an entry for that file in the changelog file.
;;; History
;;
;; V1.00 30aug00 Peter S Galbraith <psg@debian.org>
;; - Prior version had no changelogs; starting one now.
;; This is the potato version plus extensions by Chris Waters (easymenu;
;; better menus, font-lock support).
;; V1.01 30aug00 Peter S Galbraith <psg@debian.org>
;; - debian-changelog-finalise-last-version: Use XEmacs' (user-mail-address)
;; function if variable user-mail-address is undefined.
;; Thanks to Robert Bihlmeyer <robbe@orcus.priv.at>, closes Bug#61524
;; - debian-changelog-finalise-last-version: Takes account of some env vars
;; Thanks to Rafael Laboissiere <rafael@icp.inpg.fr>, closes Bug#61226
;; - debian-changelog-close-bug: new command.
;; V1.02 23Feb01 Peter S Galbraith <psg@debian.org>
;; - Added `debian-changelog-suggest-version', a mechanisn for guessing
;; what the new version number should be.
;; Closes half of Bug#85412
;; V1.03 23Feb01 Peter S Galbraith <psg@debian.org>
;; - Fixed `fill-paragraph' by tweaks to paragraph-start and
;; paragraph-separate variables.
;; Closes second half of Bug#85412
;; V1.04 23Feb01 Peter S Galbraith <psg@debian.org>
;; - Added `debian-changelog-web-bugs' `debian-changelog-web-packages'
;; `debian-changelog-web-package'
;; V1.05 23Feb01 Peter S Galbraith <psg@debian.org>
;; - made `debian-changelog-suggest-package-name' more picky about finding
;; an acceptable name.
;; V1.06 28Feb01 Peter S Galbraith <psg@debian.org>
;; - Create customizable variables debian-changelog-full-name and
;; debian-changelog-mailing-address.
;; - Make debian-changelog-finalise-last-version use them.
;; V1.07 28Feb01 Peter S Galbraith <psg@debian.org>
;; - debian-changelog-suggest-version: Handle epochs!
;; closes: Bug#87964: dpkg-dev-el: does wrong things with epochs
;; V1.08 07Mar01 Peter S Galbraith <psg@debian.org>
;; debian-changelog-suggest-version: Handle package names with hyphens!
;; closes: #88589 and #88245
;; V1.09 09Mar01 Peter S Galbraith <psg@debian.org>
;; debian-changelog-suggest-version: better regexps for version numbers
;; Created debian-changelog-increment-version
;; V1.10 10Mar01 Peter S Galbraith <psg@debian.org>
;; tweaks docs for debian-changelog-mode function concerning
;; add-log-mailing-address (now obsolete).
;; V1.11 24Apr01 Peter S Galbraith <psg@debian.org>
;; Add stuff to try to trim out obsolete "Local Variables:" block from
;; changelog files.
;; V1.12 24Apr01 Peter S Galbraith <psg@debian.org>
;; Modify font-lock code. closes: #93243
;; V1.13 27Apr01 Peter S Galbraith <psg@debian.org>
;; Move code concerning local variables near beginning of file such that
;; `hack-local-variables' doesn't complain.
;; V1.14 30Apr01 Peter S Galbraith <psg@debian.org>
;; Add `critical' bug severity (see http://bugs.debian.org/94475)
;; V1.15 30Apr01 Peter S Galbraith <psg@debian.org>
;; Tweak font-locking bug number regexp to match dpkg-parsechangelog 1.9.1
;; V1.16 30Apr01 Peter S Galbraith <psg@debian.org>
;; Added debian-changelog-web-bug (will bound to a mouse button later)
;; V1.17 30Apr01 Peter S Galbraith <psg@debian.org>
;; debian-changelog-increment-version: Handle 3.5.4.0 case (single digits)
;; closes: #95831
;; V1.18 30Apr01 Peter S Galbraith <psg@debian.org>
;; Add mouse interface to web-bug (with green highlight).
;; V1.19 01May01 Peter S Galbraith <psg@debian.org>
;; Add imenu support as `History'. Bug: The history menu is empty when
;; point is on the (mouse-highlighted) bug number (using emacs-20.7).
;; V1.20 02May01 Peter S Galbraith <psg@debian.org>
;; Leave `mode: debian-changelog-mode' alone for native packages.
;; V1.21 02May01 Peter S Galbraith <psg@debian.org>
;; Fix empty History menu when on bug numbers.
;; V1.22 02May01 Peter S Galbraith <psg@debian.org>
;; Fontify version number (e.g. NMU in warning-face)
;; V1.23 02May01 Peter S Galbraith <psg@debian.org>
;; Bypass imenu-progress-message because it breaks byte-compilation (?)
;; V1.24 03May01 Peter S Galbraith <psg@debian.org>
;; Correct fix for imenu-progress-message macro (can't rely on variable
;; defined here for loading of imenu during byte-compilation).
;; V1.25 04May01 Peter S Galbraith <psg@debian.org>
;; Add `experimental' distribution.
;; V1.26 04May01 Peter S Galbraith <psg@debian.org>
;; Web site changed the URL for package searches:
;; http://cgi.debian.org/cgi-bin -> http://packages.debian.org/cgi-bin
;; V1.27 04May01 Peter S Galbraith <psg@debian.org>
;; Set new version to `experimental' when last one was set to that.
;; closes: #96260: Default to the same distribution as the previous release
;; V1.28 04May01 Peter S Galbraith <psg@debian.org>
;; Make `set-distribution' and `set-urgency' unavailable when changelog
;; is finalised (error at command line and menu grayed-out).
;; V1.29 04May01 Peter S Galbraith <psg@debian.org>
;; Add-to auto-mode-alist in case not using dpkg-dev-el package.
;; V1.30 09May01 Peter S Galbraith <psg@debian.org>
;; Fixed brain-damaged auto-mode-alist added in V1.29 (*blush*).
;; V1.31 28May01 Peter S Galbraith <psg@debian.org>
;; Fix typo (closes: #98577).
;; Add a message display after each call to browse-url.
;; V1.32 28May01 Peter S Galbraith <psg@debian.org>
;; - XEmacs21's easy-menu-define doesn't like :active.
;; - XEmacs21 need easy-menu-add call in mode setup.
;; - debian-changelog-setheadervalue: check at this lower level if finalised.
;; V1.33 29May01 Peter S Galbraith <psg@debian.org>
;; Fix History IMenu for XEmacs21 (it doesn't autoload
;; match-string-no-properties).
;; V1.34 29May01 Peter S Galbraith <psg@debian.org>
;; - debian-changelog-fontify-version: allow version numbers with many hyphens
;; - debian-changelog-suggest-version: heavy changes to deal with many hyphens
;; V1.35 06Jun01 Peter S Galbraith <psg@debian.org>
;; - patch from Brian Warner <warner@lothar.com> to make
;; debian-changelog-local-variables-maybe-remove-done really buffer-local.
;; - Change another occurrence of make-local-variable.
;; V1.36 11Jun01 Peter S Galbraith <psg@debian.org>
;; changed urgency "critical" to "emergency".
;; See http://lists.debian.org/debian-policy-0106/msg00095.html
;; V1.37 11Jun01 Peter S Galbraith <psg@debian.org>
;; debian-changelog-suggest-version: another tweak when upstream version
;; number contains hyphens (closes: #100162).
;; V1.38 13Jun01 Peter S Galbraith <psg@debian.org>
;; debian-changelog-suggest-version: peppered regexp-quote at various places
;; to match package names and version that contain regexp characters.
;; V1.39 13Jun01 Peter S Galbraith <psg@debian.org>
;; change (provide 'debian-changelog) to (provide 'debian-changelog-mode)
;; (closes: #100639) Thanks *again* Yann Dirson!
;; V1.40 22Jun01 Peter S Galbraith <psg@debian.org>
;; Changed urgency "emergency" back to "critical" (!)
;; See http://lists.debian.org/debian-policy-0106/msg00240.html
;; V1.41 04Jul01 Peter S Galbraith <psg@debian.org>
;; debian-changelog-finalised-p updated by Tommi Virtanen <tv@debian.org>
;; (closes: #102088)
;; V1.42 10Jul01 Peter S Galbraith <psg@debian.org>
;; debian-changelog-finalised-p: tweak regexp (really closes: #102088)
;; V1.43 25Jul01 Peter S Galbraith <psg@debian.org>
;; font-lock enforces 2 space exactly between email and date.
;; V1.44 26Jul01 Peter S Galbraith <psg@debian.org>
;; No conditions left to keep variable block (See bug #105889)
;; - Removed debian-changelog-package-native-p function.
;; - Removed debian-changelog-local-variables-email-p function.
;; - Removed debian-changelog-local-variables-remove-address function.
;; - Removed debian-changelog-local-variables-remove-mode function.
;; - Created debian-changelog-local-variables-remove function.
;; V1.45 15Aug01 Peter S Galbraith <psg@debian.org>
;; Bug list menu added (via wget).
;; V1.46 15Aug01 Roland Mas <lolando@debian.org>
;; One-character tweak to package name font-lock regexp.
;; V1.47 15Aug01 Peter S Galbraith <psg@debian.org>
;; debian-changelog-web-bug: bug fix when called from menu
;; V1.48 19Sep01 Brian Warner <warner@lothar.com>
;; - move to end of file before prompting for removal of local variables.
;; - remove global def of debian-changelog-local-variables-maybe-remove-done.
;; V1.49 22Nov01 Roland Mas <lolando@debian.org>
;; debian-changelog-suggest-version: tweak regexp for case of upstream
;; version number with a single character.
;; V1.50 30Nov01 Roland Mas <lolando@debian.org>
;; replaced debian-changelog.el by debian-changelog-mode.el
;; V1.51 24Jan02 Peter S Galbraith <psg@debian.org>
;; debian-changelog-web-bugs: return all bugs for the source package.
;; V1.52 07Feb02 Peter S Galbraith <psg@debian.org>
;; debian-changelog-build-bug-menu: return all bugs for the source package.
;; V1.53 13May02 Peter S Galbraith <psg@debian.org>
;; debian-changelog-mode: Add call to hack-local-variables since the "Local
;; variables:" block wasn't parsed otherwise. Strange.
;; V1.54 29May02 Peter S Galbraith <psg@debian.org>
;; s/font-latex-warning-face/debian-changelog-warning-face/
;; Now that was a weird leftover from cut/paste!
;; V1.55 03June02 Peter S Galbraith <psg@debian.org>
;; fontify woody-proposed-updates as frozen.
;; V1.56 25July02 Peter S Galbraith <psg@debian.org>
;; debian-changelog-mode: Remove call to hack-local-variables added in V1.53
;; since a "mode: debian-changelog" setting created an infinite loop.
;; The bug I attemped to fix in V1.53 occurred when debian-changelog-mode
;; was invoked using the debian-changelog-find-file-hook mecanism in
;; 50dpkg-dev-el.el. This invoked debian-changelog-mode which called
;; kill-all-local-variables, deleting our settings. To get around this, I
;; no longer call 'text-mode' and copied whatever setting we need from it
;; (because it also kill-all-local-variables).
;; closes: #153982.
;; V1.57 29July02 Peter S Galbraith <psg@debian.org>
;; debian-changelog-mode: Reinsert kill-all-local-variables removed in
;; last version. It's used by font-lock-mode to turn on font-lock-mode
;; when global-font-lock-mode is used. Since this kills the Local
;; Variables, the mode can no longer be entered late in the game as was
;; done in 50dpkg-dev-el.el by a find-file-hooks. Instead, use a
;; change-log-mode-hook which is less intrusive anyway.
;; V1.58 29July02 Peter S Galbraith <psg@debian.org>
;; debian-changelog-greater-than: new function to determine if a version
;; number is greater than another. Used it to incorporate some logic
;; for for better guessing of new version numbers for native packages to
;; fix bug #113964.
;; V1.59 02Aug2002 Peter S Galbraith <psg@debian.org>
;; Remove a bunch of code duplicated in debian-bug.el and load that file
;; instead.
;; debian-changelog-web-bugs -> debian-bug-web-bugs
;; debian-changelog-web-bug -> debian-bug-web-bug
;; debian-changelog-web-packages -> debian-bug-web-packages
;; debian-changelog-web-package -> debian-bug-web-package
;; dpkg-dev-el package should depend on versioned debbugs-el.
;; V1.60 15Aug2002 Peter S Galbraith <psg@debian.org>
;; Update list of possible distributions to upload to from list given
;; from http://bugs.debian.org/150466 (Closes: #156762)
;; V1.61 20Aug2002 Peter S Galbraith <psg@debian.org>
;; Prompt for confirmation and give *big* warning if user wants to set
;; the upload distribution to a -security one. See discussion on
;; http://bugs.debian.org/150466
;; V1.62 20Aug2002 Peter S Galbraith <psg@debian.org>
;; V1.63 05Sep2002 Peter S Galbraith <psg@debian.org>
;; Fontify bugs on multiple-line closes: statements. Patch from
;; Fr�d�ric Bothamy. (Closes: #159041)
;; V1.64 05Sep2002 Peter S Galbraith <psg@debian.org>
;; debian-changelog-suggest-version fix (Closes: #159643)
;; V1.65 05Sep2002 Peter S Galbraith <psg@debian.org>
;; - Stupid bug fix. s/debian-bug-bug-alist/debian-bug-alist/.
;; - Bug closing regexp enhancement from Roland Mas.
;; V1.66 24Oct2002 Peter S Galbraith <psg@debian.org>
;; - Add UNRELEASED distribution, patch from Junichi Uekawa
;; <dancer@netfort.gr.jp> with additional menu entry (Closes: #166163).
;; See bug #164470 for relevance and usage of UNRELEASED distribution.
;; V1.67 14Apr2003 Peter S Galbraith <psg@debian.org>
;; - Use debian-bug.el's debian-bug-open-alist (needs emacs-goodies-el 19.4)
;; V1.68 21Apr2003 Peter S Galbraith <psg@debian.org>
;; Byte-compilation cleanup.
;; V1.69 27Apr2003 Peter S Galbraith <psg@debian.org>
;; - defcustom debian-changelog-mode-hook added. (Closes: #190853)
;; - debian-changelog-add-version creates new version in empty file
;; (Closes: #191285)
;; V1.70 28May2003 Peter S Galbraith <psg@debian.org>
;; - Define (really) match-string-no-properties for XEmacs (Closes: #195181)
;; V1.71 02Sep2003 Peter S Galbraith <psg@debian.org>
;; - When closing a bug, insert bug title and thanks if bug info was
;; downloaded from the web.
;; V1.72 17Sep2003 Peter S Galbraith <psg@debian.org>
;; - Added browse-url link to `Best Practices for debian/changelog' in menu.
;; V1.73 04Nov2003 Peter S Galbraith <psg@debian.org>
;; - checkdoc fixed (not complete!)
;; - Add autoload tag.
;; V1.74 22Nov2003 Peter S Galbraith <psg@debian.org>
;; - Make `debian-changelog-add-entry' works from files in unpacked sources.
;; Thanks to Junichi Uekawa for suggesting it (Closes: #220641)
;; V1.75 27Nov2003 Peter S Galbraith <psg@debian.org>
;; - Add menu entry for "Archived Bugs for This Package", for
;; "Developer Page for This Package" and
;; "Developer Page for This Maintainer".
;; - Added function `debian-changelog-maintainer' and interactive command
;; `debian-changelog-web-developer-page'.
;; V1.76 17Dec2003 Peter S Galbraith <psg@debian.org>
;; - debian-changelog-setdistribution: Use `should-use-dialog-box-p' on XEmacs
;; (Closes: #224187)
;; V1.77 19Feb2004 Peter S Galbraith <psg@debian.org>
;; - Add file NEWS.Debian to auto-mode-alist. Thanks to Chris Lawrence
;; for suggesting it. (Closes: #233310)
;; V1.78 14Apr2004 Peter S Galbraith <psg@debian.org>
;; - debian-changelog-setdistribution: Dismiss warning window when setting
;; distribution to security. Thanks to Martin Schulze (Closes: #234730)
;; - Should mark line beginning with a tab as invalid. Fontified in warning
;; face. Thanks to Michel Daenzer (Closes: #235310).
;; V1.79 07June2005 Jari Aalto <jari.aalto@cante.net>
;; - fix byte-compilation warning about
;; `(fboundp (quote imenu))' called for effect (Closes: #309788)
;; V1.80 15Sep2005 Rafael Laboissiere <rafael@debian.org>
;; - Add debian-changelog-add-version-hook defaulting to
;; debian-changelog-add-new-upstream-release (Closes: #296725)
;; V1.81 19Sep2005 Peter S Galbraith <psg@debian.org>
;; - Add outline-regexp and C-cC-n and C-cC-p movement commands as
;; suggested by Romain Francoise <rfrancoise@debian.org> (Closes: #322994)
;; V1.82 05Sep2006 Peter Samuelson <peter@p12n.org>
;; - Add tilde support for upstream version numbers (Closes: #382514)
;; V1.83 11Oct2006 Luca Capello <luca@pca.it>
;; - Rename `debian-changelog-maintainer' to `debian-changelog-last-maintainer',
;; this is what the function really work on
;; - `debian-changelog-last-maintainer' now returns a list of "(NAME EMAIL)"
;; and not only EMAIL
;; - Add `debian-changelog-comaintainer-insert', which actually inserts the
;; co-maintainer name in the form "[ NAME ]"
;; - Add `debian-changelog-comaintainer', which checks if we're in a
;; co-maintenance, calling `debian-changelog-comaintainer-insert'
;; - Add co-maintenance support to `debian-changelog-unfinalise-last-version'
;; V1.84 14May2007 Peter S Galbraith <psg@debian.org>
;; - Use "date -R" instead of deprecated "822-date"
;; (Closes: #423142, #423155, #423828)
;; - Tighter regexp for finalisation string
;; V1.85 25Jul2007 Peter S Galbraith <psg@debian.org>
;; - Adapt patch from Luca Capello <luca@pca.it> for bug #431091
;; V1.86 08Aug2007 Peter S Galbraith <psg@debian.org>
;; - auto-mode-alist for "/debian/*NEWS" files (Closes: #424779)
;; V1.87 02Sep2007 Peter S Galbraith <psg@debian.org>
;; - Implement pacakge lookup on http://packages.debian.org/
;; See http://bugs.debian.org/87725
;; - Patch from Luca Capello <luca@pca.it> to add keys to generate the
;; open bug alist.
;; V1.88 12Apr2008 Trent W. Buck <trentbuck@gmail.com>
;; - Generalize auto-mode-alist entry.
;; See http://bugs.debian.org/457047
;; V1.89 23Feb2009 Jari.aalto@cante.net
;; - finalize date in UTC (User configurable) (Closes: #503700)
;; V1.90 24Oct2009 Rafael Laboissiere <rafael@debian.org>
;; - debian-changelog-close-bug does not work properly under XEmacs 21.4.21
;; because the arguments passed to replace-in-string in the inline function
;; debian-chagelog--rris are in the wrong order. Closes: #476271
;; V1.91 12Nov2009 Peter S Galbraith <psg@debian.org>
;; Updated URL for "Best practices".
;; V1.92 27Apr2010 Peter S Galbraith <psg@debian.org>
;; Invoke `debian-bug-build-bug-menu' with SOURCE arg set to t.
;; Needs debian-el 33.2
;; V1.93 10May2010 Peter S Galbraith <psg@debian.org>
;; Fix typo (Closes: #580818)
;; V1.94 28Jul2010 Kevin Ryde <user42@zip.com.au>
;; Simplify auto-mode-alist (Closes: #587924)
;; V1.95 01Dec2013 Matt Kraai <kraai@debian.org>
;; Change the default urgency to medium (Closes: #731105)
;; V1.96 06Nov2016 Guido G�nther <agx@sigxcpu.org>
;; Bug fix: "improve handling of {old-, }stable-proposed-updates", thanks
;; to Guido Gunther (Closes: #818010).
;; V1.97 06Nov2016 Pierre Carrier (on 2013-07-04)
;; https://bugs.launchpad.net/ubuntu/+source/emacs-goodies-el/+bug/1197870
;; Bug fix #803767 debian-changelog-mode: don't rely on external date
;; See also https://github.com/pcarrier/debian-changelog-mode/commit/285d4cc938468fd3d7d74584da7981705727fbab
;; V1.98 06Nov2016 Kumar Appaiah <a.kumar@alumni.iitm.ac.in>
;; highlight backports (Closes: #708317)
;;; Acknowledgements: (These people have contributed)
;; Roland Rosenfeld <roland@debian.org>
;; James LewisMoss <dres@ioa.com>
;; Rafael Laboissiere <rafael@icp.inpg.fr>
;; Brian Warner <warner@lothar.com>
;; Yann Dirson <dirson@debian.org>
;;; Code:
(defgroup debian-changelog nil "Debian changelog maintenance"
:group 'tools
:prefix "debian-changelog-")
(defgroup debian-changelog-faces nil
"Faces for fontifying text in debian-changelog."
:prefix "debian-changelog-"
:group 'debian-changelog)
(defcustom debian-changelog-full-name (or (getenv "DEBFULLNAME")
(user-full-name))
"*Full name of user, for inclusion in Debian changelog headers.
This defaults to the contents of environment variable DEBFULLNAME
or else to the value returned by the function `user-full-name'."
:group 'debian-changelog
:type 'string)
(defcustom debian-changelog-mailing-address
(or (getenv "DEBEMAIL")
(getenv "EMAIL")
(and (boundp 'user-mail-address) user-mail-address)
(and (fboundp 'user-mail-address) (user-mail-address)))
"*Electronic mail address of user, for inclusion in Debian changelog headers.
This defaults to the value of (in order of precedence):
Contents of environment variable DEBEMAIL,
Contents of environment variable EMAIL,
Value of `user-mail-address' variable,
Value returned by the `user-mail-address' function."
:group 'debian-changelog
:type 'string)
(defcustom debian-changelog-allowed-distributions
'("unstable"
"testing"
"testing-security"
"stable"
"stable-security"
"stable-proposed-updates"
"oldstable-security"
"oldstable-proposed-updates"
"experimental"
"UNRELEASED" )
"*Allowed values for distribution."
:group 'debian-changelog
:type '(repeat string))
(defcustom debian-changelog-local-variables-maybe-remove t
"*Ask to remove obsolete \"Local Variables:\" block from changelog.
This is done only under certain conditions."
:group 'debian-changelog
:type 'boolean)
(defcustom debian-changelog-highlight-mouse-t t
"*Use special overlay for bug numbers, defining mouse-3 to web interface."
:group 'debian-changelog
:type 'boolean)
(defcustom debian-changelog-use-imenu (fboundp 'imenu-add-to-menubar)
"*Use imenu package for debian-changelog-mode?
If you do not wish this behaviour, reset it in your .emacs file like so:
(setq debian-changelog-use-imenu nil)"
:group 'debian-changelog
:type 'boolean)
;; This solves the consistency problem with `debian-changelog-close-bug'
;; as per bug #431091
(defcustom debian-changelog-close-bug-statement "(Closes: #%s)."
"The text to be inserted to close a bug. `%s' is replaced by
the bug number."
:group 'debian-changelog
:type 'string)
(defcustom debian-changelog-mode-hook nil
"Normal hook run when entering Debian Changelog mode."
:group 'debian-changelog
:type 'hook
:options '(turn-on-auto-fill flyspell-mode))
(defcustom debian-changelog-add-version-hook
(list 'debian-changelog-add-new-upstream-release)
"Hooks run just before inserting the signature separator \"--\" in a
new version in debian/changelog."
:group 'debian-changelog
:type 'hook)
(defcustom debian-changelog-date-utc-flag nil
"If non-nil, return date string in UTC when finalizing entry.
See function `debian-changelog-date-string'."
:group 'debian-changelog
:type 'boolean)
;; This function is from emacs/lisp/calendar/icalendar.el,
;; necessary to replace "%s" with the bug number in
;; `debian-changelog-close-bug-statement'
(defsubst debian-changelog--rris (&rest args)
"Replace regular expression in string.
Pass ARGS to `replace-regexp-in-string' (GNU Emacs) or to
`replace-in-string' (XEmacs)."
;; XEmacs:
(if (fboundp 'replace-in-string)
(save-match-data ;; apparently XEmacs needs save-match-data
;; and arguments are in different order.
;; Patch from Rafael Laboissiere <rafael@debian.org>
;; Closes: #476271
(apply 'replace-in-string (list (nth 2 args) (nth 0 args) (nth 1 args))))
;; Emacs:
(apply 'replace-regexp-in-string args)))
(defvar debian-changelog-local-variables-maybe-remove-done nil
"Internal flag so we prompt only once.")
(autoload 'debian-bug-web-bug "debian-bug")
(autoload 'debian-bug-web-bugs "debian-bug")
(autoload 'debian-bug-web-packages "debian-bug")
(autoload 'debian-bug-web-package "debian-bug")
(autoload 'debian-bug-bug-menu-init "debian-bug")
(autoload 'debian-bug-web-this-bug-under-mouse "debian-bug")
(autoload 'debian-bug-web-developer-page "debian-bug")
(defvar debian-bug-open-alist)
(require 'faces)
(require 'custom)
(require 'add-log)
(require 'easymenu)
(eval-when-compile
(require 'cl))
;; XEmacs21.1 compatibility -- from XEmacs's apel/poe.el
(unless (fboundp 'match-string-no-properties)
(defun match-string-no-properties (num &optional string)
"Return string of text matched by last search, without text properties.
NUM specifies which parenthesized expression in the last regexp.
Value is nil if NUMth pair didn't match, or there were less than NUM pairs.
Zero means the entire text matched by the whole regexp or whole string.
STRING should be given if the last search was by `string-match' on STRING."
(if (match-beginning num)
(if string
(let ((result
(substring string (match-beginning num) (match-end num))))
(set-text-properties 0 (length result) nil result)
result)
(buffer-substring-no-properties (match-beginning num)
(match-end num))))))
;;
;; Clean up old "Local Variables:" entries
;; Peter Galbraith
;; **Important note**
;;
;; If we get the following warning:
;;
;; File local-variables error: (error "Local variables entry is missing the prefix")
;;
;; when installing the dpkg-dev-el package, it's because the command
;; (hack-local-variables) from files.el is bailing on all the "Local
;; Variables:" strings in this file. The simplest solution is to keep all
;; occurrences of this string before the last 3000 characters of the file,
;; where `hack-local-variables' starts looking:
;; First, I made the add-log-mailing-address variable obsolete but still
;; left the "mode:" line in the variable block for Debian native packages
;; because it was impossible to tell what they were from the installed
;; changelog.gz name. In bug #105889, I came up with code to stick in
;; /etc/emacs/site-start.d/50dpkg-dev-el.el to figure that out in a
;; find-file-hooks hook. So now the variable block is completely obsolete.
(defun debian-changelog-local-variables-maybe-remove ()
"Ask to remove local variables block if buffer not read-only."
(interactive)
(if (or debian-changelog-local-variables-maybe-remove-done
buffer-read-only)
nil
(setq debian-changelog-local-variables-maybe-remove-done t)
(if (debian-changelog-local-variables-exists-p)
(save-excursion
(goto-char (point-max)) ; local vars are always at end
(if (yes-or-no-p
"Remove obsolete \"local variables:\" from changelog? ")
(debian-changelog-local-variables-remove))))))
(defun debian-changelog-local-variables-exists-p ()
"Return t if package has a \"Local Variables:\" block."
(save-excursion
(let ((case-fold-search t))
(goto-char (point-max))
(and (re-search-backward "^local variables:" nil t)
(or (re-search-forward "add-log-mailing-address:" nil t)
(re-search-forward "mode: debian-changelog" nil t))))))
(defun debian-changelog-local-variables-remove ()
"Remove `add-log-mailing-address' entry from local variables block."
(save-excursion
(let ((case-fold-search t))
(goto-char (point-max))
;; Remove add-log-mailing-address: line if it exists
(if (and (re-search-backward "^local variables:" nil t)
(re-search-forward "add-log-mailing-address: .+\n" nil t))
(delete-region (match-beginning 0)(match-end 0)))
(goto-char (point-max))
;; Remove "mode: debian-changelog" line if it exists
(if (and (re-search-backward "^local variables:" nil t)
(re-search-forward "mode: debian-changelog.*\n" nil t))
(delete-region (match-beginning 0)(match-end 0)))
(goto-char (point-max))
;; Remove empty variable block if it exists
(if (re-search-backward "^local variables: *\nend:" nil t)
(delete-region (match-beginning 0)(match-end 0))))))
;;
;; internal functions: getheadervalue and setheadervalue both use a
;; regexp to probe the changelog entry for specific fields.
;; warning: if used with a "re" that doesn't have at least one group,
;; the results will be unpredictable (to say the least).
(defun debian-changelog-setheadervalue (re str)
(if (eq (debian-changelog-finalised-p) t)
(error (substitute-command-keys "most recent version has been finalised - use \\[debian-changelog-unfinalise-last-version] or \\[debian-changelog-add-version]")))
(let ((lineend (save-excursion (end-of-line)(point))))
(save-excursion
(goto-char (point-min))
(if (re-search-forward re lineend t)
(let ((a (match-beginning 1))
(b (match-end 1)))
(goto-char a)
(delete-region a b)
(insert str))))))
(defun debian-changelog-getheadervalue (re)
(let ((lineend (save-excursion (end-of-line) (point))))
(save-excursion
(goto-char (point-min))
(re-search-forward re lineend)
(buffer-substring-no-properties (match-beginning 1) (match-end 1)))))
;;
;; some get/set functions for specific fields
;; (Chris Waters)
(defun debian-changelog-seturgency (val)
(debian-changelog-setheadervalue "\\;[^\n]* urgency=\\(\\sw+\\)" val))
(defun debian-changelog-geturgency ()
(debian-changelog-getheadervalue "\\;[^\n]* urgency=\\(\\sw+\\)"))
(defun debian-changelog-getdistribution ()
(debian-changelog-getheadervalue ") \\(.*\\)\\;"))
(defvar last-nonmenu-event)
(defun debian-changelog-setdistribution (val)
(if (not (string-match "^.*security" val))
(debian-changelog-setheadervalue ") \\(.*\\)\\;" val)
(cond
((or (and (fboundp 'should-use-dialog-box-p)
(should-use-dialog-box-p))
(and window-system
(equal last-nonmenu-event '(menu-bar))
use-dialog-box))
(if (y-or-n-p
(concat
"Warning, although the {oldstable,stable,testing}-security
distribution exists it should not be used unless you are a
member of the security team. Please don't upload to it if you
are not 150% sure that your package is suitable. In case of
doubt, please send the files to team@security.debian.org via
mail instead.
Upload to " val " anyway?"))
(debian-changelog-setheadervalue ") \\(.*\\)\\;" val)))
(t
(let ((window-config (current-window-configuration)))
(with-output-to-temp-buffer "*Help*"
(princ (concat
"Warning, although the {oldstable,stable,testing}-security
distribution exists it should not be used unless you are a
member of the security team. Please don't upload to it if you
are not 150% sure that your package is suitable. In case of
doubt, please send the files to team@security.debian.org via
mail instead.
Upload to " val " anyway?")))
(if (y-or-n-p (format "Upload to %s anyway? " val))
(debian-changelog-setheadervalue ") \\(.*\\)\\;" val))
(set-window-configuration window-config))))))
;;
;; keymap table definition
;;
(autoload 'outline-next-visible-heading "outline")
(autoload 'outline-prev-visible-heading "outline")
(defvar debian-changelog-mode-map nil
"Keymap for Debian changelog major mode.")
(if debian-changelog-mode-map
nil
(setq debian-changelog-mode-map (make-sparse-keymap))
(define-key debian-changelog-mode-map "\C-c\C-a"
'debian-changelog-add-entry)
(define-key debian-changelog-mode-map "\C-c\C-o"
'debian-changelog-build-open-bug-list)
(define-key debian-changelog-mode-map "\C-c\C-b"
'debian-changelog-close-bug)
(define-key debian-changelog-mode-map "\C-c\C-f"
'debian-changelog-finalise-last-version)
(define-key debian-changelog-mode-map "\C-c\C-c"
'debian-changelog-finalise-and-save)
(define-key debian-changelog-mode-map "\C-c\C-v"
'debian-changelog-add-version)
(define-key debian-changelog-mode-map "\C-c\C-d"
'debian-changelog-distribution)
(define-key debian-changelog-mode-map "\C-c\C-u"
'debian-changelog-urgency)
(define-key debian-changelog-mode-map "\C-c\C-e"
'debian-changelog-unfinalise-last-version)
(define-key debian-changelog-mode-map "\C-c\C-n"
'outline-next-visible-heading)
(define-key debian-changelog-mode-map "\C-c\C-p"
'outline-previous-visible-heading))
;;
;; menu definition (Chris Waters)
;;
(defvar debian-changelog-is-XEmacs
(and
(not (null (save-match-data (string-match "XEmacs\\|Lucid" emacs-version))))
(= 21 emacs-major-version)))
(cond
(debian-changelog-is-XEmacs
(easy-menu-define
debian-changelog-menu debian-changelog-mode-map "Debian Changelog Mode Menu"
'("Changelog"
["New Version" debian-changelog-add-version (debian-changelog-finalised-p)]
["Add Entry" debian-changelog-add-entry
(not (debian-changelog-finalised-p))]
["Build Open Bug List" debian-changelog-build-open-bug-list]
["Close Bug" debian-changelog-close-bug
(not (debian-changelog-finalised-p))]
"--"
("Set Distribution"
["unstable" (debian-changelog-setdistribution "unstable") t]
("--")
["testing" (debian-changelog-setdistribution "testing") t]
["testing-security" (debian-changelog-setdistribution "testing-security") t]
("--")
["stable" (debian-changelog-setdistribution "stable") t]
["stable-security" (debian-changelog-setdistribution "stable-security") t]
["stable-proposed-updates" (debian-changelog-setdistribution "stable-proposed-updates") t]
("--")
["oldstable-security" (debian-changelog-setdistribution "oldstable-security") t]
["oldstable-proposed-updates" (debian-changelog-setdistribution "oldstable-proposed-updates") t]
("--")
["experimental" (debian-changelog-setdistribution "experimental") t]
["UNRELEASED" (debian-changelog-setdistribution "UNRELEASED") t])
("Set Urgency"
["low" (debian-changelog-seturgency "low") t]
["medium" (debian-changelog-seturgency "medium") t]
["high" (debian-changelog-seturgency "high") t]
["critical" (debian-changelog-seturgency "critical") t])
"--"
["Unfinalise" debian-changelog-unfinalise-last-version
(debian-changelog-finalised-p)]
["Finalise" debian-changelog-finalise-last-version
(not (debian-changelog-finalised-p))]
["Finalise+Save" debian-changelog-finalise-and-save
(not (debian-changelog-finalised-p))]
"--"
"Web View"
["Best Practices" (browse-url "http://www.debian.org/doc/developers-reference/best-pkging-practices.html#bpp-debian-changelog") t]
["Bugs for This Package" (debian-bug-web-bugs) t]
["Archived Bugs for This Package" (debian-bug-web-bugs t) t]
["Bug Number..." (debian-bug-web-bug) t]
["Package Info" (debian-bug-web-packages) t]
;; ("Package web pages..."
;; ["stable" (debian-bug-web-package "stable") t]
;; ["testing" (debian-bug-web-package "testing") t]
;; ["unstable" (debian-bug-web-package "unstable") t])
["Developer Page for This Package" (debian-bug-web-developer-page) t]
["Developer Page for This Maintainer" (debian-changelog-web-developer-page)
t]
"--"
["Customize" (customize-group "debian-changelog") (fboundp 'customize-group)])))
(t
(easy-menu-define
debian-changelog-menu debian-changelog-mode-map "Debian Changelog Mode Menu"
'("Changelog"
["New Version" debian-changelog-add-version (debian-changelog-finalised-p)]
["Add Entry" debian-changelog-add-entry
(not (debian-changelog-finalised-p))]
["Build Open Bug List" debian-changelog-build-open-bug-list]
["Close Bug" debian-changelog-close-bug
(not (debian-changelog-finalised-p))]
"--"
("Set Distribution" :active (not (debian-changelog-finalised-p))
["unstable" (debian-changelog-setdistribution "unstable") t]
("--")
["testing" (debian-changelog-setdistribution "testing") t]
["testing-security" (debian-changelog-setdistribution "testing-security") t]
("--")
["stable" (debian-changelog-setdistribution "stable") t]
["stable-security" (debian-changelog-setdistribution "stable-security") t]
["stable-proposed-updates" (debian-changelog-setdistribution "stable-proposed-updates") t]
("--")
["oldstable-security" (debian-changelog-setdistribution "oldstable-security") t]
["oldstable-proposed-updates" (debian-changelog-setdistribution "oldstable-proposed-updates") t]
("--")
["experimental" (debian-changelog-setdistribution "experimental") t]
["UNRELEASED" (debian-changelog-setdistribution "UNRELEASED") t])
("Set Urgency" :active (not (debian-changelog-finalised-p))
["low" (debian-changelog-seturgency "low") t]
["medium" (debian-changelog-seturgency "medium") t]
["high" (debian-changelog-seturgency "high") t]
["critical" (debian-changelog-seturgency "critical") t])
"--"
["Unfinalise" debian-changelog-unfinalise-last-version
(debian-changelog-finalised-p)]
["Finalise" debian-changelog-finalise-last-version
(not (debian-changelog-finalised-p))]
["Finalise+Save" debian-changelog-finalise-and-save
(not (debian-changelog-finalised-p))]
"--"
"Web View"
["Best Practices" (browse-url "http://www.debian.org/doc/developers-reference/ch-best-pkging-practices.en.html#s-bpp-debian-changelog") t]
["Bugs for This Package" (debian-bug-web-bugs) t]
["Archived Bugs for This Package" (debian-bug-web-bugs t) t]
["Bug Number..." (debian-bug-web-bug) t]
["Package Info" (debian-bug-web-packages) t]
("Package web pages..."
["stable" (debian-bug-web-package "stable") t]
["testing" (debian-bug-web-package "testing") t]
["unstable" (debian-bug-web-package "unstable") t])
["Developer Page for This Package" (debian-bug-web-developer-page) t]
["Developer Page for This Maintainer" (debian-changelog-web-developer-page)
t]
"--"
["Customize" (customize-group "debian-changelog") (fboundp 'customize-group)]))))
;;
;; interactive function to add a new line to the changelog
;;
;;;###autoload
(defun debian-changelog-add-entry ()
"Add a new change entry to a debian-style changelog.
If called from buffer other than a debian/changelog, this will search
for the debian/changelog file to add the entry to."
(interactive)
(if (string-match ".*/debian/changelog" (buffer-file-name))
(debian-changelog-add-entry-plain)
(debian-changelog-add-entry-file)))
(defun debian-changelog-add-entry-plain ()
"Add a new change entry to a debian-style changelog."
(if (eq (debian-changelog-finalised-p) t)
(error (substitute-command-keys "most recent version has been finalised - use \\[debian-changelog-unfinalise-last-version] or \\[debian-changelog-add-version]")))
(goto-char (point-min))
(re-search-forward "\n --")
(backward-char 5)
(if (prog1 (looking-at "\n") (forward-char 1))
nil
(insert "\n"))
(insert " * ")
(save-excursion (insert "\n")))
(defun debian-changelog-add-entry-file ()
"Add an entry for current file in debian/changelog."
(let* ((this-file (buffer-file-name))
(directory (if (not this-file)
(error "This buffer has no file associated to it")
(directory-file-name (file-name-directory this-file))))
(filename (file-name-nondirectory this-file))
(success))
(while directory
(let ((changelog (expand-file-name "debian/changelog" directory)))
(cond
((file-readable-p changelog)
(debian-changelog-add-entry-file-specified changelog filename)
(setq directory nil
success t))
(t
(if (not (string-match "\\(.*\\)/\\([^/]+\\)$" directory))
(setq directory nil)
(setq filename (concat (match-string 2 directory) "/" filename)
directory (match-string 1 directory)))))))
(if (not success)
(error "debian directory not found"))))
(defun debian-changelog-add-entry-file-specified (changelog filename)
"Insert an entry in debian CHANGELOG file for FILENAME."
(interactive)
(find-file changelog)
(if (eq (debian-changelog-finalised-p) t)
(let ((action (capitalize
(read-string
"Most recent version is finalised, [u]nfinalize or [a]dd new version? "))))
(if (not (string-match "^[uU]" action))
(debian-changelog-add-version)
(debian-changelog-unfinalise-last-version)
(debian-changelog-add-entry-plain)))
(debian-changelog-add-entry-plain))
(insert filename ": "))
;;
;; interactive function to close bugs by number. (Peter Galbraith)
;;
(defvar debian-changelog-close-bug-takes-arg t
"A compatibility flag for debian-bug.el.")
(defun debian-changelog-build-open-bug-list ()
"Generate open bugs list, i.e. `debian-bug-open-alist'."
(interactive)
(debian-bug-build-bug-menu (debian-changelog-suggest-package-name) t))
(defun debian-changelog-close-bug (bug-number)
"Add a new change entry to close a BUG-NUMBER."
(interactive
(progn
(if (eq (debian-changelog-finalised-p) t)
(error (substitute-command-keys "most recent version has been finalised - use \\[debian-changelog-unfinalise-last-version] or \\[debian-changelog-add-version]")))
(list (completing-read "Bug number to close: "
debian-bug-open-alist nil nil))))
(if (not (string-match "^[0-9]+$" bug-number))
(error "The bug number should consists of only digits"))
(debian-changelog-add-entry)
(cond
((and debian-bug-open-alist
(assoc bug-number debian-bug-open-alist))
(insert (cadr (assoc bug-number debian-bug-open-alist)))
(fill-paragraph nil))
(t
(save-excursion
(insert " " (debian-changelog--rris
"%s" bug-number debian-changelog-close-bug-statement)))
(message "Enter a brief description of what was done here."))))
;;
;; interactive functions to set urgency and distribution
;;
(defun debian-changelog-distribution ()
"Delete the current distribution and prompt for a new one."
(interactive)
(if (eq (debian-changelog-finalised-p) t)
(error (substitute-command-keys "most recent version has been finalised - use \\[debian-changelog-unfinalise-last-version] or \\[debian-changelog-add-version]")))
(let ((str (completing-read
"Select distribution: "
debian-changelog-allowed-distributions
nil t nil)))
(if (not (equal str ""))
(debian-changelog-setdistribution str))))
(defun debian-changelog-urgency ()
"Delete the current urgency and prompt for a new one."
(interactive)
(if (eq (debian-changelog-finalised-p) t)
(error (substitute-command-keys "most recent version has been finalised - use \\[debian-changelog-unfinalise-last-version] or \\[debian-changelog-add-version]")))
(let ((str (completing-read
"Select urgency: "
'(("low" 1) ("medium" 2) ("high" 3) ("critical" 4))
nil t nil)))
(if (not (equal str ""))
(debian-changelog-seturgency str))))
;;
;; internal function: test if changelog has been finalized or not
;; New version by Tommi Virtanen <tv@debian.org>
;; Sun, 24 Jun 2001 16:03:01 UTC; Debian bug #102088
;; -
;; regexp tweaked by psg, Tue Jul 10 15:29:54 EDT 2001
(defun debian-changelog-finalised-p ()
"Check whether the most recent debian-style changelog entry is finalised yet.
\(ie, has a maintainer name and email address and a release date."
(save-excursion
(goto-char (point-min))
(or (re-search-forward "\n\\S-" (point-max) t)
(goto-char (point-max)))
(if (re-search-backward "\n --" (point-min) t)
(forward-char 4)
;;(beginning-of-line)
;;(insert " --\n\n")
;;(backward-char 2)
)
(cond
((looking-at
"[ \n]+\\S-[^\n\t]+\\S- <[^ \t\n<>]+> +\\S-[^\t\n]+\\S-[ \t]*\n")
t)
((looking-at "[ \t]*\n")
nil)
(t
"finalisation line has bad format (not ` -- maintainer <email> date')"))))
;;
;; interactive functions to add new versions (whole new sections)
;; to changelog.
;;
(defvar debian-changelog-new-upstream-release-p nil)
(defun debian-changelog-add-new-upstream-release ()
"Normal hook for adding \"new upstream release\" entry to changelog."
(when debian-changelog-new-upstream-release-p
(insert "New upstream release")
(setq debian-changelog-new-upstream-release-p nil)))
(defun debian-changelog-add-version ()
"Add a new version section to a debian-style changelog file.
If file is empty, create initial entry."
(interactive)
(if (not (= (point-min)(point-max)))
(let ((f (debian-changelog-finalised-p)))
(and (stringp f) (error f))
(or f (error "Previous version not yet finalised"))))
(goto-char (point-min))
(let ((pkg-name (or (debian-changelog-suggest-package-name)
(read-string "Package name: ")))
(version (or (debian-changelog-suggest-version)
(read-string "New version (including any revision): "))))
(if (debian-changelog-experimental-p)
(insert pkg-name " (" version ") experimental; urgency=medium\n\n * ")
(insert pkg-name " (" version ") " (car debian-changelog-allowed-distributions) "; urgency=medium\n\n * "))
(run-hooks 'debian-changelog-add-version-hook)
(save-excursion (insert "\n\n --\n\n"))))
(defun debian-changelog-experimental-p ()
;; Peter S Galbraith, 04 May 2001
"Return t if last upload is to experimental."
(save-excursion
(goto-char (point-min))
(looking-at "\\sw.* (.+).* \\(experimental\\)")))
(defun debian-changelog-suggest-package-name ()
;; Peter S Galbraith, 23 Feb 2001
"Return package name from first line of the changelog, or nil."
(save-excursion
(goto-char (point-min))
(if (looking-at
"\\(\\S-+\\) +(\\([^()\n\t-]+\\)\\(-\\([^()]+\\)\\)?\\() +[^\n]*\\)")
(match-string-no-properties 1))))
(defun debian-changelog-greater-than (vsn1 vsn2)
"Return t if VSN1 is greater than VSN2."
(save-excursion
(let ((tmp-buffer (get-buffer-create
" *debian-changelog-mode-temp-buffer*")))
(set-buffer tmp-buffer)
(unwind-protect
(progn
(let ((mesg (call-process "dpkg" nil '(t nil) nil
"--compare-versions" vsn1 "gt" vsn2)))
(if (equal mesg 0)
t
nil)))
(kill-buffer tmp-buffer)))))
(defun debian-changelog-suggest-version ()
;; Peter S Galbraith, 23 Feb 2001
"Return a suggested new version number to use for this changelog, or nil."
(save-excursion
(goto-char (point-min))
(let ((findmatch t))
(cond
((looking-at
;;; The following is not strictly correct. The upstream version may actually
;;; contain a hyphen if a debian version number also exists, making two hyphens
;;; I'm also assuming it begins with a digit, which is not enforced
"\\(\\S-+\\) +(\\([0-9]:\\)?\\([0-9][0-9a-zA-Z.+:~]*\\)\\(-\\([0-9a-zA-Z.+~]+\\)\\)?\\() +[^\n]*\\)"))
;; No match...
;; Check again for multiple hyphens, and adjust match-data if found
;; to leave only the bit past the last hyphen as the debian version
;; number.
((looking-at
"\\(\\S-+\\) +(\\([0-9]:\\)?\\([0-9][0-9a-zA-Z.+:~]*\\)\\(-\\([0-9a-zA-Z.+~]+\\)\\)*\\() +[^\n]*\\)")
;; We have a hit. Adjust match-data...
(goto-char (match-end 5))
(skip-chars-backward "0-9a-zA-Z.+~")
(let ((deb-vsn-beg (point))
(ups-vsn-end (1- (point))))
(store-match-data
(list
(match-beginning 0)(match-end 0)
(match-beginning 1)(match-end 1)
(match-beginning 2)(match-end 2)
(match-beginning 3) ups-vsn-end
(match-beginning 4)(match-end 4)
deb-vsn-beg (match-end 5)
(match-beginning 6)(match-end 6)))))
(t
(setq findmatch nil)))
;;; match 1: package name
;;; match 2: epoch, if it exists
;;; match 3: upstream version number
;;; match 4: debian version number exists if matched
;;; match 5: debian version number
;;; match 6: rest of string
(if (not findmatch)
nil
(let ((pkg-name (match-string-no-properties 1))
(epoch (or (match-string-no-properties 2) ""))
(upstream-vsn (match-string-no-properties 3))
(debian-vsn (match-string-no-properties 5)))
;;debug (message "name: %s epoch: %s version: %s debian: %s" pkg-name epoch upstream-vsn debian-vsn))))
(cond
;; Debian vsn exists + Old upstream version matches current one.
;; -> Increment Debian version...
((and debian-vsn
(string-match
(regexp-quote (concat "/" pkg-name "-" upstream-vsn "/debian/changelog"))
buffer-file-name))
(concat epoch upstream-vsn "-"
(debian-changelog-increment-version debian-vsn)))
;; Same as above, but more general in case directory name doesn't
;; match package name. -> Increment Debian version...
((and debian-vsn
(string-match
(concat "-" (regexp-quote upstream-vsn) "/debian/changelog")
buffer-file-name))
(concat epoch upstream-vsn "-"
(debian-changelog-increment-version debian-vsn)))
;; Debian vsn exists but old upstream version doesn't match new one.
;; -> Use new upstream version with "-1" debian version.
;;;FIXME: I should perhaps check that the directory name version is higher
;;;than that currently in changelog.
((and debian-vsn
(string-match (concat
"/"
(regexp-quote pkg-name)
"-\\([0-9][0-9a-zA-Z.+~-]+\\)/debian/changelog")
buffer-file-name))
(setq debian-changelog-new-upstream-release-p t)
(concat epoch (match-string 1 buffer-file-name) "-1"))
;; Same as above, but more general in case directory name doesn't
;; match package name.
;; -> Use new upstream version with "-1" debian version.
((and debian-vsn
(string-match
(concat "-\\([0-9][0-9a-zA-Z.+~-]+\\)/debian/changelog")
buffer-file-name))
(setq debian-changelog-new-upstream-release-p t)
(concat epoch (match-string 1 buffer-file-name) "-1"))
;; Debian vsn exists, but directory name has no version
;; -> increment Debian vsn (no better guess)
(debian-vsn
(concat epoch upstream-vsn "-"
(debian-changelog-increment-version debian-vsn)))
;;; No Debian version number...
;; No debian version number and version number from changelog
;; already greater than from directory name.
((and (not debian-vsn)
(not (string-match
(concat "/" (regexp-quote pkg-name) "-"
(regexp-quote upstream-vsn) "/debian/changelog")
buffer-file-name))
(string-match (concat "/" (regexp-quote pkg-name)
"-\\([0-9a-zA-Z.+~]+\\)/debian/changelog")
buffer-file-name)
(debian-changelog-greater-than
upstream-vsn (match-string 1 buffer-file-name)))
(concat epoch (debian-changelog-increment-version upstream-vsn)))
;; No debian version number (Debian native) and old upstream
;; version matches new one (e.g. 'dpk-source -x package' without
;; then bumping up the version in the directory name.
((and (not debian-vsn)
(string-match (concat "/" (regexp-quote pkg-name) "-"
(regexp-quote upstream-vsn)
"/debian/changelog")
buffer-file-name)
(concat epoch
(debian-changelog-increment-version upstream-vsn))))
;; No debian version number and version number from changelog
;; less than from directory name.
((and (not debian-vsn)
(not (string-match
(concat "/" (regexp-quote pkg-name) "-"
(regexp-quote upstream-vsn) "/debian/changelog")
buffer-file-name))
(string-match (concat
"/" (regexp-quote pkg-name)
"-\\([0-9a-zA-Z.+~]+\\)/debian/changelog")
buffer-file-name)
(debian-changelog-greater-than
(match-string 1 buffer-file-name) upstream-vsn))
(concat epoch (match-string 1 buffer-file-name)))
((string-match (concat "/" (regexp-quote pkg-name)
"-\\([0-9a-zA-Z.+~]+\\)/debian/changelog")
buffer-file-name)
;;Hmmm.. return version number from directory if we get this far
(concat epoch (match-string 1 buffer-file-name)))
((string-match
(concat "-\\([0-9][0-9a-zA-Z.+~]+\\)/debian/changelog")
buffer-file-name)
;;Hmmm.. return version number from directory if we get this far
(concat epoch (match-string 1 buffer-file-name)))
;; Directory name has no version -> increment what we have.
(t
(concat epoch
(debian-changelog-increment-version upstream-vsn)))))))))
(defun debian-changelog-increment-version (version)
;; Peter S Galbraith, 09 Mar 2001
"Increment the last numeric portion of a VERSION number.
1 -> 2
0potato1 -> 0potato2
1.01 -> 1.02"
(cond
((string-match "[1-9][0-9]*$" version)
(let ((first-part (substring version 0 (match-beginning 0)))
(snd-part (match-string 0 version)))
(concat
first-part (number-to-string (+ 1 (string-to-number snd-part))))))
((string-match "[0-9]*$" version)
;; 3.5.4.0 -> 3.5.4.1
(let ((first-part (substring version 0 (match-beginning 0)))
(snd-part (match-string 0 version)))
(concat
first-part (number-to-string (+ 1 (string-to-number snd-part))))))
(t
;; Safety net only - first condition should catch all
(number-to-string (+ 1 (string-to-number version))))))
(defun debian-changelog-finalise-and-save ()
"Finalise, if necessary, and then save a debian-style changelog file."
(interactive)
(let ((f (debian-changelog-finalised-p)))
(and (stringp f) (error f))
(or f (debian-changelog-finalise-last-version)))
(save-buffer))
;;
;; internal function to get date as string (used by finalising routines)
;;
(defun debian-changelog-date-string ()
"Return RFC-822 format date string.
Use UTC if `debian-changelog-date-utc-flag' is non-nil."
(let ((system-time-locale "C"))
(format-time-string "%a, %d %b %Y %T %z" nil
debian-changelog-date-utc-flag)))
;;
;; interactive functions to finalize entry
;;
;;; Use debian-changelog-full-name and debian-changelog-mailing-address instead
;; (make-local-variable 'add-log-full-name)
;; (make-local-variable 'add-log-mailing-address)
(defun debian-changelog-finalise-last-version ()
"Finalise maintainer's name and email and release date."
(interactive)
(and (debian-changelog-finalised-p)
(debian-changelog-unfinalise-last-version))
(if debian-changelog-local-variables-maybe-remove
(debian-changelog-local-variables-maybe-remove))
(save-excursion
(goto-char (point-min))
(re-search-forward "\n --\\([ \t]*\\)")
(delete-region (match-beginning 1) (match-end 1))
(insert " " debian-changelog-full-name
" <" debian-changelog-mailing-address "> "
(debian-changelog-date-string))))
(defun debian-changelog-last-maintainer ()
"Return maintainer name and e-mail of the last changelog entry as
a list in the form (NAME EMAIL)."
(save-excursion
(goto-char (point-min))
(let ((string
(if (re-search-forward "^ -- \\(.*\\)>" nil t)
(if (fboundp 'match-string-no-properties)
(match-string-no-properties 1)
(match-string 1))
(error "Maintainer name and email not found."))))
(split-string string " <"))))
(defun debian-changelog-web-developer-page ()
"Browse the BTS for the last upload maintainer's developer summary page."
(interactive)
(if (not (featurep 'browse-url))
(progn
(load "browse-url" nil t)
(if (not (featurep 'browse-url))
(error "This function requires the browse-url elisp package"))))
(let ((email (cadr (debian-changelog-last-maintainer))))
(browse-url (concat "http://qa.debian.org/developer.php?login=" email))
(message "Looking up developer summary page for %s via browse-url" email)))
;; co-maintenance as per bug #352957 by Luca Capello 2006
(defun debian-changelog-comaintainer-insert (name separator)
"In the line before SEPARATOR, insert the co-maintainer name as for
the form [ NAME ]."
(goto-char (point-min))
(re-search-forward (concat "\n " separator))
(previous-line 1)
(insert "\n [ " name " ]")
(when (string= "--" separator)
(insert "\n")))
(defun debian-changelog-comaintainer ()
"If the last maintainer is different from the current one, create a
co-maintained changelog entry."
(let ((name (car (debian-changelog-last-maintainer))))
(unless (string= name debian-changelog-full-name)
(let ((maintainers-found)
(debian-changelog-last-entry-end
(progn (goto-char (point-min))
(re-search-forward "\n --"))))
(mapc (lambda (x)
(goto-char (point-min))
(when (search-forward x debian-changelog-last-entry-end t)
(add-to-list 'maintainers-found x)))
(list name debian-changelog-full-name))
;; set the co-maintenance if any
(if maintainers-found
;; co-maintenance, debian-changelog-full-name is not present
(if (and (member name maintainers-found)
(not (member debian-changelog-full-name
maintainers-found)))
(debian-changelog-comaintainer-insert
debian-changelog-full-name "--"))
;; no co-maintenance
(mapc (lambda (x)
(debian-changelog-comaintainer-insert (car x) (cadr x)))
`((,name " *") (,debian-changelog-full-name "--"))))))))
;;
;; interactive function to unfinalise changelog (so modifications can be made)
;;
(defun debian-changelog-unfinalise-last-version ()
"Remove the `finalisation' information.
Removes maintainer's name, email address and release date so that new entries
can be made."
(interactive)
(if (debian-changelog-finalised-p) nil
(error "Most recent version is not finalised"))
(save-excursion
(debian-changelog-comaintainer)
(goto-char (point-min))
(re-search-forward "\n --")
(let ((dels (point)))
(end-of-line)
(delete-region dels (point)))))
;;
;; top level interactive function to activate mode
;;
(defvar imenu-create-index-function)
;;;###autoload
(defun debian-changelog-mode ()
"Major mode for editing Debian-style change logs.
Runs `debian-changelog-mode-hook' if it exists.
Key bindings:
\\{debian-changelog-mode-map}
If you want to use your debian.org email address for debian/changelog
entries without using it for the rest of your email, use the `customize`
interface to set it, or simply set the variable
`debian-changelog-mailing-address' in your ~/.emacs file, e.g.
(setq debian-changelog-mailing-address \"myname@debian.org\"))"
(interactive)
(kill-all-local-variables)
(setq major-mode 'debian-changelog-mode
mode-name "Debian changelog"
left-margin 2
fill-prefix " "
fill-column 74)
;;(hack-local-variables)
;; Can't hack-local-varibles because a "mode: " creates an infinite loop.
;; It doesn't matter anyway. The Local Variable block is parsed after
;; the mode is run when visited by find-file. That's the only time it's
;; done.
(use-local-map debian-changelog-mode-map)
;; Let each entry behave as one paragraph:
; (set (make-local-variable 'paragraph-start) "\\*")
; (set (make-local-variable 'paragraph-separate) "\\*\\|\\s-*$|\\S-")
;; PSG: The following appears to get fill-paragraph to finally work!
(set (make-local-variable 'paragraph-start) "\\*\\|\\s [*]$\\|\f\\|^\\<")
(set (make-local-variable 'paragraph-separate) "\\s *$\\|\f\\|^\\<")
;; Let each version behave as one page.
;; Match null string on the heading line so that the heading line
;; is grouped with what follows.
(set (make-local-variable 'page-delimiter) "^\\<")
(set (make-local-variable 'version-control) 'never)
(set (make-local-variable 'adaptive-fill-regexp) "\\s *")
(set (make-local-variable 'font-lock-defaults)
'((debian-changelog-font-lock-keywords
debian-changelog-font-lock-keywords-1
debian-changelog-font-lock-keywords-2) t t))
(set (make-local-variable
'debian-changelog-local-variables-maybe-remove-done) nil)
(set (make-local-variable 'indent-line-function) 'indent-relative-maybe)
(set (make-local-variable 'outline-regexp) "^[a-z]")
(setq local-abbrev-table text-mode-abbrev-table)
(set-syntax-table text-mode-syntax-table)
(debian-bug-bug-menu-init debian-changelog-mode-map)
(easy-menu-add debian-changelog-menu)
(cond
(debian-changelog-use-imenu
(require 'imenu)
(setq imenu-create-index-function 'imenu--create-debian-changelog-index)
(if (or window-system
(fboundp 'tmm-menubar))
(progn
(imenu-add-to-menubar "History")
;(imenu-update-menubar)
))))
(cond
(debian-changelog-highlight-mouse-t
(debian-changelog-setup-highlight-mouse-keymap)
(debian-changelog-highlight-mouse)))
(run-hooks 'debian-changelog-mode-hook))
;;(easy-menu-add debian-changelog-menu))
;;
;; font-lock face defs by Peter Galbraith
(defvar debian-changelog-warning-face 'debian-changelog-warning-face
"Face to use for important keywords.")
(cond
((and (fboundp 'defface)
(facep 'font-lock-warning-face))
(defface debian-changelog-warning-face '((t :inherit font-lock-warning-face))
"Face for debian-changelog important strings."
:group 'debian-changelog-faces))
((fboundp 'defface)
(defface debian-changelog-warning-face
'((((class grayscale)(background light))(:foreground "DimGray" :bold t))
(((class grayscale)(background dark))(:foreground "LightGray" :bold t))
(((class color)(background light))(:foreground "red" :bold t ))
(((class color)(background dark))(:foreground "red" :bold t ))
(t (:bold t)))
"Face for debian-changelog important strings."
:group 'debian-changelog-faces))
(t
;;; XEmacs19:
(make-face 'debian-changelog-warning-face
"Face to use for important keywords.in debian-changelog-mode")
(make-face-bold 'debian-changelog-warning-face)
;; XEmacs uses a tag-list thingy to determine if we are using color
;; or mono (and I assume a dark background).
(set-face-foreground 'debian-changelog-warning-face
"red" 'global nil 'append)))
;;
;; font-lock definition by Chris Waters,
;; revisited by Peter Galbraith (Apr 2001)
;; Available faces:
;; keyword-face, type-face, string-face, comment-face,
;; variable-name-face, function-name-face
;; in emacs only: builtin-face, constant-face, warning-face
;; in xemacs only: reference-face, doc-string-face, preprocessor-face
;; the mappings I've done below only use faces available in both emacsen.
;; this is somewhat limiting; I may consider adding my own faces later.
(defvar debian-changelog-font-lock-keywords-1
(list
;; package name line: pkg (1.0-1) unstable; urgency=medium
'(debian-changelog-fontify-version
(1 font-lock-function-name-face)
(2 font-lock-type-face nil t)
(3 font-lock-string-face nil t)
(4 debian-changelog-warning-face nil t))
'(debian-changelog-fontify-stable . debian-changelog-warning-face)
'(debian-changelog-fontify-backports . debian-changelog-warning-face)
'(debian-changelog-fontify-frozen . font-lock-type-face)
'(debian-changelog-fontify-unstable . font-lock-string-face)
'(debian-changelog-fontify-experimental . debian-changelog-warning-face)
'(debian-changelog-fontify-unreleased . debian-changelog-warning-face)
'(debian-changelog-fontify-urgency-crit . debian-changelog-warning-face)
'(debian-changelog-fontify-urgency-high . debian-changelog-warning-face)
'(debian-changelog-fontify-urgency-med . font-lock-type-face)
'(debian-changelog-fontify-urgency-low . font-lock-string-face)
;; bug closers
'(;"\\(closes:\\) *\\(\\(bug\\)?#? *[0-9]+\\(, *\\(bug\\)?#? *[0-9]+\\)*\\)"
;; Process lines that continue on multiple lines - Fred Bothamy
"\\(closes:\\)[ \t\n]*\\(\\(bug\\)?#? *[0-9]+\\(,[ \t\n]*\\(bug\\)?#? *[0-9]+\\)*\\)"
(1 font-lock-keyword-face)
(2 debian-changelog-warning-face))
'("^\t.*$" . debian-changelog-warning-face)
;; maintainer line (enforce 2 space exactly between email and date)
'("^ -- \\(.+\\) <\\(.+@.+\\)> \\([^ ].+\\)$"
(1 font-lock-variable-name-face)
(2 font-lock-variable-name-face)
(3 font-lock-string-face)))
"First level highlighting for `debian-changelog-mode'.")
(defvar debian-changelog-font-lock-keywords-2
(append
debian-changelog-font-lock-keywords-1
;; bullet lines
'(("^ +\\(\\*\\)" 1 font-lock-comment-face)))
"High level highlighting for `debian-changelog-mode'.")
(defvar debian-changelog-font-lock-keywords
debian-changelog-font-lock-keywords-1
"Default expressions to highlight in `debian-changelog-mode'.")
;; Fontifier function by Peter Galbraith, Apr 24 2001
(defun debian-changelog-fontify-version (limit)
"Return match for package name and version number up to LIMIT.
match 1 -> package name
2 -> native vsn number
3 -> non-native vsn number
4 -> non-native NMU vsn number"
(when (re-search-forward
;;; The following is not strictly correct. The upstream version may actually
;;; contain a hyphen if a debian version number also exists, making two hyphens
;;; I'm assuming it begins with a digit, which is not enforced
"^\\(\\S-+\\) (\\([0-9]:\\)?\\([0-9][0-9a-zA-Z.+:~]*\\)\\(-\\([0-9a-zA-Z.+~]+\\)\\)*)" nil t)
;; ^
;; Note the asterix above, allowing more than one hyphen in the version
;; number, but wrongly assuming that all of it is the Debian version
;; instead of only the bit past the last hyphen. I might get NMUs wrongly
;; for version numbers with multiple hyphens.
;; match 1: package name
;; match 2: epoch, if it exists
;; match 3: upstream version number
;; match 4: debian version number exists if matched
;; match 5: debian version number
(cond
((not (match-string 4))
;; No Debian version number -> Debian native package
(store-match-data
(list (match-beginning 1)(match-end 3)
(match-beginning 1)(match-end 1)
(match-beginning 3)(match-end 3)
nil nil
nil nil)))
((match-string 4)
;; Debian version number -> Let's see if NMU...
(let* ((deb-vsn (match-string 5))
(is-NMU (save-match-data (string-match "\\." deb-vsn))))
(cond
(is-NMU
(store-match-data
(list (match-beginning 1)(match-end 5)
(match-beginning 1)(match-end 1)
nil nil
nil nil
(match-beginning 3)(match-end 5))))
(t
(store-match-data
(list (match-beginning 1)(match-end 5)
(match-beginning 1)(match-end 1)
nil nil
(match-beginning 3)(match-end 5)
nil nil)))))))
t))
(defun debian-changelog-fontify-urgency-crit (limit)
(when (re-search-forward "^\\sw.* (.+).*; \\(urgency=critical\\)" limit t)
(store-match-data
(list (match-beginning 1)(match-end 1)))
t))
(defun debian-changelog-fontify-urgency-high (limit)
(when (re-search-forward "^\\sw.* (.+).*; \\(urgency=high\\)" limit t)
(store-match-data
(list (match-beginning 1)(match-end 1)))
t))
(defun debian-changelog-fontify-urgency-med (limit)
(when (re-search-forward "^\\sw.* (.+).*; \\(urgency=medium\\)" limit t)
(store-match-data
(list (match-beginning 1)(match-end 1)))
t))
(defun debian-changelog-fontify-urgency-low (limit)
(when (re-search-forward "^\\sw.* (.+).*; \\(urgency=low\\)" limit t)
(store-match-data
(list (match-beginning 1)(match-end 1)))
t))
(defun debian-changelog-fontify-stable (limit)
(when (re-search-forward "^\\sw.* (.+).* \\(\\(old\\)?stable\\(-security\\|-proposed-updates\\)?\\)" limit t)
(store-match-data
(list (match-beginning 1)(match-end 1)))
t))
(defun debian-changelog-fontify-frozen (limit)
(when (re-search-forward "^\\sw.* (.+).* \\(testing\\(-security\\)?\\|frozen\\|woody-proposed-updates\\)" limit t)
(store-match-data
(list (match-beginning 1)(match-end 1)))
t))
(defun debian-changelog-fontify-unstable (limit)
(when (re-search-forward "^\\sw.* (.+).* \\(unstable\\)" limit t)
(store-match-data
(list (match-beginning 1)(match-end 1)))
t))
(defun debian-changelog-fontify-experimental (limit)
(when (re-search-forward "^\\sw.* (.+).* \\(experimental\\)" limit t)
(store-match-data
(list (match-beginning 1)(match-end 1)))
t))
(defun debian-changelog-fontify-unreleased (limit)
(when (re-search-forward "^\\sw.* (.+).* \\(UNRELEASED\\)" limit t)
(store-match-data
(list (match-beginning 1)(match-end 1)))
t))
(defun debian-changelog-fontify-backports (limit)
(when (re-search-forward "^\\sw.* (.+).* \\([a-z][a-z]*-backports\\)" limit t)
(store-match-data
(list (match-beginning 1)(match-end 1)))
t))
;;
;; browse-url interfaces, by Peter Galbraith, Feb 23 2001
;;
(defvar debian-changelog-is-XEmacs
(not (null (save-match-data (string-match "XEmacs\\|Lucid" emacs-version)))))
(defvar debian-changelog-mouse-keymap nil
"Keymap for mouse commands.")
(defun debian-changelog-setup-highlight-mouse-keymap ()
(setq debian-changelog-mouse-keymap
;;; First, copy the local keymap so we don't have `disappearing' menus
;;; when the mouse is moved over a bug number.
;;; FIXME: Check out (mouse-major-mode-menu) to see how it grabs the local
;;; menus to display.
(let ((m (copy-keymap (current-local-map))))
;; (cond
;; ((and debian-changelog-use-imenu
;; (or window-system (fboundp 'tmm-menubar)))
;; (imenu-add-to-menubar "History")))
(cond
(debian-changelog-is-XEmacs
(set-keymap-name m 'debian-changelog-mouse-keymap)
(define-key m [button3]
'debian-bug-web-this-bug-under-mouse))
(t
(define-key m [down-mouse-3]
'debian-bug-web-this-bug-under-mouse)))
m)))
(defvar debian-changelog-ext-list nil
"XEmacs buffer-local list of debian-changelog-cite extents.")
(make-variable-buffer-local 'debian-changelog-ext-list)
(put 'debian-changelog-ext-list 'permanent-local t)
(defun debian-changelog-highlight-mouse ()
"Make that nice green highlight when the mouse is over a bug number.
Also set keymap."
(interactive)
(save-excursion
(let ((s)(e)(extent)(local-extent-list debian-changelog-ext-list)
(inhibit-read-only t)
(modified (buffer-modified-p))) ;put-text-property changing this?
;; Remove the mouse face properties first.
(setq debian-changelog-ext-list nil) ;Reconstructed below...
(if (string-match "XEmacs\\|Lucid" emacs-version)
(while local-extent-list
(setq extent (car local-extent-list))
(if (or (extent-detached-p extent)
(and (<= (point-min)(extent-start-position extent))
(>= (point-max)(extent-end-position extent))))
(delete-extent extent)
(setq debian-changelog-ext-list
(cons extent debian-changelog-ext-list)))
(setq local-extent-list (cdr local-extent-list)))
;; Remove properties for regular emacs
;; FIXME This detroys all mouse-faces and local-maps!
(let ((before-change-functions) (after-change-functions))
(remove-text-properties (point-min) (point-max)
'(mouse-face t local-map t))))
(goto-char (point-min))
;; FIXME: Ideally, I want to hightlight _only_ the digit parts
;; (skipping the coma, and the word "bug".
(while
(re-search-forward
;;; "\\(closes:\\) *\\(\\(bug\\)?#? *[0-9]+\\(, *\\(bug\\)?#? *[0-9]+\\)*\\)"
;; Same deal as for font-lock - patch from Fred Bothamy.
"\\(closes:\\)[ \t\n]*\\(\\(bug\\)?#? *[0-9]+\\(,[ \t\n]*\\(bug\\)?#? *[0-9]+\\)*\\)"
nil t)
(setq s (match-beginning 2))
(setq e (match-end 2))
(cond
((string-match "XEmacs\\|Lucid" emacs-version)
(setq extent (make-extent s e))
(setq debian-changelog-ext-list
(cons extent debian-changelog-ext-list))
(set-extent-property extent 'highlight t)
(set-extent-property extent 'start-open t)
; (set-extent-property extent 'balloon-help 'debian-changelog-label-help)
; (set-extent-property extent 'help-echo 'debian-changelog-label-help-echo)
(set-extent-property extent 'keymap debian-changelog-mouse-keymap))
(t
(let ((before-change-functions) (after-change-functions))
(put-text-property s e 'local-map
debian-changelog-mouse-keymap)
(put-text-property s e 'mouse-face 'highlight)))))
(set-buffer-modified-p modified))))
;;;-------------
;;; imenu stuff - Peter Galbraith, May 2001
(eval-when-compile
(require 'cl)
(if (fboundp 'imenu) ;Make sure auto-load is loaded
(require 'imenu)))
(defvar debian-changelog-imenu-doing-closebug nil
"Internal flag set when imenu is processing many bug closings.")
(make-variable-buffer-local 'debian-changelog-imenu-doing-closebug)
(defun debian-changelog-imenu-prev-index-position-function ()
(cond
(debian-changelog-imenu-doing-closebug
(if (not (posix-search-backward
"\\(closes:\\)\\|[^0-9]\\([0-9]+\\)" nil t))
nil ; No match
;; match 1 -> "closes:"
;; match 2 -> a bug number
(cond
((match-string 1)
(setq debian-changelog-imenu-doing-closebug nil)
(debian-changelog-imenu-prev-index-position-function))
(t
;; Return the bug number match
t))))
(t
(if (not (re-search-backward
"\\(closes: *\\(bug\\)?#? *[0-9]+\\)\\|\\(^\\sw.* (\\(.+\\))\\)"
nil t))
nil ; No match
;; match 1 -> "closes:"
;; match 4 -> a version number
(cond
((match-string 1)
(setq debian-changelog-imenu-doing-closebug t)
(forward-char -1)
(re-search-forward
"\\(closes:\\) *\\(\\(bug\\)?#? *[0-9]+\\(, *\\(bug\\)?#? *[0-9]+\\)*\\)"
nil t)
(forward-char 1)
(debian-changelog-imenu-prev-index-position-function))
(t
;; Return the version number match
t))))))
(defvar debian-changelog-imenu-counter nil
"Debian-changelog-mode internal variable for imenu support.")
(defun imenu--create-debian-changelog-index ()
(save-match-data
(save-excursion
(let ((index-alist '())
(index-bug-alist '())
(index-bugsorted-alist '())
(prev-pos 0)
(imenu-scanning-message "Scanning changelog for History (%3d%%)")
)
(setq debian-changelog-imenu-counter -99)
(goto-char (point-max))
(imenu-progress-message prev-pos 0 t)
;;; (message "Scanning changelog history...")
(setq debian-changelog-imenu-doing-closebug nil)
(while (debian-changelog-imenu-prev-index-position-function)
(imenu-progress-message prev-pos nil t)
(let ((marker (make-marker)))
(set-marker marker (point))
(cond
((match-beginning 2) ;bug number
(push (cons (match-string-no-properties 2) marker)
index-bug-alist))
((match-beginning 4) ;version number
(push (cons (match-string-no-properties 4) marker)
index-alist)))))
(imenu-progress-message prev-pos 100 t)
;;; (message "Scanning changelog history... done.")
(cond
(index-bug-alist
(push (cons "Closed Bugs (chrono)"
index-bug-alist)
index-alist)
(setq index-bugsorted-alist (copy-alist index-bug-alist))
(push (cons "Closed Bugs (sorted)"
(sort index-bugsorted-alist
'debian-changelog-imenu-sort))
index-alist)))
index-alist))))
(defun debian-changelog-imenu-sort (el1 el2)
"Predicate to compare labels in lists."
(string< (car el2) (car el1) ))
;;; end of imenu stuff
;;;-------------
;;; Setup auto-mode-alist
;; (in case /etc/emacs/site-start.d/50dpkg-dev.el not used)
;;
;; Crib note: no need for "NEWS.Debian.gz" or "changelog.Debian.gz" entries
;; since jka-compr.el dispatches using the basename after uncompressing.
(add-to-list 'auto-mode-alist '("/debian/*NEWS" . debian-changelog-mode))
(add-to-list 'auto-mode-alist '("NEWS.Debian" . debian-changelog-mode))
;;(add-to-list 'auto-mode-alist '("/debian/changelog\\'" . debian-changelog-mode))
;;; Instead use this. See http://bugs.debian.org/457047 by Trent W. Buck
;;; Valid package names spec is Debian Policy section 5.6.7
(add-to-list
'auto-mode-alist
'("/debian/\\([[:lower:][:digit:]][[:lower:][:digit:].+-]+\\.\\)?changelog\\'"
. debian-changelog-mode))
(add-to-list 'auto-mode-alist '("changelog.Debian" . debian-changelog-mode))
;; For debchange
(add-to-list 'auto-mode-alist '("changelog.dch" . debian-changelog-mode))
;;;###autoload(add-to-list 'auto-mode-alist '("/debian/*NEWS" . debian-changelog-mode))
;;;###autoload(add-to-list 'auto-mode-alist '("NEWS.Debian" . debian-changelog-mode))
;;;###autoload(add-to-list 'auto-mode-alist '("/debian/\\([[:lower:][:digit:]][[:lower:][:digit:].+-]+\\.\\)?changelog\\'" . debian-changelog-mode))
;;;###autoload(add-to-list 'auto-mode-alist '("changelog.Debian" . debian-changelog-mode))
;;;###autoload(add-to-list 'auto-mode-alist '("changelog.dch" . debian-changelog-mode))
(provide 'debian-changelog-mode)
;;; debian-changelog-mode.el ends here
|
