+++ /dev/null
-;; debian-changelog.el --- change log maintenance for Debian-style changelogs
-
-;; Keywords: maint
-
-;; Copyright (C) 1996 Ian Jackson
-;; Copyright (C) 1997 Klee Dienes
-;; This file is part of dpkg.
-;;
-;; It 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.
-;;
-;; dpkg 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, 675 Mass Ave,
-;; Cambridge, MA 02139, USA.
-
-(require 'add-log)
-
-(defun debian-changelog-setheadervalue (re str)
- (let (a b v k
- (lineend (save-excursion (end-of-line) (point))))
- (save-excursion
- (goto-char (point-min))
- (re-search-forward re lineend)
- (setq 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)))))
-
-(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-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))
-
-(defun debian-changelog-add-entry ()
- "Add a new change entry to a debian-style changelog."
- (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]")))
- (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-distribution (arg)
- "Delete the current distribution and prompt for a new one."
- (interactive "P")
- (let* ((curstr
- (debian-changelog-getheadervalue ") \\(.*\\)\\;"))
- (str (completing-read
- "Select distribution: "
- '(("stable" 1)
- ("frozen" 2)
- ("unstable" 3)
- ("stable frozen unstable" 4)
- ("stable unstable frozen" 4)
- ("unstable stable frozen" 4)
- ("unstable frozen stable" 4)
- ("frozen unstable stable" 4)
- ("frozen stable unstable" 4)
- ("frozen unstable" 5)
- ("unstable frozen" 5)
- ("stable frozen" 6)
- ("frozen stable" 6)
- ("stable unstable" 7)
- ("unstable stable" 7))
- nil t nil)))
- (if (not (equal str ""))
- (debian-changelog-setheadervalue ") \\(.*\\)\\;" str))))
-
-(defun debian-changelog-urgency (arg)
- "Delete the current urgency and prompt for a new one."
- (interactive "P")
- (let* ((urgency-regex "\\;[^\n]* urgency=\\(\\sw+\\)")
- (curstr
- (debian-changelog-getheadervalue urgency-regex))
- (str (completing-read
- "Select urgency: "
- '(("low" 1) ("medium" 2) ("high" 3))
- nil t nil)))
- (if (not (equal str ""))
- (debian-changelog-setheadervalue urgency-regex str))))
-
-(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))
- (if (re-search-forward "\n\\S-" (point-max) t)
- (progn
- (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')")))
- t)))
-
-(defun debian-changelog-add-version ()
- "Add a new version section to a debian-style changelog file."
- (interactive)
- (let ((f (debian-changelog-finalised-p)))
- (and (stringp f) (error f))
- (or f (error "previous version not yet finalised")))
- (goto-char (point-min))
- (let ((headstring
- (if (looking-at "\\(\\S-+ ([^()\n\t ]*[^0-9\n\t()]\\)\\([0-9]+\\)\\()[^\n]*\\)")
- (concat (match-string 1)
- (number-to-string (+ 1 (string-to-number (match-string 2))))
- (match-string 3))
- (let ((pkg (read-string "Package name: "))
- (ver (read-string "New version (including any revision): ")))
- (concat pkg " (" ver ") unstable; urgency=low")))))
- (insert headstring "\n\n * ")
- (save-excursion
- (if (re-search-backward ") \\([^\n]*\\);[^\n]* urgency=\\(\\sw+\\)" (point-min) t)
- (progn (goto-char (match-beginning 2))
- (delete-region (point) (match-end 2))
- (insert "low")
- (goto-char (match-beginning 1))
- (delete-region (point) (match-end 1))
- (insert "unstable"))))
- (save-excursion (insert "\n\n --\n\n"))))
-
-(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))
-
-(defun debian-changelog-date-string ()
- "Return RFC-822 format date string"
- (let* ((dp "822-date")
- (cp (point))
- (ret (call-process "822-date" nil t))
- (np (point))
- (out nil))
- (cond ((not (or (eq ret nil) (eq ret 0)))
- (setq out (buffer-substring-no-properties cp np))
- (delete-region cp np)
- (error (concat "error from " dp ": " out)))
- (t
- (backward-char)
- (or (looking-at "\n")
- (error (concat "error from " dp ": expected newline after date string")))
- (setq out (buffer-substring-no-properties cp (- np 1)))
- (delete-region cp np)
- out))))
-
-(defun debian-changelog-finalise-last-version ()
- "Add the `finalisation' information (maintainer's name and email
-address and release date)."
- (interactive)
- (or add-log-full-name (setq add-log-full-name (user-full-name)))
- (or add-log-mailing-address (setq add-log-mailing-address user-mail-address))
- (and (debian-changelog-finalised-p) (debian-changelog-unfinalise-last-version))
- (save-excursion
- (goto-char (point-min))
- (re-search-forward "\n --\\([ \t]*\\)")
- (delete-region (match-beginning 1) (match-end 1))
- (insert " " add-log-full-name " <" add-log-mailing-address "> "
- (debian-changelog-date-string))))
-
-(defun debian-changelog-unfinalise-last-version ()
- "Remove the `finalisation' information (maintainer's name and 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
- (goto-char (point-min))
- (re-search-forward "\n --")
- (let ((dels (point)))
- (end-of-line)
- (delete-region dels (point)))))
-
-(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}
-Hint: If you want to use your debian.org email address for debian/changelog
-entries without using it for the rest of your email, put
-
- (add-hook 'debian-changelog-mode-hook 'my-debian-changelog-mode-hook)
- (defun my-debian-changelog-mode-hook ()
- (make-local-variable 'add-log-mailing-address)
- (setq add-log-mailing-address \"myname@debian.org\"))
-
-in your ~/.emacs file. This is better than including a local setting
-for add-log-mailing-address in the changelog itself both because you
-only have to set it up once and because it works in the presense of
-NMUs."
-
- (interactive)
- (kill-all-local-variables)
- (text-mode)
- (setq major-mode 'debian-changelog-mode
- mode-name "Debian changelog"
- left-margin 2
- fill-prefix " "
- fill-column 74)
- (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-")
- ;; 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)
- (run-hooks 'debian-changelog-mode-hook))
-
-
-;; define a menu with a few useful commands
-(define-key debian-changelog-mode-map [menu-bar] (make-sparse-keymap))
-(define-key debian-changelog-mode-map [menu-bar debian]
- (cons "Debian" (make-sparse-keymap "Debian")))
-
-;; Define specific subcommands in this menu.
-(define-key debian-changelog-mode-map
- [menu-bar debian add-entry]
- '("Add entry" . debian-changelog-add-entry))
-(define-key debian-changelog-mode-map
- [menu-bar debian add-version]
- '("Add version" . debian-changelog-add-version))
-(define-key debian-changelog-mode-map
- [menu-bar debian finalise-and-save]
- '("Finalise and save" . debian-changelog-finalise-last-version))
-
-(provide 'debian-changelog)
projects / dpkg / commitdiff