cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions
guix-data-service/guix-data-service/web/view/html.scm

1306 lines
48 KiB
Scheme
Raw Normal View History

Initial commit This is a service designed to provide information about Guix. At the moment, this initial prototype gathers up information about packages, the associated metadata and derivations. The initial primary use case is to compare two different revisions of Guix, detecting which packages are new, no longer present, updated or otherwise different. It's based on the Mumi project. [1]: https://git.elephly.net/software/mumi.git
2019-02-06 16:14:44 +00:00
;;; Guix Data Service -- Information about Guix over time
;;; Copyright © 2016, 2017, 2018, 2019 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2018, 2019 Arun Isaac <arunisaac@systemreboot.net>
;;; Copyright © 2019 Christopher Baines <mail@cbaines.net>
;;;
;;; This program is free software: you can redistribute it and/or
;;; modify it under the terms of the GNU Affero General Public License
;;; as published by the Free Software Foundation, either version 3 of
;;; the License, or (at your option) any later version.
;;;
;;; This program is distributed in the hope that it will be useful,
;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;;; Affero General Public License for more details.
;;;
;;; You should have received a copy of the GNU Affero General Public
;;; License along with this program. If not, see
;;; <http://www.gnu.org/licenses/>.
(define-module (guix-data-service web view html)
#:use-module (guix-data-service config)
Add a form-horizontal-control function to better handle forms Each input is pretty complex, and this function helps handle that complexity.
2019-05-11 16:48:24 +01:00
#:use-module (guix-data-service web query-parameters)
#:use-module (guix-data-service web util)
Add a packages comparison page The primary use I have in mind for this is producing a list of strings suitable for building a limited Cuirass job with.
2019-02-25 23:44:32 +00:00
#:use-module (ice-9 vlist)
Initial commit This is a service designed to provide information about Guix. At the moment, this initial prototype gathers up information about packages, the associated metadata and derivations. The initial primary use case is to compare two different revisions of Guix, detecting which packages are new, no longer present, updated or otherwise different. It's based on the Mumi project. [1]: https://git.elephly.net/software/mumi.git
2019-02-06 16:14:44 +00:00
#:use-module (ice-9 match)
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-19)
Many changes A large proportion of these changes relate to changing the way packages relate to derivations. Previously, a package at a given revision had a single derivation. This was OK, but didn't account for multiple architectures. Therefore, these changes mean that a package has multiple derivations, depending on the system of the derivation, and the target system. There are multiple changes, small and large to the web interface as well. More pages link to each other, and the visual display has been improved somewhat.
2019-03-11 22:11:14 +00:00
#:use-module (texinfo)
#:use-module (texinfo html)
Initial commit This is a service designed to provide information about Guix. At the moment, this initial prototype gathers up information about packages, the associated metadata and derivations. The initial primary use case is to compare two different revisions of Guix, detecting which packages are new, no longer present, updated or otherwise different. It's based on the Mumi project. [1]: https://git.elephly.net/software/mumi.git
2019-02-06 16:14:44 +00:00
#:export (index
Add a statistics page To show the total number of derivations, and guix revisions.
2019-04-08 21:04:12 +01:00
view-statistics
Continue improving pages and linking things together
2019-03-07 23:50:51 +00:00
view-revision-package-and-version
Add a few new pages For showing more information about builds, revisions and derivations.
2019-03-06 22:59:27 +00:00
view-revision
Many changes A large proportion of these changes relate to changing the way packages relate to derivations. Previously, a package at a given revision had a single derivation. This was OK, but didn't account for multiple architectures. Therefore, these changes mean that a package has multiple derivations, depending on the system of the derivation, and the target system. There are multiple changes, small and large to the web interface as well. More pages link to each other, and the visual display has been improved somewhat.
2019-03-11 22:11:14 +00:00
view-revision-packages
Start to handle information about Git branches Add some new pages /branches and /branch/... as well as a new git_branches table. Also extend the email processing to enter the branch information in to the database.
2019-05-05 20:06:28 +01:00
view-branches
view-branch
Add a few new pages For showing more information about builds, revisions and derivations.
2019-03-06 22:59:27 +00:00
view-builds
view-derivation
Start to visualise derivations
2019-03-07 08:43:16 +00:00
view-store-item
Initial commit This is a service designed to provide information about Guix. At the moment, this initial prototype gathers up information about packages, the associated metadata and derivations. The initial primary use case is to compare two different revisions of Guix, detecting which packages are new, no longer present, updated or otherwise different. It's based on the Mumi project. [1]: https://git.elephly.net/software/mumi.git
2019-02-06 16:14:44 +00:00
compare
Add a new page comparing the derivations of two revisions
2019-02-24 15:38:08 +00:00
compare/derivations
Add a packages comparison page The primary use I have in mind for this is producing a list of strings suitable for building a limited Cuirass job with.
2019-02-25 23:44:32 +00:00
compare/packages
Add an error page for unknown commits
2019-02-08 11:27:07 +00:00
compare-unknown-commit
Initial commit This is a service designed to provide information about Guix. At the moment, this initial prototype gathers up information about packages, the associated metadata and derivations. The initial primary use case is to compare two different revisions of Guix, detecting which packages are new, no longer present, updated or otherwise different. It's based on the Mumi project. [1]: https://git.elephly.net/software/mumi.git
2019-02-06 16:14:44 +00:00
error-page))
(define* (header)
`(nav
(@ (id "header") (class "navbar navbar-default"))
(div
(@ (class "container-fluid"))
(div
(@ (class "navbar-header"))
(div (@ (class "navbar-brand"))
(a (@ (href "/") (class "logo"))))))))
(define* (layout #:key
(head '())
(body '())
(title "Guix Data Service")
(extra-headers '()))
`(#:sxml ((doctype "html")
(html
(head
(title ,title)
(meta (@ (http-equiv "Content-Type")
(content "text/html; charset=UTF-8")))
(meta (@ (http-equiv "Content-Language") (content "en")))
(meta (@ (name "author") (content "Christopher Baines")))
(meta (@ (name "viewport")
(content "width=device-width, initial-scale=1")))
(link
(@ (rel "stylesheet")
(media "screen")
(type "text/css")
(href "/css/reset.css")))
(link
(@ (rel "stylesheet")
(media "screen")
(type "text/css")
(href "/css/bootstrap.css")))
,@head
(link
(@ (rel "stylesheet")
(media "screen")
(type "text/css")
(href "/css/screen.css"))))
(body ,@body
(footer
(p "Copyright © 2016—2019 by the GNU Guix community."
(br)
"Now with even more " (span (@ (class "lambda")) "λ") "! ")
(p "This is free software. Download the "
(a (@ (href "https://git.cbaines.net/guix/data-service/"))
"source code here") ".")))))
#:extra-headers ,extra-headers))
Add a form-horizontal-control function to better handle forms Each input is pretty complex, and this function helps handle that complexity.
2019-05-11 16:48:24 +01:00
(define* (form-horizontal-control label query-parameters
#:key help-text (required? #f))
(define (value->text value)
(match value
((? date? date)
(date->string date "~1 ~3"))
(other other)))
(let* ((input-id (hyphenate-words
(string-downcase label)))
(help-span-id (string-append
input-id "-help-text"))
(input-name (underscore-join-words
(string-downcase label)))
(has-error? (invalid-query-parameter?
(assq-ref query-parameters
(string->symbol input-name)))))
`(div (@ (class ,(string-append
"form-group form-group-lg"
(if has-error? " has-error" ""))))
(label (@ (for ,input-id)
(class "col-sm-2 control-label"))
,label)
(div (@ (class "col-sm-9"))
(input (@ (class "form-control")
(style "font-family: monospace;")
(id ,input-id)
,@(if required?
'((required #t))
'())
,@(if help-text
`((aria-describedby ,help-span-id))
'())
(name ,input-name)
,@(match (assq (string->symbol input-name)
query-parameters)
(#f '())
((_key . ($ <invalid-query-parameter> value))
`((value ,(value->text value))))
((_key . value)
`((value ,(value->text value)))))))
,@(if (or help-text has-error? required?)
`((span (@ (id ,help-span-id)
(class "help-block"))
,@(if required? '((strong "Required.")) '())
,@(if has-error?
(let ((message
(invalid-query-parameter-message
(assq-ref query-parameters
(string->symbol input-name)))))
`((p (strong
,(string-append
"Error: "
(if message
message
"invalid value."))))))
'())
,@(if help-text
(list help-text)
'())))
'())))))
Switch to storing Git repositories in a table Rather than just storing the URL in the guix_revisions and load_new_guix_revision_jobs tables. This will help when storing more information like tags and branches in the future.
2019-05-05 13:35:48 +01:00
(define (index git-repositories-and-revisions)
Initial commit This is a service designed to provide information about Guix. At the moment, this initial prototype gathers up information about packages, the associated metadata and derivations. The initial primary use case is to compare two different revisions of Guix, detecting which packages are new, no longer present, updated or otherwise different. It's based on the Mumi project. [1]: https://git.elephly.net/software/mumi.git
2019-02-06 16:14:44 +00:00
(layout
#:extra-headers
'((cache-control . ((max-age . 60))))
#:body
`(,(header)
(div
(@ (class "container"))
Add a list of the queued revisions to the index page
2019-03-03 18:15:29 +00:00
(div
(@ (class "row"))
Ensure all rows contain a column As this helps with the layout, especially the whitespace to the left on smaller screens.
2019-03-17 23:32:54 +00:00
(div
(@ (class "col-sm-12"))
(h1 "Guix Data Service")))
Add a list of the queued revisions to the index page
2019-03-03 18:15:29 +00:00
(div
(@ (class "row"))
Ensure all rows contain a column As this helps with the layout, especially the whitespace to the left on smaller screens.
2019-03-17 23:32:54 +00:00
(div
(@ (class "col-sm-12"))
(form
(@ (id "compare")
(action "/compare"))
Add a list of the queued revisions to the index page
2019-03-03 18:15:29 +00:00
(div
Ensure all rows contain a column As this helps with the layout, especially the whitespace to the left on smaller screens.
2019-03-17 23:32:54 +00:00
(@ (class "col-md-6"))
(div
Improve the form styling on the index page
2019-03-17 23:41:11 +00:00
(@ (class "form-group form-group-lg"))
(label (@ (class "control-label")
(style "font-size: 18px;")
(for "base_commit"))
Ensure all rows contain a column As this helps with the layout, especially the whitespace to the left on smaller screens.
2019-03-17 23:32:54 +00:00
"Base commit")
(input (@ (type "text")
(class "form-control")
Improve the form styling on the index page
2019-03-17 23:41:11 +00:00
(style "font-family: monospace;")
Ensure all rows contain a column As this helps with the layout, especially the whitespace to the left on smaller screens.
2019-03-17 23:32:54 +00:00
(id "base_commit")
(name "base_commit")
(placeholder "base commit"))))
(div
Improve the form styling on the index page
2019-03-17 23:41:11 +00:00
(@ (class "form-group form-group-lg"))
(label (@ (class "control-label")
(style "font-size: 18px;")
(for "target_commit"))
Ensure all rows contain a column As this helps with the layout, especially the whitespace to the left on smaller screens.
2019-03-17 23:32:54 +00:00
"Target commit")
(input (@ (type "text")
(class "form-control")
Improve the form styling on the index page
2019-03-17 23:41:11 +00:00
(style "font-family: monospace;")
Ensure all rows contain a column As this helps with the layout, especially the whitespace to the left on smaller screens.
2019-03-17 23:32:54 +00:00
(id "target_commit")
(name "target_commit")
(placeholder "target commit")))))
Add a list of the queued revisions to the index page
2019-03-03 18:15:29 +00:00
(div
Ensure all rows contain a column As this helps with the layout, especially the whitespace to the left on smaller screens.
2019-03-17 23:32:54 +00:00
(@ (class "col-md-6"))
(button
(@ (type "submit")
(class "btn btn-lg btn-primary"))
"Compare")))))
Switch to storing Git repositories in a table Rather than just storing the URL in the guix_revisions and load_new_guix_revision_jobs tables. This will help when storing more information like tags and branches in the future.
2019-05-05 13:35:48 +01:00
,@(map
(match-lambda
(((id label url) . revisions)
`(div
(@ (class "row"))
(div
(@ (class "col-sm-12"))
(h3 ,url)
,(if (null? revisions)
'(p "No revisions")
`(table
(@ (class "table"))
(thead
(tr
(th (@ (class "col-md-6")) "Commit")))
(tbody
,@(map
(match-lambda
Start to handle information about Git branches Add some new pages /branches and /branch/... as well as a new git_branches table. Also extend the email processing to enter the branch information in to the database.
2019-05-05 20:06:28 +01:00
((id job-id commit source branches)
Switch to storing Git repositories in a table Rather than just storing the URL in the guix_revisions and load_new_guix_revision_jobs tables. This will help when storing more information like tags and branches in the future.
2019-05-05 13:35:48 +01:00
`(tr
(td ,(if (string-null? id)
`(samp ,commit)
`(a (@ (href ,(string-append
"/revision/" commit)))
Start to handle information about Git branches Add some new pages /branches and /branch/... as well as a new git_branches table. Also extend the email processing to enter the branch information in to the database.
2019-05-05 20:06:28 +01:00
(samp ,commit))))
(td
,@(map
(match-lambda
((name date)
`(a (@ (href ,(string-append
"/branch/" name)))
,name)))
branches)))))
Switch to storing Git repositories in a table Rather than just storing the URL in the guix_revisions and load_new_guix_revision_jobs tables. This will help when storing more information like tags and branches in the future.
2019-05-05 13:35:48 +01:00
revisions))))))))
git-repositories-and-revisions)))))
Add a statistics page To show the total number of derivations, and guix revisions.
2019-04-08 21:04:12 +01:00
(define (view-statistics guix-revisions-count derivations-count)
(layout
#:extra-headers
'((cache-control . ((max-age . 60))))
#:body
`(,(header)
(div
(@ (class "container"))
(div
(@ (class "row"))
(div
(@ (class "col-md-6"))
(h3 "Guix revisions")
(strong (@ (class "text-center")
(style "font-size: 2em; display: block;"))
,guix-revisions-count))
(div
(@ (class "col-md-6"))
(h3 "Derivations")
(strong (@ (class "text-center")
(style "font-size: 2em; display: block;"))
,derivations-count)))))))
Many changes A large proportion of these changes relate to changing the way packages relate to derivations. Previously, a package at a given revision had a single derivation. This was OK, but didn't account for multiple architectures. Therefore, these changes mean that a package has multiple derivations, depending on the system of the derivation, and the target system. There are multiple changes, small and large to the web interface as well. More pages link to each other, and the visual display has been improved somewhat.
2019-03-11 22:11:14 +00:00
(define (view-revision-package-and-version revision-commit-hash name version
package-metadata
derivations)
Continue improving pages and linking things together
2019-03-07 23:50:51 +00:00
(layout
#:extra-headers
'((cache-control . ((max-age . 60))))
#:body
`(,(header)
(div
(@ (class "container"))
(div
(@ (class "row"))
Ensure all rows contain a column As this helps with the layout, especially the whitespace to the left on smaller screens.
2019-03-17 23:32:54 +00:00
(div
(@ (class "col-sm-12"))
(h3 (a (@ (href ,(string-append
"/revision/" revision-commit-hash)))
"Revision " (samp ,revision-commit-hash)))))
Many changes A large proportion of these changes relate to changing the way packages relate to derivations. Previously, a package at a given revision had a single derivation. This was OK, but didn't account for multiple architectures. Therefore, these changes mean that a package has multiple derivations, depending on the system of the derivation, and the target system. There are multiple changes, small and large to the web interface as well. More pages link to each other, and the visual display has been improved somewhat.
2019-03-11 22:11:14 +00:00
(div
(@ (class "row"))
Ensure all rows contain a column As this helps with the layout, especially the whitespace to the left on smaller screens.
2019-03-17 23:32:54 +00:00
(div
(@ (class "col-sm-12"))
(h1 "Package " ,name " @ " ,version)))
Many changes A large proportion of these changes relate to changing the way packages relate to derivations. Previously, a package at a given revision had a single derivation. This was OK, but didn't account for multiple architectures. Therefore, these changes mean that a package has multiple derivations, depending on the system of the derivation, and the target system. There are multiple changes, small and large to the web interface as well. More pages link to each other, and the visual display has been improved somewhat.
2019-03-11 22:11:14 +00:00
(div
(@ (class "row"))
Ensure all rows contain a column As this helps with the layout, especially the whitespace to the left on smaller screens.
2019-03-17 23:32:54 +00:00
(div
(@ (class "col-sm-12"))
,(match package-metadata
(((synopsis description home-page))
`(dl
(@ (class "dl-horizontal"))
(dt "Synopsis")
(dd ,(stexi->shtml (texi-fragment->stexi synopsis)))
(dt "Description")
(dd ,(stexi->shtml (texi-fragment->stexi description)))
(dt "Home page")
(dd (a (@ (href ,home-page))
,home-page)))))))
Many changes A large proportion of these changes relate to changing the way packages relate to derivations. Previously, a package at a given revision had a single derivation. This was OK, but didn't account for multiple architectures. Therefore, these changes mean that a package has multiple derivations, depending on the system of the derivation, and the target system. There are multiple changes, small and large to the web interface as well. More pages link to each other, and the visual display has been improved somewhat.
2019-03-11 22:11:14 +00:00
(div
(@ (class "row"))
Ensure all rows contain a column As this helps with the layout, especially the whitespace to the left on smaller screens.
2019-03-17 23:32:54 +00:00
(div
(@ (class "col-sm-12"))
(table
(@ (class "table"))
(thead
(tr
(th "System")
(th "Target")
(th "Derivation")
(th "Build status")))
(tbody
,@(map
(match-lambda
((system target file-name status)
`(tr
(td (samp ,system))
(td (samp ,target))
(td (a (@ (href ,file-name))
,(display-store-item-short file-name)))
(td ,(build-status-span status)))))
derivations)))))))))
Continue improving pages and linking things together
2019-03-07 23:50:51 +00:00
Many changes A large proportion of these changes relate to changing the way packages relate to derivations. Previously, a package at a given revision had a single derivation. This was OK, but didn't account for multiple architectures. Therefore, these changes mean that a package has multiple derivations, depending on the system of the derivation, and the target system. There are multiple changes, small and large to the web interface as well. More pages link to each other, and the visual display has been improved somewhat.
2019-03-11 22:11:14 +00:00
(define (view-revision commit-hash packages-count derivations-count)
Add a few new pages For showing more information about builds, revisions and derivations.
2019-03-06 22:59:27 +00:00
(layout
#:extra-headers
'((cache-control . ((max-age . 60))))
#:body
`(,(header)
(div
(@ (class "container"))
(div
(@ (class "row"))
Improve the display of the show revision page
2019-03-16 19:01:21 +00:00
(div
(@ (class "col-md-12"))
(h1 (@ (style "white-space: nowrap;"))
"Revision " (samp ,commit-hash))))
Add a few new pages For showing more information about builds, revisions and derivations.
2019-03-06 22:59:27 +00:00
(div
(@ (class "row"))
Many changes A large proportion of these changes relate to changing the way packages relate to derivations. Previously, a package at a given revision had a single derivation. This was OK, but didn't account for multiple architectures. Therefore, these changes mean that a package has multiple derivations, depending on the system of the derivation, and the target system. There are multiple changes, small and large to the web interface as well. More pages link to each other, and the visual display has been improved somewhat.
2019-03-11 22:11:14 +00:00
(div
(@ (class "col-md-6"))
(h3 "Packages")
(strong (@ (class "text-center")
(style "font-size: 2em; display: block;"))
,packages-count)
Improve the display of the show revision page
2019-03-16 19:01:21 +00:00
(a (@ (href ,(string-append "/revision/" commit-hash
Many changes A large proportion of these changes relate to changing the way packages relate to derivations. Previously, a package at a given revision had a single derivation. This was OK, but didn't account for multiple architectures. Therefore, these changes mean that a package has multiple derivations, depending on the system of the derivation, and the target system. There are multiple changes, small and large to the web interface as well. More pages link to each other, and the visual display has been improved somewhat.
2019-03-11 22:11:14 +00:00
"/packages")))
"View packages"))
(div
(@ (class "col-md-6"))
(h3 "Derivations")
(table
Improve the display of the show revision page
2019-03-16 19:01:21 +00:00
(@ (class "table")
(style "white-space: nowrap;"))
Many changes A large proportion of these changes relate to changing the way packages relate to derivations. Previously, a package at a given revision had a single derivation. This was OK, but didn't account for multiple architectures. Therefore, these changes mean that a package has multiple derivations, depending on the system of the derivation, and the target system. There are multiple changes, small and large to the web interface as well. More pages link to each other, and the visual display has been improved somewhat.
2019-03-11 22:11:14 +00:00
(thead
(tr
(th "System")
(th "Target")
Improve the display of the show revision page
2019-03-16 19:01:21 +00:00
(th "Derivations")))
Many changes A large proportion of these changes relate to changing the way packages relate to derivations. Previously, a package at a given revision had a single derivation. This was OK, but didn't account for multiple architectures. Therefore, these changes mean that a package has multiple derivations, depending on the system of the derivation, and the target system. There are multiple changes, small and large to the web interface as well. More pages link to each other, and the visual display has been improved somewhat.
2019-03-11 22:11:14 +00:00
(tbody
,@(map (match-lambda
((system target count)
(if (string=? system target)
`(tr
(td (@ (class "text-center")
(colspan 2))
(samp ,system))
(td (samp ,count)))
`(tr
(td (samp ,system))
(td (samp ,target))
(td (samp ,count))))))
derivations-count)))))))))
(define (view-revision-packages revision-commit-hash packages)
(layout
#:extra-headers
'((cache-control . ((max-age . 60))))
#:body
`(,(header)
(div
(@ (class "container"))
(div
(@ (class "row"))
Ensure all rows contain a column As this helps with the layout, especially the whitespace to the left on smaller screens.
2019-03-17 23:32:54 +00:00
(div
(@ (class "col-sm-12"))
(h3 (a (@ (href ,(string-append
"/revision/" revision-commit-hash)))
"Revision " (samp ,revision-commit-hash)))))
Many changes A large proportion of these changes relate to changing the way packages relate to derivations. Previously, a package at a given revision had a single derivation. This was OK, but didn't account for multiple architectures. Therefore, these changes mean that a package has multiple derivations, depending on the system of the derivation, and the target system. There are multiple changes, small and large to the web interface as well. More pages link to each other, and the visual display has been improved somewhat.
2019-03-11 22:11:14 +00:00
(div
(@ (class "row"))
Ensure all rows contain a column As this helps with the layout, especially the whitespace to the left on smaller screens.
2019-03-17 23:32:54 +00:00
(div
(@ (class "col-sm-12"))
(h1 "Packages")
(table
(@ (class "table table-responsive"))
(thead
(tr
(th (@ (class "col-md-3")) "Name")
(th (@ (class "col-md-3")) "Version")
(th (@ (class "col-md-3")) "Synopsis")
(th (@ (class "col-md-3")) "")))
(tbody
,@(map
(match-lambda
((name version synopsis)
`(tr
(td ,name)
(td ,version)
(td ,(stexi->shtml (texi-fragment->stexi synopsis)))
(td (@ (class "text-right"))
(a (@ (href ,(string-append
"/revision/" revision-commit-hash
"/package/" name "/" version)))
"More information")))))
packages)))))))))
Add a few new pages For showing more information about builds, revisions and derivations.
2019-03-06 22:59:27 +00:00
Start to handle information about Git branches Add some new pages /branches and /branch/... as well as a new git_branches table. Also extend the email processing to enter the branch information in to the database.
2019-05-05 20:06:28 +01:00
(define (view-branches branches-with-most-recent-commits)
(layout
#:extra-headers
'((cache-control . ((max-age . 60))))
#:body
`(,(header)
(div
(@ (class "container"))
(div
(@ (class "row"))
(div
(@ (class "col-md-12"))
(h1 "Branches")))
(div
(@ (class "row"))
(div
(@ (class "col-md-12"))
(table
(@ (class "table table-responsive"))
(thead
(tr
(th (@ (class "col-md-3")) "Name")
(th (@ (class "col-md-3")) "Commit")
(th (@ (class "col-md-3")) "Date")))
(tbody
,@(map
(match-lambda
((name commit date revision-exists)
`(tr
(td
(a (@ (href ,(string-append "/branch/" name)))
,name))
(td ,date)
(td ,(if (string=? revision-exists "t")
`(a (@ (href ,(string-append
"/revision/" commit)))
(samp ,commit))
`(samp ,(if (string=? commit "NULL")
"branch deleted"
commit)))))))
branches-with-most-recent-commits)))))))))
Add some options to the branch page Add handling for some query parameters to the branch page. This takes advantage of the improvements for building forms and query parameter validation.
2019-05-11 16:49:18 +01:00
(define (view-branch branch-name query-parameters
branch-commits)
Start to handle information about Git branches Add some new pages /branches and /branch/... as well as a new git_branches table. Also extend the email processing to enter the branch information in to the database.
2019-05-05 20:06:28 +01:00
(layout
#:extra-headers
'((cache-control . ((max-age . 60))))
#:body
`(,(header)
(div
(@ (class "container"))
(div
(@ (class "row"))
(div
(@ (class "col-md-12"))
(h1 (@ (style "white-space: nowrap;"))
(samp ,branch-name) " branch")))
Add some options to the branch page Add handling for some query parameters to the branch page. This takes advantage of the improvements for building forms and query parameter validation.
2019-05-11 16:49:18 +01:00
(div
(@ (class "row"))
(div
(@ (class "col-md-12"))
(div
(@ (class "well"))
(form
(@ (method "get")
(action "")
(class "form-horizontal"))
,(form-horizontal-control
"After date" query-parameters
#:help-text "Only show the branch history after this date.")
,(form-horizontal-control
"Before date" query-parameters
#:help-text "Only show the branch history before this date.")
,(form-horizontal-control
"Limit results" query-parameters
#:help-text "The maximum number of results to return.")
(div (@ (class "form-group form-group-lg"))
(div (@ (class "col-sm-offset-2 col-sm-10"))
(button (@ (type "submit")
(class "btn btn-lg btn-primary"))
"Update results")))))))
Start to handle information about Git branches Add some new pages /branches and /branch/... as well as a new git_branches table. Also extend the email processing to enter the branch information in to the database.
2019-05-05 20:06:28 +01:00
(div
(@ (class "row"))
(div
(@ (class "col-md-12"))
(table
(@ (class "table table-responsive"))
(thead
(tr
(th (@ (class "col-md-3")) "Date")
(th (@ (class "col-md-3")) "Commit")))
(tbody
,@(map
(match-lambda
((commit date revision-exists)
`(tr
(td ,date)
(td ,(if (string=? revision-exists "t")
`(a (@ (href ,(string-append
"/revision/" commit)))
(samp ,commit))
`(samp ,(if (string=? commit "NULL")
"branch deleted"
commit)))))))
branch-commits)))))))))
Add a few new pages For showing more information about builds, revisions and derivations.
2019-03-06 22:59:27 +00:00
(define (view-builds stats builds)
(layout
#:extra-headers
'((cache-control . ((max-age . 60))))
#:body
`(,(header)
(div
(@ (class "container"))
(div
(@ (class "row"))
Ensure all rows contain a column As this helps with the layout, especially the whitespace to the left on smaller screens.
2019-03-17 23:32:54 +00:00
(div
(@ (class "col-sm-12"))
(h1 "Builds")
(table
(@ (class "table"))
(thead
(tr
(th (@ (class "col-md-2")) "Status")
(th (@ (class "col-md-2")) "Count")))
(tbody
,@(map
(match-lambda
((status count)
`(tr
(td ,(build-status-span status))
(td ,count))))
stats)))))
Add a few new pages For showing more information about builds, revisions and derivations.
2019-03-06 22:59:27 +00:00
(div
(@ (class "row"))
Ensure all rows contain a column As this helps with the layout, especially the whitespace to the left on smaller screens.
2019-03-17 23:32:54 +00:00
(div
(@ (class "col-sm-12"))
(table
(@ (class "table"))
(thead
(tr
(th (@ (class "col-xs-2")) "Status")
(th (@ (class "col-xs-9")) "Derivation")
(th (@ (class "col-xs-1")) "Started at")
(th (@ (class "col-xs-1")) "Finished at")
(th (@ (class "col-xs-1")) "")))
(tbody
,@(map
(match-lambda
((build-id build-server-url derivation-file-name
status-fetched-at starttime stoptime status)
`(tr
(td (@ (class "text-center"))
,(build-status-span status))
(td (a (@ (href ,derivation-file-name))
,(display-store-item-short derivation-file-name)))
(td ,starttime)
(td ,stoptime)
(td (a (@ (href ,(simple-format
#f "~Abuild/~A" build-server-url build-id)))
"View build on " ,build-server-url)))))
builds)))))))))
Add a few new pages For showing more information about builds, revisions and derivations.
2019-03-06 22:59:27 +00:00
Add build-status-value->display-string
2019-03-17 22:43:07 +00:00
(define (build-status-value->display-string value)
(assoc-ref
'(("scheduled" . "Scheduled")
("started" . "Started")
("succeeded" . "Succeeded")
("failed" . "Failed")
("failed-dependency" . "Failed (dependency)")
("failed-other" . "Failed (other)")
("canceled" . "Canceled")
("" . "Unknown"))
value))
Many changes A large proportion of these changes relate to changing the way packages relate to derivations. Previously, a package at a given revision had a single derivation. This was OK, but didn't account for multiple architectures. Therefore, these changes mean that a package has multiple derivations, depending on the system of the derivation, and the target system. There are multiple changes, small and large to the web interface as well. More pages link to each other, and the visual display has been improved somewhat.
2019-03-11 22:11:14 +00:00
(define (build-status-span status)
`(span (@ (class ,(string-append
"label label-"
(assoc-ref
'(("scheduled" . "info")
("started" . "primary")
("succeeded" . "success")
("failed" . "danger")
("failed-dependency" . "warning")
("failed-other" . "danger")
("canceled" . "default")
("" . "default"))
status)))
(style "display: inline-block; font-size: 1.2em; margin-top: 0.4em;"))
Add build-status-value->display-string
2019-03-17 22:43:07 +00:00
,(build-status-value->display-string status)))
Many changes A large proportion of these changes relate to changing the way packages relate to derivations. Previously, a package at a given revision had a single derivation. This was OK, but didn't account for multiple architectures. Therefore, these changes mean that a package has multiple derivations, depending on the system of the derivation, and the target system. There are multiple changes, small and large to the web interface as well. More pages link to each other, and the visual display has been improved somewhat.
2019-03-11 22:11:14 +00:00
Start to visualise derivations
2019-03-07 08:43:16 +00:00
(define (display-store-item-short item)
`((span (@ (style "font-size: small; font-family: monospace; display: block;"))
,(string-take item 44))
Continue improving pages and linking things together
2019-03-07 23:50:51 +00:00
(span (@ (style "font-size: x-large; font-family: monospace; display: block;"))
Start to visualise derivations
2019-03-07 08:43:16 +00:00
,(string-drop item 44))))
(define (display-store-item item)
Many changes A large proportion of these changes relate to changing the way packages relate to derivations. Previously, a package at a given revision had a single derivation. This was OK, but didn't account for multiple architectures. Therefore, these changes mean that a package has multiple derivations, depending on the system of the derivation, and the target system. There are multiple changes, small and large to the web interface as well. More pages link to each other, and the visual display has been improved somewhat.
2019-03-11 22:11:14 +00:00
`((span (@ (style "font-size: small; font-family: monospace; white-space: nowrap;"))
Start to visualise derivations
2019-03-07 08:43:16 +00:00
,(string-take item 44))
Many changes A large proportion of these changes relate to changing the way packages relate to derivations. Previously, a package at a given revision had a single derivation. This was OK, but didn't account for multiple architectures. Therefore, these changes mean that a package has multiple derivations, depending on the system of the derivation, and the target system. There are multiple changes, small and large to the web interface as well. More pages link to each other, and the visual display has been improved somewhat.
2019-03-11 22:11:14 +00:00
(span (@ (style "font-size: x-large; font-family: monospace; white-space: nowrap;"))
Start to visualise derivations
2019-03-07 08:43:16 +00:00
,(string-drop item 44))))
Continue improving pages and linking things together
2019-03-07 23:50:51 +00:00
(define (display-store-item-title item)
`(h1 (span (@ (style "font-size: 1em; font-family: monospace; display: block;"))
,(string-take item 44))
(span (@ (style "line-height: 1.7em; font-size: 1.5em; font-family: monospace;"))
,(string-drop item 44))))
(define (display-file-in-store-item filename)
(match (string-split filename #\/)
(("" "gnu" "store" item fileparts ...)
`(,(let ((full-item (string-append "/gnu/store/" item)))
`(a (@ (href ,full-item))
,(display-store-item-short full-item)))
,(string-append
"/" (string-join fileparts "/"))))))
Many changes A large proportion of these changes relate to changing the way packages relate to derivations. Previously, a package at a given revision had a single derivation. This was OK, but didn't account for multiple architectures. Therefore, these changes mean that a package has multiple derivations, depending on the system of the derivation, and the target system. There are multiple changes, small and large to the web interface as well. More pages link to each other, and the visual display has been improved somewhat.
2019-03-11 22:11:14 +00:00
(define (view-store-item filename derivations derivations-using-store-item-list)
Add a few new pages For showing more information about builds, revisions and derivations.
2019-03-06 22:59:27 +00:00
(layout
#:extra-headers
'((cache-control . ((max-age . 60))))
#:body
`(,(header)
(div
(@ (class "container"))
(div
(@ (class "row"))
Ensure all rows contain a column As this helps with the layout, especially the whitespace to the left on smaller screens.
2019-03-17 23:32:54 +00:00
(div
(@ (class "col-sm-12"))
Fix the layout on the derivation and store item pages
2019-03-19 08:23:11 +00:00
,(display-store-item-title filename)))
,@(map (lambda (derivation derivations-using-store-item)
`((div
(@ (class "row"))
(div
(@ (class "col-sm-12"))
Ensure all rows contain a column As this helps with the layout, especially the whitespace to the left on smaller screens.
2019-03-17 23:32:54 +00:00
(h4 "Derivation: ")
,(match derivation
((file-name output-id)
`(a (@ (href ,file-name))
Fix the layout on the derivation and store item pages
2019-03-19 08:23:11 +00:00
,(display-store-item file-name))))))
(div
(@ (class "row"))
Ensure all rows contain a column As this helps with the layout, especially the whitespace to the left on smaller screens.
2019-03-17 23:32:54 +00:00
(div
Fix the layout on the derivation and store item pages
2019-03-19 08:23:11 +00:00
(@ (class "col-sm-12"))
Ensure all rows contain a column As this helps with the layout, especially the whitespace to the left on smaller screens.
2019-03-17 23:32:54 +00:00
(h2 "Derivations using this store item "
,(let ((count (length derivations-using-store-item)))
(if (eq? count 100)
"(> 100)"
(simple-format #f "(~A)" count))))
(ul
(@ (class "list-unstyled"))
,(map
(match-lambda
((file-name)
`(li (a (@ (href ,file-name))
,(display-store-item file-name)))))
Fix the layout on the derivation and store item pages
2019-03-19 08:23:11 +00:00
derivations-using-store-item))))))
derivations
derivations-using-store-item-list)))))
Start to visualise derivations
2019-03-07 08:43:16 +00:00
Continue improving pages and linking things together
2019-03-07 23:50:51 +00:00
(define (view-derivation derivation derivation-inputs derivation-outputs
builds)
Start to visualise derivations
2019-03-07 08:43:16 +00:00
(layout
#:extra-headers
'((cache-control . ((max-age . 60))))
#:body
`(,(header)
(div
(@ (class "container"))
,(match derivation
((id file-name builder args env-vars system)
`(div
(@ (class "row"))
Fix the layout on the derivation and store item pages
2019-03-19 08:23:11 +00:00
(div
(@ (class "col-sm-12"))
,(display-store-item-title file-name)))))
Start to visualise derivations
2019-03-07 08:43:16 +00:00
(div
(@ (class "row"))
(div
(@ (class "col-md-4"))
(h3 "Inputs")
Support displaying builtin:download derivations
2019-03-28 21:02:16 +00:00
,(if (null? derivation-inputs)
"No inputs"
`(table
(@ (class "table"))
(thead
(tr
(th "File name")))
(tdata
,@(map (match-lambda
((file-name output-name path)
`(tr
(td (a (@ (href ,file-name))
,(display-store-item-short path))))))
derivation-inputs)))))
Start to visualise derivations
2019-03-07 08:43:16 +00:00
(div
(@ (class "col-md-4"))
Continue improving pages and linking things together
2019-03-07 23:50:51 +00:00
(h3 "Derivation details")
,(match derivation
((id file-name builder args env-vars system)
`(table
(@ (class "table"))
(tbody
(tr
(td "Builder")
Support displaying builtin:download derivations
2019-03-28 21:02:16 +00:00
(td ,(if (string=? "builtin:download"
builder)
"builtin:download"
`(a (@ (href ,builder))
,(display-file-in-store-item builder)))))
Continue improving pages and linking things together
2019-03-07 23:50:51 +00:00
(tr
(td "System")
(td (samp ,system)))))))
(h3 "Build status")
Many changes A large proportion of these changes relate to changing the way packages relate to derivations. Previously, a package at a given revision had a single derivation. This was OK, but didn't account for multiple architectures. Therefore, these changes mean that a package has multiple derivations, depending on the system of the derivation, and the target system. There are multiple changes, small and large to the web interface as well. More pages link to each other, and the visual display has been improved somewhat.
2019-03-11 22:11:14 +00:00
,@(if (null? builds)
`((div
(@ (class "text-center"))
,(build-status-span "")))
(map
(match-lambda
((build-id build-server-url status-fetched-at
starttime stoptime status)
`(div
(@ (class "text-center"))
(div ,(build-status-span status))
(a (@ (style "display: inline-block; margin-top: 0.4em;")
(href ,(simple-format
#f "~Abuild/~A" build-server-url build-id)))
"View build on " ,build-server-url))))
builds)))
Start to visualise derivations
2019-03-07 08:43:16 +00:00
(div
(@ (class "col-md-4"))
(h3 "Outputs")
(table
(@ (class "table"))
(thead
(tr
(th "File name")))
(tdata
,@(map (match-lambda
((output-name path hash-algorithm hash recursive?)
`(tr
(td (a (@ (href ,path))
,(display-store-item-short path))))))
derivation-outputs)))))))))
Add a few new pages For showing more information about builds, revisions and derivations.
2019-03-06 22:59:27 +00:00
Initial commit This is a service designed to provide information about Guix. At the moment, this initial prototype gathers up information about packages, the associated metadata and derivations. The initial primary use case is to compare two different revisions of Guix, detecting which packages are new, no longer present, updated or otherwise different. It's based on the Mumi project. [1]: https://git.elephly.net/software/mumi.git
2019-02-06 16:14:44 +00:00
(define (compare base-commit
target-commit
new-packages
removed-packages
version-changes
Many changes A large proportion of these changes relate to changing the way packages relate to derivations. Previously, a package at a given revision had a single derivation. This was OK, but didn't account for multiple architectures. Therefore, these changes mean that a package has multiple derivations, depending on the system of the derivation, and the target system. There are multiple changes, small and large to the web interface as well. More pages link to each other, and the visual display has been improved somewhat.
2019-03-11 22:11:14 +00:00
derivation-changes)
Add some navigation buttons Both to the packages and derivations packages, as well as the JSON representation of the pages.
2019-02-26 08:33:17 +00:00
(define query-params
(string-append "?base_commit=" base-commit
"&target_commit=" target-commit))
Initial commit This is a service designed to provide information about Guix. At the moment, this initial prototype gathers up information about packages, the associated metadata and derivations. The initial primary use case is to compare two different revisions of Guix, detecting which packages are new, no longer present, updated or otherwise different. It's based on the Mumi project. [1]: https://git.elephly.net/software/mumi.git
2019-02-06 16:14:44 +00:00
(layout
#:extra-headers
'((cache-control . ((max-age . 60))))
#:body
`(,(header)
(div
(@ (class "container"))
Add some navigation buttons Both to the packages and derivations packages, as well as the JSON representation of the pages.
2019-02-26 08:33:17 +00:00
(div
(@ (class "row"))
(div
Ensure all rows contain a column As this helps with the layout, especially the whitespace to the left on smaller screens.
2019-03-17 23:32:54 +00:00
(@ (class "col-sm-12"))
(h1 (@ (class "pull-left"))
"Comparing "
(samp ,(string-take base-commit 8) "…")
" and "
(samp ,(string-take target-commit 8) "…"))
(div
(@ (class "btn-group-vertical btn-group-lg pull-right")
(style "margin-top: 2em;")
(role "group"))
(a (@ (class "btn btn-default")
(href ,(string-append "/compare/packages" query-params)))
"Compare packages")
(a (@ (class "btn btn-default")
(href ,(string-append "/compare/derivations" query-params)))
"Compare derivations"))))
Add some navigation buttons Both to the packages and derivations packages, as well as the JSON representation of the pages.
2019-02-26 08:33:17 +00:00
(div
(@ (class "row") (style "clear: left;"))
Ensure all rows contain a column As this helps with the layout, especially the whitespace to the left on smaller screens.
2019-03-17 23:32:54 +00:00
(div
(@ (class "col-sm-12"))
(a (@ (class "btn btn-default btn-lg")
(href ,(string-append
"/compare.json" query-params)))
"View JSON")))
Add some navigation buttons Both to the packages and derivations packages, as well as the JSON representation of the pages.
2019-02-26 08:33:17 +00:00
(div
(@ (class "row"))
Ensure all rows contain a column As this helps with the layout, especially the whitespace to the left on smaller screens.
2019-03-17 23:32:54 +00:00
(div
(@ (class "col-sm-12"))
(h3 (@ (style "clear: both;"))
"New packages")
,(if (null? new-packages)
'(p "No new packages")
`(table
(@ (class "table"))
(thead
(tr
(th (@ (class "col-md-3")) "Name")
(th (@ (class "col-md-9")) "Version")))
(tbody
,@(map
(match-lambda
((('name . name)
('version . version))
`(tr
(td ,name)
(td ,version))))
new-packages))))))
Add some navigation buttons Both to the packages and derivations packages, as well as the JSON representation of the pages.
2019-02-26 08:33:17 +00:00
(div
(@ (class "row"))
Ensure all rows contain a column As this helps with the layout, especially the whitespace to the left on smaller screens.
2019-03-17 23:32:54 +00:00
(div
(@ (class "col-sm-12"))
(h3 "Removed packages")
,(if (null? removed-packages)
'(p "No removed packages")
`(table
(@ (class "table"))
(thead
(tr
(th (@ (class "col-md-3")) "Name")
(th (@ (class "col-md-9")) "Version")))
(tbody
,@(map
(match-lambda
((('name . name)
('version . version))
`(tr
(td ,name)
(td ,version))))
removed-packages))))))
Add some navigation buttons Both to the packages and derivations packages, as well as the JSON representation of the pages.
2019-02-26 08:33:17 +00:00
(div
(@ (class "row"))
Ensure all rows contain a column As this helps with the layout, especially the whitespace to the left on smaller screens.
2019-03-17 23:32:54 +00:00
(div
(@ (class "col-sm-12"))
(h3 "Version changes")
,(if (null? version-changes)
'(p "No version changes")
`(table
(@ (class "table"))
(thead
(tr
(th (@ (class "col-md-3")) "Name")
(th (@ (class "col-md-9")) "Versions")))
(tbody
,@(map
(match-lambda
((name . versions)
`(tr
(td ,name)
(td (ul
,@(map (match-lambda
((type . versions)
`(li (@ (class ,(if (eq? type 'base)
"text-danger"
"text-success")))
,(string-join
(vector->list versions)
", ")
,(if (eq? type 'base)
" (old)"
" (new)"))))
versions))))))
version-changes))))))
Add some navigation buttons Both to the packages and derivations packages, as well as the JSON representation of the pages.
2019-02-26 08:33:17 +00:00
(div
(@ (class "row"))
Ensure all rows contain a column As this helps with the layout, especially the whitespace to the left on smaller screens.
2019-03-17 23:32:54 +00:00
(div
(@ (class "col-sm-12"))
(h3 "Package derivation changes")
,(if
(null? derivation-changes)
'(p "No derivation changes")
`(table
(@ (class "table")
(style "table-layout: fixed;"))
(thead
(tr
(th "Name")
(th "Version")
(th "System")
(th "Target")
(th (@ (class "col-xs-5")) "Derivations")))
(tbody
,@(append-map
(match-lambda
((('name . name)
('version . version)
('base . base-derivations)
('target . target-derivations))
(let* ((system-and-versions
(delete-duplicates
(append (map (lambda (details)
(cons (assq-ref details 'system)
(assq-ref details 'target)))
(vector->list base-derivations))
(map (lambda (details)
(cons (assq-ref details 'system)
(assq-ref details 'target)))
(vector->list target-derivations)))))
(data-columns
(map
(match-lambda
((system . target)
(let ((base-derivation-file-name
(assq-ref (find (lambda (details)
(and (string=? (assq-ref details 'system) system)
(string=? (assq-ref details 'target) target)))
(vector->list base-derivations))
'derivation-file-name))
(target-derivation-file-name
(assq-ref (find (lambda (details)
(and (string=? (assq-ref details 'system) system)
(string=? (assq-ref details 'target) target)))
(vector->list target-derivations))
'derivation-file-name)))
`((td (samp (@ (style "white-space: nowrap;"))
,system))
(td (samp (@ (style "white-space: nowrap;"))
,target))
Handle missing derivations when rendering the comparison
2019-03-24 17:36:10 +00:00
(td ,@(if base-derivation-file-name
`((a (@ (style "display: block;")
(href ,base-derivation-file-name))
(span (@ (class "text-danger glyphicon glyphicon-minus pull-left")
(style "font-size: 1.5em; padding-right: 0.4em;")))
,(display-store-item-short base-derivation-file-name)))
'())
,@(if target-derivation-file-name
`((a (@ (style "display: block; clear: left;")
(href ,target-derivation-file-name))
(span (@ (class "text-success glyphicon glyphicon-plus pull-left")
(style "font-size: 1.5em; padding-right: 0.4em;")))
,(and=> target-derivation-file-name display-store-item-short)))
'()))))))
Ensure all rows contain a column As this helps with the layout, especially the whitespace to the left on smaller screens.
2019-03-17 23:32:54 +00:00
system-and-versions)))
Many changes A large proportion of these changes relate to changing the way packages relate to derivations. Previously, a package at a given revision had a single derivation. This was OK, but didn't account for multiple architectures. Therefore, these changes mean that a package has multiple derivations, depending on the system of the derivation, and the target system. There are multiple changes, small and large to the web interface as well. More pages link to each other, and the visual display has been improved somewhat.
2019-03-11 22:11:14 +00:00
Ensure all rows contain a column As this helps with the layout, especially the whitespace to the left on smaller screens.
2019-03-17 23:32:54 +00:00
`((tr (td (@ (rowspan , (length system-and-versions)))
,name)
(td (@ (rowspan , (length system-and-versions)))
,version)
,@(car data-columns))
,@(map (lambda (data-row)
`(tr ,data-row))
(cdr data-columns))))))
(vector->list derivation-changes)))))))))))
Initial commit This is a service designed to provide information about Guix. At the moment, this initial prototype gathers up information about packages, the associated metadata and derivations. The initial primary use case is to compare two different revisions of Guix, detecting which packages are new, no longer present, updated or otherwise different. It's based on the Mumi project. [1]: https://git.elephly.net/software/mumi.git
2019-02-06 16:14:44 +00:00
Improve the compare derivations page Add support for filtering the results, and add the system and target to the output.
2019-03-17 22:44:09 +00:00
(define (compare/derivations valid-systems
valid-build-statuses
base-commit
Add some navigation buttons Both to the packages and derivations packages, as well as the JSON representation of the pages.
2019-02-26 08:33:17 +00:00
target-commit
base-derivations
Improve the compare derivations page Add support for filtering the results, and add the system and target to the output.
2019-03-17 22:44:09 +00:00
target-derivations
systems
targets
Update the JSON link on the compare/derivations page
2019-03-17 23:14:25 +00:00
build-statuses)
Add some navigation buttons Both to the packages and derivations packages, as well as the JSON representation of the pages.
2019-02-26 08:33:17 +00:00
(define query-params
Update the JSON link on the compare/derivations page
2019-03-17 23:14:25 +00:00
(string-append
"?"
(string-join
`(,(string-append "base_commit=" base-commit)
,(string-append "target_commit=" target-commit)
,@(map (lambda (system)
(string-append
"system=" system))
systems)
,@(map (lambda (target)
(string-append
"target=" target))
targets)
,@(map (lambda (build_status)
(string-append
"build_status=" build_status))
build-statuses))
"&")))
Add some navigation buttons Both to the packages and derivations packages, as well as the JSON representation of the pages.
2019-02-26 08:33:17 +00:00
Add a new page comparing the derivations of two revisions
2019-02-24 15:38:08 +00:00
(layout
#:extra-headers
'((cache-control . ((max-age . 60))))
#:body
`(,(header)
(div
(@ (class "container"))
Add some navigation buttons Both to the packages and derivations packages, as well as the JSON representation of the pages.
2019-02-26 08:33:17 +00:00
(div
(@ (class "row"))
(h1 "Comparing "
(samp ,(string-take base-commit 8) "…")
" and "
Improve the compare derivations page Add support for filtering the results, and add the system and target to the output.
2019-03-17 22:44:09 +00:00
(samp ,(string-take target-commit 8) "…")))
(div
(@ (class "row"))
(div
(@ (class "col-md-12"))
(div
(@ (class "well"))
(form
(@ (method "get")
(action "")
(class "form-horizontal"))
(div (@ (class "form-group form-group-lg"))
(label (@ (for "inputBaseCommit")
(class "col-sm-2 control-label"))
"Base commit")
(div (@ (class "col-sm-9"))
(input (@ (class "form-control")
(style "font-family: monospace;")
(id "inputBaseCommit")
(required #t)
(aria-describedby "baseCommitHelp")
(name "base_commit")
(value ,base-commit)))
(span (@ (id "baseCommitHelp")
(class "help-block"))
(strong "Required.")
" The commit to use as the basis for the comparison.")))
(div (@ (class "form-group form-group-lg"))
(label (@ (for "inputTargetCommit")
(class "col-sm-2 control-label"))
"Target commit")
(div (@ (class "col-sm-9"))
(input (@ (class "form-control")
(style "font-family: monospace;")
(id "inputTargetCommit")
(required #t)
(aria-describedby "targetCommitHelp")
(name "target_commit")
(value ,target-commit)))
(span (@ (id "targetCommitHelp")
(class "help-block"))
(strong "Required.")
" The commit to compare against the base commit.")))
(div (@ (class "form-group form-group-lg"))
(label (@ (for "inputSystem")
(class "col-sm-2 control-label"))
"System")
(div (@ (class "col-sm-9"))
(select (@ (class "form-control")
(style "font-family: monospace;")
(multiple #t)
(id "inputSystem")
(aria-describedby "systemHelp")
(name "system"))
,@(map (lambda (system)
`(option (@ ,@(if (member system systems)
'((selected ""))
'()))
,system))
valid-systems))
(span (@ (id "systemHelp")
(class "help-block"))
"Only include derivations for this system.")))
(div (@ (class "form-group form-group-lg"))
(label (@ (for "inputTarget")
(class "col-sm-2 control-label"))
"Target")
(div (@ (class "col-sm-9"))
(select (@ (class "form-control")
(style "font-family: monospace;")
(multiple #t)
(id "inputTarget")
(aria-describedby "targetHelp")
(name "target"))
,@(map (lambda (system)
`(option (@ ,@(if (member system targets)
'((selected ""))
'()))
,system))
valid-systems))
(span (@ (id "targetHelp")
(class "help-block"))
"Only include derivations that are build for this system.")))
(div (@ (class "form-group form-group-lg"))
(label (@ (for "inputBuildStatus")
(class "col-sm-2 control-label"))
"Build status")
(div (@ (class "col-sm-9"))
(select (@ (class "form-control")
(id "inputBuildStatus")
(aria-describedby "buildStatusHelp")
(multiple #t)
(name "build_status"))
,@(map (lambda (build-status)
Update the JSON link on the compare/derivations page
2019-03-17 23:14:25 +00:00
`(option (@ ,@(if (member build-status build-statuses)
Improve the compare derivations page Add support for filtering the results, and add the system and target to the output.
2019-03-17 22:44:09 +00:00
'((selected ""))
'())
(value ,build-status))
,(build-status-value->display-string build-status)))
valid-build-statuses))
(span (@ (id "buildStatusHelp")
(class "help-block"))
"Only include derivations which have this build status.")))
(div (@ (class "form-group form-group-lg"))
(div (@ (class "col-sm-offset-2 col-sm-10"))
(button (@ (type "submit")
(class "btn btn-lg btn-primary"))
"Update results")))
(a (@ (class "btn btn-default btn-lg pull-right")
(href ,(string-append
"/compare/derivations.json" query-params)))
"View JSON")))))
Add some navigation buttons Both to the packages and derivations packages, as well as the JSON representation of the pages.
2019-02-26 08:33:17 +00:00
(div
(@ (class "row"))
Ensure all rows contain a column As this helps with the layout, especially the whitespace to the left on smaller screens.
2019-03-17 23:32:54 +00:00
(div
(@ (class "col-sm-12"))
(h3 "Base ("
(samp ,base-commit)
")")
(p "Derivations found only in the base revision.")
(table
(@ (class "table"))
(thead
(tr
(th (@ (class "col-md-6")) "File Name")
(th (@ (class "col-md-2")) "System")
(th (@ (class "col-md-2")) "Target")
(th (@ (class "col-md-4")) "Build status")))
(tbody
,@(map
(match-lambda
((file-name system target build-status)
`(tr
(td (a (@ (href ,file-name))
,(display-store-item-short file-name)))
(td (samp ,system))
(td (samp ,target))
(td ,(build-status-span build-status)))))
base-derivations)))))
Add some navigation buttons Both to the packages and derivations packages, as well as the JSON representation of the pages.
2019-02-26 08:33:17 +00:00
(div
(@ (class "row"))
Ensure all rows contain a column As this helps with the layout, especially the whitespace to the left on smaller screens.
2019-03-17 23:32:54 +00:00
(div
(@ (class "col-sm-12"))
(h3 "Target ("
(samp ,target-commit)
")")
(p "Derivations found only in the target revision.")
(table
(@ (class "table"))
(thead
(tr
(th (@ (class "col-md-8")) "File Name")
(th (@ (class "col-md-2")) "System")
(th (@ (class "col-md-2")) "Target")
(th (@ (class "col-md-4")) "Build status")))
(tbody
,@(map
(match-lambda
((file-name system target build-status)
`(tr
(td (a (@ (href ,file-name))
,(display-store-item-short file-name)))
(td (samp ,system))
(td (samp ,target))
(td ,(build-status-span build-status)))))
target-derivations)))))))))
Add a new page comparing the derivations of two revisions
2019-02-24 15:38:08 +00:00
Add a packages comparison page The primary use I have in mind for this is producing a list of strings suitable for building a limited Cuirass job with.
2019-02-25 23:44:32 +00:00
(define (compare/packages base-commit
target-commit
base-packages-vhash
target-packages-vhash)
Add some navigation buttons Both to the packages and derivations packages, as well as the JSON representation of the pages.
2019-02-26 08:33:17 +00:00
(define query-params
(string-append "?base_commit=" base-commit
"&target_commit=" target-commit))
Add a packages comparison page The primary use I have in mind for this is producing a list of strings suitable for building a limited Cuirass job with.
2019-02-25 23:44:32 +00:00
(layout
#:extra-headers
'((cache-control . ((max-age . 60))))
#:body
`(,(header)
(div
(@ (class "container"))
Add some navigation buttons Both to the packages and derivations packages, as well as the JSON representation of the pages.
2019-02-26 08:33:17 +00:00
(div
(@ (class "row"))
Ensure all rows contain a column As this helps with the layout, especially the whitespace to the left on smaller screens.
2019-03-17 23:32:54 +00:00
(div
(@ (class "col-sm-12"))
(h1 "Comparing "
(samp ,(string-take base-commit 8) "…")
" and "
(samp ,(string-take target-commit 8) "…"))
(a (@ (class "btn btn-default btn-lg")
(href ,(string-append
"/compare/packages.json" query-params)))
"View JSON")))
Add some navigation buttons Both to the packages and derivations packages, as well as the JSON representation of the pages.
2019-02-26 08:33:17 +00:00
(div
(@ (class "row"))
Ensure all rows contain a column As this helps with the layout, especially the whitespace to the left on smaller screens.
2019-03-17 23:32:54 +00:00
(div
(@ (class "col-sm-12"))
(h3 "Base ("
(samp ,base-commit)
")")
(p "Packages found in the base revision.")
(table
(@ (class "table"))
(thead
(tr
(th (@ (class "col-md-4")) "Name")
(th (@ (class "col-md-4")) "Version")
(th (@ (class "col-md-4")) "")))
(tbody
,@(map
(match-lambda
((name version)
`(tr
(td ,name)
(td ,version)
(td (@ (class "text-right"))
(a (@ (href ,(string-append
"/revision/" base-commit
"/package/" name "/" version)))
"More information")))))
(delete-duplicates
(map (lambda (data)
(take data 2))
(vlist->list base-packages-vhash))))))))
Add some navigation buttons Both to the packages and derivations packages, as well as the JSON representation of the pages.
2019-02-26 08:33:17 +00:00
(div
(@ (class "row"))
Ensure all rows contain a column As this helps with the layout, especially the whitespace to the left on smaller screens.
2019-03-17 23:32:54 +00:00
(div
(@ (class "col-sm-12"))
(h3 "Target ("
(samp ,target-commit)
")")
(p "Packages found in the target revision.")
(table
(@ (class "table"))
(thead
(tr
(th (@ (class "col-md-4")) "Name")
(th (@ (class "col-md-4")) "Version")
(th (@ (class "col-md-4")) "")))
(tbody
,@(map
(match-lambda
((name version)
`(tr
(td ,name)
(td ,version)
(td (@ (class "text-right"))
(a (@ (href ,(string-append
Fix "More information" link for target packages On the packages comparison page.
2019-04-21 11:02:55 +01:00
"/revision/" target-commit
Ensure all rows contain a column As this helps with the layout, especially the whitespace to the left on smaller screens.
2019-03-17 23:32:54 +00:00
"/package/" name "/" version)))
"More information")))))
(delete-duplicates
(map (lambda (data)
(take data 2))
(vlist->list target-packages-vhash))))))))))))
Add a packages comparison page The primary use I have in mind for this is producing a list of strings suitable for building a limited Cuirass job with.
2019-02-25 23:44:32 +00:00
Show when revisions are missing, but queued for processing
2019-02-24 16:47:29 +00:00
(define (compare-unknown-commit base-commit target-commit
base-exists? target-exists?
base-job target-job)
Initial commit This is a service designed to provide information about Guix. At the moment, this initial prototype gathers up information about packages, the associated metadata and derivations. The initial primary use case is to compare two different revisions of Guix, detecting which packages are new, no longer present, updated or otherwise different. It's based on the Mumi project. [1]: https://git.elephly.net/software/mumi.git
2019-02-06 16:14:44 +00:00
(layout
#:body
`(,(header)
(div (@ (class "container"))
Add an error page for unknown commits
2019-02-08 11:27:07 +00:00
(h1 "Unknown commit")
Show when revisions are missing, but queued for processing
2019-02-24 16:47:29 +00:00
,(if base-exists?
'()
`(p "No known revision with commit "
(strong (samp ,base-commit))
,(if (null? base-job)
" and it is not currently queued for processing"
" but it is queued for processing")))
,(if target-exists?
'()
`(p "No known revision with commit "
(strong (samp ,target-commit))
,(if (null? target-job)
" and it is not currently queued for processing"
" but it is queued for processing")))))))
Initial commit This is a service designed to provide information about Guix. At the moment, this initial prototype gathers up information about packages, the associated metadata and derivations. The initial primary use case is to compare two different revisions of Guix, detecting which packages are new, no longer present, updated or otherwise different. It's based on the Mumi project. [1]: https://git.elephly.net/software/mumi.git
2019-02-06 16:14:44 +00:00
(define (error-page message)
(layout
#:body
`(,(header)
(div (@ (class "container"))
(h1 "Error")
(p "An error occurred. Sorry about that!")
,message
(p (a (@ (href "/")) "Try something else?"))))))
Reference in a new issue Copy permalink