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

start using git command to get user/email for release script

Browse source
This commit is contained in:
SANO Masatoshi 2015-05-13 16:25:50 +09:00
parent c884fcbc83
commit 4208705103
1 changed files with 10 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
scripts/release.ros
View file

@ -38,18 +38,22 @@ exec ros -s cl-ppcre -Q -- $0 "$@"
(dolist (line file)
(format out "~A~%" line)))))
(defun x (cmd)
(string-right-trim
(format nil "~A" #\newline)
(with-output-to-string (o)
(uiop/run-program:run-program cmd :output o))))
(defun edit-change-log ()
(with-open-file (out (merge-pathnames "ChangeLog--" *project-path*)
:direction :output :if-exists :supersede)
(format out "~{~A~%~}"
(list (format nil "roswell (~A-1) unstable; urgency=low" *new-version*)
"" " *" ""
(format nil " -- Masatoshi SANO <snmsts@gmail.com> ~A"
(string-right-trim
(format nil "~A" #\newline)
(with-output-to-string (o)
(uiop/run-program:run-program "LANG=C date -R" :output o))))
"")))
(format nil " -- ~A <~A> ~A"
(x "git config --get user.name")
(x "git config --get user.email")
(x "LANG=C date -R")) "")))
(with-open-file (out (merge-pathnames "ChangeLog---" *project-path*)
:direction :output :if-exists :supersede)
(uiop/run-program:run-program