diff options
| -rw-r--r-- | .guix.scm | 129 |
1 files changed, 129 insertions, 0 deletions
diff --git a/.guix.scm b/.guix.scm new file mode 100644 index 0000000..dca7a1f --- /dev/null +++ b/.guix.scm @@ -0,0 +1,129 @@ +;;; Guix package definition for piem development environment + +;; Copyright (C) 2020 Kyle Meyer + +;; Author: Kyle Meyer <kyle@kyleam.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 <https://www.gnu.org/licenses/>. + +;;; Commentary: + +;; This file evaluates to a Guix package for piem that specifies +;; inputs needed for development. Here's one way you can use this to +;; build and enter a development environment: +;; +;; guix environment --load=.guix.scm + +(use-modules (guix build utils) + (guix build-system emacs) + (guix build-system python) + (guix gexp) + (guix git-download) + ((guix licenses) #:prefix license:) + (guix packages) + (gnu packages emacs) + (gnu packages emacs-xyz) + (gnu packages python-web) + (gnu packages mail) + (gnu packages texinfo) + (gnu packages version-control) + (ice-9 popen) + (ice-9 rdelim)) + + +;;; Package definitions that should eventually be polished and +;;; submitted upstream. + +(define-public b4 + (package + (name "b4") + (version "0.5.2") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://git.kernel.org/pub/scm/utils/b4/b4.git") + (commit (string-append "v" version)))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 "1w11fiyspyncz2m7njrjfylgzch4azi7560ngd8i733wvjjhg3mj")))) + (build-system python-build-system) + (inputs + `(("python-requests" ,python-requests))) + (home-page "https://git.kernel.org/pub/scm/utils/b4/b4.git") + (synopsis "") + (description "") + (license license:gpl2+))) + +(define-public piem + (package + (name "piem") + (version "0.1.0") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://git.kyleam.com/piem.git") + (commit (string-append "v" version)))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 "07jagfxxnj383k48x8wdps160zggpxqknb65qr9f4k4i7hd8nykf")) + (modules '((guix build utils))) + ;; TODO: Decide how to deal with these optional libraries. + (snippet + '(begin (delete-file "piem-notmuch.el") + (delete-file "piem-elfeed.el") + #t)))) + (build-system emacs-build-system) + (propagated-inputs + `(("b4" ,b4) + ("emacs" ,emacs) + ("emacs-transient" ,emacs-transient))) + (license license:gpl3) + (home-page "https://git.kyleam.com/piem") + (synopsis "") + (description ""))) + + +;;; Development definition for piem + +(define %source-dir + (dirname (current-filename))) + +;; Copied from guile-daemon. +(define (git-output . args) + "Execute 'git ARGS ...' command and return its output without trailing +newspace." + (with-directory-excursion %source-dir + (let* ((port (apply open-pipe* OPEN_READ "git" args)) + (output (read-string port))) + (close-port port) + (string-trim-right output #\newline)))) + +(let ((commit (git-output "rev-parse" "--short" "HEAD"))) + (package + (inherit piem) + (name "piem-dev") + (version (string-append "000-" commit)) + (source (local-file %source-dir + #:recursive? #t + #:select? (git-predicate %source-dir))) + (propagated-inputs + `(("emacs" ,emacs) + ("emacs-elfeed" ,emacs-elfeed) + ("emacs-magit" ,emacs-magit) + ("git" ,git) + ("notmuch" ,notmuch) + ("texinfo" ,texinfo) + ,@(package-propagated-inputs piem))))) |