aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2019-12-02 13:25:42 +0100
committerChristopher Baines <mail@cbaines.net>2019-12-02 13:25:42 +0100
commita8f1304d1d66a82bed01df63b9b9e207cf5be021 (patch)
treeef7564b9ad4e1c4113c897ff142d03e562df9aa7
parentfdce6c1e158eb04a4390c3ac4f6fc04ffb368013 (diff)
downloaddata-service-a8f1304d1d66a82bed01df63b9b9e207cf5be021.tar
data-service-a8f1304d1d66a82bed01df63b9b9e207cf5be021.tar.gz
Add a new html-utils module
To store code used for rendering HTML across multiple controllers.
-rw-r--r--Makefile.am1
-rw-r--r--guix-data-service/web/html-utils.scm36
2 files changed, 37 insertions, 0 deletions
diff --git a/Makefile.am b/Makefile.am
index e73f94b..5bf9570 100644
--- a/Makefile.am
+++ b/Makefile.am
@@ -93,6 +93,7 @@ SOURCES = \
guix-data-service/model/package-metadata.scm \
guix-data-service/model/package.scm \
guix-data-service/model/utils.scm \
+ guix-data-service/web/html-utils.scm \
guix-data-service/web/compare/controller.scm \
guix-data-service/web/compare/html.scm \
guix-data-service/web/controller.scm \
diff --git a/guix-data-service/web/html-utils.scm b/guix-data-service/web/html-utils.scm
new file mode 100644
index 0000000..6a16b9c
--- /dev/null
+++ b/guix-data-service/web/html-utils.scm
@@ -0,0 +1,36 @@
+;;; Guix Data Service -- Information about Guix over time
+;;; 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 html-utils)
+ #:use-module (ice-9 match)
+ #:export (sexp-div))
+
+(define (sexp-div sexp)
+ (peek "SEXP" sexp)
+ (match sexp
+ (#(val rest ...)
+ `(div (@ (style "margin-left: 1em;"))
+ "( "
+ ,val
+ " "
+ ,@(map sexp-div rest)
+ " )"))
+ ((("base16" . hash))
+ `(span (@ (style "font-family: monospace;"))
+ ,hash))
+ ((and string val)
+ val)))