aboutsummaryrefslogtreecommitdiffstats
path: root/guix.scm
diff options
context:
space:
mode:
Diffstat (limited to 'guix.scm')
-rw-r--r--guix.scm40
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)))