TakeV
/
spacemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[bot] "built_in_updates" Fri Jul 1 14:06:03 UTC 2022

This commit is contained in:
SpacemacsBot 2022-07-01 14:06:03 +00:00 committed by Maxi Wolff
parent d059c4c0b2
commit 7af1a21724
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
core/libs/package-build.el
View File

@ -338,6 +338,12 @@ is used instead."
"--pretty=format:%cd" "--date=unix"
rev "--" (mapcar #'car (package-build-expand-files-spec rcp)))))))
(cl-defmethod package-build--get-commit-time ((rcp package-git-recipe) rev)
(let ((default-directory (package-recipe--working-tree rcp)))
(string-to-number
(car (process-lines "git" "log" "-n1" "--first-parent"
"--pretty=format:%cd" "--date=unix" rev)))))
(cl-defmethod package-build--used-url ((rcp package-git-recipe))
(let ((default-directory (package-recipe--working-tree rcp)))
(car (process-lines "git" "config" "remote.origin.url"))))
@ -390,6 +396,15 @@ is used instead."
,@(mapcar #'car (package-build-expand-files-spec rcp)))))
" ")))))
(cl-defmethod package-build--get-commit-time ((rcp package-hg-recipe) rev)
(let ((default-directory (package-recipe--working-tree rcp)))
(string-to-number
(car (split-string
(car (process-lines "hg" "log" "--limit" "1"
"--template" "{date|hgdate}\n"
"--rev" rev))
" ")))))
(cl-defmethod package-build--used-url ((rcp package-hg-recipe))
(let ((default-directory (package-recipe--working-tree rcp)))
(car (process-lines "hg" "paths" "default"))))
@ -856,7 +871,7 @@ in `package-build-archive-dir'."
name version commit files 'tar)
(error "%s[-pkg].el matching package name is missing"
name))))
(mtime (package-build--get-timestamp rcp commit)))
(mtime (package-build--get-commit-time rcp commit)))
(package-build--copy-package-files files source-dir target)
(package-build--write-pkg-file desc target)
(package-build--generate-info-files files source-dir target)