/
guix.scm
57 lines (49 loc) · 1.92 KB
/
guix.scm
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
51
52
53
54
55
56
57
;;; guix.scm --- Package to build/install shell script from this directory
;; Copyright © 2016 Alex Kost <alezost@gmail.com>
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU 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 General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;; See <http://lists.gnu.org/archive/html/help-guix/2016-08/msg00101.html>.
;;; Code:
(use-modules
(guix gexp)
(guix packages)
;; (guix licenses)
(guix build-system trivial)
(gnu packages bash))
(let ((script-name "my-script"))
(package
(name script-name)
(version "0.1")
(source (local-file (string-append (dirname (current-filename))
"/" script-name)))
(build-system trivial-build-system)
(arguments
`(#:modules ((guix build utils))
#:builder
(begin
(use-modules (guix build utils))
(let* ((bin-dir (string-append %output "/bin"))
(bin-file (string-append bin-dir "/" ,script-name))
(bash-bin (string-append (assoc-ref %build-inputs "bash")
"/bin")))
(mkdir-p bin-dir)
(copy-file (assoc-ref %build-inputs "source") bin-file)
(patch-shebang bin-file (list bash-bin))
(chmod bin-file #o555)))))
(inputs `(("bash" ,bash)))
(home-page #f)
(synopsis "bla bla")
(description "More verbose bla bla")
(license #f)))
;;; guix.scm ends here