diff options
Diffstat (limited to 'guix.scm')
l---------[-rw-r--r--] | guix.scm | 67 |
1 files changed, 1 insertions, 66 deletions
@@ -1,66 +1 @@ -;;; tissue --- Text based issue tracker -;;; Copyright © 2022, 2023 Arun Isaac <arunisaac@systemreboot.net> -;;; -;;; This file is part of tissue. -;;; -;;; tissue 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. -;;; -;;; tissue 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 tissue. If not, see <https://www.gnu.org/licenses/>. - -(use-modules ((gnu packages fonts) #:select (font-ibm-plex)) - ((gnu packages guile) #:select (guile-git) #:prefix guix:) - ((gnu packages version-control) #:select (libgit2-1.3) #:prefix guix:) - ((gnu packages web) #:select (tissue) #:prefix guix:) - (guix gexp) - (guix git-download) - (guix packages) - (guix utils)) - -(define %source-dir (dirname (current-filename))) - -;; Run this version of libgit2 for guile-git until guile-git is -;; updated upstream and https://github.com/libgit2/libgit2/issues/6536 -;; is fixed. -(define-public libgit2 - (package - (inherit guix:libgit2-1.3) - (name "libgit2") - (arguments - (substitute-keyword-arguments (package-arguments guix:libgit2-1.3) - ((#:phases phases #~%standard-phases) - #~(modify-phases #$phases - ;; Disable ownership validation until - ;; https://github.com/libgit2/libgit2/issues/6536 is fixed. - (add-after 'unpack 'disable-ownership-validation - (lambda _ - (substitute* "src/repository.c" - (("git_repository__validate_ownership = true") - "git_repository__validate_ownership = false")))))))))) - -(define-public guile-git - (package - (inherit guix:guile-git) - (inputs - (modify-inputs (package-inputs guix:guile-git) - (replace "libgit2" libgit2))))) - -(package - (inherit guix:tissue) - (source (local-file %source-dir - #:recursive? #t - #:select? (git-predicate %source-dir))) - (inputs - (modify-inputs (package-inputs guix:tissue) - (replace "guile-git" guile-git))) - (native-inputs - (modify-inputs (package-native-inputs guix:tissue) - (prepend font-ibm-plex)))) +.guix/tissue-package.scm
\ No newline at end of file |