Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
clpm
clpi
Commits
0af3e486
Commit
0af3e486
authored
May 08, 2020
by
Eric Timmons
Browse files
Support for semver sorting
parent
aec0350c
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/project.lisp
View file @
0af3e486
...
...
@@ -11,7 +11,8 @@
#:clpi/release
#:clpi/repos
#:clpi/utils
)
(
:export
#:project
))
(
:export
#:project
)
(
:import-from
#:cl-semver
))
(
in-package
#:clpi/project
)
...
...
@@ -188,7 +189,12 @@ instantiated."))
(
when
version-scheme
(
setf
release-descs
(
sort
release-descs
(
ecase
version-scheme
(
:date
#'
string<
))
#'
string<
)
(
:semver
(
lambda
(
x
y
)
(
cl-semver:version<
(
cl-semver:read-version-from-string
x
)
(
cl-semver:read-version-from-string
y
)))))
:key
#'
car
)))
(
with-clpi-io-syntax
()
(
dolist
(
release-desc
release-descs
)
...
...
@@ -205,7 +211,12 @@ instantiated."))
(
when
version-scheme
(
setf
release-descs
(
sort
release-descs
(
ecase
version-scheme
(
:date
#'
string<
))
#'
string<
)
(
:semver
(
lambda
(
x
y
)
(
cl-semver:version<
(
cl-semver:read-version-from-string
x
)
(
cl-semver:read-version-from-string
y
)))))
:key
#'
car
)))
(
with-clpi-io-syntax
()
(
dolist
(
release-desc
release-descs
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment