all messages for Guix-related lists mirrored at yhetil.org

 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
 ;;; 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 data)
  #:use-module (apps base utils)
  #:use-module (apps videos types)
  #:use-module (srfi srfi-19)
  #:export (playlists))


;;;
;;; Data.
;;;


(define playlists
  ;; List of "playlists" of related videos in proper order.
  (list
   (list
    (video
     #:title "Installation from Script"
     #:description
     '(p "Explains how to install Guix on distributions not running
GNU Guix.")
     #:url "https://archive.org/download/guix-videos/01-installation-from-script.webm"
     #:poster (guix-url "static/videos/img/installation-from-script.png")
     #:last-updated (string->date "2019-10-21T20:00:00" "~Y-~m-~dT~H:~M:~S")))
   (list
    (video
     #:title "Everyday use of GNU Guix, Part One"
     #:description
     '(p "Shows you how to install packages and how to manage software
package generations.")
     #:url "https://archive.org/download/guix-videos/02-everyday-use-part-one.webm"
     #:poster (guix-url "static/videos/img/everyday-use-01.png")
     #:last-updated (string->date "2019-10-21T20:00:00" "~Y-~m-~dT~H:~M:~S"))
    (video
     #:title "Everyday use of GNU Guix, Part Two"
     #:description
     '(p "Shows you how to upgrade software and how to reclaim storage
space.")
     #:url "https://archive.org/download/guix-videos/02-everyday-use-part-two.webm"
     #:poster (guix-url "static/videos/img/everyday-use-02.png")
     #:last-updated (string->date "2019-10-21T20:00:00" "~Y-~m-~dT~H:~M:~S")))))