blob: c3d52a7894677b458ddfa0ebc680b1ec03affde6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
(define-module (sakura packages)
#:use-module (srfi srfi-26)
#:use-module (srfi srfi-34)
#:use-module (gnu packages)
#:use-module (guix ui)
#:use-module (guix utils)
#:use-module (guix packages)
#:use-module (guix diagnostics)
#:export (sakura-patch
sakura-patches))
(define %sakura-patch-path
(map (cut string-append <> "/sakura/packages/patches")
%load-path))
(define (sakura-patch file-name)
(or (search-path %sakura-patch-path file-name)
(raise (formatted-message (G_ "~a: patch not found")
file-name))))
(define-syntax-rule (sakura-patches file-name ...)
(list (sakura-patch file-name) ...))
|
