github/melpa
1
0
Fork 0
mirror of https://github.com/correl/melpa.git synced 2025-04-08 17:00:07 -09:00
Code Issues Projects Releases Packages Wiki Activity

If the last update to a package was at midnight, ensure the HHMM part of version is "0", not ""

Browse source 
See
This commit is contained in:
Steve Purcell 2012-09-06 14:23:41 +01:00
parent 20fdd5e145
commit 9ddf14d643
1 changed files with 3 additions and 6 deletions

9
package-build.el
View file

@ -72,12 +72,9 @@
(message (format "%s\n" (substring-no-properties str))) (message (format "%s\n" (substring-no-properties str)))
;; We remove zero-padding the HH portion, as it is lost ;; We remove zero-padding the HH portion, as it is lost
;; when stored in the archive-contents ;; when stored in the archive-contents
(replace-regexp-in-string "\\.0+" (let ((time (date-to-time (substring-no-properties str))))
"." (concat (format-time-string "%Y%m%d." time)
(format-time-string (format "%d" (or (parse-integer (format-time-string "%H%M" time)) 0)))))
"%Y%m%d.%H%M"
(date-to-time
(substring-no-properties str)))))
(defun pb/string-match-all (regex str &optional group) (defun pb/string-match-all (regex str &optional group)
"Find every match for `REGEX' within `STR', returning the full match string or group `GROUP'." "Find every match for `REGEX' within `STR', returning the full match string or group `GROUP'."