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
|
#!/usr/bin/emacs --script
;;; evilupate.el -- Publishing script for Evil
;;; Header:
;; This file is not part of Emacs
;; Author: Frank Fischer <frank-fischer@shadow-soft.de>
;; Maintainer: Frank Fischer <frank-fischer@shadow-soft.de>
;; Version: 1.0
;; Package-Requires: ((emacs "24.3") (s "1.9.0") (f "0.17.2") yaoddmuse)
;; The contents of this file are subject to the GPL License, Version 3.0.
;; Copyright (C) 2015, 2016, Frank Fischer
;; 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
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version
;; This program 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 this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;; This is a small script to update Evil's version at certain places:
;;
;; - topic of the IRC channel #evil-mode in irc.libera.chat
;; - EmacsWiki page
;; - header of all source files
;; - the ELPA package file
;;
;; The script should be invoked with the new version string
;;
;; evil-update.el 1.2.3
;;
;;; Code:
(package-initialize)
(require 'f)
(require 'erc)
(require 'yaoddmuse)
(defconst evilupdate-irc-nick "lyrobot")
(defconst evilupdate-irc-channel "#evil-mode")
(defconst evilupdate-irc-topic
"Evil = Extensible vi layer for Emacs | Current version: VERSION | https://github.com/emacs-evil/evil | If you don't get an answer here, please use the mailing-list implementations-list@lists.ourproject.org")
(defconst evilupdate-wiki-page "Evil")
(defvar evilupdate-version "1.0.0")
(defvar evilupdate-done nil)
(defun evilupdate-wait ()
"Wait until `evilupdate-done' is set to t."
(while (not evilupdate-done)
(sleep-for 1))
(setq evilupdate-done nil))
(defun evilupdate-done ()
"Set `evilupdate-done' to t to stop the corresponding `evilupdate-wait'."
(setq evilupdate-done t))
(defun evilupdate-update-irc ()
"Update the topic of the IRC channel."
(let ((erc-nick evilupdate-irc-nick)
(erc-autojoin-channels-alist nil)
(auth-sources nil))
(erc-tls :server "irc.libera.chat" :port "6697" :nick evilupdate-irc-nick)
(add-hook 'erc-join-hook
(lambda ()
(let (case-fold-search)
(erc-set-topic (replace-regexp-in-string "VERSION"
evilupdate-version
evilupdate-irc-topic
nil t)))
(erc-quit-server "")
(sleep-for 5)
(evilupdate-done)))
(erc-join-channel evilupdate-irc-channel)
(evilupdate-wait)))
(defun evilupdate-wiki-trace (page-buffer-name)
"Callback for updating the EmacsWiki page in buffer PAGE-BUFFER-NAME."
(with-current-buffer page-buffer-name
(goto-char (point-min))
(when (re-search-forward "Current stable version: \\*\\*\\([^*]*\\)\\*\\*")
(goto-char (match-beginning 1))
(delete-region (match-beginning 1) (match-end 1))
(insert evilupdate-version)
(yaoddmuse-post-buffer (current-buffer) evilupdate-version nil)
(evilupdate-done))))
(unless (require 'nadvice nil t)
(defadvice yaoddmuse-display-page (around evilupdate activate)
(evilupdate-wiki-trace (ad-get-arg 0))))
(defun evilupdate-update-emacswiki ()
"Update the version information on the EmacsWiki page."
(setq yaoddmuse-wikis
'(("EmacsWiki" "https://www.emacswiki.org/emacs" utf-8 "uihnscuskc=1;")))
(when (featurep 'nadvice)
(advice-add 'yaoddmuse-display-page :after 'evilupdate-wiki-trace))
(yaoddmuse-edit "EmacsWiki" evilupdate-wiki-page t)
(evilupdate-wait))
(defun evilupdate-update-regexp (file regexp)
"Update version tag in FILE.
The version tag is defined by the REGEXP, in particular by the first
match group."
(find-file file)
(goto-char (point-min))
(when (re-search-forward regexp nil t)
(goto-char (match-beginning 1))
(delete-region (match-beginning 1) (match-end 1))
(insert evilupdate-version)
(save-buffer)))
(defun evilupdate-update-files ()
"Replace version comments in all source files."
(dolist (file (f-glob "*.el"))
(evilupdate-update-regexp file ";;\\s-*Version:\\s-*\\([^\n]+\\)")))
(defun evilupdate-update-pkg ()
"Replace version in package file."
(evilupdate-update-regexp "evil-pkg.el" "\"evil\"[ \t\n\r]*\"\\([^\"]+\\)\""))
(defun evilupdate-update-var ()
"Replace version in `evil-version' variable."
(evilupdate-update-regexp
"evil-vars.el"
"t \"\\([^\"]*\\)\"[) \n\r\t]*\"The current version of Evil"))
(defun evilupdate-update-news ()
"Send an posting to the mailing list."
(shell-command (concat "thunderbird -compose \"newsgroups=gmane.emacs.vim-emulation,preselectid=id2,subject='[ANN] Evil version " evilupdate-version " released',body='"
"Evil version " evilupdate-version " has been released.
The stable version can be installed from MELPA stable [1] and NonGNU ELPA [2].
The latest development version is available from MELPA [3].
The Evil developers.
[1] http://stable.melpa.org
[2] https://elpa.nongnu.org/nongnu/evil.html
[3] http://melpa.org
'\"")))
(defun evilupdate-update (version nonews)
"Update Evil to VERSION.
If NONEWS is non-nil do not post a message to the newsgroup."
(setq evilupdate-cnt 0)
(setq evilupdate-version version)
(evilupdate-update-emacswiki)
(evilupdate-update-irc)
(evilupdate-update-files)
(evilupdate-update-pkg)
(evilupdate-update-var)
(unless nonews (evilupdate-update-news)))
(cond
((= (length argv) 2)
(unless (equal (car argv) "nonews")
(user-error "Usage: evilupdate.el [-n] VERSION"))
(evilupdate-update (cadr argv) t))
((= (length argv) 1)
(evilupdate-update (cadr argv)))
(t
(user-error "Usage: evilupdate.el [-n] VERSION")))
;;; evilupdate.el ends here
|
