diff options
| -rw-r--r-- | .guix-authorizations | 4 | ||||
| -rw-r--r-- | .guix-channel | 3 | ||||
| -rw-r--r-- | .guix/guile-email-package.scm | 51 | ||||
| l---------[-rw-r--r--] | guix.scm | 52 |
4 files changed, 59 insertions, 51 deletions
diff --git a/.guix-authorizations b/.guix-authorizations new file mode 100644 index 0000000..a8ef8be --- /dev/null +++ b/.guix-authorizations @@ -0,0 +1,4 @@ +(authorizations + (version 0) + (("7F73 0343 F2F0 9F3C 77BF 79D3 2E25 EE8B 6180 2BB3" + (name "arunisaac")))) diff --git a/.guix-channel b/.guix-channel new file mode 100644 index 0000000..35e181f --- /dev/null +++ b/.guix-channel @@ -0,0 +1,3 @@ +(channel + (version 0) + (directory ".guix")) diff --git a/.guix/guile-email-package.scm b/.guix/guile-email-package.scm new file mode 100644 index 0000000..64f74cd --- /dev/null +++ b/.guix/guile-email-package.scm @@ -0,0 +1,51 @@ +;;; guile-email --- Guile email parser +;;; Copyright © 2019, 2023 Arun Isaac <arunisaac@systemreboot.net> +;;; +;;; This file is part of guile-email. +;;; +;;; guile-email is free software; you can redistribute it and/or modify +;;; it under the terms of the GNU Affero General Public License as +;;; published by the Free Software Foundation; either version 3 of the +;;; License, or (at your option) any later version. +;;; +;;; guile-email 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 +;;; Affero General Public License for more details. +;;; +;;; You should have received a copy of the GNU Affero General Public +;;; License along with guile-email. If not, see +;;; <http://www.gnu.org/licenses/>. + +(define-module (guile-email-package) + #:use-module ((gnu packages guile-xyz) + #:select (guile-email guile2.2-email) #:prefix guix:) + #:use-module (guix gexp) + #:use-module (guix git-download) + #:use-module (guix packages) + #:use-module (guix utils)) + +(define (make-guile-email base-package) + (package + (inherit base-package) + (source (local-file ".." + "guile-email-checkout" + #:recursive? #t + #:select? (or (git-predicate (dirname (current-source-directory))) + (const #t)))) + (arguments + (substitute-keyword-arguments (package-arguments base-package) + ((#:make-flags make-flags #~(list)) + #~(cons (string-append "prefix=" #$output) + #$make-flags)) + ((#:phases phases #~%standard-phases) + #~(modify-phases #$phases + (delete 'configure))))))) + +(define-public guile-email + (make-guile-email guix:guile-email)) + +(define-public guile2.2-email + (make-guile-email guix:guile2.2-email)) + +guile-email @@ -1,51 +1 @@ -;;; guile-email --- Guile email parser -;;; Copyright © 2019 Arun Isaac <arunisaac@systemreboot.net> -;;; -;;; This file is part of guile-email. -;;; -;;; guile-email is free software; you can redistribute it and/or modify -;;; it under the terms of the GNU Affero General Public License as -;;; published by the Free Software Foundation; either version 3 of the -;;; License, or (at your option) any later version. -;;; -;;; guile-email 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 -;;; Affero General Public License for more details. -;;; -;;; You should have received a copy of the GNU Affero General Public -;;; License along with guile-email. If not, see -;;; <http://www.gnu.org/licenses/>. - -;;; Run the following command to enter a development environment for -;;; guile-email: -;;; -;;; $ guix environment -l guix.scm - -(use-modules (guix gexp) - (guix git-download) - (guix packages) - (guix utils) - (gnu packages autotools) - (gnu packages guile-xyz) - (gnu packages texinfo)) - -(define %source-dir (dirname (current-filename))) - -(package - (inherit guile-email) - (source (local-file %source-dir - #:recursive? #t - #:select? (git-predicate %source-dir))) - (arguments - (substitute-keyword-arguments (package-arguments guile-email) - ((#:make-flags make-flags #~(list)) - #~(list (string-append "prefix=" #$output))) - ((#:phases phases #~%standard-phases) - #~(modify-phases #$phases - (delete 'configure))))) - (native-inputs - (modify-inputs (package-native-inputs guile-email) - (prepend autoconf) - (prepend automake) - (prepend texinfo)))) +.guix/guile-email-package.scm
\ No newline at end of file |