blob a9e4647b34e905e1588a517a4c0b0545e56d5e98 532 bytes (raw)
name: website/apps/videos/utils.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
| | ;;; GNU Guix web site
;;; Copyright © 2019 Florian Pelz <pelzflorian@pelzflorian.de>
;;; Initially written by sirgazil who waives all
;;; copyright interest on this file.
(define-module (apps videos utils)
#:use-module (apps aux web)
#:use-module (apps videos types)
#:use-module (ice-9 regex)
#:export (video->url))
(define (video->url video)
(url-path-join
"videos"
(string-downcase
(regexp-substitute/global #f "[ \t]+" (video-title video)
'pre "-" 'post))
"index.html"))
|
debug log:
solving a9e4647 ...
found a9e4647 in https://yhetil.org/guix-devel/20191022120504.7cyoc5x2exylpzrg@pelzflorian.localdomain/
applying [1/1] https://yhetil.org/guix-devel/20191022120504.7cyoc5x2exylpzrg@pelzflorian.localdomain/
diff --git a/website/apps/videos/utils.scm b/website/apps/videos/utils.scm
new file mode 100644
index 0000000..a9e4647
Checking patch website/apps/videos/utils.scm...
Applied patch website/apps/videos/utils.scm cleanly.
index at:
100644 a9e4647b34e905e1588a517a4c0b0545e56d5e98 website/apps/videos/utils.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 public inbox
https://git.savannah.gnu.org/cgit/guix.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).