guix.scm

   1 ;;; mumi - Mediocre, uh, mail interface
   2 ;;; Copyright © 2016, 2017, 2018 Ricardo Wurmus <rekado@elephly.net>
   3 ;;;
   4 ;;; This file is part of mumi.
   5 ;;;
   6 ;;; mumi is free software; you can redistribute it and/or modify it
   7 ;;; under the terms of the GNU General Public License as published by
   8 ;;; the Free Software Foundation; either version 3 of the License, or
   9 ;;; (at your option) any later version.
  10 ;;;
  11 ;;; mumi is distributed in the hope that it will be useful, but
  12 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  13 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14 ;;; General Public License for more details.
  15 ;;;
  16 ;;; You should have received a copy of the GNU General Public License
  17 ;;; along with mumi.  If not, see <http://www.gnu.org/licenses/>.
  18
  19 ;;; Run the following command to enter a development environment for
  20 ;;; mumi:
  21 ;;;
  22 ;;;  $ guix environment -l guix.scm
  23
  24 (use-modules ((guix licenses) #:prefix license:)
  25              (guix packages)
  26              (guix download)
  27              (guix git-download)
  28              (guix utils)
  29              (guix build-system gnu)
  30              (gnu packages)
  31              (gnu packages autotools)
  32              (gnu packages guile)
  33              (gnu packages pkg-config)
  34              (gnu packages texinfo)
  35              (srfi srfi-1))
  36
  37 (define-public guile-debbugs-next
  38   (let ((commit "75a331d561c8b6f8efcf16216dab961c17759efe")
  39         (revision "1"))
  40     (package
  41       (name "guile-debbugs")
  42       (version (git-version "0.0.3" revision commit))
  43       (source (origin
  44                 (method git-fetch)
  45                 (uri (git-reference
  46                       (url "https://git.savannah.gnu.org/git/guile-debbugs.git")
  47                       (commit commit)))
  48                 (file-name (git-file-name name version))
  49                 (sha256
  50                  (base32
  51                   "0br3mgbw41bpc9x57jlghl0i8dz9nl63r4wzs5l47aqszf84870y"))))
  52       (build-system gnu-build-system)
  53       (native-inputs
  54        `(("pkg-config" ,pkg-config)
  55          ("autoconf" ,autoconf)
  56          ("automake" ,automake)
  57          ("texinfo" ,texinfo)))
  58       (inputs
  59        `(("guile" ,guile-2.2.4)
  60          ("guile-email" ,guile-email)))
  61       (home-page "https://www.gnu.org/software/guile-debbugs")
  62       (synopsis "Guile bindings for the Debbugs bug tracker")
  63       (description "This package provides a Guile library to communicate with a
  64 Debbugs bug tracker's SOAP service.")
  65       (license license:gpl3+))))
  66
  67 (define-public guile-email
  68   (let ((commit "fa52eac55e5946db89621a6c583d2aa357864dee")
  69         (revision "1"))
  70     (package
  71       (name "guile-email")
  72       (version (git-version "0.1.0" revision commit))
  73       (source
  74        (origin
  75          (method git-fetch)
  76          (uri (git-reference
  77                (url "https://git.systemreboot.net/guile-email")
  78                (commit commit)))
  79          (file-name (git-file-name name version))
  80          (sha256
  81           (base32
  82            "1037mbz7qd9bzaqp8ysyhnl9ipd97fmj3b9jr8qfzx9179vvsj63"))))
  83       (build-system gnu-build-system)
  84       (native-inputs
  85        `(("pkg-config" ,pkg-config)
  86          ("autoconf" ,autoconf)
  87          ("automake" ,automake)))
  88       (inputs
  89        `(("guile" ,guile-2.2.4)))
  90       (home-page "https://git.systemreboot.net/guile-email")
  91       (synopsis "Guile email parser")
  92       (description "Guile email parser")
  93       (license license:agpl3+))))
  94
  95 (package
  96   (name "mumi")
  97   (version "0.0.0")
  98   (source #f)
  99   (build-system gnu-build-system)
 100   (inputs
 101    `(("guile-debbugs" ,guile-debbugs-next)
 102      ("guile-email" ,guile-email)
 103      ("guile-json" ,guile-json)
 104      ("guile-fibers" ,guile-fibers)
 105      ("guile-syntax-highlight" ,guile-syntax-highlight)
 106      ("guile" ,guile-2.2.4)))
 107   (native-inputs
 108    `(("autoconf" ,autoconf)
 109      ("automake" ,automake)
 110      ("pkg-config" ,pkg-config)))
 111   (synopsis "TODO")
 112   (description "TODO")
 113   (home-page "TODO")
 114   (license license:gpl3+))