diff options
Diffstat (limited to 'guix.scm')
-rw-r--r-- | guix.scm | 40 |
1 files changed, 0 insertions, 40 deletions
diff --git a/guix.scm b/guix.scm deleted file mode 100644 index 43bbc67..0000000 --- a/guix.scm +++ /dev/null @@ -1,40 +0,0 @@ -;; SPDX-FileCopyrightText: 2023 Fredrik Salomonsson <plattfot@posteo.net> -;; -;; SPDX-License-Identifier: GPL-3.0-or-later - -(use-modules - (guix packages) - (guix git-download) - (guix gexp) - (guix build-system gnu) - ((guix licenses) #:prefix license:) - (gnu packages autotools) - (gnu packages guile) - (gnu packages pkg-config) - (gnu packages texinfo) - (gnu packages xdisorg) - (gnu packages gnupg) - (ice-9 popen) - (ice-9 rdelim) - ) - -;; From the talk "Just build it with Guix" by Efraim Flashner -;; presented on the Guix days 2020 -;; https://guix.gnu.org/en/blog/2020/online-guix-day-announce-2/ -(define %source-dir (dirname (current-filename))) - -(define %git-commit - (read-string (open-pipe "git show HEAD | head -1 | cut -d ' ' -f2" OPEN_READ))) - -(define (skip-git-and-build-directory file stat) - "Skip the `.git` and `build` directory when collecting the sources." - (let ((name (basename file))) - (not (or (string=? name ".git") (string=? name "build"))))) - -(package - (inherit pinentry-rofi) - (name "pinentry-rofi-git") - (version (git-version (package-version pinentry-rofi) "HEAD" %git-commit)) - (source (local-file %source-dir - #:recursive? #t - #:select? skip-git-and-build-directory))) |