all messages for Guix-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
blob 1737178e1fb1ef562a35768e93bf477ef51d46a9 1639 bytes (raw)
name: website/apps/videos/templates/video.scm 	 # note: path name is non-authoritative(*)

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 
;;; GNU Guix web site
;;; Copyright © 2019 Florian Pelz <pelzflorian@pelzflorian.de>
;;; Initially written by sirgazil who waves all
;;; copyright interest on this file.

(define-module (apps videos templates video)
  #:use-module (apps base templates components)
  #:use-module (apps base templates theme)
  #:use-module (apps base types)
  #:use-module (apps base utils)
  #:use-module (apps videos templates components)
  #:use-module (apps videos types)
  #:use-module (apps videos utils)
  #:export (video-t))


(define (video-t previous video next)
  "Return a page in SHTML for the given VIDEO.  If true, links to the
PREVIOUS and NEXT videos are added."
  (theme
   #:title (list "Video" (video-title video))
   #:description
   "Video about GNU Guix."
   #:keywords
   '("GNU" "Linux" "Unix" "Free software" "Libre software"
     "Operating system" "GNU Hurd" "GNU Guix package manager"
     "Help resources" "Videos")
   #:active-menu-item "Videos"
   #:css (list
          (guix-url "static/base/css/page.css")
          (guix-url "static/base/css/index.css"))
   #:crumbs (list (crumb "Videos" (guix-url "videos/"))
                  (crumb (video-title video) "./"))
   #:content
   `(main
     (@ (class "page centered-block limit-width"))
     (h2 ,(video-title video))
     ,(video-content video)
     ,(if previous
          `(div
            ,(link-yellow
              #:label "← Previous"
              #:url (guix-url (video->url previous))))
          "")
     ,(if next
          `(div
            ,(link-yellow
              #:label "Next →"
              #:url (guix-url (video->url next))))
          ""))))

debug log:

solving 1737178 ...
found 1737178 in https://yhetil.org/guix/20191022120504.7cyoc5x2exylpzrg@pelzflorian.localdomain/

applying [1/1] https://yhetil.org/guix/20191022120504.7cyoc5x2exylpzrg@pelzflorian.localdomain/
diff --git a/website/apps/videos/templates/video.scm b/website/apps/videos/templates/video.scm
new file mode 100644
index 0000000..1737178

Checking patch website/apps/videos/templates/video.scm...
Applied patch website/apps/videos/templates/video.scm cleanly.

index at:
100644 1737178e1fb1ef562a35768e93bf477ef51d46a9	website/apps/videos/templates/video.scm

(*) Git path names are given by the tree(s) the blob belongs to.
    Blobs themselves have no identifier aside from the hash of its contents.^

Code repositories for project(s) associated with this external index

	https://git.savannah.gnu.org/cgit/guix.git

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.