common-lisp/roswell.roswell
1
0
Fork 0
mirror of https://github.com/roswell/roswell.git synced 2026-09-10 07:16:17 -04:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

implement edit-changelog

Browse source
This commit is contained in:
SANO Masatoshi 2017-05-20 22:02:25 +09:00
parent e6f5a6b0a8
commit 5765e6cbd9
1 changed files with 23 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
scripts/release.ros
View file

@ -66,7 +66,29 @@ exec ros -Q -L sbcl-bin -- $0 "$@"
(uiop/run-program:run-program cmd :output o))))
(defun edit-changelog ()
(error "not implement yet"))
(let ((lines (with-open-file (in (merge-pathnames "ChangeLog" *project-path*))
(loop for l = (read-line in nil nil)
while l
collect l))))
(with-open-file (out (merge-pathnames "ChangeLog" *project-path*)
:direction :output :if-exists :supersede)
(loop for l in lines
with version = t
with date = t
when (and version (cl-ppcre:scan "master-changelog-which-not-yet-released" l))
do (setf version nil
l (cl-ppcre:regex-replace
"master-changelog-which-not-yet-released"
l *new-version*))
when (and date (cl-ppcre:scan "^ --" l))
do (setf date nil
l (format nil " -- ~A <~A> ~A"
(x "git config --get user.name")
(x "git config --get user.email")
(local-time:format-rfc1123-timestring
nil
(local-time:universal-to-timestamp (get-universal-time)))))
do (format out "~A~%" l)))))
(defun prepare-changelog ()
(declare (ignore argv))